Home > mIRC > Script Version (CTCP) IRC

Script Version (CTCP) IRC

kalau kamu di version orang, biasanya kan Replynya : VERSION reply]: mIRC v6.3 Khaled Mardam-Bey, nah,,, ini bisa kita tambahin sesuai dengan kata² kesukaan kita, biasanya pak ADIY (#Jagoan@DalNet) menggunakan VERSION reply]: jadul nokia.bla bla bla… lupa aku. silahkanlah kau edit kata2 sesuai kata2 kesukaan kamu, kamu juga bisa gunakan VERSION reply]: Armen Ganteng deh😉 wawkawkawkakwa……. Ini dia script nya :

CTCP *:VERSION:*:{
ctcpreply $nick ArmenIRC Im using mIRC tech 4Powered By : 12» 4â12®4m12ê4ñ 12«
halt
}

selamat mencoba ya

#sidempuan @DalNet

Categories: mIRC
  1. 11 September 2008 at 14:55

    ini script buat Kata kotor, kamu bisa set berapa detik di ban,
    di kick atau ban, op dan voice di kick ato nggak, nih komplit,
    nah, coba masukin ini ke remote.
    Rekomendasi : IRC-nya v.6 keatas, selamat mencoba.
    ===========================================

    ;Proteksi Kata Kotor

    menu status,channel {

    Proteksi Kata Kotor:swear
    }

    alias swear { dialog -m swear swear }

    on *:load:{
    set %kiket on
    set %oplar on
    set %banvaxt 300
    set %kickmsj Kata Kotor tidak di-izinkan di channel..! MinGGiR..!
    set %logo.laskar (L@sKá® c®èw)
    set %soyush fuck,shit,bitch,idiot,kontol,pepek,babi,anjing,vagina,pantat,kelempong,puko,pukimak,kimak,jembut,gawuk,dancuk,memek,tetek,titit,bangsat
    set %banet on
    set %vlar on
    }

    on @*:text:*:#: {
    if ($nick isop #) && (%oplar == on) { return }
    if ($nick isvo #) && (%vlar == on) { return }
    _swer_ $1-
    }

    on @*:action:*:#: {
    if ($nick isop #) && (%oplar == on) { return }
    if ($nick isvo #) && (%vlar == on) { return }
    _swer_ $1-
    }

    on @*:notice:*:#: {
    if ($nick isop #) && (%oplar == on) { return }
    if ($nick isvo #) && (%vlar == on) { return }
    _swer_ $1-
    }

    alias _swer_ {
    var %x $strip($1-) , %i $numtok(%soyush,44)
    while (%i) {
    if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
    if (%kiket == on) { .kick # $nick 10Kata Kotor 14[4 $gettok(%soyush,%i,44) 14] 10tidak di-izikan di-channel #  $lkr }
    if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
    return
    }
    dec %i
    }
    }

    dialog swear {
    title “Proteksi Kata Kotor”
    size -1 -1 185 111
    option dbu
    box “Daftar Kata Kotor”, 1, 90 1 94 79
    combo 2, 94 10 87 53, size
    button “Tambah”, 3, 98 66 31 10
    button “Hapus”, 4, 144 65 31 10
    box “”, 5, 96 60 36 18
    box “”, 6, 142 60 36 18
    box “Penalty”, 7, 2 2 84 45
    check “Kick “, 8, 5 13 39 10
    check “Ban “, 9, 5 31 32 10
    edit “”, 10, 36 30 23 12, disable
    text “Detik”, 11, 62 32 21 8, disable
    box “semua user di kick/ban, kecuali”, 12, 2 49 84 31
    check “Op”, 13, 6 57 77 10
    check “Voices”, 14, 6 68 75 10
    box “Pesan Kick”, 15, 2 81 182 27
    edit “”, 16, 6 90 174 13, autohs
    }

    alias bad { .dialog -m swear swear }

    on *:dialog:swear:init:*:{
    if (%soyush) didtok $dname 2 44 $ifmatch
    if (%kiket) { .did -c $dname 8 }
    if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
    if (%oplar) { .did -c $dname 13 }
    if (%vlar) { .did -c $dname 14 }
    did -a $dname 10 %banvaxt
    did -a $dname 16 %kickmsj
    }

    on *:dialog:swear:sclick:*:{
    if ($did == 3) {
    if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
    }
    if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
    if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
    if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
    if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
    if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
    }

    on *:dialog:swear:edit:*:{
    %kickmsj = $did(16)
    %banvaxt = $did(10)
    }

    on *:unload:{
    unset %kiket on
    unset %oplar on
    unset %banvaxt
    unset %kickmsj
    unset %logo.laskar
    unset %soyush
    unset %banet
    unset %vlar
    }

  2. 11 September 2008 at 17:56

    Nah, sekarang kita coba Script Whois
    Script Whois ini bisa di Aktifkan dan dimatikan (kembali ke whois standart mIRC)
    copy aja ke remote (ALT R):

    ;Whois Script
    menu status,channel {

    $iif($group(#whois) == on,disable,enable) Custom Whois: {
    var %status = $iif($group(#whois) == on,Disable,Enable)
    $+(.,%status) #whois
    echo -ta 4* Custom whois has been $+(%status,d)
    }
    }
    alias whoisnumerics return 301|307|310|311|312|313|314|317|318|319|320|330|335|338|369|378|379|401|406|671
    #whois off
    raw *:*: {
    if ($istok($whoisnumerics,$numeric,124)) haltdef
    if ($numeric == 301) echo -s 4[?] Away: Yes: ( $+ $3- $+ )
    elseif ($numeric == 307) echo -s 4[?] Registered Nickname: Yes.
    elseif ($numeric == 310) echo -s 4[?] IRC Helper: Yes.
    elseif ($numeric == 311) {
    echo -s 4__12____6____7___2____14____5______4__12____6____7___2____14____5______4__12____6____7___2____14____5______4__12____6____7___2____12 Info: [ $2 ]
    echo -s 4[?] NickName: $2
    echo -s 4[?] Real Name: $6-
    echo -s 4[?] Hostmask Address: $3 $+ 4 $+ @ $+ 12 $+ $4
    }
    elseif ($numeric == 312) echo -s 4[?] Server: $3
    elseif ($numeric == 313) echo -s 4[?] Network Functions: $5-9
    elseif ($numeric == 314) {
    echo -s 4[?] Nick: $2
    echo -s 4[?] Name: $6-
    echo -s 4[?] Hostmask: $3 $+ 4 $+ @ $+ $4
    }
    elseif ($numeric == 317) {
    echo -s 4[?] Signed on at: $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
    echo -s 4[?] Time idle: $duration($3)
    echo -s 4[?] Time online: $duration($calc($ctime – $4))
    }
    elseif ($numeric == 319) echo -s 4[?] Channels: $3-
    elseif ($numeric == 320) echo -s 4[?] Swhois: $2-
    elseif ($numeric == 330) echo -s 4[?] Authname: $3
    elseif ($numeric == 335) echo -s 4[?] Bot: Yes
    elseif ($numeric == 338) {
    echo -s 4[?] Real Hostmask: $3
    echo -s 4[?] Real IP: $4
    }
    elseif ($numeric == 378) echo -s 4[?] Connecting from: $6-
    elseif ($numeric == 379) echo -s 4[?] Modes: $6-
    elseif ($numeric == 401) echo -s 4[?] The nickname ” $+ $2 $+ ” is 4NOT 4online!
    elseif ($numeric == 406) echo -s 4[?] The nickname ” $+ $2 $+ ” has 4NOT 4been online recently.
    elseif ($numeric == 671) echo -s 4[?] Secure Connection: Yes
    }
    #whois end

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: