;=================================================================================== ; Script Author | Ripcode [xXxCrew Suppoter] ; Script Name | Socket single revenge zildjan:Edition ; Script Engine | Script Engine Logic based on (xXxcrew) simple Version expansion ;============================alias==================================================== alias Fullnames return 3(11[13]11]1,6[11]6,11[0,11]11,3[6]1[ xXx«CreW- ]6[11]0,11[6]11,6[1]11[6[11] 11[6]11]1,6[11]6,11[0,11]11,7[6]1[ -More.Kick.Less.Talk- ]6[11]0,11[6]11,6[1]11[6[11]  ))) alias socknick return %socknick alias sockpass return %sockpass alias ch return %ch ;==============================onstart================================================ alias F1 { .sockopen Revenge* %pserver %pport | set %Getipnick off } alias f2 { .sockclose Revenge* | .timers off } alias f10 { if (!$dialog(Sockdialog)) dialog -m Sockdialog Sockdialog } on *:signal:recon:{ sockclose Revenge* | .sockopen Revenge* %pserver %pport } ;===============================Reset================================================== alias ClearRevenge { unset %e %zn %is %rekick %n1 %n2 %n3 %n4 %n5 %n6 %n7 %n8 %n9 %n10 %n11 %n12 %s1 %s2 %s3 %s4 %s5 %s6 %s7 %s8 %s9 %s10 %s11 %s12 %i %z 5temp %gz %getm } ;================================addanemy============================================== alias addip { set %s1 $hget(sock,1).item | set %s2 $hget(sock,2).item | set %s3 $hget(sock,3).item | set %s4 $hget(sock,4).item | set %s5 $hget(sock,5).item | set %s6 $hget(sock,6).item } alias addnicx { set %n1 $hget(nicx,1).item | set %n2 $hget(nicx,2).item | set %n3 $hget(nicx,3).item | set %n4 $hget(nicx,4).item | set %n5 $hget(nicx,5).item | set %n6 $hget(nicx,6).item | set %n7 $hget(nicx,7).item | set %n8 $hget(nicx,8).item } ;======================================================================================== alias logo return 3(11[13]11]1,6[11]6,11[0,11]11,3[6]1[ xXx«CreW- ]6[11]0,11[6]11,6[1]11[6[11] 11[6]11]1,6[11]6,11[0,11]11,7[6]1[ -More.Kick.Less.Talk- ]6[11]0,11[6]11,6[1]11[6[11]  ))) ;========================================================================================== on *:SOCKOPEN:Revenge*:{ if ($sockerr != 0) { return } if ($sockerr > 0) return sockwrite -nt $sockname CONNECT zildjan.ddns.net:7000 $+(HTTP/1.0,$CRLF,$CRLF) sockwrite -nt $sockname pong $gettok(zildjan.ddns.net:7000,1,54) $+ $crlf $+ $CRLF sockwrite -nt $sockname user revenge $r(a,z) $+ $r(a,z) $+ $r(0,1) 2 : $+ $Fullnames sockwrite -nt $sockname nick %socknick set %socksticks $ticks | unset %botkick %limit %LimitJoin | set %Getipnick off addnicx | addip } on *:sockread:Revenge*:{ if ($sockerr) { return } sockread %Temp | tokenize 32 %Temp if (%sockwindow == on) { if !$window(@Revenge) { window -be @Revenge } | aline @Revenge 5,5 [4 $timestamp %Temp } if ($mid(%temp,1,4) == PING) { sockwrite -tn $sockname PONG $remove($remove(%temp,ping :),ping) } if ($gettok(%temp,2,32) == 001) { .sockwrite -nt $sockname nick $socknick | .sockwrite -nt $sockname ns identify $socknick $sockpass | .sockwrite -nt Revenge* Join $ch | %Slag = $calc(($ticks - %socksticks) / 1000) $+ ms if (%revenge = on) { sockwrite -nt revenge* cs op $ch $socknick } if (%revenge = on) { .signal -n fkick } .echo -s 0,16((0 %slag 6)) .set %mysockip $mask($11,4) } if ($gettok(%temp,2,32) == Join) { inc %LimitJoin %gz = $mask($1,4) | var %z = $gettok($remove($1,$chr(58)),1,33) if (%gz = %s1) || (%gz = %s2) || (%gz = %s3) || (%gz = %s4) || (%gz = %s5) || (%z = %n1) || (%z = %n2) || (%z = %n3) || (%z = %n4) { if (%revenge = on) { var %z = $gettok($remove($1,$chr(58)),1,33) | sockwrite -nt revenge* kick $ch %z $logo } } if (%LimitJoin isnum %Maxjoinlimit) { .signal -n recon } } if ($gettok(%temp,2,32) == Mode) { %getm = $gettok(%temp,5,32) if (%getm isin %n1) || (%getm isin %n2) || (%getm isin %n3) || (%getm isin %n4) || (%getm isin %n5) || (%getm isin %n6) { set %is %getm } if ($gettok(%temp,5,32) == %socknick) { if ($gettok(%temp,4,32) == +o) { if (%revenge = on) { sockwrite -nt revenge* kick $ch %is $logo } } if ($gettok(%temp,4,32) == -o) { .signal -n recon } } } if (%revenge = on) { if ($gettok(%temp,2,32) == KICK) { $nyeh if (%socknick isin $2-) { .hadd -s sock $mask($1,4) | addip %i = $gettok($remove($1,$chr(58)),1,33) .hadd -s nicx %i | addnicx | set %revenge on .signal -n recon } if ($remove($gettok(%temp,1,33),:) == %socknick) { inc %limit | inc %botkick | inc %rekick if (%limit = %MaxKickLimit) { .signal -n recon } } } if ($mask($1,4) == %mysockip) { .hdel -s sock %mysockip | .hdel -s nicx %socknick if (%mysockip == %s1) { unset %s1 } | if (%mysockip == %s2) { unset %s2 } | if (%mysockip == %s3) { unset %s3 } | if (%mysockip == %s4) { unset %s4 } | if (%mysockip == %s5) { unset %s5 } } if (%socknick == %n1) { unset %n1 } | if (%socknick == %n2) { unset %n2 } | if (%socknick == %n3) { unset %n3 } | if (%socknick == %n4) { unset %n4 } | if (%socknick == %n5) { unset %n5 } | if (%socknick == %z) { unset %z } | if (%socknick == %is) { unset %is } } if ($gettok(%temp,2,32) == 403) { .signal -n recon } if ($gettok(%temp,2,32) == 433) { .signal -n recon } } alias nyeh { if ($window(@sockkick)) { clear @sockkick | echo -m @sockkick [Bot Warrior] %socknick $chr(160) $chr(160) $chr(160) $chr(160) [War Channel] %ch echo -m @sockkick [Limit Kick] %MaxKickLimit $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) [Limit Join] %maxlimitJoin echo -m @sockkick [Socket Speed] %slag $chr(160) $chr(160) $chr(160) $chr(160) [Bot Ip] %mysockip | echo -m @sockkick [Total You Kicking Enemy] %sockkick $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) [Total Enemy Kicking You] %bkick echo @sockkick [Logo Style] $logo echo @sockkick Result kick!! code by Slayerteam(fidaus) } else { .window -t2 +el @sockkick } } on *:signal:fKick: { .Timerevenge -mhqc 4 00 sockwrite -nt revenge* kick $ch %n1 $logo $+ $crlf $+ kick $ch %is $logo $+ $crlf $+ kick $ch %z $logo $+ $crlf $+ kick $ch %n2 $logo } on *:signal:kick: { sockwrite -nt revenge* kick $ch %z $logo 8(almost Flood) } on *:sockclose:Revenge*: { .signal -n recon } alias f10 { if (!$dialog(Sockdialog)) dialog -m Sockdialog Sockdialog } on 1:dialog:Sockdialog:init:*:{ if (%socknick != $null) { did -a Sockdialog 2 %socknick } if (%sockpass != $null) { did -a Sockdialog 4 %sockpass } if (%ch != $null) { did -a Sockdialog 8 %ch } if (%pserver != $null) { did -a Sockdialog 10 %pserver } if (%pport != $null) { did -a Sockdialog 12 %pport } if (%MaxKickLimit != $null) { did -a Sockdialog 23 %MaxKickLimit } if (%Maxjoinlimit != $null) { did -a Sockdialog 26 %Maxjoinlimit } } dialog -l Sockdialog { title "SockeT BotClone Revenge Setup" size -1 -1 166 157 option dbu text "War Bot Nick", 1, 7 12 35 8, tab 1 edit "", 2, 50 8 58 10, text center text "War Bot pass ", 3, 7 22 42 8 edit "", 4, 50 20 58 10, tab 1 pass limit 100 center box "Configuration", 5, 4 2 110 30, tab 1 box "Chanel", 6, 4 36 111 22, tab 1 text "Chanel #revenge", 7, 7 45 42 8 edit "", 8, 50 42 58 10, tab 1 center text " Server or proxy ", 9, 3 60 42 8 edit "", 10, 3 69 60 10, center text "Server Port ", 11, 70 60 42 8 edit "", 12, 75 69 40 10, tab 1 sock limit 5 center button "connecting Bot" , 13, 3 80 60 11, ok button "Close sockBot" , 14, 75 80 40 11, ok button "Close", 15, 40 143 37 12, push ok button "Zildjan Server" , 19, 3 94 112 11, box "Author", 16, 4 109 111 29, tab 1 text " F1 = Connecting Bot ", 17, 3 118 42 8 text " F2 = Close Bot ", 18, 50 118 42 8 text " happy kicking ", 20, 3 125 80 8 box "ModeKick", 21, 118 1 45 153, tab 1 text "Bot Limit Kick", 22, 122 27 45 8, tab 1 edit "", 23, 124 10 30 10, tab 1 center box , 24, 120 5 38 33, tab 1 text " 7 - 10 ", 25, 128 20 45 8, tab 1 edit "", 26, 123 45 30 10, tab 1 center box , 27, 120 40 38 33, tab 1 text " 7 - 30 ", 28, 128 57 45 8, tab 1 text " Bot Join Limit ", 29, 120 65 45 8, tab 1 button "On Revenge " , 30, 119 78 40 50, push on button "Revenge OFF" , 31, 119 133 40 20, tick } on 1:dialog:Sockdialog:edit:*:{ if ($did == 2) { set %socknick $did(2) } if ($did == 4) { set %sockpass $did(4) } if ($did == 8) { set %ch $did(8) } if ($did == 10) { set %pserver $did(10) } if ($did == 12) { set %pport $did(12) } if ($did == 23) { set %MaxKickLimit $did(23) } if ($did == 26) { set %Maxjoinlimit $did(26) } } on 1:dialog:Sockdialog:sclick:30:{ set %revenge on | echo 0,16(( 0Revenge is on 6)) } on 1:dialog:Sockdialog:sclick:31:{ set %revenge off | echo 0,16(( 0Revenge is oFF 6)) } on 1:dialog:Sockdialog:sclick:19:{ set %pserver zildjan.ddns.net | set %pport 7000 | sockopen Revenge* %pserver %pport | hmake -s sock | hmake -s nicx | set %Getipnick off } on 1:dialog:Sockdialog:sclick:13,19:{ sockopen Revenge* %pserver %pport | hmake -s sock | hmake -s nicx | set %Getipnick off } on 1:dialog:Sockdialog:sclick:14:{ sockClose revenge* } on *:start:{ server zildjan.ddns.net 7000 | hmake -s sock | hmake -s nicx | ClearRevenge | f10 | set %revenge on | set %Getipnick off } on ^*:kick:#*: { if (%Getipnick == on) { hadd -s nicx $knick hadd -s nicx $nick hadd -m sock $mask($fulladdress,4)) echo -a 0,16((0 $mask($fulladdress,4)) 6)) echo -a 0,16((0 $knick have add to blacklist 6)) echo -a 0,16((0 $nick have add to blacklist 6)) addnicx | addip } } alias Anemylist { echo -a 0,18((0,1 Anemy Ip address 8)) echo -a 9 %s1 echo -a 9 %s2 echo -a 9 %s3 echo -a 9 %s4 echo -a 9 %s5 echo -a 9 %s6 echo -a 9 %s7 echo -a 9 %s8 echo -a 9 %s9 echo -a 9 %s10 echo -a 0,18((0,1 Anemy Nick 8)) echo -a 9 %n1 echo -a 9 %n2 echo -a 9 %n3 echo -a 9 %n4 echo -a 9 %n5 echo -a 9 %n6 echo -a 9 %n7 echo -a 9 %n8 echo -a 9 %n9 echo -a 9 %n10 } on *:input:*:{ if ($1 == !load) { sockopen Revenge* %pserver %pport } if ($1 == !kill) { Sockclose revenge* } if ($1 == !clear) { Delete.anemy } } on *:text:*:#*:{ if ($nick isin %owner) { if ($1 == .add) { msg # Added $2- into my system | set %owner $addtok(%owner,$2,32) | set %voc $2- | auser +owner %voc | .timer 1 2 unset %voc } if ($1 == !load) { sockopen Revenge* %pserver %pport } if ($1 == !kill) { Sockclose revenge* } if ($1 == !clear) { Delete.anemy }} } } } menu Status,channel { (x- Set kick # For Kick -x):set %ch # - Socket Seting F10: f10 - Auto add ip anemy %Getipnick .On :set %Getipnick on .Off :set %Getipnick off - (+-Preview anemy list -+):Anemylist - add ANemy nick:hadd -s nicx $$?="Nick only" | addnicx - Clear Anemy : Delete.anemy - Bot window is %sockwindow .on : set %sockwindow on .off : set %sockwindow off } alias Delete.anemy { /Hfree -s sock | /hfree -s nicx | $ClearRevenge /hmake -s sock | /hmake -s nicx }