Home > mIRC > Script Untuk Menyembunyikan Semua CTCP

Script Untuk Menyembunyikan Semua CTCP

alias pers { dialog -m versionR versionR }
dialog versionR {
title “Ganti Version mIRC”
size -1 -1 650 310
text “Pilihan salah satu:”, 1, 15 15 175 15
box “”, 2, 1 0 645 300
button “&Tutup”, 7, 280 250 200 25,flat cancel
combo 8, 10 30 355 200,read,hide,hsbar
button “Set Version”,9, 380 30 250 25,flat,hide
button “Linux”,10, 10 250 55 25,flat
button “Mirc”,11, 70 250 55 25,flat
button “Scripts”,12, 130 250 55 25,flat
button “djRaz”,13, 190 250 55 25,flat
combo 14, 10 30 355 200,read,hide,hsbar
combo 15, 10 30 355 200,read,hsbar
button “Set Version”,16, 380 30 250 25,flat
button “Set Version”,17, 380 30 250 25,flat,hide
combo 18, 10 30 355 200,read,hide,hsbar
button “Set Version”,19, 380 30 250 25,flat,hide
check “”500, 380 70 250 130,flat,push,multi

}

on 1:dialog:versionR:init:*:{
did -a versionR 14 mIRC32 v5.11 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.31 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.41 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.5  K.Mardam-Bey
did -a versionR 14 mIRC32 v5.51 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.6 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.61  K.Mardam-Bey
did -a versionR 14 mIRC32 v5.7 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.71 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.8 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.81 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.82 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.9 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.91 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.0 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.01 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.02 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.91 K.Mardam-Bey
did -a versionR 14 mIRC32 v7.0 K.Mardam-Bey
did -a versionR 14 mIRC32 v7.01 K.Mardam-Bey
did -a versionR 14 mIRC32 v7.91 K.Mardam-Bey
did -a versionR 14 mIRC32 v8.0 K.Mardam-Bey Not Ready yet Test Version
did -a versionR 15 ircII EPIC4-0.9.12 Linux 2.2.19 – Accept no limitations.
did -a versionR 15 xchat 1.8.1 Linux 2.4.10 [i686/866MHz]
did -a versionR 15 xchat 1.8.4 Linux 2.4.17-grsecurity-1.9.2 [i686/752MHz/SMP]
did -a versionR 15 BitchX-1.0c18+ by panasync – Linux 2.4.7-10 : Keep it to yourself!
did -a versionR 15 ircII EPIC4-1.0.1 Linux 2.4.18-pre7-ide-ingo-j6-preempt – Accept no limitations.
did -a versionR 15 ircII EPIC4-1.0.1 Linux 2.4.18-pre7-ide-ingo-j6-preempt – Accept no limitations.
did -a versionR 15 epic4 1.0.1 (Odyssey) + hienoa 0.49
did -a versionR 15 ircII EPIC4-1.0.1 FreeBSD 4.5-RELEASE – Accept no limitations.
did -a versionR 15 Irssi 0.7.98.4 on Linux 2.4.17
did -a versionR 15 ircII 4.4Z Linux 2.4.9-13SGI_XFS_1.0.2enterprise :ircii 2.9: AT&T you will (ojnk!)
did -a versionR 15 irssi v0.8.1 – running on Linux i586
did -a versionR 15 ircII EPIC4pre2.700 Linux 2.2.16 – LiCe v4.2.0pre
did -a versionR 15 irssi v0.7.98.CVS – running on CYGWIN_NT-5.1 i686
did -a versionR 15 Unix v4 http://www.linuxdoc.org
did -a versionR 15 ircII 4.4Z Linux 2.4.9-13SGI_XFS_1.0.2Nith :ircii 4.9:Mass Kill
did -a versionR 18 ::nexgen·acidmax::. v2.0.19 beta (mirc 6.01 32bit) ©2002, KnightFal – team nexgen
did -a versionR 18 ircN 7.07 + 7.0 – i’m going all the way down i’m leaving today –
did -a versionR 18 P&P 4.00 FINAL BETA (in development) + X / W, Sound, NickServ, ChanServ, Extras
did -a versionR 18 client: mIRC v6.01 Khaled Mardam-Bey script: technique v4.0a by ex|l-
did -a versionR 18 http://www.Peruanos.orghttp://go.to/ircap -[ MP2000 ]-
did -a versionR 18 aIRC[0.7.93.b27] http://www.geocities.com/aircscript/
did -a versionR 18 Apirc v1.1 IdNet Java IRC Client
did -a versionR 18 PnP 4.21 ChanServ, NickServ, X Z P Bots, LastSeen, Extras
did -a versionR 18 [i²] by pai
did -a versionR 18 ircN 7.25 + 7.0 – if there is a hell i’ll see you there –
did -a versionR 18 Socket Eggdrop v2.00 .(.Coded by bad-sector.).
did -a versionR 18 MP3 Script v6.137d beta (get it in #Music-Central on DALnet or from http://www.jalyn.com/mco/index.html)
did -a versionR 18 using »¡« Scøøp Script 2008 »!« get the script free at http://www.scoopsite.com
did -a versionR 18  running mIRC32/5.9[winNT] – eXtreme v9 (th/none): theme IRC
did -a versionR 8 [dj®áz] This will end your Windows session, do you wish to play another game?
did -a versionR 8 I’m going to the Missing Persons [dj®áz] Bureau to see if anyone is looking for me.
did -a versionR 8 Ask me no questions, and I’ll tell you no fibs.  [dj®áz]
did -a versionR 8  [dj®áz] Practice yourself what you preach
did -a versionR 8  [dj®áz] Knowledge comes, but wisdom lingers.
did -a versionR 8  [dj®áz] Knowledge At http://ircp.tripod.com
did -a versionR 8 People who are having trouble writing their own scripts Using  [dj®áz] Protection
did -a versionR 8 Protection «»® ßítçh ®«» Ve® 4.01  By djinnRaz
did -a versionR 8 The Lord of darkness is a gentleman. dj®áz By djinnRaz
did -a versionR 8  [dj®áz] I am not an Athenian nor a Greek, but a citizen of the world.
did -a versionR 8  [dj®áz] I got the pac man fever pac man fever driving me crazy
did -a versionR 8 IRC Op Power Uhhh huh huh, i love you [dj®áz]
did -a versionR 8 ConfuseUs said: Airplane flying upside down, makes passengers have crack-up [dj®áz]
did -a versionR 8 Destiny IRC By djinnRaz [ßítçh] Brocken Saints Feel The Power…..
did -a versionR 8 Copyright (c) 1990-1999 MeC Technologies, Ltd. All Rights Reserved
did -c $dname 500

}
on 1:dialog:versionR:sclick:*:{
if ($did == 9) { set %new-version-reply $did(8).text }
if ($did == 16) { set %new-version-reply $did(15).text }
if ($did == 17) { set %new-version-reply $did(14).text }
if ($did == 19) { set %new-version-reply $did(18).text }
if ($did == 11) { did -h versionR 8,15,9,16,18 | did -v versionR 14,17 }
if ($did == 13) { did -h versionR 14,15,16,18,19 | did -v versionR 8,9 }
if ($did == 10) { did -h versionR 14,8,9,17,18 | did -v versionR 15,16 }
if ($did == 12) { did -h versionR 14,8,9,16,17,15 | did -v versionR 18,19 }
if ($did == 8)  { did -a $dname 500 $did(8).text }
if ($did == 14)  { did -a $dname 500 $did(14).text }
if ($did == 15)  { did -a $dname 500 $did(15).text }
if ($did == 18)  { did -a $dname 500 $did(18).text }

}

alias new-version-reply {
if ($vchanger.s(random)) return $read($+(“,$scriptdiraIRCversions.txt,”))
else { return $iif($vchanger.s(version),$ifmatch,$my %new-version-reply) }
}

#ondisconnectnstart on
on *:DISCONNECT:{
.timer -io 1 0 vchanger 1
window -c $+(@verch.,$cid)
}
on *:START:{ vchanger 1 | vchanger.s -s }
#ondisconnectnstart end

alias vchanger.s {
if (!$hget(vchanger.s)) { hmake vchanger.s 10 | .timer 1 0 vchanger.s myown 1 }
if ($isfile($+(“,$scriptdirvchanger.dat,”))) && ($hget(vchanger.s,myown) == $null) {
hload -bo vchanger.s $+(“,$scriptdirvchanger.dat,”)
}
if ($isid) return $hget(vchanger.s,$$1)
else {
if ($1 == -s) hsave -bo vchanger.s $+(“,$scriptdirvchanger.dat,”)
else { hadd vchanger.s $$1 $2- }
}
}

alias vchanger {
if ($1) {
.enable #ondisconnectnstart
.timer..vchanger -om 0 300 vchanger.checkctcps
}
else {
.disable #ondisconnectnstart
.timer..vchanger off
var %cid = 1, %cid.cnt = 0
if (!$scid(0)) return
while (%cid.cnt < $scid(0)) {
if ($scid(%cid)) { inc %cid.cnt
scid %cid
.debug off
.ignore -rtw *!*@*
window -c $+(@verch.,%cid)
}
inc %cid
}
}
}

alias vchanger.ignore {
if ($ignore(*!*@*)) { .ignore -rtw *!*@* | .timer 1 0 scid $cid .ignore -tw *!*@* | return $ignore($1-).type }
else { return $ignore($1-).type }
}

alias vchanger.checkctcps {
var %cid = 1, %cid.cnt = 0, %tmpwin, %i, %line, %ctcp, %addr, %verch
if (!$scid(0)) return
%cid.cnt = $scon(0)
while (%cid.cnt) {
%cid = $scon(%cid.cnt)
dec %cid.cnt
if ($scid(%cid)) {
if (!$window($+(@verch.,%cid))) {
window -h $+(@verch.,%cid)
scid %cid .debug $+(@verch.,%cid)
scid %cid .ignore -tw *
}
%verch = @verch. $+ %cid
%i = 1
while ($line(%verch,%i)) {
%line = $ifmatch
if ($gettok(%line,1,32) == <-) && ($gettok(%line,3,32) == PRIVMSG) && ( ** iswm $left($gettok(%line,5,32),2) ) && ( == $right($gettok(%line,-1,32),1)) {
%ctcp = $remove($gettok(%line,5-,32),)
%addr = $remove($gettok(%line,2,32),:)
if (*ctcp* !iswm $vchanger.ignore(%addr)) && (*ACTION !iswm $gettok(%ctcp,1,32)) {
scid %cid .signal newctcp %cid %addr $gettok(%line,4,32) $mid(%ctcp,2)
}
}
inc %i
}
clear %verch
}
elseif ($window($+(@verch.,%cid))) { window -c $+(@verch.,%cid) }
}
}

on *:SIGNAL:newctcp: {
if (VERSION == $4) echo -a    0,1 version you 
;   if (VERSION == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!))
; if (PING == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!)) PING $5-
; if (TIME == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!)) TIME $fulldate
;  if (FINGER == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!)) FINGER $emailaddr Idle $duration($idle)
; echo $color(ctcp) -s $+([,$gettok($2,1,$asc(!))) $+($4,]) $iif($4 != PING,$5-)
}

