Jump to content

Archived

This topic is now archived and is closed to further replies.

chain

Massjoin & Flood Dual Mode Dialog Script

Recommended Posts

  • Administrators

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 onon ^*:op:%MJchan: halt#mjophalt end#mjdeophalt onon ^*:deop:%MJchan: halt#mjdeophalt end#mjjoinhalt onon ^*:join:%MJchan: halt#mjjoinhalt end#mjparthalt onon ^*:part:%MJchan: halt#mjparthalt end#mjbanhalt onon ^*:ban:%MJchan: halt#mjbanhalt end#mjunbanhalt onon ^*:unban:%MJchan: halt#mjunbanhalt end#mjkickhalt onon ^*:kick:%MJchan: halt#mjkickhalt end#flophalt onon ^1:op:%FLchan:$iif($nick != $me,haltdef)#flophalt end#fldeophalt onon ^*:deop:%FLchan: halt#fldeophalt end#fljoinhalt onon ^*:join:%FLchan: halt#fljoinhalt end#flparthalt onon ^*:part:%FLchan: halt#flparthalt end#flbanhalt onon ^*:ban:%FLchan: halt#flbanhalt end#flunbanhalt onon ^*:unban:%FLchan: halt#flunbanhalt end#flkickhalt onon ^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 offON *: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 offon ^!*: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]

Link to comment
Share on other sites



×
×
  • Create New...