Jaguar Single Kick

;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
; §©®ïpt Nämë: [±±Jågü室±±¤§t¥|Ë®¤±±] New Options §ïñglë Kï©k
; Ð맩®ïptïöñ: Mültï Öppöñëñt§ Kï©k
; Ðätë Ç®ëätëd: M䮩h 31, 2007
; Äüthö®: F®£d£®Ï©K äkä F®ëdFöx§
; Çöpÿ®ïght © 2004-2007 Jägüä® Tëäm
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
raw 482:*: { haltdef }
raw 442:*: { haltdef }
raw 404:*: { haltdef }
raw 403:*: { haltdef }
raw 401:*:%jstylerz = $remtok(%jstylerz,$2,1,44) | haltdef
raw 441:*:%jstylerz = $remtok(%jstylerz,$2,1,44) | haltdef
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#jstyler on
raw 471:*: { rawstyle $2 471 }
raw 473:*: { rawstyle $2 473 }
raw 474:*: { rawstyle $2 474 }
raw 475:*: { rawstyle $2 475 }
raw 477:*: { rawstyle $2 477 }


alias rawstyle {
if ($2 == 474) {
chanserv unban $1
chanserv invite $1
}
else { chanserv invite $1 }
}

on ^*:notice:*has*deopped*:#: {
if ($nick == Chanserv) && ($4 == $me) {
if ($1 ison #) {
%jstylerx = $addtok(%jstylerx,$1,44)
%jstylerz = $addtok(%jstylerz,$1,44)
}
chanserv op # $me
}
}

on ^*:notice:*is*not*online:#: {
%jstylerx = $remtok(%jstylerx,$2,1,44)
%jstylerz = $remtok(%jstylerz,$2,1,44)
}

on ^*:invite:#: {
if ($nick == chanserv) {
if (%jstylerx) {
%jstylerz = %jstylerx
.timerdeop -m 1 1200 chanserv deop # $replace(%jstylerz,$chr(44),$chr(32))
.timerjoin -m 1 2000 join #
}
else join #
}
}

on ^*:kick:#: {
if ($knick == $me) {
inc %kick
if (!$istok(%jstylerz,$nick,44)) { %jstylerz = $addtok(%jstylerz,$nick,44) }
if (!$istok(%jstylerx,$nick,44)) { %jstylerx = $addtok(%jstylerx,$nick,44) }
if (%xjstylerx) { set -u8 %xjstylerx ! | jstyle }
if (%kick == 3) { %join = $true | %kick = 0 }
if (%join) { chanserv deop # $replace(%jstylerz,$chr(44),$chr(32)) | join -n # }
if (%join) { %join = $false }
else { .timerrejoin 1 $r(9,15) cs invite # }
}
else { %jstylerz = $remtok(%jstylerz,$knick,1,44) }
}

on ^*:op:#: {
if ($opnick == $me) && (%jstylerz) {
if (%invex) { set u1 %invex ! | mode # +Ie *!*@* $address($me,2) $address($me,2) }
var %n %jstylerz
while ($gettok(%n,1-4,44)) { kick # $v1 $jstyler_o | %n = $deltok(%n,1-4,44) }
}
if ($opnick != $me) { if ($istok(%jstylerz,$opnick,44)) && ($me !isop #) chanserv deop # $opnick }
}

on !*:join:#: {
if ($istok(%jstylerx,$nick,44)) {
%jstylerz = $addtok(%jstylerz,$nick,44)
if ($me isop #) kick # $gettok(%jstylerz,1-4,44) $jstyler_j
}
}

#jstyler end
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#banprotect off
on !@*:ban:#:{
if ($banmask iswm $address($me,5)) {
mode # -o+o-ob+bb $nick $nick $nick $banmask $address($nick,3) $wildsite
kick # $nick $jstyler_o
}
}
#banprotect end
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#banlocker off
on @*:UNBAN:#:{
if ($nick = $me) { halt }
else {
if ($hmatch(b,$banmask)) && ($banmask != *!*@*) mode # +b $banmask
}
}
#banlocker end
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
raw 482:*: { haltdef }
raw 442:*: { haltdef }
raw 404:*: { haltdef }
raw 403:*: { haltdef }
raw 401:*:%jstylerz = $remtok(%jstylerz,$2,1,44) | haltdef
raw 441:*:%jstylerz = $remtok(%jstylerz,$2,1,44) | haltdef
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
on *:nick:{
%jstylerz = $reptok(%jstylerz,$nick,$newnick,1,44)
%jstylerx = $reptok(%jstylerx,$nick,$newnick,1,44)
}
on *:start:.fullname 0ºº4»«0ºº14j15Ä14g15Ü14â15R 14s15T14ÿ1514£15ë14R0ºº4»«0ºº | writeini popups.ini bpopup n0 [±±Jågü室±±¤§t¥|Ë®¤±±] | .load -pm popups.ini
on *:connect: { .identd on jstyler | nickserv identify S|lenT www.silent.com }
on *:exit:.unset %*
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
alias f2 if (#) chanserv op # $me
alias f3 { kickstat.reset hg kickme 0 | hg kickni 0 }
alias f4 {
.say 5Kick Status In Channel  $+ $rand(1,15) $+ %j
.say 8I 13h8ave 13b8een 13k8icked $+(13,$hj(kickme), 8 t13ime,$iif($hs(kickme) != 1,s))
.say 8I 13h8ave 13k8icked $+(13,$hj(kickni), 8 o13pponent,$iif($hs(kickni) != 1,s))
}
alias sf5 jstyler_setup
alias f6 { if (!$dialog(jstyler_d)) dialog -m jstyler_d jstyler_d }
alias sf6 jstyle
alias jstyler_j {
goto $r(1,7)
halt
:1 | return 12,1—14=12-15J12-15å12-00g12-00ü12-15å12-15®12-14=1214=12-15§12-15t12-00¥12-00|12-15Ë12-15®12-15v12-4X12-14=12— | halt
:2 | return 4,1—14=4-15J4-15å4-00g4-00ü4-15å4-15®4-14=414=4-15§4-15t4-00¥4-00|4-15Ë4-15®4-15v4-4X4-14=4— | halt
:3 | return 0,15-0,14=8,1xx4|14-jÄgÜäR §TÿLëR-4|8xx0,14=0,15- | halt
:4 | return 0ºº4»«0ºº14j15Ä14g15Ü14â15R 14s15T14ÿ1514£15ë14R0ºº4»«0ºº | halt
:5 | return 14«1«0_1J14A1G14U1A14R1S14T1Y14L1E14R0_1»14» | halt
:6 | return 0,1.11·0´11¯0`·5»4«8*14jÄg15ÜäR 14,1§Tÿ15LëR8*4»5«0,1´11¯0`11·0. | halt
:7 | return 9,1[8±±14J15å0g0ü15å14®0¤15±±0¤14§15t0¥0|15Ë14®0¤8±±9] | halt
}
alias jstyler_o {
goto $r(1,7)
halt
:1 | return 5,14JaGuaR5,15™®ëvëngë 5,14†ëcnö£ögiës 5,15I®c 5,14sc®iþt™ | halt
:2 | return 1,1__8,1_]0ªg15Üå14rTè15å0M_8¬|0ñt15Ë14®8ªÇt14î15V0ë_1_ | halt
:3 | return 1,1__9,1_]0ªg15Üå14rTè15å0M_9¬|0ñt15Ë14®9ªÇt14î15V0ë_1_ | halt
:4 | return 1,1__13,1_]0ªg15Üå14rTè15å0M_13¬|0ñt15Ë14®13ªÇt14î15V0ë_1_  | halt
:5 | return 0,1¯15¯14¯ jåG1,15Üårt14,1Ëåm íѱè1,15råÇt14,1ívè 14¯15¯0¯ | halt
:6 | return 4,1(5(4(0ºº14»8¡15«4J5ä4G5ü4Ä5®4 5T4ë5Ä4m5 4Ï5ñ4T5ë4R5ä4Ç5t4Ï5v4£14»8¡15«0ºº4)5)4) | halt
:7 | return 4,1_J•15[8T15]•12I_ | halt
}
alias jstyler_setup {
if ($dialog(jstyler_d) != $null) { dialog -v jstyler_d }
if ($dialog(jstyler_d) == $null) {
dialog -mod jstyler_d jstyler_d
%pos.x = 397 | %pos.cw = 80 | %pos.mark = 0
:next
if (%pos.mark < 25) {
inc %pos.mark 1 | dec %pos.x 5.375 | inc %pos.cw 8.75
dialog -s jstyler_d %pos.x -1 %pos.cw 270
goto next
}
unset %pos.*
}
}
alias kickstat.reset hg kickme 0 | hg kickni 0
alias -l hj return $hget(kickstat,$1)
alias -l ha hinc -m kickstat $1-
alias -l hg hadd -m kickstat $1-

