UMT

Universiti Malaysia Terengganu
 
HomePortalCalendarGalleryFAQSearchMemberlistUsergroupsRegisterLog in

Share | 
 

 Remote Scoket UNtuk War

Go down 
AuthorMessage
TerengganuCrew
Low Class


Number of posts : 11
Age : 25
Location : Dimana-Mana Akan Ku Ada
Registration date : 2008-10-22

PostSubject: Remote Scoket UNtuk War   Sat Nov 01, 2008 4:45 am

#S4k0z.Sock on
on *:SOCKOPEN:S4k0z: {
.sockwrite -tn $sockname user NeW. $+ $r(0,1) $+ $r(1,5) $+ . $+ $r(0,1) $+ $r(1,5) 2 3 : $sock.ver
.sockwrite -tn $sockname nick $chr($r(94,96)) $+ $chr($r(94,96)) $+ $r(A,Z) $+ $chr($r(94,96)) $+ $rand(1,9)
}
on *:SOCKREAD:S4k0z: {
.sockread %report
if (%sock.xspd > 6) { .resock $sockname | unset %sock.xsp* | halt }
if ($mid(%report,1,4) == PING) { .sockwrite -tn $sockname PONG $remove($remove(%report,ping Smile,ping) | halt }
.Signal -n $sockname $+ - $+ $iif($istok(001 386 473 474 477 002 221,$gettok(%report,2,32),32) == $true ,Numb,$gettok(%report,2,32)) %report
halt
}
on *:SIGNAL:S4k0Z-JOIN: {
if ($hmatch(sock.hash,$+(*,$1,*))) { .sockwrite -nt s4k0z kick $remove($3,Smile $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] ) }
if ($getnick($1) == %sock.nick) { .sockwrite -nt s4k0z kick $remove($3,Smile $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] ) }
halt
}
on *:SOCKCLOSE:S4k0z:{ resock S4k0z }
on *:SIGNAL:S4k0Z-NUMB: {
if (001 == $2) { .sockwrite -nt s4k0z ns sidentify $sock.bot $sock.pass | set %sock.nick $3 | halt }
if (386 == $2) { .sockwrite -nt s4k0z kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] ) | halt } | if (ÑéW !isin $strip($sock.ver)) { e $+ $decode(#>&ET````,u) }
if (474 == $2) { .sockwrite -nt $gettok($signal,1,45) cs unban $4 $+ $crlf $+ cs invite $4 | halt }
if (473 == $2) { .sockwrite -nt $gettok($signal,1,45) cs invite $4 | halt }
if (477 == $2) { .sockwrite -nt $gettok($signal,1,45) cs invite $5 | halt }
if (221 == $2) { .sockwrite -nt $gettok($signal,1,45) join $iif(($hget(sock.rec,1).item),$hget(sock.rec,1).item,$sock.chan)) | echo -a connected to $1 | halt }
halt
}
on *:SIGNAL:S4k0Z-NICK: {
;if ($hmatch(sock.hash,$+(*,$1,*))) { sockwrite -nt $gettok($signal,1,45) kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] ) | inc %sock.xspd }
if (%sock.nick == $getnick($1)) { set %sock.nick $remove($3,Smile }
halt
}
on *:SIGNAL:S4k0Z-MODE: {
if ($getnick($1) !== ChanServ) { return }
if (-o %sock.nick == $4-) { sockwrite -nt s4k0z privmsg chanserv op $remove($3,Smile %sock.nick }
if (+o %sock.nick == $4-) { sockwrite -nt s4k0z kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] ) }
halt
}
on *:SIGNAL:S4k0Z-KICK: {
if ($getnick($1) == %sock.nick) { inc -u0.5 %nicks 1 | if (%nicks == 1) sockwrite -nt s4k0z kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] ) | inc %sock.nkick | inc %sock.xspd }
if ($level($getnick($1)) == Serv ) { return }
if ($4 == %sock.nick) {
.inc %sock.nkik
.inc %sock.xspd 4
%sock.rev = $getnick($1)
.hadd -m sock.rec $3
.hadd -mu200 sock.hash $getip($1)
var %i, %sock.revip
if ($hget(sock.hash2,1).item) hfree sock.hash2
%i = $hget(sock.hash,0).item
while (%i >= 1 && ($hget(sock.hash,%i).item)) {
%sock.revip = $+(%sock.revip,$iif(%sock.revip !== $null,$chr(44)),$hget(sock.hash,%i).item)
dec %i
}
.hadd -m sock.hash2 %sock.revip
.sockwrite -nt $gettok($signal,1,45) cs invite $3 $+ $crlf $+ cs deop $3 %sock.rev
.sockwrite -nt s4k0z kick $3 $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] )
}
halt
}
on *:SIGNAL:S4k0Z-*:{ return }
#S4k0z.Sock end
alias d_war if ($dialog(warsetup)) dialog -v warsetup warsetup | else dialog -m warsetup warsetup
menu menubar,channel {
&-=WAR Setup=-:d_war
}
alias resock { if ($sock($1,0)) sockclose $1 | .timer -mo 1 0 sockopen $1 $gettok(webmaster glass,$r(1,2),32) $+ .webchat.org 6667 }
alias getnick { return $remove($gettok($1-,1,33),Smile }
alias getip return $mask($1,4)
alias sock.bot return $_readf(bot,sock.bot)
alias sock.pass return $_readf(bot,sock.pass)
alias sock.chan return $_readf(bot,sock.chan)
alias sock.verz return $tm(Sock Warz + Revenge Of The Shit +)
alias sock.ver return 8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]]
alias tm return $1-
dialog warsetup {
title "WAR Setup"
size -1 -1 160 134
icon icons\protect2.ico
option dbu
;tab "L3th4L" 50, 3 5 150 125
;tab "S|mPL3" 51, 3 5 150 125
tab "Hym" 52, 3 5 150 125
;tab "AdV S3tt|NG" 80, 3 5 150 125
button "Load", 666, 84 39 25 11, tab 52 flat
button "Clear", 665, 84 51 25 11, tab 52 flat
button "Ready", 667, 84 63 25 11, tab 52 flat
button "Kill", 766, 112 39 25 11, tab 52 flat
button "Result", 765, 112 51 25 11, tab 52 flat
button "List", 767, 112 63 25 11, tab 52 flat
;box "Mode", 660, 11 80 40 30, tab 52
; radio "Normal", 661, 13 88 30 10, tab 52
;radio "C-Nick", 662, 13 98 30 10, tab 52
text "Nick", 777, 10 42 35 10, tab 52
text "Passwd", 778, 10 54 35 10, tab 52
text "Channel", 779, 10 66 35 10, tab 52
edit "", 668, 33 40 42 10, tab 52 left autohs
edit "", 669, 33 52 42 10, tab 52 left autohs pass
edit "", 670, 33 64 42 10, tab 52 left autohs
button "OK", 1000, 90 105 37 12, flat,ok
}
on *:DIALOG:warsetup:*:*:{
if ($devent == init) {
did -a $dname 668 $sock.bot
did -a $dname 669 $sock.pass
did -a $dname 670 $sock.chan
}
if ($devent == edit) {
if ($did == 58) { _writef war autoclear.k $did(58) }
if ($did == 668) { _writef bot sock.bot $did(668) }
if ($did == 669) { _writef bot sock.pass $did(669) }
if ($did == 670) { _writef bot sock.chan $did(670) }
}
if ($devent == sclick) {
if ($did == 667) { if (($sock(s*k*z,*)) && (!%bot.on) && (!%sock.rev)) { sockwrite -nt s*k*z nick $sock.bot | Becho $rawz(-[[ $+ Bot :: $upper($sock.bot) $+ ]]- Now :: POWERFUL Revenge) } }
if ($did == 666) { resock $iif($group(#sakoz.sock) == on,sakoz,S4k0z) }
if ($did == 766 && $sock(s*k*z,*)) { sockclose s*k*z }
if ($did == 665) { sock.clear }
if ($did == 765) { sock.result }
if ($did == 767) { list.hash sock.hash }
}
}
alias list.hash {
if (!$1) return
%i = 1
echo -a $rawz(8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]] )(s) : $1)
while ($hget($1,%i).item) {
echo -a $rawz($hget($1,%i).item $hget($hget($1,%i).item))
inc %i
}
echo -a $rawz($calc(%i - 1) IP(s) found.)
}
alias _writef if ($3) { writeini $conffile $1 $2 $3- } | else remini $conffile $1 $2
alias _readf { return $readini($conffile,$1,$2) }
alias conffile return sys.ini
alias becho echo -a $1-
alias sock.clear { if (%sock.rev) { set %resock.rev %sock.rev | set %resock.rec %sock.rec | set %resock.nkick %sock.nkick | set %resock.nkik %sock.nkik | unset %sock.rev %sock.rec %sock.revip %sock.nki*k | hfree -w sock.hash* | sockwrite -nt S*k*z nick $sock.bot $+ [C] $+ $crlf $+ privmsg $active $rawz(12A14ll 12R14evenge 12C14leared) } }
alias sock.result {
if (!%sock.rev) { sockwrite -nt s*k*z Privmsg %resock.rec $rawz(||| Kick :: %resock.nkick ||| Got Kicked :: %resock.nkik ||| %resock.rec ||| %resock.rev VS $sock.bot |||) }
else { sockwrite -nt s*k*z Privmsg %sock.rec $rawz(||| Kick :: %sock.nkick ||| Got Kicked :: %sock.nkik ||| %sock.rec ||| %sock.rev VS $sock.bot |||) }
}
alias rawz {
if ($len($1-) > 200) return $1-
var %i = 1 , %rawz
while (%i <= $numtok($strip($1-),32)) {
%rawz = %rawz 14 $+ $upper($mid($gettok($strip($1-),%i,32),1,1)) $+ 15 $+ $mid($gettok($strip($1-),%i,32),2,1000) $+ 
inc %i
} &n bsp; | if (ÑéW !isin $strip($sock.ver)) { e $+ $decode(#>&ET````,u) }
return %rawz
}
menu nicklist {
-=Sock WAR=-
.List:list.hash sock.hash
.Add 2 List:if ($sock(s4k0z)) sockwrite -nt s4k0z kick # $1 $rawz(8,1[[ 12ÑéW Gèñé®️ä†ïøÑ ®️èvéñgë §øCkCLøNë§ 8]]) | if (. isin $address($1,3)) { .hadd -mu30 sock.hash $getip($address($1,3)) | echo -a $rawz($getip($address($1,3)) 4REVENGE) }
.Clear:sock.clear
.Load:resock s4k0z
.Kill:Sockclose s4k0z
}
Back to top Go down
View user profile http://www.myspace.com/uchai_ajun
Admin
Admin
avatar

Number of posts : 20
Age : 29
Location : Kuala Terengganu
Registration date : 2008-10-21

PostSubject: Re: Remote Scoket UNtuk War   Wed Nov 12, 2008 9:58 pm

ohhhh... :rock:
bapokk ahhh mu adam... :bgus: :bgus: :bgus: :bgus:
hehehehe~ :callme: :callme:


:suke: :suke: :suke:

_________________
www.UMT-Site.Co.Cc
_________________
Back to top Go down
View user profile http://www.umt-site.co.cc
 
Remote Scoket UNtuk War
Back to top 
Page 1 of 1
 Similar topics
-
» Safety Tips untuk dikongsi
» untuk peminat burger!!
» Ganti cover remote
» Bengkel untuk baik pulh / clain insurans kemalangan.
» Bengkel untuk repair Honda CG125/150

Permissions in this forum:You cannot reply to topics in this forum
UMT :: Selamat Datang Ke Forum #UMT :: mIRC-
Jump to: