;===================================================================================
; 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
}