alias jstyle nick $zjstylerz
alias zjstylerz { return ||deltok||-[- $+ $r(0,9) $+ $r(9,1) $+ -]- }
alias xjstylerx.add { did -r jstyler_d 14 | set -u0 %r 1 | while ($gettok(%xjstylerz,%r,44)) { did -a jstyler_d 14 $ifmatch | inc %r 1 } }
alias xjstylerx.del { if ($did(14)) && ($istok(%%jstylerz,$did(14),44)) { %jstylerz = $remtok(%jstylerx,$did(14),1,44) | did -d $dname 14 $did(14).sel | did -c $dname 14 14 } }
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
dialog jstyler_d {
title "JaGuAr StYlEr NeW oPtIoNs"
size -1 -1 150 136
option dbu
tab "&Setup", 2, 0 -4 147 127
box "Warmode", 5, 1 11 146 26, disable tab 2
check "Toggle Jstyler ON/OFF", 6, 39 20 66 10, tab 2
box "Warchannel", 8, 0 40 146 26, disable tab 2
edit "", 9, 40 49 66 10, tab 2
button "JaGuAr", 10, 2 50 37 8, disable tab 2
button "StYleR", 11, 107 50 37 8, disable tab 2
box "Modes", 37, 0 73 146 50, disable tab 2
check "Nick Changer ON/OFF", 38, 10 85 66 10, tab 2
check "Invex ON/OFF", 40, 85 85 50 10, tab 2
check "Ban Locker ON/OFF", 42, 10 101 66 10, tab 2
check "Ban Protect ON/OFF", 7, 85 102 58 10, tab 2
tab "&Enemy List", 1
combo 14, 67 24 68 66, tab 1 size
box "Adding Enemy", 15, 1 11 146 82, disable tab 1
button "&Add", 16, 15 25 37 10, tab 1
button "&Delete", 17, 15 49 37 10, tab 1
button "&Clear", 18, 15 74 37 10, tab 1
tab "&About", 3
box "Info", 19, 0 8 146 114, disable tab 3
text "Script Name: Jaguar Styler New Options", 20, 0 15 145 10, tab 3 center
text "Mirc To Used: mIRC v6.2+", 21, 0 44 145 10, tab 3 center
text "Logic: Came From The Previous Version Of Jaguar Styler Due To Public Demand Of Other User I Create This Script With Allies Listing and Auto Ip Add for Anti Nick Changer. I Also Put Nick Changer If The Opponents Used Nick Changer Style. This Script Is Intended Only To All Advance Users.", 22, 0 68 145 34, tab 3 center
text "Ðätë Ç®ëätëd: M䮩h 31, 2007", 25, 0 34 145 10, tab 3 center
text "Äüthö®: F®£d£®Ï©K äkä F®ëdFöx§", 24, 1 24 145 10, tab 3 center
text "Çöpÿ®ïght © 2004-2007 Jägüä® Tëäm", 26, 1 107 145 10, tab 3 center
text "Script Dedicated: To All Jaguar Member Who Continuing Support The Team. And To My Honey...", 23, 0 54 145 15, tab 3 center
tab "&Credits", 4
box "Special Thanks To", 27, 0 8 146 114, disable tab 4
text "Greetings: To All Jaguar Members Who Always Used and Play Warscript and To All Warcripters/Users/Testers Who Played Against Me. And To My Honey 'mheldz'", 36, 0 99 145 26, tab 4 center
text "][X][/X-Haxored [Apocalypse and Methosingle Creator]", 35, 1 88 145 10, tab 4 center
text "Efacez/||SSJVegeto|| [Rowz and Cybix Tandem Creator]", 34, -1 77 145 10, tab 4 center
text "posis/raw-x/posisang/ [Raw.Revenge.Mode Creator]", 33, 0 67 145 10, tab 4 center
text "^_G_^Force/Alexander/ [Tera @ DALnet Creator]", 32, 0 57 145 10, tab 4 center
text "mharkie69/insane/undead [Insane Technology Creator]", 31, 0 48 145 10, tab 4 center
text "^DaRk^SoUl^/KARIT/RiTcHeL [Metal and Darksoul Creator]", 30, 0 38 145 10, tab 4 center
text "L10n/Pran|ng/Wilz0n [Fucked and Niyakis Creator]", 29, 0 28 145 10, tab 4 center
text "Veizeix/||x|x||/azureus/kangil/ [Warframe Socket Creator]", 28, 1 18 145 10, tab 4 center
button "Licensed To Jaguar Team Interactive", 12, 0 124 101 10, disable
button "Save/Exit", 13, 100 124 48 10, ok
}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
on 1:dialog:jstyler_d:sclick:*:{
if ($did == 6) { if ($group(#jstyler) == on) { clear | .disable #jstyler | echo -a $jstyler_j 8I13s 8N13ow 8O13ff } | else { .enable #jstyler | echo -a $jstyler_j 13I8s 13N8ow 13O8n } }
if ($did == 7) { if ($group(#banprotect) == on) { clear | .disable #banprotect | echo -a 8B13an 8P13rotection 8I13s 8N13ow 8O13ff } | else { .enable #banprotect | echo -a 13B8an 13P8rotection 13I8s 13N8ow 13O8n } }
if ($did == 38) { if (!%xjstylerx) { set %xjstylerx ! | .clear | echo -a 8N13ick 8C13hanger 8I13s 8T13urn 8O13n } | else { unset %xjstylerx | echo -a 13N8ick 13C8hanger 13I8s 13T8urn 13O8ff } }
if ($did == 40) { if (!%invex) { set %invex ! | .clear | echo -a 8I13nvex8M13ode 8I13s 8T13urn 8O13n } | else { unset %invex | echo -a 13I8nvex 13M8ode 13I8s 13T8urn 13O8ff } }
if ($did == 42) { if ($group(#banlocker) == on) { clear | .disable #banlocker | echo -a 8B13anlocker 8I13s 8N13ow 8O13ff } | else { .enable #banlocker | echo -a 13B8anlocker 13I8s 13N8ow 13O8n } }
if ($did == 7) { if ($group(#banprotect) == on) { clear | .disable #banprotect | echo -a 8B13an 8P13rotection 8I13s 8N13ow 8O13ff } | else { .enable #banprotect | echo -a 13B8an 13P8rotection 13I8s 13N8ow 13O8n } }
if ($did == 16) { if ($did(14)) && (!$istok(%%jstylerz,$did(14),44)) { %jstylerz = $addtok(%jstylerz,$did(14),44) | did -a $dname 14 $did(14) } }
if ($did == 17) { if ($did(14)) && ($istok(%jstylerz,$did(14),44)) { %jstylerz = $remtok(%jstylerz,$did(14),1,44) | did -d $dname 14 $did(14).sel | did -c $dname 14 14 } }
if ($did == 18) { unset %jstylerx | did -r $dname 14 | unset %* | say 8A13ll 8Spy13ware 8I13n 8T13he 8L13ist 8H13as 8b13een 8N13eutralized 8I13n 8C13hannel  $+ $r(1,15) $+ %j - $jstyler_o }
}
on 1:dialog:jstyler_d:edit:*:{
%j = $did(9)
}
on 1:dialog:jstyler_d:init:*:{
set -u0 %r 1
while ($gettok(%jstylerx,%r,44)) { did -a $dname 14 $ifmatch | inc %r 1 }
if ($group(#jstyler) == on) did -c $dname 6
if ($group(#banlocker) == on) did -c $dname 42
if ($group(#banprotect) == on) did -c $dname 7
if (%xjstylerx) did -c $dname 38
if (%invex) did -c $dname 40
if (%j) did -a $dname 9 %j
}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
menu menubar,channel,status {
-
&Jstyler Setup:f5
-
Clear list { unset %jstylerz %jstylerx | say 8A13ll 8Spy13ware 8I13n 8T13he 8L13ist 8H13as 8b13een 8N13eutralized 8I13n 8C13hannel  $+ $r(1,15) $+ %j - $jstyler_o }
-
}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
menu nicklist,query {
-
jÄgÜäR§TÿLëR Lï§t
.Add $$1:%jstylerx = $addtok(%jstylerz,$1,44) | if ($dialog(jstyler_d)) { xjstyler.add } | echo -a 8R13eport: $$1 8H13as 8B13een 8A13dded 8T13o 8S13pyware 8L13ist - $jstyler_j
.Delete $$1:%jstylerx = $remtok(%jstylerz,$1,1,44) | if ($dialog(jstyler_d)) { xjstylerx.del } | echo -a 8R13eport: $$1 8H13as 8B13een 8R13emoved 8T13o 8S13pyware 8L13ist - $jstyler_j
-
jÄgÜäR§TÿLëR:kick $chan $1 $jstyler_j
}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Slap Revenge

on *:ACTION:$($+(*,$me,*)):#:{
inc $iif(!%slapflood,-eu60) % $+ slapflood
if (%slapflood > 10) halt
describe $chan $replace($1-,$me,$nick)
}