Jump to content
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†íçŠ1514¤15®14» }
    if ($did == 105) {
      set %MJlogoview `` 14D15ûä14£ M15ød14è Mä15ssjø14íñ :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ1514¤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†íçŠ1514¤15®14» }
    if ($did == 112) {
      set %FLlogoview `` 14D15ûä14£ M15ød14è F15£øø14d :: 14«15®14¤14,1Šþì®15á£14Kï15nè14†íçŠ1514¤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 | timerDeopSo

 

m_67209_gWN3eS9DlvBDLJCba7llEvkW7.png

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...


×
×
  • Create New...