mIRC Kicking Clones Games for Server Zildjan.mine.nu:6667 by Team SpiralKinetics.
A simple mIRC code intended to kick clones. Summary of the games detailed in the code dialog.
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
menu status,menubar,channel {
-
Spiralkinetics™ Dual Mode:/dialog $iif($dialog(dualmode),-o,-m) dualmode dualmode
Spiralkinetics™ MassJoin Clear cloneMJ.TXT:/write -c cloneMJ.txt
Spiralkinetics™ Flood Clear cloneFL.TXT:/write -c cloneFL.txt
-
}
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
dialog dualmode {
title "SpiralKinetics Dual Mode Sock Configuration"
size -1 -1 210 180
option dbu
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
tab "Intro", 1, 5 2 200 150,
box "", 10, 10 15 190 135
text "Script: SpiralKinetics Dual Mode", 11, 15 20 180 10, tab 1 enable
text "Coder: Sabri", 12, 15 27 180 10, tab 1 enable
text "Tester: ItikRock, Ahseng, Cloud, Kereei and m11x", 13, 15 34 180 10, tab 1 enable
text "Disclaimer: This code belong to Team SpiralKinetics and we just lend it to whoever wish to use it.", 14, 15 41 180 20, tab 1 enable
text "Advisor: Bioshock and zildjan", 77, 15 59 180 10, tab 1 enable
text "Applications: Flooding and MassJoin Games at Server Zildjan.mine.nu:6667", 15, 15 65 180 10, tab 1 enable
text "Channel: Flooding #FLOOD / MassJoin #BIRC", 78, 15 72 180 10, tab 1 enable
text "Games Summary:-", 16, 15 82 180 10, tab 1 enable
text "Flood - (#FLOOD) Basic understanding are kicking clone on syntax error display on channel by each clone such as Long text etc.", 17, 15 90 180 20, tab 1 enable
text "MassJoin - (#BIRC) Basic understanding are kicking all join clone.", 18, 15 104 180 10, tab 1 enable
text "Team: SpiralKinetics Establish in 2010.", 19, 15 115 180 10, tab 1 enable
text "Team members comprise of: Bioshock (Founder) and Senior Members: Sabri, ItikRock, Kereei, Ahseng, Cloud and m11x", 20, 15 122 180 15, tab 1 enable
text "Like Us:", 21, 15 140 20 10, tab 1 enable
link "FaceBook Page: SpiralKinetics Productions", 22, 35 140 130 15, tab 1 enable
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
tab "MassJoin", 2, 5 2 170 130
box "MassJoin Configuration", 4, 15 20 180 125, tab 2
box "Groups", 23, 20 30 170 20, tab 2
text "Enable/Disable MassJoin Remote Groups:", 24, 25 38 99 10, enable tab 2
radio "Enable", 25, 127 36 25 10, left tab 2
box "", 26, 155 32 2 16, tab 2
radio "Disable", 27, 160 36 25 10, tab 2
box "Set Nick/Pass Sock`s", 28, 20 53 70 50, tab 2
text "Nick:", 29, 25 63 13 10, tab 2
edit "", 30, 40 63 45 10, center autohs tab 2
text "Pass:", 31, 25 78 13 10, tab 2
edit "", 32, 40 78 45 10, center pass autohs, tab 2
button "Set Nick/Pass", 33, 32 90 45 10, disable tab 2
box "", 34, 95 50 95 50, tab 2
text "Add Server eg.", 35, 125 55 40 10, tab 2
text "Zildjan.mine.nu PORT: 6667", 36, 109 62 68 10, tab 2
edit "", 37, 100 71 85 10, center autohs tab 2
edit "", 38, 118 85 25 10, center autohs tab 2
text "PORT:", 39, 100 86 15 10, tab 2
button "Add Server", 40, 146 85 40 10, disable tab 2
box "Set Channel e. #birc", 41, 20 105 63 37, tab 2
edit "", 42, 29 115 45 10, center autohs tab 2
button "Add Chan", 43, 32 128 40 10, disable tab 2
text "ON/OFF Your Sock`s", 44, 110 102 60 10, tab 2
button "Connect", 45, 95 112 40 15, tab 2
button "Disconnect", 46, 140 112 40 15, tab 2
text "Clear all MassJoin Setting:", 47, 85 132 70 10, tab 2
button "¤ Clear All ¤", 48, 152 130 40 12, tab 2
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
tab "Flood", 3, 5 2 170 130
box "Flood Configuration", 5, 15 20 180 125, tab 3
box "Groups", 49, 20 30 170 20, tab 3
text "Enable/Disable Flood Remote Groups:", 50, 25 38 99 10, enable tab 3
radio "Enable", 51, 127 36 25 10, left tab 3
box "", 52, 155 32 2 16, tab 3
radio "Disable", 53, 160 36 25 10, tab 3
box "Set Nick/Pass Sock`s", 54, 20 53 70 50, tab 3
text "Nick:", 55, 25 63 13 10, tab 3
edit "", 56, 40 63 45 10, center autohs tab 3
text "Pass:", 57, 25 78 13 10, tab 3
edit "", 58, 40 78 45 10, center pass autohs, tab 3
button "Set Nick/Pass", 59, 32 90 45 10, disable tab 3
box "", 60, 95 50 95 50, tab 3
text "Add Server eg.", 61, 125 55 40 10, tab 3
text "Zildjan.mine.nu PORT: 6667", 62, 109 62 68 10, tab 3
edit "", 63, 100 71 85 10, center autohs tab 3
edit "", 64, 118 85 25 10, center autohs tab 3
text "PORT:", 65, 100 86 15 10, tab 3
button "Add Server", 66, 146 85 40 10, disable tab 3
box "Set Channel e. #flood", 67, 20 105 63 37, tab 3
edit "", 68, 29 115 45 10, center autohs tab 3
button "Add Chan", 69, 32 128 40 10, disable tab 3
text "ON/OFF Your Sock`s", 70, 110 102 60 10, tab 3
button "Connect", 71, 95 112 40 15, tab 3
button "Disconnect", 72, 140 112 40 15, tab 3
text "Clear all Flood Setting:", 73, 85 132 70 10, tab 3
button "¤ Clear All ¤", 74, 152 130 40 12, tab 3
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
tab "Timing", 79, 5 2 170 130
box "MassJoin Timer/Isnum Tune", 80, 13 20 184 62, tab 79
box "Flood Timer/Isnum Tune", 81, 13 85 184 62, tab 79
text "Default setting isnum is 467-487 and larger than > 497. Isnum: Setting must be in different between 20 - 22 lines. i.e:min-100-120, max-100-122. Larger than that may cause you excessing. Delay: Setting must be in different of 10 lines after direct isnum last line. i.e if direct isnum 100-120 you may set your starting delay line: 130. Try default setting.", 82, 15 28 180 33, enable tab 79
button "Use Default Setting", 83, 15 66 55 10, tab 79
box "", 84, 73 60 121 20, tab 79
text "Isnum:", 85, 75 67 17 10, tab 79
edit "", 86, 93 66 28 10, center autohs tab 79
text ">", 87, 123 67 4 10, tab 79
edit "", 88, 130 66 15 10, center autohs tab 79
button "Use My Own", 89, 150 66 40 10, disable tab 79
text "Same as MassJoin. Default setting isnum is 367-387 and larger than > 397. Isnum: Setting must be in different between 20 - 22 lines. i.e:min-100-120, max-100-122. Larger than that may cause you excessing. Delay: Setting must be in different of 10 lines after direct isnum last line. i.e if direct isnum 100-120 you may set your starting delay line: 130. Try default setting.", 90, 15 93 180 33, enable tab 79
button "Use Default Setting", 91, 15 131 55 10, tab 79
box "", 92, 73 125 121 20, tab 79
text "Isnum:", 93, 75 132 17 10, tab 79
edit "", 94, 93 131 28 10, center autohs tab 79
text ">", 95, 123 132 4 10, tab 79
edit "", 96, 130 131 15 10, center autohs tab 79
button "Use My Own", 97, 150 131 40 10, disable tab 79
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
tab "Logo", 100, 5 2 170 130
box "MassJoin Logo Setting", 98, 13 20 184 62, tab 100
box "Flood Logo Setting", 99, 13 85 184 62, tab 100
box "", 101, 30 50 150 1, tab 100
box "", 102, 30 115 150 1, tab 100
text "`` Dûä£ Mødè Mässjøíñ :: «®¤Šþì®á£Kïnè†í犙¤®»", 103, 15 29 180 10, center tab 100
button "Use Default Logo", 104, 32 37 60 10, tab 100
button "View/Echo", 105, 118 37 60 10, tab 100
edit "", 106, 16 55 178 10, autohs tab 100
button "View/Echo", 107, 20 68 50 10, tab 100
button "Use My Own", 108, 80 68 50 10, tab 100
button "Clear", 109, 140 68 50 10, tab 100
text "`` Dûä£ Mødè F£øød :: «®¤Šþì®á£Kïnè†í犙¤®»", 110, 15 94 180 10, center tab 100
button "Use Default Logo", 111, 23 102 60 10, tab 100
button "View/Echo", 112, 127 102 60 10, tab 100
edit "", 113, 16 120 178 10, autohs tab 100
button "View/Echo", 114, 20 133 50 10, tab 100
button "Use My Own", 115, 80 133 50 10, tab 100
button "Clear", 116, 140 133 50 10, tab 100
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
tab "Halting", 200, 5 2 170 130
box "MassJoin Channel", 117, 13 20 90 127, tab 200
check " MODE OP : ", 118, 62 30 37 10, left tab 200
check " MODE DEOP : ", 119, 49 45 43 10, left tab 200
check " JOIN : ", 120, 73 60 26 10, left tab 200
check " PART : ", 121, 65 75 27 10, left tab 200
check " BAN : ", 122, 75 90 24 10, left tab 200
check " UNBAN : ", 123, 61 105 31 10, left tab 200
check " KICK : ", 124, 74 120 25 10, left tab 200
text "To halt, set channel at MassJoin Tab. ie. #BIRC", 133, 16 130 80 20, center tab 200
box "Flood Channel", 125, 107 20 90 127, tab 200
check " : MODE OP ", 126, 116 30 83 10, tab 200
check " : MODE DEOP ", 127, 110 45 83 10, tab 200
check " : JOIN ", 128, 116 60 83 10, tab 200
check " : PART ", 129, 110 75 83 10, tab 200
check " : BAN ", 130, 116 90 83 10, tab 200
check " : UNBAN ", 131, 110 105 83 10, tab 200
check " : KICK ", 132, 116 120 83 10, tab 200
text "To halt, set channel at Flood Tab. ie. #FLOOD", 134, 110 130 80 20, center tab 200
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
text "«®¤b£áçkŠKŠè®ìès¤®» :: «®¤Šþì®á£Kïnè†í犙¤®»", 75, 8 162 135 10, disable
button "«®¤ CLOSE ¤®»", 76, 150 159 55 14, ok
}
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
on 1:dialog:dualmode:*:*:{
if ($devent == edit) {
if ($did == 30) { did -e $dname 33 }
if ($did == 37) || ($did == 38) { did -e $dname 40 }
if ($did == 42) { did -e $dname 43 }
if ($did == 56) { did -e $dname 59 }
if ($did == 63) || ($did == 64) { did -e $dname 66 }
if ($did == 68) { did -e $dname 69 }
if ($did == 86) || ($did == 88) { did -e $dname 89 }
if ($did == 94) || ($did == 96) { did -e $dname 97 }
}
if ($devent == init) {
if ($group(#mjdialog) == on) { did -c $dname 25 }
if ($group(#mjdialog) == off) { did -c $dname 27 }
if ($group(#flooddialog) == on) { did -c $dname 51 }
if ($group(#flooddialog) == off) { did -c $dname 53 }
if (%MJsocknick) || (%MJpasssock) || (%MJserver) || (%MJport) || (%MJchan) || (%MJisnum) || (%MJafter) || (%MJlogo) {
did -a $dname 30 %MJsocknick
did -a $dname 32 %MJpassnick
did -a $dname 37 %MJserver
did -a $dname 38 %MJport
did -a $dname 42 %MJchan
did -a $dname 86 %MJisnum
did -a $dname 88 %MJafter
did -a $dname 106 %MJlogo
}
if (%FLsocknick) || (%FLpasssock) || (%FLserver) || (%FLport) || (%FLchan) || (%FLisnum) || (%FLafter) || (%FLlogo) {
did -a $dname 56 %FLsocknick
did -a $dname 58 %FLpassnick
did -a $dname 63 %FLserver
did -a $dname 64 %FLport
did -a $dname 68 %FLchan
did -a $dname 94 %FLisnum
did -a $dname 96 %FLafter
did -a $dname 113 %FLlogo
}
if ($group(#mjophalt) == on) { did -c $dname 118 }
if ($group(#mjophalt) == off) { did -u $dname 118 }
if ($group(#mjdeophalt) == on) { did -c $dname 119 }
if ($group(#mjdeophalt) == off) { did -u $dname 119 }
if ($group(#mjjoinhalt) == on) { did -c $dname 120 }
if ($group(#mjjoinhalt) == off) { did -u $dname 120 }
if ($group(#mjparthalt) == on) { did -c $dname 121 }
if ($group(#mjparthalt) == off) { did -u $dname 121 }
if ($group(#mjbanhalt) == on) { did -c $dname 122 }
if ($group(#mjbanhalt) == off) { did -u $dname 122 }
if ($group(#mjunbanhalt) == on) { did -c $dname 123 }
if ($group(#mjunbanhalt) == off) { did -u $dname 123 }
if ($group(#mjkickhalt) == on) { did -c $dname 124 }
if ($group(#mjkickhalt) == off) { did -u $dname 124 }
if ($group(#flophalt) == on) { did -c $dname 126 }
if ($group(#flophalt) == off) { did -u $dname 126 }
if ($group(#fldeophalt) == on) { did -c $dname 127 }
if ($group(#fldeophalt) == off) { did -u $dname 127 }
if ($group(#fljoinhalt) == on) { did -c $dname 128 }
if ($group(#fljoinhalt) == off) { did -u $dname 128 }
if ($group(#flparthalt) == on) { did -c $dname 129 }
if ($group(#flparthalt) == off) { did -u $dname 129 }
if ($group(#flbanhalt) == on) { did -c $dname 130 }
if ($group(#flbanhalt) == off) { did -u $dname 130 }
if ($group(#flunbanhalt) == on) { did -c $dname 131 }
if ($group(#flunbanhalt) == off) { did -u $dname 131 }
if ($group(#flkickhalt) == on) { did -c $dname 132 }
if ($group(#flkickhalt) == off) { did -u $dname 132 }
}
if ($devent == sclick) {
if ($did == 25) {
if ($did(25).state == 0) { enable #mjdialog }
if ($did(25).state == 1) { did -c $dname 25 | enable #mjdialog | .auser MJbot bot-bircX-03 }
}
if ($did == 27) {
if ($did(27).state == 0) { disable #mjdialog }
if ($did(27).state == 1) { did -c $dname 27 | disable #mjdialog | .flush MJbot }
}
if ($did == 51) {
if ($did(51).state == 0) { enable #flooddialog }
if ($did(51).state == 1) { did -c $dname 51 | enable #flooddialog }
}
if ($did == 53) {
if ($did(53).state == 0) { disable #flooddialog }
if ($did(53).state == 1) { did -c $dname 53 | disable #flooddialog }
}
if ($did == 33) {
set %MJsocknick $did(30)
set %MJpassnick $did(32)
}
if ($did == 40) {
set %MJserver $did(37)
set %MJport $did(38)
}
if ($did == 43) { set %MJchan $did(42) }
if ($did == 48) {
did -r $dname 30,32
did -r $dname 37,38
did -r $dname 42
did -b $dname 33,40,43
disable #MJdialog
did -c $dname 27
did -u $dname 25
flush MJbot
unset %MJsocknick %MJpassnick
unset %MJserver %MJport %MJchan
}
if ($did == 45) { .sockopen MJ_* %MJserver %MJport | .notify %MJsocknick }
if ($did == 46) { .sockwrite -n MJ_* quit | .sockclose MJ_* | .notify %MJsocknick }
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
if ($did == 59) {
set %FLsocknick $did(56)
set %FLpassnick $did(58)
}
if ($did == 66) {
set %FLserver $did(63)
set %FLport $did(64)
}
if ($did == 69) { set %FLchan $did(68) }
if ($did == 74) {
did -r $dname 56,58
did -r $dname 63,64
did -r $dname 68
did -b $dname 59,66,69
disable #flooddialog
did -c $dname 53
did -u $dname 51
unset %FLsocknick %FLpassnick
unset %FLserver %FLport %FLchan
}
if ($did == 71) { .sockopen FL_* %FLserver %FLport | .notify %FLsocknick }
if ($did == 72) { sockwrite -n FL_* quit | .sockclose FL_* | .notify %FLsocknick }
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
if ($did == 83) {
set %MJisnum 467-487
set %MJafter 497
did -b $dname 83
did -e $dname 89
}
if ($did == 89) {
set %MJisnum $did(86)
set %MJafter $did(88)
did -b $dname 89
did -e $dname 83
}
if ($did == 91) {
set %FLisnum 367-387
set %FLafter 397
did -b $dname 91
did -e $dname 97
}
if ($did == 97) {
set %FLisnum $did(94)
set %FLafter $did(96)
did -b $dname 97
did -e $dname 91
}
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
if ($did == 104) { did -b $dname 104 | set %MJlogo `` 14D15ûä14£ M15ød14è Mä15ssjø14íñ :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14» }
if ($did == 105) {
set %MJlogoview `` 14D15ûä14£ M15ød14è Mä15ssjø14íñ :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14»
echo -at
echo -at NickClone was kicked by You ( $+ %MJlogoview $+ )
echo -at
unset %MJlogoview
}
if ($did == 107) {
set %logoview $did(106)
echo -at
echo -at NickClone was kicked by You ( $+ %logoview $+ )
echo -at
unset %logoview
}
if ($did == 108) { did -b $dname 108 | set %MJlogo $did(106) }
if ($did == 109) { did -r $dname 106 }
if ($did == 111) { set %FLlogo `` 14D15ûä14£ M15ød14è F15£øø14d :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14» }
if ($did == 112) {
set %FLlogoview `` 14D15ûä14£ M15ød14è F15£øø14d :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ15™14¤15®14»
echo -at
echo -at NickClone was kicked by You (» Swearing » %FLlogoview $+ )
echo -at
unset %FLlogoview
}
if ($did == 114) {
set %logoview $did(113)
echo -at
echo -at NickClone was kicked by You (» Swearing » %logoview $+ )
echo -at
unset %logoview
}
if ($did == 115) { did -b $dname 115 | set %FLlogo $did(113) }
if ($did == 116) { did -r $dname 113 }
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
if ($did == 118) {
if ($did(118).state == 0) { disable #mjophalt }
if ($did(118).state == 1) { enable #mjophalt }
}
if ($did == 119) {
if ($did(119).state == 0) { disable #mjdeophalt }
if ($did(119).state == 1) { enable #mjdeophalt }
}
if ($did == 120) {
if ($did(120).state == 0) { disable #mjjoinhalt }
if ($did(120).state == 1) { enable #mjjoinhalt }
}
if ($did == 121) {
if ($did(121).state == 0) { disable #mjparthalt }
if ($did(121).state == 1) { enable #mjparthalt }
}
if ($did == 122) {
if ($did(122).state == 0) { disable #mjbanhalt }
if ($did(122).state == 1) { enable #mjbanhalt }
}
if ($did == 123) {
if ($did(123).state == 0) { disable #mjunbanhalt }
if ($did(123).state == 1) { enable #mjunbanhalt }
}
if ($did == 124) {
if ($did(124).state == 0) { disable #mjkickhalt }
if ($did(124).state == 1) { enable #mjkickhalt }
}
if ($did == 126) {
if ($did(126).state == 0) { disable #flophalt }
if ($did(126).state == 1) { enable #flophalt }
}
if ($did == 127) {
if ($did(127).state == 0) { disable #fldeophalt }
if ($did(127).state == 1) { enable #fldeophalt }
}
if ($did == 128) {
if ($did(128).state == 0) { disable #fljoinhalt }
if ($did(128).state == 1) { enable #fljoinhalt }
}
if ($did == 129) {
if ($did(129).state == 0) { disable #flparthalt }
if ($did(129).state == 1) { enable #flparthalt }
}
if ($did == 130) {
if ($did(130).state == 0) { disable #flbanhalt }
if ($did(130).state == 1) { enable #flbanhalt }
}
if ($did == 131) {
if ($did(131).state == 0) { disable #flunbanhalt }
if ($did(131).state == 1) { enable #flunbanhalt }
}
if ($did == 132) {
if ($did(132).state == 0) { disable #flkickhalt }
if ($did(132).state == 1) { enable #flkickhalt }
}
}
if ($devent == dclick) {
if ($did == 22) { /run https://www.facebook.com/spiralkineticsproductions }
}
}
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
on *:SOCKCLOSE:MJ_*: { sockclose MJ_* | timersock 1 2 .sockopen MJ_* %MJserver %MJport }
on *:SOCKOPEN:MJ_*: {
if ($sockerr != 0) { halt }
if ($sockerr > 0) return
sockwrite -nt MJ_* connect $+ %MJserver $+ : $+ %MJport $+ / HTTP/1.0 $+ $crlf $+ $crlf
sockwrite -n MJ_* pong $gettok( $+ %MJserver $+ : $+ %MJport $+ ,1,58)
sockwrite -n MJ_* USER Dual.Mode * * : sock` «®¤Šþì®á£Kïnè†í犙¤®»
sockwrite -nt MJ_* nick %MJsocknick
sockwrite -nt MJ_* nickserv identify %MJpassnick
sockwrite -nt MJ_* join %MJchan
sockwrite -nt MJ_* privmsg %MJchan !protect %MJsocknick
sockwrite -nt MJ_* privmsg MassJoinServ op %MJchan 123456
sockwrite -nt MJ_* PING $ticks
}
on *:SOCKREAD:MJ_*: {
sockread %tempMJ
if ($mid(%tempMJ,1,4) == PING) { sockwrite -nt MJ_* PONG $remove($remove(%tempMJ,ping :),ping) | halt }
if ($gettok(%tempMJ,2,32) == 386) { .sockwrite -nt MJ_* join %MJchan }
}
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
on *:SOCKCLOSE:FL_*: { sockclose FL_* | timersock 1 2 .sockopen FL_* %FLserver %FLport }
on *:SOCKOPEN:FL_*: {
if ($sockerr != 0) { halt }
if ($sockerr > 0) return
sockwrite -nt FL_* connect $+ %FLserver $+ : $+ %FLport $+ / HTTP/1.0 $+ $crlf $+ $crlf
sockwrite -n FL_* pong $gettok( $+ %FLserver $+ : $+ %FLport $+ ,1,58)
sockwrite -n FL_* USER Dual.Mode * * : sock` «®¤Šþì®á£Kïnè†í犙¤®»
sockwrite -nt FL_* nick %FLsocknick
sockwrite -nt FL_* nickserv identify %FLpassnick
sockwrite -nt FL_* join %FLchan
sockwrite -nt FL_* privmsg birc op %FLchan 123456
sockwrite -nt FL_* PING $ticks
}
on *:SOCKREAD:FL_*: {
sockread %tempFL
if ($mid(%tempFL,1,4) == PING) { sockwrite -nt FL_* PONG $remove($remove(%tempFL,ping :),ping) | halt }
if ($gettok(%tempFL,2,32) == 386) { .sockwrite -nt FL_* join %FLchan }
}
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
#mjophalt on
on ^*:op:%MJchan: halt
#mjophalt end
#mjdeophalt on
on ^*:deop:%MJchan: halt
#mjdeophalt end
#mjjoinhalt on
on ^*:join:%MJchan: halt
#mjjoinhalt end
#mjparthalt on
on ^*:part:%MJchan: halt
#mjparthalt end
#mjbanhalt on
on ^*:ban:%MJchan: halt
#mjbanhalt end
#mjunbanhalt on
on ^*:unban:%MJchan: halt
#mjunbanhalt end
#mjkickhalt on
on ^*:kick:%MJchan: halt
#mjkickhalt end
#flophalt on
on ^1:op:%FLchan:$iif($nick != $me,haltdef)
#flophalt end
#fldeophalt on
on ^*:deop:%FLchan: halt
#fldeophalt end
#fljoinhalt on
on ^*:join:%FLchan: halt
#fljoinhalt end
#flparthalt on
on ^*:part:%FLchan: halt
#flparthalt end
#flbanhalt on
on ^*:ban:%FLchan: halt
#flbanhalt end
#flunbanhalt on
on ^*:unban:%FLchan: halt
#flunbanhalt end
#flkickhalt on
on ^1:kick:%FLchan:$iif($nick != $me,haltdef)
#flkickhalt end
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
#mjdialog off
ON *:JOIN:%MJchan: {
.updatenl
if ($nick == %MJsocknick) || ($nick !isreg $chan) || ($nick isop $chan) || ($nick isin %protect) { halt }
.MJspiral
}
alias -l MJSpiral {
.inc -u5 %MJclone.join
.set %MJnick $nick | .set %MJchan $chan | .write cloneMJ.txt %MJnick
if (%MJclone.join isnum %MJisnum) { .sockwrite -nt MJ_* kick %MJchan %MJnick 9Direct %MJlogo | .return }
if (%MJclone.join > %MJafter) { .timerGoTo 1 2 MJKinetics }
.halt
.return
}
alias -l MJKinetics {
.set %MJnick $read(cloneMJ.txt)
if (%MJnick != $null) {
if (%MJnick ison %MJchan) { sockwrite -nt MJ_* kick %MJchan %MJnick 8Delay %MJlogo }
.timerloopst 1 1 MJKinetics
}
if (%MJnick !ison %MJchan) {
.write -ds %MJnick cloneMJ.txt
.timerloopnd 1 0 MJKinetics
}
}
ON ^1:OP:%MJchan: {
if ($opnick == %MJsocknick) { .timerloopth 1 0 MJKinetics }
else { return }
}
on ^!*:kick:%MJchan: {
if ($knick == %MJsocknick) {
//sockwrite -nt MJ_* join %MJchan
//sockwrite -nt MJ_* privmsg MassJoinServ op %MJchan 123456
}
}
on +MJbot:text:*:%MJchan: {
if (Jumlah klon yang telah ditendang keluar pada pusingan kali ini ialah isin $strip($1-)) { .write -c cloneMJ.txt }
}
ON *:TEXT:*:%MJchan:{ if (!Protect == $1) && ($2) { .set %protect $addtok(%protect,$2,300) | echo -at ***4,0 #BIRC Add $2 in Protect list. } }
ON !*:DEOP:%MJchan: { if ($opnick == %MJsocknick) && (!%deopMJ) { write -c cloneMJ.txt | timerDeopSock 1 5 sockwrite -nt MJ_* privmsg MassJoinServ op %MJchan 123456 | set -u2 %deopMJ 1 } }
#mjdialog end
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]
#flooddialog off
on ^!*:text:*:%FLchan: if ($nick isreg #) { haltdef | SK.engine $1- }
on ^!*:notice:*:%FLchan: if ($nick isreg #) { haltdef | SK.engine $1- }
on ^!*:action:*:%FLchan: if ($nick isreg #) { haltdef | SK.engine $1- }
ctcp *:*:%FLchan: { if ((%FLsocknick isop #) && ($nick isreg #)) { $FLSpiral(pinG) } }
on *:ctcpreply:*: { if ((%FLsocknick isop #) && ($nick isreg #)) { $FLSpiral(pinG) } }
alias -l SK.engine {
if ($nick !isreg $chan) || ($nick == %FLsocknick) { goto end }
if ($regex($1-,/[[:cntrl:]]/g) >= 50) { .FLSpiral cOrL | halt }
if ($regex($1-,/[[:upper:]]/g) >= 50) { .FLSpiral sHit | halt }
if ($regex($strip($1-),/[[:digit:]]/g) >= 50) { .FLSpiral diGi | halt }
if ($regex($strip($1-),/[[:punct:]]/g) >= 50) { .FLSpiral sMbL | halt }
if ($regex($strip($1-),/[ $chr(160) ]/g) >= 50) { .FLSpiral bLnK | halt }
if ($regex($1-,/[ $chr(174) ]/g) >= 50) { .FLSpiral aSCi | halt }
if ($regex($strip($1-),/[[:lower:]]/g) >= 200) { .FLSpiral lOnG | halt }
if ($regex($remove($1-,$chr(40),$chr(41)),/(http|tp:|#)/g)) { .FLSpiral sPaM | halt }
if ($regex($strip($1-),/(shit|babi|dick|puki|fuck)/g)) { .FLSpiral sWeR | halt }
.hinc -u15m repeat [ $+ [ $chan ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(repeat [ $+ [ $chan ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .FLSpiral rEpT }
.hinc -u15m special [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(special [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) >= 4) { .FLSpiral sCPc }
.hinc -u10m newline [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(newline [ $+ [ # ] ],$address($nick,3)) >= 5) { .FLSpiral rOW }
else { return }
}
alias -l FLSpiral {
.inc -mu9m %FLclone.join | .set %FLnick $nick | .write cloneFL.txt %FLnick | .set %reason $1-
if (%FLclone.join isnum %FLisnum) { .sockwrite -nt FL_* kick %FLchan %FLnick » %reason » 9Direct %FLlogo | .return }
if (%FLclone.join > %FLafter) { .timerGoTost 1 2 FLKinetics }
.halt
.return
}
alias -l FLKinetics {
.set %FLnick $read(cloneFL.txt)
if (%FLnick != $null) {
if (%FLnick ison %FLchan) { sockwrite -nt FL_* kick %FLchan %FLnick » %reason » 8Delay %FLlogo }
.timerloop1st 1 1 FLKinetics
}
if (%FLnick !ison %FLchan) {
.write -ds %FLnick cloneFL.txt
.timerloop2nd 1 0 FLKinetics
}
}
ON ^1:OP:%FLchan: {
if ($opnick == %FLsocknick) { .timerloop3th 1 0 FLKinetics }
else { return }
}
ON ^1:KICK:%FLchan:{
if ($nick == %FLsocknick) { $SpiralkineticsBan($knick,%FLchan) }
}
alias -l SpiralkineticsBan {
.hadd -u3m sk $1 $+ !*@*Dual.Mode*
.timerfA -os 1 26 clear %FLchan
.timerfB -os 1 29 sockwrite -nt FL_* mode $2 $+(+,$str(b,1)) $hget(sk,1).item
.timerfC -os 1 30 write -c cloneFL.txt
.halt
}
ON !*:DEOP:%MJchan: { if ($opnick == %FLsocknick) && (!%deopFL) { write -c cloneFL.txt | timerDeopSock 1 5 sockwrite -nt FL_* privmsg birc op %FLchan 123456 | set -u2 %deopFL 1 } }
#flooddialog end
;[sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk][sk]