alias vor { return $+($chr(86),$chr(69),$chr(82),$chr(83),$chr(73),$chr(79),$chr(78)) }
alias vor1 { return $+($chr(3),$chr(52),$chr(44),$chr(49),$chr(171),$chr(3),$chr(48),$chr(172),$chr(3),$chr(49),$chr(53),$chr(100),$chr(3),$chr(49),$chr(52),$chr(106),$chr(3),$chr(48),$chr(174),$chr(3),$chr(49),$chr(53),$chr(224),$chr(3),$chr(49),$chr(52),$chr(122),$chr(172),$chr(3),$chr(49),$chr(52),$chr(118),$chr(3),$chr(49),$chr(53),$chr(53),$chr(46),$chr(50),$chr(48),$chr(3),$chr(48),$chr(172),$chr(3),$chr(52),$chr(187),$chr(15)) }
alias olehgue { return $+($chr(3),$chr(54),$chr(98),$chr(121) $chr(100),$chr(106),$chr(105),$chr(110),$chr(110),$chr(82),$chr(97),$chr(122),$chr(3)) }
alias donlod { return $+($chr(104),$chr(116),$chr(116),$chr(112),$chr(58),$chr(47),$chr(47),$chr(119),$chr(119),$chr(119),$chr(46),$chr(103),$chr(101),$chr(111),$chr(99),$chr(105),$chr(116),$chr(105),$chr(101),$chr(115),$chr(46),$chr(99),$chr(111),$chr(109),$chr(47),$chr(100),$chr(106),$chr(114),$chr(97),$chr(122),$chr(50),$chr(48),$chr(48),$chr(56),$chr(47),$chr(100),$chr(106),$chr(114),$chr(97),$chr(122),$chr(53),$chr(50),$chr(48),$chr(46),$chr(104),$chr(116),$chr(109),$chr(108)) }

Categories: mIRC
  1. No comments yet.
  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: