API tools faq
paste
Guest User

Tamir

a guest
May 28th, 2012
85
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 176.23 KB | None | 0 0
raw download clone embed print report
  1. -version-8.0.0-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;;;;;;;;;;;;;;;;;; ForFera Script V8.0.0 ;;;;;;;;;;;;;;;;;;;;
  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  5. ;;;;;;;;;; Menu ;;;;;;;;;;
  6. menu * {
  7. -
  8. ForFera Script
  9. .Dialog { FSD }
  10. -
  11. Q Commands
  12. .Q Commands Dialog { dialog $iif($dialog(QC),-v,-m) QC QC }
  13. .-
  14. .Request Op { msg r requestop $active }
  15. .Bring Q { msg r requestbot $active }
  16. .Bring S { msg r requestspamscan $active }
  17. .Show Commands { msg q showcommands }
  18. .Recover { msg q recover $active }
  19. .Ban List { msg q banlist $active }
  20. .Ban Clear { msg q banclear $active }
  21. .UnBan All { msg q unbanall $active }
  22. .UnBan Me { msg q unbanme $active }
  23. .Chan Flags { msg q chanflags $active $$?="Enter Channel Flags" }
  24. .Chan Modes { msg q chanmode $active $$?="Enter Channel Modes" }
  25. .Auto Limit { msg q chanflags $active +c | msg q autolimit $active $$?="Enter Auto Limit Number" }
  26. .Welcome { msg q chanflags $active +w | msg q welcome $active $$?="Enter Welcome Massage" }
  27. .Topic { msg q settopic $active $$?="Enter Topic Massage" }
  28. .Who Am I? { msg q whoami }
  29. -
  30. Auto Add/Sub By ForFera
  31. .cZero
  32. ..Set Channel: set %ASC $input(Enter The Channel "With #",e,Enter The Channel "With #") | join %ASC
  33. ..Set GatherBot Nickname: set %GBN $input(Enter The Gather Bot mIRC Nickname,e,Enter The Gather Bot mIRC Nickname)
  34. ..-
  35. ..Auto Add
  36. ...ON: set %AutoAdd ON | echo 14 -e AutoAdd Is Now 3ON14 - Channel:10  $+ $iif(%ASC,%ASC,Not Defined Yet) $+ 14 - Gatherbot:10  $+ $iif(%GBN,%GBN,Not Defined Yet)
  37. ...OFF: set %AutoAdd OFF | echo 14 -e AutoAdd Is Now 4OFF14 - Channel:10  $+ $iif(%ASC,%ASC,Not Defined Yet) $+ 14 - Gatherbot:10  $+ $iif(%GBN,%GBN,Not Defined Yet)
  38. ..Auto Sub
  39. ...ON: set %AutoSub ON | echo 14 -e AutoSub Is Now 3ON14 - Channel:10  $+ $iif(%ASC,%ASC,Not Defined Yet) $+ 14 - Gatherbot:10  $+ $iif(%GBN,%GBN,Not Defined Yet)
  40. ...OFF: set %AutoSub OFF | echo 14 -e AutoSub Is Now 4OFF14 - Channel:10  $+ $iif(%ASC,%ASC,Not Defined Yet) $+ 14 - Gatherbot:10  $+ $iif(%GBN,%GBN,Not Defined Yet)
  41. ..Both
  42. ...ON: set %AutoAdd ON | set %AutoSub ON | echo 14 -e AutoAdd/Sub Is Now 3ON14 - Channel:10  $+ $iif(%ASC,%ASC,Not Defined Yet) $+ 14 - Gatherbot:10  $+ $iif(%GBN,%GBN,Not Defined Yet)
  43. ...OFF: set %AutoAdd OFF | set %AutoSub OFF | echo 14 -e AutoAdd/Sub Is Now 4OFF14 - Channel:10  $+ $iif(%ASC,%ASC,Not Defined Yet) $+ 14 - Gatherbot:10  $+ $iif(%GBN,%GBN,Not Defined Yet)
  44. -
  45. CS Server Connector { dialog $iif($dialog(CSC),-v,-m) CSC CSC }
  46. -
  47. CS Server Checker {
  48. var %CS = $input(Enter The IP:Port,e,Enter The IP:Port)
  49. if (%CS) {
  50. if (*:* !iswm %CS) { echo -s 10Error:14 you need to enter IP:Port }
  51. else { CheckServer %CS }
  52. }
  53. }
  54. -
  55. Chr { if ($window(@chr)) { .close -@ @chr } | .window -c @chr | .window @chr 100 100 920 300 | var %A .aline @chr | var %c = 1 | while (%c <= 250) { %A Chr Number %c = $chr( $+ %c $+ ) | inc %c } }
  56. -
  57. Clear Chanlev { var %x = $input(Enter The Channel "With #",e,Enter The Channel "With #") | if (%x) { var %y = $input(Enter The Level,e,Enter The Level) | if (%y) { var %z = $input(Enter The Protected (If no have keep it empty),e,Enter The Protected (If no have keep it empty)) | clearchanlev %x %y $iif(%z,%z) } } }
  58. -
  59. Find Nick { var %x = $input(Enter The Nick,e,Enter The Nick) | if (%x) { fn %x } }
  60. }
  61. menu nicklist {
  62. ForFera Script
  63. .Add Black { var %BA = $input(Type Nick Address,e,Type Nick Address,$iif($address($$1,2),$ifmatch,$maddress)) | if (%BA) { var %R = $input(Type Reason (If no have keep it empty),e,Type Reason (If no have keep it empty)) | .writeini -n Blacklist.ini %BA Reason $iif(%R,%R,No Reason) | .writeini -n Blacklist.ini %BA Action BanKick | BB $active %BA %R | if ($dialog(BL)) did -a BL 1 %BA } }
  64. .Add Friend { var %FA = $input(Type Nick Address,e,Type Nick Address,$iif($address($$1,2),$ifmatch,$maddress)) | if (%FA) { .writeini -n Friendlist.ini %FA Action Nothing | if ($dialog(FL)) did -a FL 1 %FA } }
  65. .Add InfoLine { var %ILA = $input(Type Nick Address,e,Type Nick Address,$iif($address($$1,2),$ifmatch,$maddress)) | if (%ILA) { var %L = $input(Type Line,e,Type Line) | if (%L) { .writeini -n Infoline.ini %ILA Info %L | if ($dialog(IL)) did -a IL 1 %ILA } } }
  66. .Beep { if ($snick($chan,1)) { Beeping } }
  67. -
  68. Q Commands
  69. .Q Commands Dialog { dialog $iif($dialog(QC),-v,-m) QC QC }
  70. .-
  71. .Q Ban { msg q ban $active $address($$1,2) }
  72. .Chanlev
  73. ..+gv { msg q chanlev $active $$1 +gv }
  74. ..+ao { msg q chanlev $active $$1 +ao }
  75. ..+amo { msg q chanlev $active $$1 +amo }
  76. ..+amno { msg q chanlev $active $$1 +amo | set %GOS 1 | set %C $active | msg q giveowner $active $$1 }
  77. ..-gv { msg q chanlev $active $$1 -gv | mode $active -v $$1 }
  78. ..-ao { msg q chanlev $active $$1 -ao | mode $active -o $$1 }
  79. ..-amo { msg q chanlev $active $$1 -amo | mode $active -o $$1 }
  80. ..-amno { msg q chanlev $active $$1 -amno | mode $active -o $$1 }
  81. -
  82. }
  83. menu channel {
  84. -
  85. Voice
  86. .Voice All
  87. ..Voice { voice $active }
  88. ..Devoice { dvoice $active }
  89. .-
  90. .Voice Tag
  91. ..All Voice { var %x = $input(Enter The Tag,e,Enter the Tag) | if (%x) { voice $active %x } }
  92. ..All Devoice { var %x = $input(Enter The Tag,e,Enter the Tag) | if (%x) { dvoice $active %x } }
  93. -
  94. Clear Messages { clear -a }
  95. -
  96. Msg All Chan { var %x = $input(Enter The Msg,e,Enter The Msg) | if (%x) { ignore *!*@* | msgall $active %x } }
  97. -
  98. }
  99. ;;;;;;;;;; Dialogs ;;;;;;;;;;
  100. dialog FS {
  101. title "ForFera Script V8.0.0"
  102. size -1 -1 93 286
  103. option dbu
  104. box "Details", 1, 5 3 84 47
  105. text "Name:", 2, 8 12 17 8
  106. text "", 3, 26 12 59 8
  107. text "Network:", 4, 8 21 23 8
  108. text "", 5, 32 21 53 8
  109. text "Date:", 6, 8 30 15 8
  110. text "", 7, 24 30 61 8
  111. text "Time:", 8, 8 39 15 8
  112. text "", 9, 24 39 61 8
  113. button "Black List", 10, 10 58 74 12
  114. button "Friend List", 11, 10 71 74 12
  115. button "Info Line", 12, 10 84 74 12
  116. button "Auth System", 13, 10 97 74 12
  117. button "Nick Searcher", 14, 10 110 74 12
  118. button "GatherBot Helper", 15, 10 123 74 12
  119. button "Ventrilo Info", 17, 10 149 74 12
  120. button "Protection", 18, 10 162 74 12
  121. button "Away System", 19, 10 175 74 12
  122. button "MP3 Player", 20, 10 189 74 12
  123. button "Computer Controler", 21, 10 202 74 12
  124. button "Q Commands", 22, 10 215 74 12
  125. button "Sounds", 23, 10 228 74 12
  126. button "Help", 24, 10 241 74 12
  127. button "Credits", 25, 10 254 74 12
  128. button "OK", 26, 29 268 37 12, ok
  129. box "ForFera Script", 27, 5 50 84 233
  130. button "CS Server Connector", 16, 10 136 74 12
  131. }
  132. on *:dialog:FS:init:*: { did -a $DName 3 $me | did -a $DName 5 $network | did -a $DName 7 $date | did -a $DName 9 $time | .timercheck 0 1 checktime }
  133. on *:dialog:FS:close:*: { .timercheck off }
  134. on *:dialog:FS:sclick:*: {
  135. if ($did == 10) { dialog $iif($dialog(BL),-v,-m) BL BL }
  136. elseif ($did == 11) { dialog $iif($dialog(FL),-v,-m) FL FL }
  137. elseif ($did == 12) { dialog $iif($dialog(IL),-v,-m) IL IL }
  138. elseif ($did == 13) { dialog $iif($dialog(AS),-v,-m) AS AS }
  139. elseif ($did == 14) { dialog $iif($dialog(NS),-v,-m) NS NS }
  140. elseif ($did == 15) { dialog $iif($dialog(GH),-v,-m) GH GH }
  141. elseif ($did == 16) { dialog $iif($dialog(CSC),-v,-m) CSC CSC }
  142. elseif ($did == 17) { dialog $iif($dialog(VI),-v,-m) VI VI }
  143. elseif ($did == 18) { dialog $iif($dialog(PR),-v,-m) PR PR }
  144. elseif ($did == 19) { dialog $iif($dialog(AW),-v,-m) AW AW }
  145. elseif ($did == 20) { dialog $iif($dialog(MP3.Player),-v,-md) MP3.Player MP3.Player }
  146. elseif ($did == 21) { dialog $iif($dialog(ComC),-v,-m) ComC ComC }
  147. elseif ($did == 22) { dialog $iif($dialog(QC),-v,-m) QC QC }
  148. elseif ($did == 23) { dialog $iif($dialog(Sounds),-v,-m) Sounds Sounds }
  149. elseif ($did == 24) { dialog $iif($dialog(Help),-v,-m) Help Help }
  150. elseif ($did == 25) { dialog $iif($dialog(Credits),-v,-m) Credits Credits }
  151. }
  152. dialog BL {
  153. title "ForFera Script Blacklist"
  154. size -1 -1 181 73
  155. option dbu
  156. list 1, 6 10 129 36, sort size
  157. button "Add", 2, 7 54 37 12
  158. button "Del", 3, 47 54 37 12
  159. button "Clear", 4, 87 54 37 12
  160. text "To See The Reason Double Click ON The User", 5, 8 46 117 8, center
  161. box "Black List", 6, 3 1 135 70
  162. box "Action", 7, 140 1 40 47
  163. check "Ban", 8, 145 9 30 10
  164. check "Ban+Kick", 9, 145 22 32 10
  165. check "Nothing", 10, 145 35 28 10
  166. }
  167. dialog Reason {
  168. title "Blacklist Reason"
  169. size -1 -1 207 39
  170. option dbu
  171. box "", 1, 2 1 203 35
  172. text "", 2, 6 9 196 8, disable center
  173. button "Edit Reason", 3, 6 21 37 12
  174. button "OK", 4, 45 21 37 12, ok
  175. }
  176. on *:dialog:BL:init:*: { var %x = 1 | while ($ini(Blacklist.ini,%x)) { did -a $dname 1 $ini(Blacklist.ini,%x) | inc %x } | if ($ini(Blacklist.ini,0) == 0) { did -ub $dname 8,9,10 } }
  177. on *:dialog:BL:dclick:*: { if ($did == 1) && ($did($dname,1).seltext) { dialog -m Reason Reason | did -ra Reason 1 $did($dname,1).seltext Reason | did -ra Reason 2 $readini(Blacklist.ini,$did($dname,1).seltext,Reason) } }
  178. on *:dialog:BL:sclick:*: {
  179. if ($did == 1) && ($did($dname,1).seltext) {
  180. if ($readini(Blacklist.ini,$did($dname,1).seltext,Action) == Ban) { did -ec $dname 8 | did -eu $dname 9,10 }
  181. elseif ($readini(Blacklist.ini,$did($dname,1).seltext,Action) == BanKick) { did -ec $dname 9 | did -eu $dname 8,10 }
  182. elseif ($readini(Blacklist.ini,$did($dname,1).seltext,Action) == Nothing) { did -ec $dname 10 | did -eu $dname 8,9 }
  183. }
  184. elseif ($did == 2) {
  185. var %BA = $input(Type Nick Address,e,Type Nick Address)
  186. if (%BA) {
  187. var %R = $input(Type Reason (If no have keep it empty),e,Type Reason (If no have keep it empty))
  188. $iif(%R,.writeini -n Blacklist.ini %BA Reason %R,.writeini -n Blacklist.ini %BA Reason No Reason)
  189. .writeini -n Blacklist.ini %BA Action BanKick
  190. did -a $dname 1 %BA
  191. }
  192. }
  193. elseif ($did == 3) && ($did($dname,1).seltext) { .remini -n Blacklist.ini $did($dname,1).seltext | did -d $dname 1 $did($dname,1).sel | if ($ini(Blacklist.ini,0) == 0) { did -ub $dname 8,9,10 } }
  194. elseif ($did == 4) {
  195. var %S = $input(Aure you sure clear all Blacklist?,y,Aure you sure clear all Blacklist?)
  196. if (%S == $true) { did -r $dname 1 | remove Blacklist.ini | did -ub $dname 8,9,10 }
  197. }
  198. elseif ($did == 8) && ($did($dname,1).seltext) { writeini -n Blacklist.ini $did($dname,1).seltext Action Ban | did -c $dname 8 | did -u $dname 9,10 }
  199. elseif ($did == 9) && ($did($dname,1).seltext) { writeini -n Blacklist.ini $did($dname,1).seltext Action BanKick | did -c $dname 9 | did -u $dname 8,10 }
  200. elseif ($did == 10) && ($did($dname,1).seltext) { writeini -n Blacklist.ini $did($dname,1).seltext Action Nothing | did -c $dname 10 | did -u $dname 8,9 }
  201. }
  202. on *:dialog:Reason:sclick:*: { if ($did == 3) { var %Reason = $input(Enter The New Reason,e,Enter The New Reason) | if (%Reason) { .writeini -n Blacklist.ini $did(BL,1).seltext Reason %Reason | did -ra $dname 2 %Reason } } }
  203. dialog FL {
  204. title "ForFera Script Friendlist"
  205. size -1 -1 181 67
  206. option dbu
  207. list 1, 6 10 129 36, sort size
  208. button "Add", 2, 7 48 37 12
  209. button "Del", 3, 47 48 37 12
  210. button "Clear", 4, 87 48 37 12
  211. box "Friend List", 5, 3 1 135 62
  212. box "Action", 6, 140 1 40 47
  213. check "Op", 7, 145 9 18 10
  214. check "Voice", 8, 145 22 25 10
  215. check "Nothing", 9, 145 35 28 10
  216. }
  217. on *:dialog:FL:init:*: { var %x = 1 | while ($ini(Friendlist.ini,%x)) { did -a $dname 1 $ini(Friendlist.ini,%x) | inc %x } | if ($ini(Freindlist.ini,0) == 0) { did -ub $dname 7,8,9 } }
  218. on *:dialog:FL:sclick:*: {
  219. if ($did == 1) && ($did($dname,1).seltext) {
  220. if ($readini(Friendlist.ini,$did($dname,1).seltext,Action) == Op) { did -ec $dname 7 | did -eu $dname 8,9 }
  221. elseif ($readini(Friendlist.ini,$did($dname,1).seltext,Action) == Voice) { did -ec $dname 8 | did -eu $dname 7,9 }
  222. elseif ($readini(Friendlist.ini,$did($dname,1).seltext,Action) == Nothing) { did -ec $dname 9 | did -eu $dname 7,8 }
  223. }
  224. elseif ($did == 2) { var %FA = $input(Type Nick Address,e,Type Nick Address) | if (%FA) { .writeini -n Friendlist.ini %FA Level Nothing | did -a $dname 1 %FA } }
  225. elseif ($did == 3) && ($did($dname,1).seltext) { .remini -n Friendlist.ini $did($dname,1).seltext | did -d $dname 1 $did($dname,1).sel | if ($ini(Freindlist.ini,0) == 0) { did -ub $dname 7,8,9 } }
  226. elseif ($did == 4) { var %S = $input(Aure you sure clear all Friendlist?,y,Aure you sure clear all Friendlist?) | if (%S == $true) { did -r $dname 1 | remove Friendlist.ini | did -ub $dname 7,8,9 } }
  227. elseif ($did == 7) && ($did($dname,1).seltext) { writeini -n Friendlist.ini $did($dname,1).seltext Action Op | did -c $dname 7 | did -u $dname 8,9 }
  228. elseif ($did == 8) && ($did($dname,1).seltext) { writeini -n Friendlist.ini $did($dname,1).seltext Action Voice | did -c $dname 8 | did -u $dname 7,9 }
  229. elseif ($did == 9) && ($did($dname,1).seltext) { writeini -n Friendlist.ini $did($dname,1).seltext Action Nothing | did -c $dname 9 | did -u $dname 7,8 }
  230. }
  231. on *:dialog:Friend:sclick:*: { if ($did == 3) { var %Friend = $input(Enter The Friend Level "Op/Voice",e,Enter The Friend Level "Op/Voice") | if (%Friend == Voice) || (%Friend == Op) { .writeini -n Friendlist.ini $did(FL,1).seltext Level %Friend | did -ra $dname 2 %Friend } | else { .writeini -n Friendlist.ini $did(FL,1).seltext Level Nothing | did -ra $dname 2 Nothing } } }
  232. dialog IL {
  233. title "ForFera Script Infoline"
  234. size -1 -1 141 72
  235. option dbu
  236. list 1, 7 10 129 36, size sort
  237. button "Add", 2, 7 54 37 12
  238. button "Del", 3, 47 54 37 12
  239. button "Clear", 4, 87 54 37 12
  240. text "To See The Infoline Double Click ON The User", 5, 8 46 117 8, center
  241. box "Info Line", 6, 3 1 135 70
  242. }
  243. dialog Info {
  244. title "Infoline Nick Info"
  245. size -1 -1 207 39
  246. option dbu
  247. box "", 1, 2 1 203 35
  248. text "", 2, 6 9 196 8, disable center
  249. button "Edit Info", 3, 6 21 37 12
  250. button "OK", 4, 45 21 37 12, ok
  251. }
  252. on *:dialog:IL:init:*: { var %x = 1 | while ($ini(Infoline.ini,%x)) { did -a $dname 1 $ini(Infoline.ini,%x) | inc %x } }
  253. on *:dialog:IL:dclick:*: { if ($did == 1) && ($did($dname,1).seltext) { dialog -m Info Info | did -ra Info 1 $did($dname,1).seltext Info | did -ra Info 2 $readini(Infoline.ini,$did($dname,1).seltext,Info) } }
  254. on *:dialog:IL:sclick:*: {
  255. if ($did == 2) {
  256. var %ILA = $input(Type Nick Address,e,Type Nick Address)
  257. if (%ILA) {
  258. var %L = $input(Type Line,e,Type Line)
  259. if (%L) {
  260. .writeini -n Infoline.ini %ILA Info %L
  261. did -a $dname 1 %ILA
  262. }
  263. }
  264. }
  265. elseif ($did == 3) && ($did($dname,1).seltext) { .remini -n Infoline.ini $did($dname,1).seltext | did -d $dname 1 $did($dname,1).sel }
  266. elseif ($did == 4) {
  267. var %S = $input(Aure you sure clear all Infoline?,y,Aure you sure clear all Infoline?)
  268. if (%S == $true) { did -r $dname 1 | remove Infoline.ini }
  269. }
  270. }
  271. on *:dialog:Info:sclick:*: { if ($did == 3) { var %Info = $input(Enter The New Info,e,Enter The New Info) | if (%Info) { .writeini -n Infoline.ini $did(IL,1).seltext Info %Info | did -ra $dname 2 %Info } } }
  272. dialog AS {
  273. title "ForFera Script Auth System"
  274. size -1 -1 147 181
  275. option dbu
  276. text "Q Account User", 1, 14 21 38 8, autohs
  277. edit "", 2, 54 19 79 10, center
  278. text "Q Account Pass", 3, 14 31 38 8, autohs
  279. edit "", 4, 54 30 79 10, center
  280. check "Automaticly Join Q ON Connect", 5, 14 41 86 10
  281. box "Q Auth", 6, 10 13 126 41
  282. check "//Mode $me +R = Registered Users Can PME", 7, 14 64 120 8
  283. check "//Mode $me +x = Hide My IP", 8, 14 75 80 9
  284. check "//Mode $me +i = Make Me Invisible", 9, 14 86 96 9
  285. box "Modes", 10, 10 56 127 42
  286. button "Add", 11, 14 109 37 12
  287. button "Del", 12, 14 124 37 12
  288. button "Clear", 13, 14 139 37 12
  289. list 14, 57 108 76 44, size sort
  290. box "Joins", 15, 10 100 128 57
  291. button "Save Settings", 16, 42 161 57 12, ok
  292. box "Auth System", 17, 5 5 138 173
  293. }
  294. on *:dialog:AS:init:*: {
  295. did -a $DName 2 %QAcc
  296. did -a $DName 4 %QPass
  297. if (%AQC == ON) { did -c $DName 5 }
  298. if (%MR == ON) { did -c $DName 7 }
  299. if (%Mx == ON) { did -c $DName 8 }
  300. if (%Mi == ON) { did -c $DName 9 }
  301. var %o = 1
  302. while (%o <= $numtok(%JC,32)) { did -a $DName 14 $gettok(%JC,%o,32) | inc %o }
  303. }
  304. on *:dialog:AS:sclick:*: {
  305. if ($did == 5) { if ($did(5).state != 0) { set %AQC ON } | else { set %AQC OFF } }
  306. elseif ($did == 7) { if ($did(7).state != 0) { set %MR ON } | else { set %MR OFF } }
  307. elseif ($did == 8) { if ($did(8).state != 0) { set %Mx ON } | else { set %Mx OFF } }
  308. elseif ($did == 9) { if ($did(9).state != 0) { set %Mi ON } | else { set %Mi OFF } }
  309. elseif ($did == 11) { var %chn = $input(Type Channel With -#-,e,Type Channel With -#-) | if (%chn) { set %JC $addtok(%JC,$iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn),32) | did -a $DName 14 $iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn) } }
  310. elseif ($did == 12) && ($did($dname,14).seltext) { set %JC $remtok(%JC,$did($DName,14).seltext,32) | did -d $dname 14 $did($dname,14).sel }
  311. elseif ($did == 13) { var %S = $input(Aure you sure clear all Channels?,y,Aure you sure clear all Channels?) if (%S == $true) { did -r $DName 14 | unset %JC } }
  312. elseif ($did == 16) { set %QAcc $did(2) | set %QPass $did(4) }
  313. }
  314. dialog NS {
  315. title "ForFera Script Nick Searcher"
  316. size -1 -1 115 128
  317. option dbu
  318. box "Nick Searcher", 1, 2 2 111 123
  319. edit "", 2, 4 10 90 12, autohs
  320. button "GO", 3, 95 10 15 11
  321. box "Search Results", 4, 4 23 107 99
  322. list 5, 6 32 102 76, size
  323. edit "", 6, 6 109 102 10, read autohs
  324. }
  325. on *:dialog:NS:dclick:5: { if ($did($dname,5).seltext) { query $v1 | whois $v1 } }
  326. on *:dialog:NS:sclick:3: {
  327. if (!$did($dname,2)) { did -ra $dname 6 Error: Type nick. }
  328. else {
  329. did -b $dname 3 | did -r $dname 5 | did -ra $dname 6 Searching ... | var %m = 1, %n = 1 | if ($exists(nicks.txt)) .remove nicks.txt | :CHECK
  330. while ($nick($chan(%n),%m)) { if ($did(2) isin $v1) && (!$read(nicks.txt, w, $v2)) { .write nicks.txt $nick($chan(%n),%m) | did -a $dname 5 $nick($chan(%n),%m) } | inc %m }
  331. if ($chan($calc(%n + 1))) { var %m 1 | inc %n | GOTO CHECK }
  332. else { did -e $dname 3 | did -ra $dname 6 $iif($lines(nicks.txt) > 0,Number Of Results: $lines(nicks.txt),No results for $did(2)) }
  333. }
  334. }
  335. dialog GH {
  336. title "GatherBot Helper"
  337. size -1 -1 84 86
  338. option dbu
  339. box "GatherBot Helper", 1, 3 2 78 80
  340. button "CS-1.6", 2, 9 13 68 12
  341. button "CS-CZ", 3, 9 28 68 12
  342. button "CS-Source", 4, 9 43 68 12
  343. button "OK", 5, 24 62 37 12, ok
  344. }
  345. on *:dialog:GH:sclick:*: { if ($did == 2) { dialog -m CS1.6 CS1.6 } | elseif ($did == 3) { dialog -m CSCZ CSCZ } | elseif ($did == 4) { dialog -m CSS CSS } }
  346. dialog CS1.6 {
  347. title "ForFera Script GatherBot 1.6 Helper"
  348. size -1 -1 167 170
  349. option dbu
  350. tab "Settings", 1, 4 4 158 160
  351. text "Set GatherBot #1", 2, 10 24 43 8, tab 1
  352. edit "", 3, 55 23 103 10, tab 1 center autohs
  353. text "Set GatherBot #2", 4, 10 35 43 8, tab 1
  354. edit "", 5, 55 34 103 10, tab 1 center autohs
  355. text "Set GatherBot #3", 6, 10 46 43 8, tab 1
  356. edit "", 7, 55 45 103 10, tab 1 center autohs
  357. text "Set GatherBot #4", 8, 10 57 43 8, tab 1
  358. edit "", 9, 55 56 103 10, tab 1 center autohs
  359. text "Set GatherBot #1 Sign", 10, 10 68 55 8, tab 1
  360. edit "", 11, 67 67 16 10, tab 1 center autohs
  361. text "Set GatherBot #2 Sign", 12, 85 68 55 8, tab 1
  362. edit "", 13, 142 67 16 10, tab 1 center autohs
  363. text "Set GatherBot #3 Sign", 14, 10 79 55 8, tab 1
  364. edit "", 15, 67 78 16 10, tab 1 center autohs
  365. text "Set GatherBot #4 Sign", 16, 85 79 55 8, tab 1
  366. edit "", 17, 142 78 16 10, tab 1 center autohs
  367. button "Set GatherBots + Signs", 18, 78 92 75 12, tab 1
  368. text "The GatherBot Commands Are", 19, 10 117 74 8, tab 1
  369. radio "!Add-A/M/O", 20, 86 111 40 10, tab 1
  370. radio "!Set Admin/Master/Owner", 21, 86 122 73 10, tab 1
  371. button "Channel", 78, 15 92 37 12, tab 1
  372. tab "Admin", 22
  373. button "-=> Run a Gather <=-", 23, 10 24 147 12, tab 22
  374. button "Notice", 24, 9 39 33 10, tab 22
  375. edit "", 25, 44 39 113 10, tab 22 center autohs
  376. button "AMsg", 26, 9 51 33 10, tab 22
  377. edit "", 27, 44 51 113 10, tab 22 center autohs
  378. button "Map", 28, 9 63 33 10, tab 22
  379. edit "", 29, 44 63 113 10, tab 22 center autohs
  380. edit "User Name", 30, 14 85 70 10, tab 22 center autohs
  381. edit "User Password", 31, 14 97 70 10, tab 22 center autohs
  382. button "Login Bots", 32, 14 109 69 12, tab 22
  383. button "Logout Bots", 33, 14 123 69 12, tab 22
  384. box "Log In/Out Bots", 34, 10 76 79 65, tab 22
  385. tab "Master", 35
  386. button "-=> Run a Gather <=-", 36, 10 24 147 12, tab 35
  387. button "Notice", 37, 9 39 33 10, tab 35
  388. edit "", 38, 44 39 113 10, tab 35 center autohs
  389. button "AMsg", 39, 9 51 33 10, tab 35
  390. edit "", 40, 44 51 113 10, tab 35 center autohs
  391. button "Map", 41, 9 63 33 10, tab 35
  392. edit "", 42, 44 63 113 10, tab 35 center autohs
  393. edit "User Name", 43, 14 85 70 10, tab 35 center autohs
  394. edit "User Password", 44, 14 97 70 10, tab 35 center autohs
  395. button "Login Bots", 45, 14 109 69 12, tab 35
  396. button "Logout Bots", 46, 14 123 69 12, tab 35
  397. box "Log In/Out Bots", 47, 10 76 79 65, tab 35
  398. button "Add/Del Admin", 48, 97 87 56 43, tab 35
  399. tab "Owner", 49
  400. button "-=> Run a Gather <=-", 50, 10 24 147 12, tab 49
  401. button "Notice", 51, 9 39 33 10, tab 49
  402. edit "", 52, 44 39 113 10, tab 49 center autohs
  403. button "AMsg", 53, 9 51 33 10, tab 49
  404. edit "", 54, 44 51 113 10, tab 49 center autohs
  405. button "Map", 55, 9 63 33 10, tab 49
  406. edit "", 56, 44 63 113 10, tab 49 center autohs
  407. edit "User Name", 57, 14 85 70 10, tab 49 center
  408. edit "User Password", 58, 14 97 70 10, tab 49 center
  409. button "Login Bots", 59, 14 109 69 12, tab 49
  410. button "Logout Bots", 60, 14 123 69 12, tab 49
  411. box "Log In/Out Bots", 61, 10 76 79 65, tab 49
  412. button "Add/Del", 62, 97 87 56 43, tab 49
  413. tab "Manager", 63
  414. button "-=> Run a Gather <=-", 64, 10 24 147 12, tab 63
  415. button "Notice", 65, 9 39 33 10, tab 63
  416. edit "", 66, 44 39 113 10, tab 63 center autohs
  417. button "AMsg", 67, 9 51 33 10, tab 63
  418. edit "", 68, 44 51 113 10, tab 63 center autohs
  419. button "Map", 69, 9 63 33 10, tab 63
  420. edit "", 70, 44 63 113 10, tab 63 center autohs
  421. edit "User Name", 71, 14 85 70 10, tab 63 center autohs
  422. edit "User Password", 72, 14 97 70 10, tab 63 center autohs
  423. button "Login Bots", 73, 14 109 69 12, tab 63
  424. button "Logout Bots", 74, 14 123 69 12, tab 63
  425. box "Log In/Out Bots", 75, 10 76 79 65, tab 63
  426. button "Add/Del", 76, 97 87 56 43, tab 63
  427. button "OK/Close", 77, 43 146 81 12, ok
  428. }
  429. on *:dialog:CS1.6:init:*: { did -a $DName 3 %GB1 | did -a $DName 5 %GB2 | did -a $DName 7 %GB3 | did -a $DName 9 %GB4 | did -a $DName 11 %GBS1 | did -a $DName 13 %GBS2 | did -a $DName 15 %GBS3 | did -a $DName 17 %GBS4 | if (%AS == 1) { did -c $DName 20 } | elseif (%AS == 2) { did -c $DName 21 } }
  430. on *:dialog:CS1.6:sclick:*: {
  431. if ($did == 18) { set %GB1 $did(3) | set %GB2 $did(5) | set %GB3 $did(7) | set %GB4 $did(9) | set %GBS1 $did(11) | set %GBS2 $did(13) | set %GBS3 $did(15) | set %GBS4 $did(17) }
  432. elseif ($did == 20) { set %AS 1 }
  433. elseif ($did == 21) { set %AS 2 }
  434. elseif ($did == 23) { dialog -m RG RG }
  435. elseif ($did == 24) { msg %GHC !Notice $did(25) }
  436. elseif ($did == 26) { amsg $did(27) }
  437. elseif ($did == 28) { msg %GHC !map $did(29) }
  438. elseif ($did == 32) { msg %GB1 %GBS1 $+ Login $did(30) $did(31) | .timer 1 0.5 msg %GB2 %GBS2 $+ Login $did(30) $did(31) | .timer 1 1.5 msg %GB3 %GBS3 $+ Login $did(30) $did(31) | .timer 1 2 msg %GB4 %GBS4 $+ Login $did(30) $did(31) }
  439. elseif ($did == 33) { msg %GB1 %GBS1 $+ Logout | .timer 1 0.5 msg %GB2 %GBS2 $+ Logout | .timer 1 1.5 msg %GB3 %GBS3 $+ Logout | .timer 1 2.0 msg %GB4 %GBS4 $+ Logout }
  440. elseif ($did == 36) { dialog -m RG RG }
  441. elseif ($did == 37) { msg %GHC !Notice $did(38) }
  442. elseif ($did == 39) { amsg $did(40) }
  443. elseif ($did == 41) { msg %GHC !map $did(42) }
  444. elseif ($did == 45) { msg %GB1 %GBS1 $+ Login $did(43) $did(44) | .timer 1 0.5 msg %GB2 %GBS2 $+ Login $did(43) $did(44) | .timer 1 1.5 msg %GB3 %GBS3 $+ Login $did(43) $did(44) | .timer 1 2 msg %GB4 %GBS4 $+ Login $did(43) $did(44) }
  445. elseif ($did == 46) { msg %GB1 %GBS1 $+ Logout | .timer 1 0.5 msg %GB2 %GBS2 $+ Logout | .timer 1 1.5 msg %GB3 %GBS3 $+ Logout | .timer 1 2.0 msg %GB4 %GBS4 $+ Logout }
  446. elseif ($did == 48) { dialog -m ADM ADM }
  447. elseif ($did == 50) { dialog -m RG RG }
  448. elseif ($did == 51) { msg %GHC !Notice $did(52) }
  449. elseif ($did == 53) { amsg $did(54) }
  450. elseif ($did == 55) { msg %GHC !map $did(56) }
  451. elseif ($did == 59) { msg %GB1 %GBS1 $+ Login $did(57) $did(58) | .timer 1 0.5 msg %GB2 %GBS2 $+ Login $did(57) $did(58) | .timer 1 1.5 msg %GB3 %GBS3 $+ Login $did(57) $did(58) | .timer 1 2 msg %GB4 %GBS4 $+ Login $did(57) $did(58) }
  452. elseif ($did == 60) { msg %GB1 %GBS1 $+ Logout | .timer 1 0.5 msg %GB2 %GBS2 $+ Logout | .timer 1 1.5 msg %GB3 %GBS3 $+ Logout | .timer 1 2.0 msg %GB4 %GBS4 $+ Logout }
  453. elseif ($did == 62) { dialog -m ADO ADO }
  454. elseif ($did == 64) { dialog -m RG RG }
  455. elseif ($did == 65) { msg %GHC !Notice $did(66) }
  456. elseif ($did == 67) { amsg $did(68) }
  457. elseif ($did == 69) { msg %GHC !map $did(70) }
  458. elseif ($did == 73) { msg %GB1 %GBS1 $+ Login $did(71) $did(72) | .timer 1 0.5 msg %GB2 %GBS2 $+ Login $did(71) $did(72) | .timer 1 1.5 msg %GB3 %GBS3 $+ Login $did(71) $did(72) | .timer 1 2 msg %GB4 %GBS4 $+ Login $did(71) $did(72) }
  459. elseif ($did == 74) { msg %GB1 %GBS1 $+ Logout | .timer 1 0.5 msg %GB2 %GBS2 $+ Logout | .timer 1 1.5 msg %GB3 %GBS3 $+ Logout | .timer 1 2.0 msg %GB4 %GBS4 $+ Logout }
  460. elseif ($did == 76) { dialog -m ADMR ADMR }
  461. elseif ($did == 78) { var %SGHC = $input(Type Channel With -#-,e,Type Channel With -#-) | set %GHC %SGHC | join %GHC }
  462. }
  463. dialog ADM {
  464. title "Master Gather Helper Add/Del"
  465. size -1 -1 181 99
  466. option dbu
  467. edit "User Name", 2, 10 12 74 10, center autohs
  468. edit "User Password", 3, 10 23 74 10, center autohs
  469. edit "User SteamID", 4, 10 34 74 10, center autohs
  470. box "Add Admin", 1, 5 4 84 92
  471. button "Add To GatherBot #1", 5, 10 46 74 10
  472. button "Add To GatherBot #2", 6, 10 58 74 10
  473. button "Add To GatherBot #3", 7, 10 70 74 10
  474. button "Add To GatherBot #4", 8, 10 82 74 10
  475. box "Del Admin", 9, 94 4 84 70
  476. edit "User Name", 10, 99 12 74 10, center autohs
  477. button "Del From GatherBot #1", 11, 99 24 74 10
  478. button "Del From GatherBot #2", 12, 99 36 74 10
  479. button "Del From GatherBot #3", 13, 99 48 74 10
  480. button "Del From GatherBot #4", 14, 99 60 74 10
  481. }
  482. on *:dialog:ADM:sclick:*: {
  483. if ($did == 5) {
  484. if (%AS == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  485. elseif (%AS == 2) { msg %GB1 %GBS1 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  486. }
  487. elseif ($did == 6) {
  488. if (%AS == 1) { msg %GB2 %GBS2 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  489. elseif (%AS == 2) { msg %GB2 %GBS2 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  490. }
  491. elseif ($did == 7) {
  492. if (%AS == 1) { msg %GB3 %GBS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  493. elseif (%AS == 2) { msg %GB3 %GBS3 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  494. }
  495. elseif ($did == 8) {
  496. if (%AS == 1) { msg %GB4 %GBS4 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  497. elseif (%AS == 2) { msg %GB4 %GBS4 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADM ADM }
  498. }
  499. elseif ($did == 11) {
  500. if (%AS == 1) { msg %GB1 %GBS1 $+ Del-A $did(10) | dialog -c ADM ADM }
  501. elseif (%AS == 2) { msg %GB1 %GBS1 $+ Set UnAdmin $did(10) | dialog -c ADM ADM }
  502. }
  503. elseif ($did == 12) {
  504. if (%AS == 1) { msg %GB2 %GBS2 $+ Del-A $did(10) | dialog -c ADM ADM }
  505. elseif (%AS == 2) { msg %GB2 %GBS2 $+ Set UnAdmin $did(10) | dialog -c ADM ADM }
  506. }
  507. elseif ($did == 13) {
  508. if (%AS == 1) { msg %GB3 %GBS3 $+ Del-A $did(10) | dialog -c ADM ADM }
  509. elseif (%AS == 2) { msg %G3 %GBS3 $+ Set UnAdmin $did(10) | dialog -c ADM ADM }
  510. }
  511. elseif ($did == 14) {
  512. if (%AS == 1) { msg %GB4 %GBS4 $+ Del-A $did(10) | dialog -c ADM ADM }
  513. elseif (%AS == 2) { msg %GB4 %GBS4 $+ Set UnAdmin $did(10) | dialog -c ADM ADM }
  514. }
  515. }
  516. dialog ADO {
  517. title "Owner Gather Helper Add/Del"
  518. size -1 -1 181 100
  519. option dbu
  520. edit "User Name", 2, 10 12 74 10, center autohs
  521. edit "User Password", 3, 10 23 74 10, center autohs
  522. edit "User SteamID", 4, 10 34 74 10, center autohs
  523. box "Add", 1, 5 4 84 92
  524. button "Add To GatherBot #1", 5, 10 46 74 10
  525. button "Add To GatherBot #2", 6, 10 58 74 10
  526. button "Add To GatherBot #3", 7, 10 70 74 10
  527. button "Add To GatherBot #4", 8, 10 82 74 10
  528. box "Del", 9, 94 4 84 70
  529. edit "User Name", 10, 99 12 74 10, center autohs
  530. button "Del From GatherBot #1", 11, 99 24 74 10
  531. button "Del From GatherBot #2", 12, 99 36 74 10
  532. button "Del From GatherBot #3", 13, 99 48 74 10
  533. button "Del From GatherBot #4", 14, 99 60 74 10
  534. radio "Admin", 15, 94 76 28 10
  535. radio "Master", 16, 126 76 31 10
  536. }
  537. on *:dialog:ADO:sclick:*: {
  538. if ($did == 5) {
  539. if (%AS == 1) {
  540. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  541. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  542. }
  543. elseif (%AS == 2) {
  544. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Set Admin $did(2) $did(3) $did(4) }
  545. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Set Master $did(2) $did(3) $did(4) }
  546. }
  547. }
  548. elseif ($did == 6) {
  549. if (%AS == 1) {
  550. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  551. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  552. }
  553. elseif (%AS == 2) {
  554. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Set Admin $did(2) $did(3) $did(4) }
  555. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Set Master $did(2) $did(3) $did(4) }
  556. }
  557. }
  558. elseif ($did == 7) {
  559. if (%AS == 1) {
  560. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  561. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  562. }
  563. elseif (%AS == 2) {
  564. if (%ADO2 == 1) { msg %GB2 %GBS2 $+ Set Admin $did(2) $did(3) $did(4) }
  565. elseif (%ADO2 == 2) { msg %GB2 %GBS2 $+ Set Master $did(2) $did(3) $did(4) }
  566. }
  567. }
  568. elseif ($did == 8) {
  569. if (%AS == 1) {
  570. if (%ADO2 == 1) { msg %GB3 %GBS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  571. elseif (%ADO2 == 2) { msg %GB3 %GBS3 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  572. }
  573. elseif (%AS == 2) {
  574. if (%ADO2 == 1) { msg %GB4 %GBS4 $+ Set Admin $did(2) $did(3) $did(4) }
  575. elseif (%ADO2 == 2) { msg %GB4 %GBS4 $+ Set Master $did(2) $did(3) $did(4) }
  576. }
  577. }
  578. elseif ($did == 11) {
  579. if (%AS == 1) {
  580. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Del-A $did(10) | dialog -c ADO ADO }
  581. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Del-M $did(10) | dialog -c ADO ADO }
  582. }
  583. elseif (%AS == 2) {
  584. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Set UnAdmin $did(10) }
  585. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Set UnMaster $did(10) }
  586. }
  587. }
  588. elseif ($did == 12) {
  589. if (%AS == 1) {
  590. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Del-A $did(10) | dialog -c ADO ADO }
  591. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Del-M $did(10) | dialog -c ADO ADO }
  592. }
  593. elseif (%AS == 2) {
  594. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Set UnAdmin $did(10) }
  595. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Set UnMaster $did(10) }
  596. }
  597. }
  598. elseif ($did == 13) {
  599. if (%AS == 1) {
  600. if (%ADO2 == 1) { msg %GB1 %GBS1 $+ Del-A $did(10) | dialog -c ADO ADO }
  601. elseif (%ADO2 == 2) { msg %GB1 %GBS1 $+ Del-M $did(10) | dialog -c ADO ADO }
  602. }
  603. elseif (%AS == 2) {
  604. if (%ADO2 == 1) { msg %GB2 %GBS2 $+ Set UnAdmin $did(10) }
  605. elseif (%ADO2 == 2) { msg %GB2 %GBS2 $+ Set UnMaster $did(10) }
  606. }
  607. }
  608. elseif ($did == 14) {
  609. if (%AS == 1) {
  610. if (%ADO2 == 1) { msg %GB3 %GBS3 $+ Del-A $did(10) | dialog -c ADO ADO }
  611. elseif (%ADO2 == 2) { msg %GB3 %GBS3 $+ Del-M $did(10) | dialog -c ADO ADO }
  612. }
  613. elseif (%AS == 2) {
  614. if (%ADO2 == 1) { msg %GB4 %GBS4 $+ Set UnAdmin $did(10) }
  615. elseif (%ADO2 == 2) { msg %GB4 %GBS4 $+ Set UnMaster $did(10) }
  616. }
  617. }
  618. elseif ($did == 15) { set %ADO2 1 }
  619. elseif ($did == 16) { set %ADO2 2 }
  620. }
  621. dialog ADMR {
  622. title "Manager Gather Helper Add/Del"
  623. size -1 -1 181 100
  624. option dbu
  625. edit "User Name", 2, 10 12 74 10, center autohs
  626. edit "User Password", 3, 10 23 74 10, center autohs
  627. edit "User SteamID", 4, 10 34 74 10, center autohs
  628. box "Add", 1, 5 4 84 92
  629. button "Add To GatherBot #1", 5, 10 46 74 10
  630. button "Add To GatherBot #2", 6, 10 58 74 10
  631. button "Add To GatherBot #3", 7, 10 70 74 10
  632. button "Add To GatherBot #4", 8, 10 82 74 10
  633. box "Del", 9, 94 4 84 70
  634. edit "User Name", 10, 99 12 74 10, center autohs
  635. button "Del From GatherBot #1", 11, 99 24 74 10
  636. button "Del From GatherBot #2", 12, 99 36 74 10
  637. button "Del From GatherBot #3", 13, 99 48 74 10
  638. button "Del From GatherBot #4", 14, 99 60 74 10
  639. radio "Admin", 15, 94 76 28 10
  640. radio "Master", 16, 126 76 31 10
  641. radio "Owner", 17, 94 88 27 10
  642. radio "Manager", 18, 126 88 33 10
  643. }
  644. on *:dialog:ADMR:sclick:*: {
  645. if ($did == 5) {
  646. if (%ASMR2 == 1) {
  647. if (%ADMR2 == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  648. elseif (%ADMR2 == 2) { msg %GB1 %GBS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  649. elseif (%ADMR2 == 3) { msg %GB1 %GBS1 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  650. elseif (%ADMR2 == 4) { msg %GB1 %GBS1 $+ Add-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  651. }
  652. elseif (%AS == 2) {
  653. if (%ADMR2 == 1) { msg %GB1 %GBS1 $+ Set Admin $did(2) $did(3) $did(4) }
  654. elseif (%ADMR2 == 2) { msg %GB1 %GBS1 $+ Set Master $did(2) $did(3) $did(4) }
  655. elseif (%ADMR2 == 3) { msg %GB1 %GBS1 $+ Set Owner $did(2) $did(3) $did(4) }
  656. elseif (%ADMR2 == 4) { msg %GB1 %GBS1 $+ Set Manager $did(2) $did(3) $did(4) }
  657. }
  658. }
  659. elseif ($did == 6) {
  660. if (%AS == 1) {
  661. if (%ADMR2 == 1) { msg %GB2 %GBS2 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  662. elseif (%ADMR2 == 2) { msg %GB2 %GBS2 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  663. elseif (%ADMR2 == 3) { msg %GB2 %GBS2 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  664. elseif (%ADMR2 == 4) { msg %GB2 %GBS2 $+ Add-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  665. }
  666. elseif (%AS == 2) {
  667. if (%ADMR2 == 1) { msg %GB3 %GBS3 $+ Set Admin $did(2) $did(3) $did(4) }
  668. elseif (%ADMR2 == 2) { msg %GB3 %GBS3 $+ Set Master $did(2) $did(3) $did(4) }
  669. elseif (%ADMR2 == 3) { msg %GB3 %GBS3 $+ Set Owner $did(2) $did(3) $did(4) }
  670. elseif (%ADMR2 == 4) { msg %GB3 %GBS3 $+ Set Manager $did(2) $did(3) $did(4) }
  671. }
  672. }
  673. elseif ($did == 7) {
  674. if (%AS == 1) {
  675. if (%ADMR2 == 1) { msg %GB3 %GBS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  676. elseif (%ADMR2 == 2) { msg %GB3 %GBS3 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  677. elseif (%ADMR2 == 3) { msg %GB3 %GBS3 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  678. elseif (%ADMR2 == 4) { msg %GB3 %GBS3 $+ Add-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  679. }
  680. elseif (%AS == 2) {
  681. if (%ADMR2 == 1) { msg %GB3 %GBS3 $+ Set Admin $did(2) $did(3) $did(4) }
  682. elseif (%ADMR2 == 2) { msg %GB3 %GBS3 $+ Set Master $did(2) $did(3) $did(4) }
  683. elseif (%ADMR2 == 3) { msg %GB3 %GBS3 $+ Set Owner $did(2) $did(3) $did(4) }
  684. elseif (%ADMR2 == 4) { msg %GB3 %GBS3 $+ Set Manager $did(2) $did(3) $did(4) }
  685. }
  686. }
  687. elseif ($did == 8) {
  688. if (%AS == 1) {
  689. if (%ADMR2 == 1) { msg %GB4 %GBS4 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  690. elseif (%ADMR2 == 2) { msg %GB4 %GBS4 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  691. elseif (%ADMR2 == 3) { msg %GB4 %GBS4 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  692. elseif (%ADMR2 == 4) { msg %GB4 %GBS4 $+ Add-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  693. }
  694. elseif (%AS == 2) {
  695. if (%ADMR2 == 1) { msg %GB4 %GBS4 $+ Set Admin $did(2) $did(3) $did(4) }
  696. elseif (%ADMR2 == 2) { msg %GB4 %GBS4 $+ Set Master $did(2) $did(3) $did(4) }
  697. elseif (%ADMR2 == 3) { msg %GB4 %GBS4 $+ Set Owner $did(2) $did(3) $did(4) }
  698. elseif (%ADMR2 == 4) { msg %GB4 %GBS4 $+ Set Manager $did(2) $did(3) $did(4) }
  699. }
  700. }
  701. elseif ($did == 11) {
  702. if (%AS == 1) {
  703. if (%ADMR2 == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  704. elseif (%ADMR2 == 2) { msg %GB1 %GBS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  705. elseif (%ADMR2 == 3) { msg %GB1 %GBS1 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  706. elseif (%ADMR2 == 4) { msg %GB1 %GBS1 $+ Add-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  707. }
  708. elseif (%AS == 2) {
  709. if (%ADMR2 == 1) { msg %GB1 %GBS1 $+ Set Admin $did(2) $did(3) $did(4) }
  710. elseif (%ADMR2 == 2) { msg %GB1 %GBS1 $+ Set Master $did(2) $did(3) $did(4) }
  711. elseif (%ADMR2 == 3) { msg %GB1 %GBS1 $+ Set Owner $did(2) $did(3) $did(4) }
  712. elseif (%ADMR2 == 4) { msg %GB1 %GBS1 $+ Set Manager $did(2) $did(3) $did(4) }
  713. }
  714. }
  715. elseif ($did == 12) {
  716. if (%AS == 1) {
  717. if (%ADMR2 == 1) { msg %GB2 %GBS2 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  718. elseif (%ADMR2 == 2) { msg %GB2 %GBS2 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  719. elseif (%ADMR2 == 3) { msg %GB2 %GBS2 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  720. elseif (%ADMR2 == 4) { msg %GB2 %GBS2 $+ Add-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  721. }
  722. elseif (%AS == 2) {
  723. if (%ADMR2 == 1) { msg %GB2 %GBS2 $+ Set Admin $did(2) $did(3) $did(4) }
  724. elseif (%ADMR2 == 2) { msg %GB2 %GBS2 $+ Set Master $did(2) $did(3) $did(4) }
  725. elseif (%ADMR2 == 3) { msg %GB2 %GBS2 $+ Set Owner $did(2) $did(3) $did(4) }
  726. elseif (%ADMR2 == 4) { msg %GB2 %GBS2 $+ Set Manager $did(2) $did(3) $did(4) }
  727. }
  728. }
  729. elseif ($did == 13) {
  730. if (%AS == 1) {
  731. if (%ADMR2 == 1) { msg %GB3 %GBS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  732. elseif (%ADMR2 == 2) { msg %GB3 %GBS3 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  733. elseif (%ADMR2 == 3) { msg %GB3 %GBS3 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  734. elseif (%ADMR2 == 4) { msg %GB3 %GBS3 $+ Add-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  735. }
  736. elseif (%AS == 2) {
  737. if (%ADMR2 == 1) { msg %GB3 %GBS3 $+ Set Admin $did(2) $did(3) $did(4) }
  738. elseif (%ADMR2 == 2) { msg %GB3 %GBS3 $+ Set Master $did(2) $did(3) $did(4) }
  739. elseif (%ADMR2 == 3) { msg %GB3 %GBS3 $+ Set Owner $did(2) $did(3) $did(4) }
  740. elseif (%ADMR2 == 4) { msg %GB3 %GBS3 $+ Set Manager $did(2) $did(3) $did(4) }
  741. }
  742. }
  743. elseif ($did == 14) {
  744. if (%AS == 1) {
  745. if (%ADMR2 == 1) { msg %GB4 %GBS4 $+ Del-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  746. elseif (%ADMR2 == 2) { msg %GB4 %GBS4 $+ Del-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  747. elseif (%ADMR2 == 3) { msg %GB4 %GBS4 $+ Del-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  748. elseif (%ADMR2 == 4) { msg %GB4 %GBS4 $+ Del-Manager $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  749. }
  750. elseif (%AS == 2) {
  751. if (%ADMR2 == 1) { msg %GB4 %GBS4 $+ Set UnAdmin $did(2) $did(3) $did(4) }
  752. elseif (%ADMR2 == 2) { msg %GB4 %GBS4 $+ Set UnMaster $did(2) $did(3) $did(4) }
  753. elseif (%ADMR2 == 3) { msg %GB4 %GBS4 $+ Set UnOwner $did(2) $did(3) $did(4) }
  754. elseif (%ADMR2 == 4) { msg %GB4 %GBS4 $+ Set UnManager $did(2) $did(3) $did(4) }
  755. }
  756. }
  757. elseif ($did == 15) { set %ADMR2 1 }
  758. elseif ($did == 16) { set %ADMR2 2 }
  759. elseif ($did == 17) { set %ADMR2 3 }
  760. elseif ($did == 18) { set %ADMR2 4 }
  761. }
  762. dialog RG {
  763. title "Run Gather 1.6"
  764. size -1 -1 96 112
  765. option dbu
  766. text "Pass Server", 1, 8 12 29 8
  767. edit "", 2, 39 11 49 10, center autohs
  768. text "Pass A", 3, 8 23 18 8
  769. edit "", 4, 28 22 60 10, center autohs
  770. text "Pass B", 5, 8 34 18 8
  771. edit "", 6, 28 33 60 10, center autohs
  772. button "Map", 7, 29 46 37 12
  773. button "Run At GatherBot #1", 8, 8 62 80 9
  774. button "Run At GatherBot #2", 9, 8 73 80 9
  775. button "Run At GatherBot #3", 10, 8 84 80 9
  776. button "Run At GatherBot #4", 11, 8 95 80 9
  777. box "Run Gather", 12, 3 2 90 107
  778. }
  779. on *:dialog:RG:init:*: { did -a $DName 2 %GPS | did -a $DName 4 %GPA | did -a $DName 6 %GPB }
  780. on *:dialog:RG:sclick:*: {
  781. if ($did == 7) { dialog -m RGM RGM }
  782. elseif ($did == 8) { set %GPS $did(2) | set %GPA $did(4) | set %GPB $did(6) | msg %GB1 %GBS1 $+ Start %GM %GPS %GPA %GPB | dialog -c RG RG }
  783. elseif ($did == 9) { set %GPS $did(2) | set %GPA $did(4) | set %GPB $did(6) | msg %GB2 %GBS2 $+ Start %GM %GPS %GPA %GPB | dialog -c RG RG }
  784. elseif ($did == 10) { set %GPS $did(2) | set %GPA $did(4) | set %GPB $did(6) | msg %GB3 %GBS3 $+ Start %GM %GPS %GPA %GPB | dialog -c RG RG }
  785. elseif ($did == 11) { set %GPS $did(2) | set %GPA $did(4) | set %GPB $did(6) | msg %GB4 %GBS4 $+ Start %GM %GPS %GPA %GPB | dialog -c RG RG }
  786. }
  787. dialog CSS {
  788. title "ForFera Script GatherBot Source Helper"
  789. size -1 -1 167 170
  790. option dbu
  791. tab "Settings", 1, 4 4 158 160
  792. text "Set GatherBot #1", 2, 10 24 43 8, tab 1
  793. edit "", 3, 55 23 103 10, tab 1 center autohs
  794. text "Set GatherBot #2", 4, 10 35 43 8, tab 1
  795. edit "", 5, 55 34 103 10, tab 1 center autohs
  796. text "Set GatherBot #3", 6, 10 46 43 8, tab 1
  797. edit "", 7, 55 45 103 10, tab 1 center autohs
  798. text "Set GatherBot #4", 8, 10 57 43 8, tab 1
  799. edit "", 9, 55 56 103 10, tab 1 center autohs
  800. text "Set GatherBot #1 Sign", 10, 10 68 55 8, tab 1
  801. edit "", 11, 67 67 16 10, tab 1 center autohs
  802. text "Set GatherBot #2 Sign", 12, 85 68 55 8, tab 1
  803. edit "", 13, 142 67 16 10, tab 1 center autohs
  804. text "Set GatherBot #3 Sign", 14, 10 79 55 8, tab 1
  805. edit "", 15, 67 78 16 10, tab 1 center autohs
  806. text "Set GatherBot #4 Sign", 16, 85 79 55 8, tab 1
  807. edit "", 17, 142 78 16 10, tab 1 center autohs
  808. button "Set GatherBots + Signs", 18, 78 92 75 12, tab 1
  809. text "The GatherBot Commands Are", 19, 10 117 74 8, tab 1
  810. radio "!Add-A/M/O", 20, 86 111 40 10, tab 1
  811. radio "!Set Admin/Master/Owner", 21, 86 122 73 10, tab 1
  812. button "Channel", 78, 15 92 37 12, tab 1
  813. tab "Admin", 22
  814. button "-=> Run a Gather <=-", 23, 10 24 147 12, tab 22
  815. button "Notice", 24, 9 39 33 10, tab 22
  816. edit "", 25, 44 39 113 10, tab 22 center autohs
  817. button "AMsg", 26, 9 51 33 10, tab 22
  818. edit "", 27, 44 51 113 10, tab 22 center autohs
  819. button "Map", 28, 9 63 33 10, tab 22
  820. edit "", 29, 44 63 113 10, tab 22 center autohs
  821. edit "User Name", 30, 14 85 70 10, tab 22 center autohs
  822. edit "User Password", 31, 14 97 70 10, tab 22 center autohs
  823. button "Login Bots", 32, 14 109 69 12, tab 22
  824. button "Logout Bots", 33, 14 123 69 12, tab 22
  825. box "Log In/Out Bots", 34, 10 76 79 65, tab 22
  826. tab "Master", 35
  827. button "-=> Run a Gather <=-", 36, 10 24 147 12, tab 35
  828. button "Notice", 37, 9 39 33 10, tab 35
  829. edit "", 38, 44 39 113 10, tab 35 center autohs
  830. button "AMsg", 39, 9 51 33 10, tab 35
  831. edit "", 40, 44 51 113 10, tab 35 center autohs
  832. button "Map", 41, 9 63 33 10, tab 35
  833. edit "", 42, 44 63 113 10, tab 35 center autohs
  834. edit "User Name", 43, 14 85 70 10, tab 35 center autohs
  835. edit "User Password", 44, 14 97 70 10, tab 35 center autohs
  836. button "Login Bots", 45, 14 109 69 12, tab 35
  837. button "Logout Bots", 46, 14 123 69 12, tab 35
  838. box "Log In/Out Bots", 47, 10 76 79 65, tab 35
  839. button "Add/Del Admin", 48, 97 87 56 43, tab 35
  840. tab "Owner", 49
  841. button "-=> Run a Gather <=-", 50, 10 24 147 12, tab 49
  842. button "Notice", 51, 9 39 33 10, tab 49
  843. edit "", 52, 44 39 113 10, tab 49 center autohs
  844. button "AMsg", 53, 9 51 33 10, tab 49
  845. edit "", 54, 44 51 113 10, tab 49 center autohs
  846. button "Map", 55, 9 63 33 10, tab 49
  847. edit "", 56, 44 63 113 10, tab 49 center autohs
  848. edit "User Name", 57, 14 85 70 10, tab 49 center autohs
  849. edit "User Password", 58, 14 97 70 10, tab 49 center autohs
  850. button "Login Bots", 59, 14 109 69 12, tab 49
  851. button "Logout Bots", 60, 14 123 69 12, tab 49
  852. box "Log In/Out Bots", 61, 10 76 79 65, tab 49
  853. button "Add/Del", 62, 97 87 56 43, tab 49
  854. tab "Manager", 63
  855. button "-=> Run a Gather <=-", 64, 10 24 147 12, tab 63
  856. button "Notice", 65, 9 39 33 10, tab 63
  857. edit "", 66, 44 39 113 10, tab 63 center autohs
  858. button "AMsg", 67, 9 51 33 10, tab 63
  859. edit "", 68, 44 51 113 10, tab 63 center autohs
  860. button "Map", 69, 9 63 33 10, tab 63
  861. edit "", 70, 44 63 113 10, tab 63 center autohs
  862. edit "User Name", 71, 14 85 70 10, tab 63 center autohs
  863. edit "User Password", 72, 14 97 70 10, tab 63 center autohs
  864. button "Login Bots", 73, 14 109 69 12, tab 63
  865. button "Logout Bots", 74, 14 123 69 12, tab 63
  866. box "Log In/Out Bots", 75, 10 76 79 65, tab 63
  867. button "Add/Del", 76, 97 87 56 43, tab 63
  868. button "OK/Close", 77, 43 146 81 12, ok
  869. }
  870. on *:dialog:CSS:init:*: { did -a $DName 3 %GBSource1 | did -a $DName 5 %GBSource2 | did -a $DName 7 %GBSource3 | did -a $DName 9 %GBSource4 | did -a $DName 11 %GBSourceS1 | did -a $DName 13 %GBSourceS2 | did -a $DName 15 %GBSourceS3 | did -a $DName 17 %GBSourceS4 | if (%ASSource == 1) { did -c $DName 20 } | elseif (%ASSource == 2) { did -c $DName 21 } }
  871. on *:dialog:CSS:sclick:*: {
  872. if ($did == 18) { set %GBSource1 $did(3) | set %GBSource2 $did(5) | set %GBSource3 $did(7) | set %GBSource4 $did(9) | set %GBSourceS1 $did(11) | set %GBSourceS2 $did(13) | set %GBSourceS3 $did(15) | set %GBSourceS4 $did(17) }
  873. elseif ($did == 20) { set %ASSource 1 }
  874. elseif ($did == 21) { set %ASSource 2 }
  875. elseif ($did == 23) { dialog -m RGS RGS }
  876. elseif ($did == 24) { msg %GHSourceC !Notice $did(25) }
  877. elseif ($did == 26) { amsg $did(27) }
  878. elseif ($did == 28) { msg %GHSourceC !map $did(29) }
  879. elseif ($did == 32) { msg %GBSource1 %GBSourceS1 $+ Login $did(30) $did(31) | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Login $did(30) $did(31) | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Login $did(30) $did(31) | .timer 1 2 msg %GBSource4 %GBSourceS4 $+ Login $did(30) $did(31) }
  880. elseif ($did == 33) { msg %GBSource1 %GBSourceS1 $+ Logout | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Logout | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Logout | .timer 1 2.0 msg %GBSource4 %GBSourceS4 $+ Logout }
  881. elseif ($did == 36) { dialog -m RGS RGS }
  882. elseif ($did == 37) { msg %GHSourceC !Notice $did(38) }
  883. elseif ($did == 39) { amsg $did(40) }
  884. elseif ($did == 41) { msg %GHSourceC !map $did(42) }
  885. elseif ($did == 45) { msg %GBSource1 %GBSourceS1 $+ Login $did(43) $did(44) | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Login $did(43) $did(44) | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Login $did(43) $did(44) | .timer 1 2 msg %GBSource4 %GBSourceS4 $+ Login $did(43) $did(44) }
  886. elseif ($did == 46) { msg %GBSource1 %GBSourceS1 $+ Logout | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Logout | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Logout | .timer 1 2.0 msg %GBSource4 %GBSourceS4 $+ Logout }
  887. elseif ($did == 48) { dialog -m ADMS ADMS }
  888. elseif ($did == 50) { dialog -m RGS RGS }
  889. elseif ($did == 51) { msg %GHSourceC !Notice $did(52) }
  890. elseif ($did == 53) { amsg $did(54) }
  891. elseif ($did == 55) { msg %GHSourceC !map $did(56) }
  892. elseif ($did == 59) { msg %GBSource1 %GBSourceS1 $+ Login $did(57) $did(58) | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Login $did(57) $did(58) | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Login $did(57) $did(58) | .timer 1 2 msg %GBSource4 %GBSourceS4 $+ Login $did(57) $did(58) }
  893. elseif ($did == 60) { msg %GBSource1 %GBSourceS1 $+ Logout | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Logout | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Logout | .timer 1 2.0 msg %GBSource4 %GBSourceS4 $+ Logout }
  894. elseif ($did == 62) { dialog -m ADOS ADOS }
  895. elseif ($did == 64) { dialog -m RGS RGS }
  896. elseif ($did == 65) { msg %GHSourceC !Notice $did(66) }
  897. elseif ($did == 67) { amsg $did(68) }
  898. elseif ($did == 69) { msg %GHSourceC !map $did(70) }
  899. elseif ($did == 73) { msg %GBSource1 %GBSourceS1 $+ Login $did(71) $did(72) | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Login $did(71) $did(72) | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Login $did(71) $did(72) | .timer 1 2 msg %GBSource4 %GBSourceS4 $+ Login $did(71) $did(72) }
  900. elseif ($did == 74) { msg %GBSource1 %GBSourceS1 $+ Logout | .timer 1 0.5 msg %GBSource2 %GBSourceS2 $+ Logout | .timer 1 1.5 msg %GBSource3 %GBSourceS3 $+ Logout | .timer 1 2.0 msg %GBSource4 %GBSourceS4 $+ Logout }
  901. elseif ($did == 76) { dialog -m ADMRS ADMRS }
  902. elseif ($did == 78) { var %SGHSourceC = $input(Type Channel With -#-,e,Type Channel With -#-) | set %GHSourceC %SGHSourceC | join %GHSourceC }
  903. }
  904. dialog ADMS {
  905. title "Master Gather Helper Add/Del"
  906. size -1 -1 181 99
  907. option dbu
  908. edit "User Name", 2, 10 12 74 10, center autohs
  909. edit "User Password", 3, 10 23 74 10, center autohs
  910. edit "User SteamID", 4, 10 34 74 10, center autohs
  911. box "Add Admin", 1, 5 4 84 92
  912. button "Add To GatherBot #1", 5, 10 46 74 10
  913. button "Add To GatherBot #2", 6, 10 58 74 10
  914. button "Add To GatherBot #3", 7, 10 70 74 10
  915. button "Add To GatherBot #4", 8, 10 82 74 10
  916. box "Del Admin", 9, 94 4 84 70
  917. edit "User Name", 10, 99 12 74 10, center autohs
  918. button "Del From GatherBot #1", 11, 99 24 74 10
  919. button "Del From GatherBot #2", 12, 99 36 74 10
  920. button "Del From GatherBot #3", 13, 99 48 74 10
  921. button "Del From GatherBot #4", 14, 99 60 74 10
  922. }
  923. on *:dialog:ADMS:sclick:*: {
  924. if ($did == 5) {
  925. if (%ASSource == 1) { msg %GBSource1 %GBSourceS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  926. elseif (%ASSource == 2) { msg %GBSource1 %GBSourceS1 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  927. }
  928. elseif ($did == 6) {
  929. if (%ASSource == 1) { msg %GBSource2 %GBSourceS2 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  930. elseif (%ASSource == 2) { msg %GBSource2 %GBSourceS2 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  931. }
  932. elseif ($did == 7) {
  933. if (%ASSource == 1) { msg %GBSource3 %GBSourceS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  934. elseif (%ASSource == 2) { msg %GBSource3 %GBSourceS3 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  935. }
  936. elseif ($did == 8) {
  937. if (%ASSource == 1) { msg %GBSource4 %GBSourceS4 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  938. elseif (%ASSource == 2) { msg %GBSource4 %GBvS4 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADMS ADMS }
  939. }
  940. elseif ($did == 11) {
  941. if (%ASSource == 1) { msg %GBSource1 %GBSourceS1 $+ Del-A $did(10) | dialog -c ADMS ADMS }
  942. elseif (%ASSource == 2) { msg %GBSource1 %GBSourceS1 $+ Set UnAdmin $did(10) | dialog -c ADMS ADMS }
  943. }
  944. elseif ($did == 12) {
  945. if (%ASSource == 1) { msg %GBSource2 %GBSourceS2 $+ Del-A $did(10) | dialog -c ADMS ADMS }
  946. elseif (%ASSource == 2) { msg %GBSource2 %GBSourceS2 $+ Set UnAdmin $did(10) | dialog -c ADMS ADMS }
  947. }
  948. elseif ($did == 13) {
  949. if (%ASSource == 1) { msg %GBSource3 %GBSourceS3 $+ Del-A $did(10) | dialog -c ADMS ADMS }
  950. elseif (%ASSource == 2) { msg %GBSource3 %GBSourceS3 $+ Set UnAdmin $did(10) | dialog -c ADMS ADMS }
  951. }
  952. elseif ($did == 14) {
  953. if (%ASSource == 1) { msg %GBSource4 %GBSourceS4 $+ Del-A $did(10) | dialog -c ADMS ADMS }
  954. elseif (%ASSource == 2) { msg %GBSource4 %GBSourceS4 $+ Set UnAdmin $did(10) | dialog -c ADMS ADMS }
  955. }
  956. }
  957. dialog ADOS {
  958. title "Owner Gather Helper Add/Del"
  959. size -1 -1 181 100
  960. option dbu
  961. edit "User Name", 2, 10 12 74 10, center autohs
  962. edit "User Password", 3, 10 23 74 10, center autohs
  963. edit "User SteamID", 4, 10 34 74 10, center autohs
  964. box "Add", 1, 5 4 84 92
  965. button "Add To GatherBot #1", 5, 10 46 74 10
  966. button "Add To GatherBot #2", 6, 10 58 74 10
  967. button "Add To GatherBot #3", 7, 10 70 74 10
  968. button "Add To GatherBot #4", 8, 10 82 74 10
  969. box "Del", 9, 94 4 84 70
  970. edit "User Name", 10, 99 12 74 10, center autohs
  971. button "Del From GatherBot #1", 11, 99 24 74 10
  972. button "Del From GatherBot #2", 12, 99 36 74 10
  973. button "Del From GatherBot #3", 13, 99 48 74 10
  974. button "Del From GatherBot #4", 14, 99 60 74 10
  975. radio "Admin", 15, 94 76 28 10
  976. radio "Master", 16, 126 76 31 10
  977. }
  978. on *:dialog:ADOS:sclick:*: {
  979. if ($did == 5) {
  980. if (%ASSource == 1) {
  981. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  982. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  983. }
  984. elseif (%ASSource == 2) {
  985. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  986. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Set Master $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  987. }
  988. }
  989. elseif ($did == 6) {
  990. if (%ASSource == 1) {
  991. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  992. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  993. }
  994. elseif (%ASSource == 2) {
  995. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  996. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Set Master $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  997. }
  998. }
  999. elseif ($did == 7) {
  1000. if (%ASSource == 1) {
  1001. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1002. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1003. }
  1004. elseif (%ASSource == 2) {
  1005. if (%ADSO2 == 1) { msg %GBSource2 %GBSourceS2 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1006. elseif (%ADSO2 == 2) { msg %GBSource2 %GBSourceS2 $+ Set Master $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1007. }
  1008. }
  1009. elseif ($did == 8) {
  1010. if (%ASSource == 1) {
  1011. if (%ADSO2 == 1) { msg %GBSource3 %GBSourceS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1012. elseif (%ADSO2 == 2) { msg %GBSource3 %GBSourceS3 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1013. }
  1014. elseif (%ASSource == 2) {
  1015. if (%ADSO2 == 1) { msg %GBSource4 %GBSourceS4 $+ Set Admin $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1016. elseif (%ADSO2 == 2) { msg %GBSource4 %GBSourceS4 $+ Set Master $did(2) $did(3) $did(4) | dialog -c ADOS ADOS }
  1017. }
  1018. }
  1019. elseif ($did == 11) {
  1020. if (%ASSource == 1) {
  1021. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Del-A $did(10) | dialog -c ADOS ADOS }
  1022. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Del-M $did(10) | dialog -c ADOS ADOS }
  1023. }
  1024. elseif (%ASSource == 2) {
  1025. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Set UnAdmin $did(10) | dialog -c ADOS ADOS }
  1026. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Set UnMaster $did(10) | dialog -c ADOS ADOS }
  1027. }
  1028. }
  1029. elseif ($did == 12) {
  1030. if (%ASSource == 1) {
  1031. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Del-A $did(10) | dialog -c ADOS ADOS }
  1032. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Del-M $did(10) | dialog -c ADOS ADOS }
  1033. }
  1034. elseif (%ASSource == 2) {
  1035. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Set UnAdmin $did(10) | dialog -c ADOS ADOS }
  1036. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Set UnMaster $did(10) | dialog -c ADOS ADOS }
  1037. }
  1038. }
  1039. elseif ($did == 13) {
  1040. if (%ASSource == 1) {
  1041. if (%ADSO2 == 1) { msg %GBSource1 %GBSourceS1 $+ Del-A $did(10) | dialog -c ADOS ADOS }
  1042. elseif (%ADSO2 == 2) { msg %GBSource1 %GBSourceS1 $+ Del-M $did(10) | dialog -c ADOS ADOS }
  1043. }
  1044. elseif (%ASSource == 2) {
  1045. if (%ADSO2 == 1) { msg %GBSource2 %GBSourceS2 $+ Set UnAdmin $did(10) | dialog -c ADOS ADOS }
  1046. elseif (%ADSO2 == 2) { msg %GBSource2 %GBSourceS2 $+ Set UnMaster $did(10) | dialog -c ADOS ADOS }
  1047. }
  1048. }
  1049. elseif ($did == 14) {
  1050. if (%ASSource == 1) {
  1051. if (%ADSO2 == 1) { msg %GBSource3 %GBSourceS3 $+ Del-A $did(10) | dialog -c ADOS ADOS }
  1052. elseif (%ADSO2 == 2) { msg %GBSource3 %GBSourceS3 $+ Del-M $did(10) | dialog -c ADOS ADOS }
  1053. }
  1054. elseif (%ASSource == 2) {
  1055. if (%ADSO2 == 1) { msg %GBSource4 %GBSourceS4 $+ Set UnAdmin $did(10) | dialog -c ADOS ADOS }
  1056. elseif (%ADSO2 == 2) { msg %GBSource4 %GBSourceS4 $+ Set UnMaster $did(10) | dialog -c ADOS ADOS }
  1057. }
  1058. }
  1059. elseif ($did == 15) { set %ADSO2 1 }
  1060. elseif ($did == 16) { set %ADSO2 2 }
  1061. }
  1062. dialog ADMRS {
  1063. title "Manager Gather Helper Add/Del"
  1064. size -1 -1 181 100
  1065. option dbu
  1066. edit "User Name", 2, 10 12 74 10, center autohs
  1067. edit "User Password", 3, 10 23 74 10, center autohs
  1068. edit "User SteamID", 4, 10 34 74 10, center autohs
  1069. box "Add", 1, 5 4 84 92
  1070. button "Add To GatherBot #1", 5, 10 46 74 10
  1071. button "Add To GatherBot #2", 6, 10 58 74 10
  1072. button "Add To GatherBot #3", 7, 10 70 74 10
  1073. button "Add To GatherBot #4", 8, 10 82 74 10
  1074. box "Del", 9, 94 4 84 70
  1075. edit "User Name", 10, 99 12 74 10, center autohs
  1076. button "Del From GatherBot #1", 11, 99 24 74 10
  1077. button "Del From GatherBot #2", 12, 99 36 74 10
  1078. button "Del From GatherBot #3", 13, 99 48 74 10
  1079. button "Del From GatherBot #4", 14, 99 60 74 10
  1080. radio "Admin", 15, 94 76 28 10
  1081. radio "Master", 16, 126 76 31 10
  1082. radio "Owner", 17, 94 88 27 10
  1083. radio "Manager", 18, 126 88 33 10
  1084. }
  1085. on *:dialog:ADMRS:sclick:*: {
  1086. if ($did == 5) {
  1087. if (%ASSource == 1) {
  1088. if (%AD == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1089. elseif (%AD == 2) { msg %GB1 %GBS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1090. elseif (%AD == 3) { msg %GB1 %GBS1 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1091. elseif (%AD == 4) { msg %GB1 %GBS1 $+ Add-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1092. }
  1093. elseif (%ASSource == 2) {
  1094. if (%ADSMR2 == 1) { msg %GB1 %GBS1 $+ Set Admin $did(2) $did(3) $did(4) }
  1095. elseif (%ADSMR2 == 2) { msg %GB1 %GBS1 $+ Set Master $did(2) $did(3) $did(4) }
  1096. elseif (%ADSMR2 == 3) { msg %GB1 %GBS1 $+ Set Owner $did(2) $did(3) $did(4) }
  1097. elseif (%ADSMR2 == 4) { msg %GB1 %GBS1 $+ Set Manager $did(2) $did(3) $did(4) }
  1098. }
  1099. }
  1100. elseif ($did == 6) {
  1101. if (%ASSource == 1) {
  1102. if (%ADSMR2 == 1) { msg %GB2 %GBS2 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1103. elseif (%ADSMR2 == 2) { msg %GB2 %GBS2 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1104. elseif (%ADSMR2 == 3) { msg %GB2 %GBS2 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1105. elseif (%ADSMR2 == 4) { msg %GB2 %GBS2 $+ Add-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1106. }
  1107. elseif (%ASSource == 2) {
  1108. if (%ADSMR2 == 1) { msg %GB3 %GBS3 $+ Set Admin $did(2) $did(3) $did(4) }
  1109. elseif (%ADSMR2 == 2) { msg %GB3 %GBS3 $+ Set Master $did(2) $did(3) $did(4) }
  1110. elseif (%ADSMR2 == 3) { msg %GB3 %GBS3 $+ Set Owner $did(2) $did(3) $did(4) }
  1111. elseif (%ADSMR2 == 4) { msg %GB3 %GBS3 $+ Set Manager $did(2) $did(3) $did(4) }
  1112. }
  1113. }
  1114. elseif ($did == 7) {
  1115. if (%ASSource == 1) {
  1116. if (%ADSMR2 == 1) { msg %GB3 %GBS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1117. elseif (%ADSMR2 == 2) { msg %GB3 %GBS3 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1118. elseif (%ADSMR2 == 3) { msg %GB3 %GBS3 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1119. elseif (%ADSMR2 == 4) { msg %GB3 %GBS3 $+ Add-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1120. }
  1121. elseif (%ASSource == 2) {
  1122. if (%ADSMR2 == 1) { msg %GB3 %GBS3 $+ Set Admin $did(2) $did(3) $did(4) }
  1123. elseif (%ADSMR2 == 2) { msg %GB3 %GBS3 $+ Set Master $did(2) $did(3) $did(4) }
  1124. elseif (%ADSMR2 == 3) { msg %GB3 %GBS3 $+ Set Owner $did(2) $did(3) $did(4) }
  1125. elseif (%ADSMR2 == 4) { msg %GB3 %GBS3 $+ Set Manager $did(2) $did(3) $did(4) }
  1126. }
  1127. }
  1128. elseif ($did == 8) {
  1129. if (%ASSource == 1) {
  1130. if (%ADSMR2 == 1) { msg %GB4 %GBS4 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1131. elseif (%ADSMR2 == 2) { msg %GB4 %GBS4 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1132. elseif (%ADSMR2 == 3) { msg %GB4 %GBS4 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1133. elseif (%ADSMR2 == 4) { msg %GB4 %GBS4 $+ Add-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1134. }
  1135. elseif (%ASSource == 2) {
  1136. if (%ADSMR2 == 1) { msg %GB4 %GBS4 $+ Set Admin $did(2) $did(3) $did(4) }
  1137. elseif (%ADSMR2 == 2) { msg %GB4 %GBS4 $+ Set Master $did(2) $did(3) $did(4) }
  1138. elseif (%ADSMR2 == 3) { msg %GB4 %GBS4 $+ Set Owner $did(2) $did(3) $did(4) }
  1139. elseif (%ADSMR2 == 4) { msg %GB4 %GBS4 $+ Set Manager $did(2) $did(3) $did(4) }
  1140. }
  1141. }
  1142. elseif ($did == 11) {
  1143. if (%ASSource == 1) {
  1144. if (%ADSMR2 == 1) { msg %GB1 %GBS1 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1145. elseif (%ADSMR2 == 2) { msg %GB1 %GBS1 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1146. elseif (%ADSMR2 == 3) { msg %GB1 %GBS1 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1147. elseif (%ADSMR2 == 4) { msg %GB1 %GBS1 $+ Add-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1148. }
  1149. elseif (%ASSource == 2) {
  1150. if (%ADSMR2 == 1) { msg %GB1 %GBS1 $+ Set Admin $did(2) $did(3) $did(4) }
  1151. elseif (%ADSMR2 == 2) { msg %GB1 %GBS1 $+ Set Master $did(2) $did(3) $did(4) }
  1152. elseif (%ADSMR2 == 3) { msg %GB1 %GBS1 $+ Set Owner $did(2) $did(3) $did(4) }
  1153. elseif (%ADSMR2 == 4) { msg %GB1 %GBS1 $+ Set Manager $did(2) $did(3) $did(4) }
  1154. }
  1155. }
  1156. elseif ($did == 12) {
  1157. if (%ASSource == 1) {
  1158. if (%ADSMR2 == 1) { msg %GB2 %GBS2 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1159. elseif (%ADSMR2 == 2) { msg %GB2 %GBS2 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1160. elseif (%ADSMR2 == 3) { msg %GB2 %GBS2 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1161. elseif (%ADSMR2 == 4) { msg %GB2 %GBS2 $+ Add-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1162. }
  1163. elseif (%ASSource == 2) {
  1164. if (%ADSMR2 == 1) { msg %GB2 %GBS2 $+ Set Admin $did(2) $did(3) $did(4) }
  1165. elseif (%ADSMR2 == 2) { msg %GB2 %GBS2 $+ Set Master $did(2) $did(3) $did(4) }
  1166. elseif (%ADSMR2 == 3) { msg %GB2 %GBS2 $+ Set Owner $did(2) $did(3) $did(4) }
  1167. elseif (%ADSMR2 == 4) { msg %GB2 %GBS2 $+ Set Manager $did(2) $did(3) $did(4) }
  1168. }
  1169. }
  1170. elseif ($did == 13) {
  1171. if (%ASSource == 1) {
  1172. if (%ADSMR2 == 1) { msg %GB3 %GBS3 $+ Add-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1173. elseif (%ADSMR2 == 2) { msg %GB3 %GBS3 $+ Add-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1174. elseif (%ADSMR2 == 3) { msg %GB3 %GBS3 $+ Add-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1175. elseif (%ADSMR2 == 4) { msg %GB3 %GBS3 $+ Add-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1176. }
  1177. elseif (%ASSource == 2) {
  1178. if (%ADSMR2 == 1) { msg %GB3 %GBS3 $+ Set Admin $did(2) $did(3) $did(4) }
  1179. elseif (%ADSMR2 == 2) { msg %GB3 %GBS3 $+ Set Master $did(2) $did(3) $did(4) }
  1180. elseif (%ADSMR2 == 3) { msg %GB3 %GBS3 $+ Set Owner $did(2) $did(3) $did(4) }
  1181. elseif (%ADSMR2 == 4) { msg %GB3 %GBS3 $+ Set Manager $did(2) $did(3) $did(4) }
  1182. }
  1183. }
  1184. elseif ($did == 14) {
  1185. if (%ASSource == 1) {
  1186. if (%ADSMR2 == 1) { msg %GBSource4 %GBSourceS4 $+ Del-A $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1187. elseif (%ADSMR2 == 2) { msg %GBSource4 %GBSourceS4 $+ Del-M $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1188. elseif (%ADSMR2 == 3) { msg %GBSource4 %GBSourceS4 $+ Del-O $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1189. elseif (%ADSMR2 == 4) { msg %GBSource4 %GBSourceS4 $+ Del-Man $did(2) $did(3) $did(4) | dialog -c ADO ADO }
  1190. }
  1191. elseif (%ASSource == 2) {
  1192. if (%ADSMR2 == 1) { msg %GBSource4 %GBSourceS4 $+ Set UnAdmin $did(2) $did(3) $did(4) }
  1193. elseif (%ADSMR2 == 2) { msg %GBSource4 %GBSourceS4 $+ Set UnMaster $did(2) $did(3) $did(4) }
  1194. elseif (%ADSMR2 == 3) { msg %GBSource4 %GBSourceS4 $+ Set UnOwner $did(2) $did(3) $did(4) }
  1195. elseif (%ADSMR2 == 4) { msg %GBSource4 %GBSourceS4 $+ Set UnManager $did(2) $did(3) $did(4) }
  1196. }
  1197. }
  1198. elseif ($did == 15) { set %ADSMR2 1 }
  1199. elseif ($did == 16) { set %ADSMR2 2 }
  1200. elseif ($did == 17) { set %ADSMR2 3 }
  1201. elseif ($did == 18) { set %ADSMR2 4 }
  1202. }
  1203. dialog RGS {
  1204. title "Run Gather Source"
  1205. size -1 -1 96 112
  1206. option dbu
  1207. text "Pass Server", 1, 8 12 29 8
  1208. edit "", 2, 39 11 49 10, center autohs
  1209. text "Pass A", 3, 8 23 18 8
  1210. edit "", 4, 28 22 60 10, center autohs
  1211. text "Pass B", 5, 8 34 18 8
  1212. edit "", 6, 28 33 60 10, center autohs
  1213. button "Map", 7, 29 46 37 12
  1214. button "Run At GatherBot #1", 8, 8 62 80 9
  1215. button "Run At GatherBot #2", 9, 8 73 80 9
  1216. button "Run At GatherBot #3", 10, 8 84 80 9
  1217. button "Run At GatherBot #4", 11, 8 95 80 9
  1218. box "Run Gather", 12, 3 2 90 107
  1219. }
  1220. on *:dialog:RGS:init:*: { did -a $DName 2 %GSPS | did -a $DName 4 %GSPA | did -a $DName 6 %GSPB }
  1221. on *:dialog:RGS:sclick:*: {
  1222. if ($did == 7) { dialog -m RGM RGM }
  1223. elseif ($did == 8) { set %GSPS $did(2) | set %GSPA $did(4) | set %GSPB $did(6) | msg %GBSource1 %GBSourceS1 $+ Start %GM %GSPS %GSPA %GSPB | dialog -c RGS RGS }
  1224. elseif ($did == 9) { set %GSPS $did(2) | set %GSPA $did(4) | set %GSPB $did(6) | msg %GBSource2 %GBSourceS2 $+ Start %GM %GSPS %GSPA %GSPB | dialog -c RGS RGS }
  1225. elseif ($did == 10) { set %GSPS $did(2) | set %GSPA $did(4) | set %GSPB $did(6) | msg %GBSource3 %GBSourceS3 $+ Start %GM %GSPS %GSPA %GSPB | dialog -c RGS RGS }
  1226. elseif ($did == 11) { set %GSPS $did(2) | set %GSPA $did(4) | set %GSPB $did(6) | msg %GBSource4 %GBSourceS4 $+ Start %GM %GSPS %GSPA %GSPB | dialog -c RGS RGS }
  1227. }
  1228. dialog CSCZ {
  1229. title "ForFera Script GatherBot cZ Helper"
  1230. size -1 -1 164 156
  1231. option dbu
  1232. tab "Settings", 1, 5 6 154 144
  1233. text "Set GatherBot cZ", 2, 10 27 44 8, tab 1
  1234. edit "", 3, 56 26 99 10, tab 1 center autohs
  1235. text "Set GatherBot cZ Sign", 4, 10 38 53 8, tab 1
  1236. edit "", 5, 65 37 24 10, tab 1 center autohs
  1237. text "Set GatherBot cZ Channel", 6, 10 49 64 8, tab 1
  1238. edit "", 7, 76 48 79 10, tab 1 center autohs
  1239. button "Set GatherBot Settings", 8, 36 62 91 12, tab 1
  1240. text "The GatherBot Commands Are", 9, 10 86 64 8, tab 1
  1241. radio "!Add-A/M/O", 10, 76 80 40 10, tab 1
  1242. radio "!Set Admin/Master/Owner", 11, 76 91 75 10, tab 1
  1243. tab "Admin", 12
  1244. button "-=> Run Gather <=-", 13, 10 24 145 12, tab 12
  1245. button "Notice", 14, 10 40 37 9, tab 12
  1246. edit "", 15, 50 40 105 10, tab 12 center autohs
  1247. button "AMsg", 16, 10 52 37 9, tab 12
  1248. edit "", 17, 50 52 105 10, tab 12 center autohs
  1249. button "Map", 18, 10 64 37 9, tab 12
  1250. edit "", 19, 50 64 104 10, tab 12 center autohs
  1251. edit "User Name", 20, 14 83 53 10, tab 12 center autohs
  1252. edit "User Password", 21, 14 94 53 10, tab 12 center autohs
  1253. button "Login Bot", 22, 14 105 53 10, tab 12
  1254. button "Logout Bot", 23, 14 116 53 10, tab 12
  1255. box "Log In/Out Bot", 24, 10 75 62 57, tab 12
  1256. tab "Master", 25
  1257. button "-=> Run Gather <=-", 26, 10 24 145 12, tab 25
  1258. button "Notice", 27, 10 40 37 9, tab 25
  1259. edit "", 28, 50 40 105 10, tab 25 center autohs
  1260. button "AMsg", 29, 10 52 37 9, tab 25
  1261. edit "", 30, 50 52 105 10, tab 25 center autohs
  1262. button "Map", 31, 10 64 37 9, tab 25
  1263. edit "", 32, 50 64 104 10, tab 25 center autohs
  1264. edit "User Name", 33, 14 83 53 10, tab 25 center autohs
  1265. edit "User Password", 34, 14 94 53 10, tab 25 center autohs
  1266. button "Login Bot", 35, 14 105 53 10, tab 25
  1267. button "Logout Bot", 36, 14 116 53 10, tab 25
  1268. box "Log In/Out Bot", 37, 10 75 61 56, tab 25
  1269. button "Add/Del Admin", 38, 87 82 55 43, tab 25
  1270. tab "Owner", 39
  1271. button "-=> Run Gather <=-", 40, 10 24 145 12, tab 39
  1272. button "Notice", 41, 10 40 37 9, tab 39
  1273. edit "", 42, 50 40 105 10, tab 39 center autohs
  1274. button "AMsg", 43, 10 52 37 9, tab 39
  1275. edit "", 44, 50 52 105 10, tab 39 center autohs
  1276. button "Map", 45, 10 64 37 9, tab 39
  1277. edit "", 46, 50 64 104 10, tab 39 center autohs
  1278. edit "User Name", 47, 14 83 53 10, tab 39 center autohs
  1279. edit "User Password", 48, 14 94 53 10, tab 39 center autohs
  1280. button "Login Bot", 49, 14 105 53 10, tab 39
  1281. button "Logout Bot", 50, 14 116 53 10, tab 39
  1282. box "Log In/Out Bot", 51, 10 75 61 56, tab 39
  1283. button "Add/Del", 52, 87 82 55 43, tab 39
  1284. button "OK/Close", 53, 41 134 81 12, ok
  1285. }
  1286. on *:dialog:CSCZ:init:*: { did -a $DName 3 %GBCZ | did -a $DName 5 %GBCZS | did -a $DName 7 %GBCZC | if (%ASCZ == 1) { did -c $DName 10 } | elseif (%ASCZ == 2) { did -c $DName 11 } }
  1287. on *:dialog:CSCZ:sclick:*: {
  1288. if ($did == 8) { set %GBCZ $did(3) | set %GBCZS $did(5) | set %GBCZC $did(7) }
  1289. elseif ($did == 10) { set %ASCZ 1 }
  1290. elseif ($did == 11) { set %ASCZ 2 }
  1291. elseif ($did == 13) || ($did == 26) || ($did == 40) { dialog -m RGCZ RGCZ }
  1292. elseif ($did == 14) { msg %GBCZC %GBCZS $+ Notice $did(15) }
  1293. elseif ($did == 16) { amsg $did(17) }
  1294. elseif ($did == 18) { msg %GBCZC %GBCZS $+ Map $did(19) }
  1295. elseif ($did == 22) { msg %GBCZ %GBCZS $+ Login $did(20) $did(21) }
  1296. elseif ($did == 23) { msg %GBCZ %GBCZS $+ Logout }
  1297. elseif ($did == 27) { msg %GBCZC %GBCZS $+ Notice $did(28) }
  1298. elseif ($did == 29) { amsg $did(30) }
  1299. elseif ($did == 31) { msg %GBCZC %GBCZS $+ Map $did(32) }
  1300. elseif ($did == 35) { msg %GBCZ %GBCZS $+ Login $did(33) $did(34) }
  1301. elseif ($did == 36) { msg %GBCZ %GBCZS $+ Logout }
  1302. elseif ($did == 38) { dialog -m GBCZADM GBCZADM }
  1303. elseif ($did == 41) { msg %GBCZC %GBCZS $+ Notice $did(42) }
  1304. elseif ($did == 43) { amsg $did(44) }
  1305. elseif ($did == 45) { msg %GBCZC %GBCZS $+ Map $did(46) }
  1306. elseif ($did == 49) { msg %GBCZ %GBCZS $+ Login $did(47) $did(48) }
  1307. elseif ($did == 50) { msg %GBCZ %GBCZS $+ Logout }
  1308. elseif ($did == 52) { dialog -m GBCZADO GBCZADO }
  1309. }
  1310. dialog RGCZ {
  1311. title "Run Gather cZero"
  1312. size -1 -1 105 94
  1313. option dbu
  1314. text "Pass Server", 1, 11 12 31 8
  1315. edit "", 2, 44 11 50 10, center autohs
  1316. text "Pass A", 3, 11 23 19 8
  1317. edit "", 4, 32 22 62 10, center autohs
  1318. text "Pass B", 5, 11 34 19 8
  1319. edit "", 6, 32 33 62 10, center autohs
  1320. button "Map", 7, 33 56 37 12
  1321. text "Start ON Server Number", 8, 11 45 59 8
  1322. edit "", 9, 72 44 22 10, center autohs
  1323. button "Start The Gather", 10, 11 72 84 9
  1324. box "Run Gather", 11, 5 3 95 85
  1325. }
  1326. on *:dialog:RGCZ:init:*: { did -a $DName 2 %GPCZSP | did -a $DName 4 %GPCZA | did -a $DName 6 %GPCZB }
  1327. on *:dialog:RGCZ:sclick:*: { if ($did == 7) { dialog -m RGM RGM } | elseif ($did == 10) { set %GPCZSP $did(2) | set %GPCZA $did(4) | set %GPCZB $did(6) | msg %GBCZ %GBCZS $+ $iif($did(9) == 1, Start, Start $+ $did(9)) %GM %GPCZSP %GPCZA %GPCZB } }
  1328. dialog GBCZADM {
  1329. title "GatherBot cZ Master Helper"
  1330. size -1 -1 151 68
  1331. option dbu
  1332. box "Add Admin", 1, 5 5 74 59
  1333. edit "User Name", 2, 10 15 64 10, center autohs
  1334. edit "User Password", 3, 10 26 64 10, center autohs
  1335. edit "Server Nick", 4, 10 37 64 10, center autohs
  1336. button "Add To GatherBot", 5, 11 49 63 9
  1337. box "Del Admin", 6, 84 5 63 36
  1338. edit "User Name", 7, 88 14 55 10, center autohs
  1339. button "Del Admin", 8, 89 26 54 9
  1340. }
  1341. on *:dialog:GBCZADM:sclick:*: { if ($did == 5) { if (%ASCZ == 1) { msg %GBCZ %GBCZS $+ Add-A $did(2) $did(3) $did(4) } | elseif (%ASCZ == 2) { msg %GBCZ %GBCZS $+ Set Admin $did(2) $did(3) $did(4) } } | elseif ($did == 6) { if (%ASCZ == 1) { msg %GBCZ %GBCZS $+ Del-A $did(7) } | elseif (%ASCZ == 2) { msg %GBCZ %GBCZS $+ Set UnAdmin $did(7) } } }
  1342. dialog GBCZADO {
  1343. title "GatherBot cZ Owner Helper"
  1344. size -1 -1 151 68
  1345. option dbu
  1346. box "Add Admin", 1, 5 5 74 59
  1347. edit "User Name", 2, 10 15 64 10, center autohs
  1348. edit "User Password", 3, 10 26 64 10, center autohs
  1349. edit "Server Nick", 4, 10 37 64 10, center autohs
  1350. button "Add To GatherBot", 5, 11 49 63 9
  1351. box "Del Admin", 6, 84 5 63 36
  1352. edit "User Name", 7, 88 14 55 10, center autohs
  1353. button "Del Admin", 8, 89 26 54 9
  1354. radio "Admin", 9, 84 43 26 10
  1355. radio "Master", 10, 113 43 28 10
  1356. radio "Owner", 11, 84 55 27 10
  1357. }
  1358. on *:dialog:GBCZADO:sclick:*: {
  1359. if ($did == 5) { if (%ASCZ == 1) { if (%ADCZ == 1) { msg %GBCZ %GBCZS $+ Add-A $did(2) $did(3) $did(4) } | elseif (%ADCZ == 2) { msg %GBCZ %GBCZS $+ Add-M $did(2) $did(3) $did(4) } | elseif (%ADCZ == 3) { msg %GBCZ %GBCZS $+ Add-O $did(2) $did(3) $did(4) } } | elseif (%ASCZ == 2) { if (%ADCZ == 1) { msg %GBCZ %GBCZS $+ Set Admin $did(2) $did(3) $did(4) } | elseif (%ADCZ == 2) { msg %GBCZ %GBCZS $+ Set Master $did(2) $did(3) $did(4) } | elseif (%ADCZ == 3) { msg %GBCZ %GBCZS $+ Set Owner $did(2) $did(3) $did(4) } } }
  1360. elseif ($did == 6) { if (%ASCZ == 1) { if (%ADCZ == 1) { msg %GBCZ %GBCZS $+ Del-A $did(7) } | elseif (%ADCZ == 2) { msg %GBCZ %GBCZS $+ Del-M $did(7) } | elseif (%ADCZ == 3) { msg %GBCZ %GBCZS $+ Del-O $did(7) } } | elseif (%ASCZ == 2) { if (%ADCZ == 1) { msg %GBCZ %GBCZS $+ Set UnAdmin $did(7) } | elseif (%ADCZ == 2) { msg %GBCZ %GBCZS $+ Set UnMaster $did(7) } | elseif (%ADCZ == 3) { msg %GBCZ %GBCZS $+ Set UnOwner $did(7) } } }
  1361. elseif (did == 9) { set %ADCZ 1 }
  1362. elseif (did == 10) { set %ADCZ 2 }
  1363. elseif (did == 11) { set %ADCZ 3 }
  1364. }
  1365. dialog RGM {
  1366. title "Gather Maps"
  1367. size -1 -1 200 249
  1368. option dbu
  1369. radio "De_Aztec", 1, 10 11 33 10
  1370. radio "De_Cbble", 2, 10 22 37 10
  1371. radio "De_CPL_Fire", 3, 10 33 40 10
  1372. radio "De_CPL_Mill", 4, 10 44 41 10
  1373. radio "De_CPL_Strike", 5, 10 55 46 10
  1374. radio "De_Dust", 6, 10 66 33 10
  1375. radio "De_Dust2", 7, 10 77 35 10
  1376. radio "De_Inferno", 8, 10 88 39 10
  1377. radio "De_Nuke", 9, 10 99 33 10
  1378. radio "De_Piranesi", 10, 10 110 39 10
  1379. radio "De_Prodigy", 11, 10 121 38 10
  1380. radio "De_Rats", 12, 10 132 32 10
  1381. radio "De_Rats_1337", 13, 10 143 47 10
  1382. radio "De_Rotterdam", 14, 10 154 46 10
  1383. radio "De_Stadium", 15, 10 165 40 10
  1384. radio "De_Storm", 16, 10 176 34 10
  1385. radio "De_Survivor", 17, 10 187 41 10
  1386. radio "De_Torn", 18, 10 198 31 10
  1387. radio "De_Train", 19, 10 209 33 10
  1388. radio "De_Tuscan ", 20, 10 220 38 10
  1389. radio "De_Vertigo", 21, 10 231 39 10
  1390. box "De Maps", 22, 5 3 56 241
  1391. radio "Cs_747", 23, 70 11 30 10
  1392. radio "Cs_Assault", 24, 70 22 37 10
  1393. radio "Cs_Assault_Upc", 25, 70 33 50 10
  1394. radio "Cs_Backalley", 26, 70 44 44 10
  1395. radio "Cs_Bloodstrike", 27, 70 55 46 10
  1396. radio "Cs_Estate", 28, 70 66 36 10
  1397. radio "Cs_Havana", 29, 70 77 39 10
  1398. radio "Cs_Italy", 30, 70 88 32 10
  1399. radio "Cs_Militia", 31, 70 99 33 10
  1400. radio "Cs_Office", 32, 70 110 35 10
  1401. radio "Cs_Siege", 33, 70 121 34 10
  1402. box "Cs Maps", 34, 66 3 56 131
  1403. box "Fy Maps", 35, 66 136 56 108
  1404. radio "Fy_Iceworld", 36, 70 144 42 10
  1405. radio "Fy_Mario", 37, 70 154 34 10
  1406. radio "Fy_Matrix", 38, 70 165 36 10
  1407. radio "Fy_Pool_Day", 39, 70 176 43 10
  1408. radio "Fy_Pool_Day2", 40, 70 187 47 10
  1409. radio "Fy_Poolparty", 41, 70 198 50 10
  1410. radio "Fy_Simpsons", 42, 70 209 42 10
  1411. radio "Fy_Snow", 43, 70 220 50 10
  1412. radio "Fy_Spongebob", 44, 70 231 48 10
  1413. box "Aim/Fun Maps", 45, 127 3 69 207
  1414. radio "Aim_3xd", 46, 131 11 33 10
  1415. radio "Aim_Ak_Colt", 47, 131 22 41 10
  1416. radio "Aim_Crazyjump", 48, 131 33 47 10
  1417. radio "Aim_Dgl", 49, 131 44 30 10
  1418. radio "Aim_Glocker", 50, 131 55 40 10
  1419. radio "Aim_Headshot", 51, 131 66 46 10
  1420. radio "Aim_In_Something", 52, 131 77 55 10
  1421. radio "Aim_Israel", 53, 131 88 44 10
  1422. radio "Aim_Killer", 54, 131 99 35 10
  1423. radio "Aim_Map", 55, 131 110 33 10
  1424. radio "Aim_Map_Hlo", 56, 131 121 42 10
  1425. radio "Aim_Map_Usp", 57, 131 132 46 10
  1426. radio "Aim_Mp5", 58, 131 143 33 10
  1427. radio "Aim_Patriarch-Towers", 59, 131 154 64 10
  1428. radio "Aim_Pistols", 60, 131 165 39 10
  1429. radio "Aim_Pro", 61, 131 176 32 10
  1430. radio "Aim_Ramp", 62, 131 187 36 10
  1431. radio "Aim_Sk_Ak_M4", 63, 131 198 48 10
  1432. box "Your Map", 64, 127 211 68 33
  1433. edit "", 65, 130 219 62 10, autohs center
  1434. button "Set", 66, 142 231 37 10
  1435. }
  1436. on *:dialog:RGM:init:*: {
  1437. if (%GM == De_Aztec) { did -c $DName 1 }
  1438. elseif (%GM == De_Cbble) { did -c $DName 2 }
  1439. elseif (%GM == De_CPL_Fire) { did -c $DName 3 }
  1440. elseif (%GM == De_CPL_Mill) { did -c $DName 4 }
  1441. elseif (%GM == De_CPL_Strike) { did -c $DName 5 }
  1442. elseif (%GM == De_Dust) { did -c $DName 6 }
  1443. elseif (%GM == De_Dust2) { did -c $DName 7 }
  1444. elseif (%GM == De_Inferno) { did -c $DName 8 }
  1445. elseif (%GM == De_Nuke) { did -c $DName 9 }
  1446. elseif (%GM == De_Piranesi) { did -c $DName 10 }
  1447. elseif (%GM == De_Prodigi) { did -c $DName 11 }
  1448. elseif (%GM == De_Rats) { did -c $DName 12 }
  1449. elseif (%GM == De_Rats_1337) { did -c $DName 13 }
  1450. elseif (%GM == De_Rotterdam) { did -c $DName 14 }
  1451. elseif (%GM == De_Stadium) { did -c $DName 15 }
  1452. elseif (%GM == De_Storm) { did -c $DName 16 }
  1453. elseif (%GM == De_Survivor) { did -c $DName 17 }
  1454. elseif (%GM == De_Torn) { did -c $DName 18 }
  1455. elseif (%GM == De_Train) { did -c $DName 19 }
  1456. elseif (%GM == De_Tuscan) { did -c $DName 20 }
  1457. elseif (%GM == De_Vertigo) { did -c $DName 21 }
  1458. elseif (%GM == Cs_747) { did -c $DName 23 }
  1459. elseif (%GM == Cs_Assault) { did -c $DName 24 }
  1460. elseif (%GM == Cs_Assault_Upc) { did -c $DName 25 }
  1461. elseif (%GM == Cs_Backalley) { did -c $DName 26 }
  1462. elseif (%GM == Cs_Bloodstrike) { did -c $DName 27 }
  1463. elseif (%GM == Cs_Estate) { did -c $DName 28 }
  1464. elseif (%GM == Cs_Havana) { did -c $DName 29 }
  1465. elseif (%GM == Cs_Italy) { did -c $DName 30 }
  1466. elseif (%GM == Cs_Militia) { did -c $DName 31 }
  1467. elseif (%GM == Cs_Office) { did -c $DName 32 }
  1468. elseif (%GM == Cs_Siege) { did -c $DName 33 }
  1469. elseif (%GM == Fy_Iceworld) { did -c $DName 36 }
  1470. elseif (%GM == Fy_Mario) { did -c $DName 37 }
  1471. elseif (%GM == Fy_Matrix) { did -c $DName 38 }
  1472. elseif (%GM == Fy_Pool_Day) { did -c $DName 39 }
  1473. elseif (%GM == Fy_Pool_Day2) { did -c $DName 40 }
  1474. elseif (%GM == Fy_Poolparty) { did -c $DName 41 }
  1475. elseif (%GM == Fy_Simpsons) { did -c $DName 42 }
  1476. elseif (%GM == Fy_Snow) { did -c $DName 43 }
  1477. elseif (%GM == Fy_Spongebob) { did -c $DName 44 }
  1478. elseif (%GM == Aim_3xd) { did -c $DName 46 }
  1479. elseif (%GM == Aim_AK_Colt) { did -c $DName 47 }
  1480. elseif (%GM == Aim_Crazyjump) { did -c $DName 48 }
  1481. elseif (%GM == Aim_Dgl) { did -c $DName 49 }
  1482. elseif (%GM == Aim_Glocker) { did -c $DName 50 }
  1483. elseif (%GM == Aim_Headshot) { did -c $DName 51 }
  1484. elseif (%GM == Aim_In_Something) { did -c $DName 52 }
  1485. elseif (%GM == Aim_Israel) { did -c $DName 53 }
  1486. elseif (%GM == Aim_Killer) { did -c $DName 54 }
  1487. elseif (%GM == Aim_Map) { did -c $DName 55 }
  1488. elseif (%GM == Aim_Map_Hlo) { did -c $DName 56 }
  1489. elseif (%GM == Aim_Map_Usp) { did -c $DName 57 }
  1490. elseif (%GM == Aim_Mp5) { did -c $DName 58 }
  1491. elseif (%GM == Aim_Patriarch-Towers) { did -c $DName 59 }
  1492. elseif (%GM == Aim_Pistols) { did -c $DName 60 }
  1493. elseif (%GM == Aim_Pro) { did -c $DName 61 }
  1494. elseif (%GM == Aim_Ramp) { did -c $DName 62 }
  1495. elseif (%GM == Aim_Sk_Ak_M4) { did -c $DName 63 }
  1496. }
  1497. on *:dialog:RGM:sclick:*: {
  1498. if ($did == 1) { set %GM de_aztec | dialog -c RGM RGM }
  1499. elseif ($did == 2) { set %GM de_cbble | dialog -c RGM RGM }
  1500. elseif ($did == 3) { set %GM de_cpl_fire | dialog -c RGM RGM }
  1501. elseif ($did == 4) { set %GM de_cpl_mill | dialog -c RGM RGM }
  1502. elseif ($did == 5) { set %GM de_cpl_strike | dialog -c RGM RGM }
  1503. elseif ($did == 6) { set %GM de_dust | dialog -c RGM RGM }
  1504. elseif ($did == 7) { set %GM de_dust2 | dialog -c RGM RGM }
  1505. elseif ($did == 8) { set %GM de_inferno | dialog -c RGM RGM }
  1506. elseif ($did == 9) { set %GM de_nuke | dialog -c RGM RGM }
  1507. elseif ($did == 10) { set %GM de_piranesi | dialog -c RGM RGM }
  1508. elseif ($did == 11) { set %GM de_prodigi | dialog -c RGM RGM }
  1509. elseif ($did == 12) { set %GM de_rats | dialog -c RGM RGM }
  1510. elseif ($did == 13) { set %GM de_rats_1337 | dialog -c RGM RGM }
  1511. elseif ($did == 14) { set %GM de_rotterdam | dialog -c RGM RGM }
  1512. elseif ($did == 15) { set %GM de_stadium | dialog -c RGM RGM }
  1513. elseif ($did == 16) { set %GM de_storm | dialog -c RGM RGM }
  1514. elseif ($did == 17) { set %GM de_survivor | dialog -c RGM RGM }
  1515. elseif ($did == 18) { set %GM de_torn | dialog -c RGM RGM }
  1516. elseif ($did == 19) { set %GM de_train | dialog -c RGM RGM }
  1517. elseif ($did == 20) { set %GM de_tuscan | dialog -c RGM RGM }
  1518. elseif ($did == 21) { set %GM de_vertigo | dialog -c RGM RGM }
  1519. elseif ($did == 23) { set %GM cs_747 | dialog -c RGM RGM }
  1520. elseif ($did == 24) { set %GM cs_assault | dialog -c RGM RGM }
  1521. elseif ($did == 25) { set %GM cs_assault_Upc | dialog -c RGM RGM }
  1522. elseif ($did == 26) { set %GM cs_backalley | dialog -c RGM RGM }
  1523. elseif ($did == 27) { set %GM cs_bloodstrike | dialog -c RGM RGM }
  1524. elseif ($did == 28) { set %GM cs_estate | dialog -c RGM RGM }
  1525. elseif ($did == 29) { set %GM cs_havana | dialog -c RGM RGM }
  1526. elseif ($did == 30) { set %GM cs_italy | dialog -c RGM RGM }
  1527. elseif ($did == 31) { set %GM cs_militia | dialog -c RGM RGM }
  1528. elseif ($did == 32) { set %GM cs_office | dialog -c RGM RGM }
  1529. elseif ($did == 33) { set %GM cs_siege | dialog -c RGM RGM }
  1530. elseif ($did == 36) { set %GM fy_iceworld | dialog -c RGM RGM }
  1531. elseif ($did == 37) { set %GM fy_mario | dialog -c RGM RGM }
  1532. elseif ($did == 38) { set %GM fy_matrix | dialog -c RGM RGM }
  1533. elseif ($did == 39) { set %GM fy_pool_day | dialog -c RGM RGM }
  1534. elseif ($did == 40) { set %GM fy_pool_day2 | dialog -c RGM RGM }
  1535. elseif ($did == 41) { set %GM fy_poolparty | dialog -c RGM RGM }
  1536. elseif ($did == 42) { set %GM fy_simpsons | dialog -c RGM RGM }
  1537. elseif ($did == 43) { set %GM fy_snow | dialog -c RGM RGM }
  1538. elseif ($did == 44) { set %GM fy_spongebob | dialog -c RGM RGM }
  1539. elseif ($did == 46) { set %GM aim_3xd | dialog -c RGM RGM }
  1540. elseif ($did == 47) { set %GM aim_ak_Colt | dialog -c RGM RGM }
  1541. elseif ($did == 48) { set %GM aim_crazyjump | dialog -c RGM RGM }
  1542. elseif ($did == 49) { set %GM aim_dgl | dialog -c RGM RGM }
  1543. elseif ($did == 50) { set %GM aim_glocker | dialog -c RGM RGM }
  1544. elseif ($did == 51) { set %GM aim_headshot | dialog -c RGM RGM }
  1545. elseif ($did == 52) { set %GM aim_in_something | dialog -c RGM RGM }
  1546. elseif ($did == 53) { set %GM aim_israel | dialog -c RGM RGM }
  1547. elseif ($did == 54) { set %GM aim_killer | dialog -c RGM RGM }
  1548. elseif ($did == 55) { set %GM aim_map | dialog -c RGM RGM }
  1549. elseif ($did == 56) { set %GM aim_map_hlo | dialog -c RGM RGM }
  1550. elseif ($did == 57) { set %GM aim_map_usp | dialog -c RGM RGM }
  1551. elseif ($did == 58) { set %GM aim_mp5 | dialog -c RGM RGM }
  1552. elseif ($did == 59) { set %GM aim_patriarch-Towers | dialog -c RGM RGM }
  1553. elseif ($did == 60) { set %GM aim_pistols | dialog -c RGM RGM }
  1554. elseif ($did == 61) { set %GM aim_pro | dialog -c RGM RGM }
  1555. elseif ($did == 62) { set %GM aim_ramp | dialog -c RGM RGM }
  1556. elseif ($did == 63) { set %GM aim_sk_ak_m4 | dialog -c RGM RGM }
  1557. elseif ($did == 66) { set %GM $did(65) | dialog -c RGM RGM }
  1558. }
  1559. dialog CSC {
  1560. title "ForFera Script CS Servers Connector"
  1561. size -1 -1 267 117
  1562. option dbu
  1563. box "Steam Location", 1, 2 3 137 32
  1564. edit "", 2, 4 11 132 10, read autohs
  1565. button "Find", 3, 4 22 132 10
  1566. box "HL.exe Location (For CS/CZ Parutz)", 4, 2 37 137 32
  1567. edit "", 5, 4 45 132 10, read autohs
  1568. button "Find", 6, 4 56 132 10
  1569. box "Anti-Cheat Location", 7, 2 71 137 44
  1570. edit "", 8, 4 79 132 10, read autohs
  1571. button "Find", 9, 4 90 132 10
  1572. check "Run Anti Cheat On Connect", 10, 5 102 130 10
  1573. box "Server Type", 11, 141 3 124 23
  1574. radio "CS 1.6", 12, 144 12 26 10
  1575. radio "CS Condition Zero", 13, 172 12 54 10
  1576. radio "CS Source", 14, 227 12 35 10
  1577. box "Server Settings", 15, 141 27 124 42
  1578. text "IP:Port", 16, 144 36 19 8
  1579. edit "", 17, 165 35 98 10, autohs
  1580. check "Password", 18, 144 47 33 10
  1581. edit "", 19, 178 46 85 10, disable autohs
  1582. button "Connect", 20, 144 57 118 10
  1583. box "Used Ips", 21, 141 70 124 45
  1584. list 22, 143 78 120 34, sort size
  1585. }
  1586. on *:dialog:CSC:init:*: {
  1587. if (%SL) { did -a $dname 2 %SL } | if (%HLL) { did -a $dname 5 %HLL } | if (%ACL) { did -a $dname 8 %ACL } | if (%ACS == ON) { did -c $dname 10 } | did -b $dname 16,17,18
  1588. var %x = 1 | while ($ini(Ips.ini,%x)) { did -a $dname 22 $ini(Ips.ini,%x) | inc %x }
  1589. }
  1590. on *:dialog:CSC:sclick:*: {
  1591. if ($did == 3) { SearchSteam }
  1592. elseif ($did == 6) { SearchHL.exe }
  1593. elseif ($did == 9) { SearchAnti-Cheat }
  1594. elseif ($did == 10) { set %ACS $iif($did(10).state == 1,ON,OFF) }
  1595. elseif ($did == 12) { if (%HLL) && (!%SL) { set %CSType CS:1.6-P } | elseif (!%HLL) && (%SL) { set %CSType CS:1.6 } | elseif (%HLL) && (%SL) { var %x = $input(Is The Server Parutz?,y,Is The Server Parutz?) | if (%x == $true) { set %CSType CS:1.6-P } | else { set %CSType CS:1.6 } } | did -e $dname 16,17,18 }
  1596. elseif ($did == 13) { if (%HLL) && (!%SL) { set %CSType CS:CZ-P } | elseif (!%HLL) && (%SL) { set %CSType CS:CZ } | elseif (%HLL) && (%SL) { var %x = $input(Is The Server Parutz?,y,Is The Server Parutz?) | if (%x == $true) { set %CSType CS:CZ-P } | else { set %CSType CS:CZ } } | did -e $dname 16,17,18 }
  1597. elseif ($did == 14) { set %CSType CS:S | did -e $dname 16,17,18 }
  1598. elseif ($did == 18) { if ($did(18).state) { did -e $dname 19 } | else { did -b $dname 19 } }
  1599. elseif ($did == 20) { if (*:* iswm $did(17)) { if ($did(18).state) && ($did($dname,19)) { var %CSP = $did($dname,19) } | .writeini -n Ips.ini $did(17) Type %CSType | ConnectServer $did(17) %CSP } | else { echo -as 14(10Connect14) - 14Error: you didnt enter a correct ip address } }
  1600. }
  1601. on *:dialog:CSC:dclick:*: {
  1602. if ($did == 22) && ($did($dname,22).seltext) {
  1603. var %CSP = $input(Enter Pass $chr(40) $+ Keep Empty If Don`t Have Pass $+ $chr(41),e,Enter Pass $chr(40) $+ Keep Empty If Don`t Have Pass $+ $chr(41))
  1604. if (%CSP) { set %CSType $readini(Ips.ini,$did($dname,22).seltext,Type) | ConnectServer $did($dname,22).seltext %CSP }
  1605. else { set %CSType $readini(Ips.ini,$did($dname,22).seltext,Type) | ConnectServer $did($dname,22).seltext }
  1606. }
  1607. }
  1608. dialog VI {
  1609. title "Ventrilo 3.0 Information Dialog"
  1610. size -1 -1 156 175
  1611. option dbu
  1612. text "Name:", 2, 6 44 17 8
  1613. edit "", 3, 24 43 128 10, read autohs
  1614. text "Comment:", 4, 6 55 25 8
  1615. edit "", 5, 32 54 120 10, read autohs
  1616. edit "", 6, 23 76 23 10, read autohs
  1617. text "Users:", 7, 6 65 17 8
  1618. edit "", 8, 25 65 127 10, read
  1619. text "Auth:", 9, 6 77 15 8
  1620. text "Admins:", 10, 6 110 19 8
  1621. list 11, 6 120 144 51, size
  1622. box "Settings", 12, 3 2 152 31
  1623. text "Vent IP:Port", 13, 6 11 32 8
  1624. edit "", 14, 39 10 113 10
  1625. button "Find", 17, 5 22 147 8
  1626. edit "", 23, 27 109 124 10, read
  1627. box "Ventrilo 3.0 Information", 25, 3 35 151 138
  1628. edit "", 1, 32 98 120 10, read
  1629. text "Channels:", 22, 6 99 25 8
  1630. text "Voice Codec:", 24, 47 77 31 8
  1631. edit "", 26, 80 76 72 10, read autohs
  1632. text "Voice Format:", 27, 6 88 33 8
  1633. edit "", 28, 41 87 111 10, read
  1634. }
  1635. on *:dialog:VI:sclick:*: { if ($did == 17) { unset %Vent.* | set %Vent.ip $did(14) | VentCheck | did -r $dname 1,3,5,6,8,11,23,26,28 } }
  1636. dialog AA {
  1637. title "ForFera Script Auto Add/Sub"
  1638. size -1 -1 110 70
  1639. option dbu
  1640. box "Auto Add", 1, 4 2 102 65
  1641. button "Set Chan", 2, 9 11 25 12
  1642. edit "", 3, 37 12 65 10, autohs center
  1643. button "Set Sign", 4, 9 27 25 12
  1644. edit "", 5, 36 28 29 10, autohs center
  1645. radio "Auto Add ON", 6, 9 42 43 10
  1646. radio "Auto Add OFF", 7, 9 53 46 10
  1647. button "OK", 8, 62 47 37 12, ok
  1648. }
  1649. on *:dialog:AA:init:*: { did -a $DName 3 %AAC | did -a $DName 5 %AASign | if (%AA == ON) { did -c $DName 6 } | elseif (%AA == OFF) { did -c $DName 7 } }
  1650. on *:dialog:AA:sclick:*: { if ($did == 2) { set %AAC $did(3) } | elseif ($did == 4) { set %AASign $did(5) } | elseif ($did == 6) { set %AA ON } | elseif ($did == 7) { set %AA OFF } }
  1651. dialog PR {
  1652. title "ForFera Script Protection"
  1653. size -1 -1 159 144
  1654. option dbu
  1655. box "Private Protection", 1, 3 2 93 44
  1656. check "Kick Protection", 2, 7 12 47 10
  1657. check "Ban Protection", 3, 7 23 49 10
  1658. check "Deop Protection", 4, 7 34 50 10
  1659. button "OK", 5, 67 129 37 12, ok
  1660. box "By", 6, 61 11 28 32
  1661. radio "Q", 7, 64 19 18 10
  1662. radio "Me", 8, 64 30 20 10
  1663. box "Channels Protection", 9, 99 2 56 45
  1664. check "Advertise", 10, 102 12 35 10
  1665. check "Flood", 11, 102 23 26 10
  1666. check "OpenProxy", 12, 102 34 39 10
  1667. box "Channels", 13, 3 48 86 78
  1668. list 14, 6 56 56 66, size
  1669. button "Add", 15, 64 55 22 12
  1670. button "Del", 16, 64 70 22 12
  1671. button "Clear", 17, 64 85 22 12
  1672. }
  1673. on *:dialog:PR:init:*: { if (%KP == ON) { did -c $DName 2 } | if (%BP == ON) { did -c $DName 3 } | if (%DP == ON) { did -c $DName 4 } | if (%PT == q) { did -c $dname 7 } | elseif (%PT == me) { did -c $dname 8 } | if (%AP == ON) { did -c $DName 10 } | if (%FP == ON) { did -c $DName 11 } | if (%OP == ON) { did -c $DName 12 } | var %x = 1 | while (%x <= $numtok(%PC,32)) { did -a $dname 14 $gettok(%PC,%x,32) | inc %x } }
  1674. on *:dialog:PR:sclick:*: {
  1675. if ($did == 2) { if ($did(2).state != 0) { set %KP ON | var %c =  $+ $r(1,15) | echo -a %c $+ K14ick %c $+ P14rotection %c $+ I14s %c $+ N14ow 3on } | else { set %KP OFF | did -u $DName 2 | var %c =  $+ $r(1,15) | echo -a %c $+ K14ick %c $+ P14rotection %c $+ I14s %c $+ N14ow 4OFF } }
  1676. elseif ($did == 3) { if ($did(3).state != 0) { set %BP ON | var %c =  $+ $r(1,15) | echo -a %c $+ B14an %c $+ P14rotection %c $+ I14s %c $+ N14ow 3on } | else { set %BP OFF | did -u $DName 3 | var %c =  $+ $r(1,15) | echo -a %c $+ B14an %c $+ P14rotection %c $+ I14s %c $+ N14ow 4OFF } }
  1677. elseif ($did == 4) { if ($did(4).state != 0) { set %DP ON | var %c =  $+ $r(1,15) | echo -a %c $+ D14eop %c $+ P14rotection %c $+ I14s %c $+ N14ow 3on } | else { set %DP OFF | did -u $DName 4 | var %c =  $+ $r(1,15) | echo -a %c $+ D14eop %c $+ P14rotection %c $+ I14s %c $+ N14ow 4OFF } }
  1678. elseif ($did == 7) { set %PT Q }
  1679. elseif ($did == 8) { set %PT Me }
  1680. elseif ($did == 10) { if ($did(10).state != 0) { set %AP ON | var %c =  $+ $r(1,15) | echo -a %c $+ A14dvertise %c $+ P14rotection %c $+ I14s %c $+ N14ow 3on } | else { set %AP OFF | did -u $DName 10 | var %c =  $+ $r(1,15) | echo -a %c $+ A14dvertise %c $+ P14rotection %c $+ I14s %c $+ N14ow 4OFF } }
  1681. elseif ($did == 11) { if ($did(11).state != 0) { set %FP ON | var %c =  $+ $r(1,15) | echo -a %c $+ F14lood %c $+ P14rotection %c $+ I14s %c $+ N14ow 3on } | else { set %FP OFF | did -u $DName 11 | var %c =  $+ $r(1,15) | echo -a %c $+ F14lood %c $+ P14rotection %c $+ I14s %c $+ N14ow 4OFF } }
  1682. elseif ($did == 12) { if ($did(12).state != 0) { set %OP ON | var %c =  $+ $r(1,15) | echo -a %c $+ O14penproxy %c $+ P14rotection %c $+ I14s %c $+ N14ow 3on } | else { set %OP OFF | did -u $DName 12 | var %c =  $+ $r(1,15) | echo -a %c $+ O14penproxy %c $+ P14rotection %c $+ I14s %c $+ N14ow 4OFF } }
  1683. elseif ($did == 15) { var %chn = $input(Type Channel With -#-,e,Type Channel With -#-) | if (%chn) { set %PC $addtok(%PC,$iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn),32) | did -a $DName 14 $iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn) } }
  1684. elseif ($did == 16) && ($did($dname,14).seltext) { set %PC $remtok(%PC,$did($DName,14).seltext,32) | did -d $dname 14 $did($dname,14).sel }
  1685. elseif ($did == 17) { var %S = $input(Aure you sure clear all Channels?,y,Aure you sure clear all Channels?) if (%S == $true) { did -r $DName 14 | unset %PC } }
  1686. }
  1687. dialog AW {
  1688. title "ForFera Script Away System"
  1689. size -1 -1 161 132
  1690. option dbu
  1691. box "Away Nick", 1, 11 10 139 25
  1692. edit "Away Nick", 2, 17 19 129 10, center autohs
  1693. box "Away Reasons", 3, 11 35 139 53
  1694. button "Sleep", 4, 16 44 31 11
  1695. button "School", 5, 16 58 31 11
  1696. button "Eat", 6, 16 72 31 11
  1697. edit "", 7, 50 42 97 43, multi vsbar autohs
  1698. text "Show Massage Every", 8, 11 92 52 8
  1699. edit "", 9, 64 91 16 10, center autohs
  1700. text "Minutes", 10, 82 92 21 8
  1701. button "OK", 11, 12 107 37 12, ok
  1702. button "Start Away", 12, 71 107 37 12
  1703. button "Stop Away", 13, 112 107 37 12
  1704. box "Away System", 14, 5 3 151 123
  1705. }
  1706. on *:dialog:AW:init:*: { if (%Away == ON) { did -b $DName 2,7,9,12 | did -e $DName 13 | did -a $DName 10 %AMT } | elseif (%Away == OFF) { did -b $DName 13 } }
  1707. on *:dialog:AW:sclick:*: {
  1708. if ($did == 4) { did -ra $DName 7 Sleep }
  1709. elseif ($did == 5) { did -ra $DName 7 School }
  1710. elseif ($did == 6) { did -ra $DName 7 Eat }
  1711. elseif ($did == 12) {
  1712. if ($did(9) !isnum) { echo -a Numbers ONly! }
  1713. else {
  1714. var %c =  $+ $r(1,15) | did -e AW 13 | did -b AW 2,7,9,12 | close -@ @Away | window -c @Away | window @Away 100 100 920 300 | nick $did(2) | set %Away ON | set %Time $time | set %CTime $ctime | set %RNick $me | set %ANick $did(2) | set %AReason $did(7).text | away %AReason | set %AMT $did(9)
  1715. ame %c $+ I14s %c $+ N14ow %c $+ A14way %c $+ R14eason: %c $+  $+ %AReason $+ 14 ( $+ %c $+ F14or $+ %c $+ F14era@ $+ %c $+ S14cript)
  1716. if (%AMT) { .timeraway 0 $calc(%AMT * 60) ame %c $+ I14s %c $+ S14till %c $+ A14way %c $+ S14ince: %c $+  $+ %Time $+  %c $+ R14eason: %c $+  $+ %AReason $+ 14 ( $+ %c $+ F14or $+ %c $+ F14era@ $+ %c $+ S14cript) }
  1717. }
  1718. }
  1719. elseif ($did == 13) { var %c =  $+ $r(1,15) | did -e AW 2,7,9,12 | did -b AW 13 | away | close -@ @Away | .timeraway off | set %Away OFF | unset %ANick | unset %AMT | nick %RNick | ame %c $+ I14s %c $+ B14ack %c $+ F14rom: %c $+  $+ %AReason $+  %c $+ A14fter: %c $+  $+ $duration($calc($ctime - %CTime),1) $+ 14 ( $+ %c $+ F14or $+ %c $+ F14era@ $+ %c $+ S14cript) | .timer 1 2 unset %RNick | .timer 1 2 unset %AReason | .timer 1 3 unset %Time | .timer 1 3 unset %CTime }
  1720. }
  1721. dialog MP3.Player {
  1722. title "ForFera Script MP3 Player"
  1723. size -1 -1 161 205
  1724. option dbu
  1725. button "Load Songs", 1, 3 2 37 12
  1726. button "Clear List", 2, 42 2 37 12
  1727. button "Close", 3, 116 171 37 12, ok
  1728. edit "- Not Running Any Song -", 4, 2 17 157 10, read autohs center
  1729. edit "", 5, 2 28 94 10, read autohs center
  1730. edit "", 6, 96 28 63 10, read autohs center
  1731. list 7, 2 39 157 116, size hsbar
  1732. button "Play", 8, 4 156 29 12
  1733. button "Pause", 9, 35 156 29 12
  1734. button "Stop", 10, 66 156 29 12
  1735. button "« Previous", 11, 97 156 29 12
  1736. button "Next »", 12, 128 156 29 12
  1737. button "Settings", 13, 4 170 29 12
  1738. box "Volume", 14, 35 168 79 32
  1739. button "+", 15, 37 175 30 11
  1740. button "-", 16, 37 187 30 11
  1741. check "No Volume", 17, 70 175 39 10
  1742. edit "", 18, 70 187 39 10, read autohs center
  1743. }
  1744. on *:mp3end:{
  1745. set %MP3Status OFF | did -r MP3.Player 5,6 | did -ra MP3.Player 4 - Not Running Any Song -
  1746. if (%NextSong == ON) {
  1747. if (%MP3Song == %MP3Total) { set %MP3Song | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | set $asctime($calc($insong.length / 1000),nn:ss)) $asctime($calc($insong.length / 1000),nn:ss)) | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | did -ra MP3.Player 6 $asctime($calc($insong.length / 1000),nn:ss)) | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1748. elseif (%NextNext == OFF) { did -r MP3.Player 5,6 | did -ra MP3.Player 4 - Not Running Any Song - }
  1749. else { inc %MP3Song | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | set $asctime($calc($insong.length / 1000),nn:ss)) $asctime($calc($insong.length / 1000),nn:ss)) | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | did -ra MP3.Player 6 $asctime($calc($insong.length / 1000),nn:ss)) | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1750. }
  1751. if (%PlayAgain == ON) { .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | set $asctime($calc($insong.length / 1000),nn:ss)) $asctime($calc($insong.length / 1000),nn:ss)) | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | did -ra MP3.Player 6 $asctime($calc($insong.length / 1000),nn:ss)) | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1752. elseif (%PlayAgain == OFF) { did -r MP3.Player 5,6 | did -ra MP3.Player 4 - Not Running Any Song - }
  1753. if (%None == ON) { did -r MP3.Player 5,6 | did -ra MP3.Player 4 - Not Running Any Song - }
  1754. elseif (%None == OFF) { did -r MP3.Player 5,6 | did -ra MP3.Player 4 - Not Running Any Song - }
  1755. }
  1756. on *:dialog:MP3.Player:init:*: {
  1757. if (%MP3VolumeMute == ON) { did -c $DName 17 | vol -p $calc($vol($insong.fname) - 65535) | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | did -ra MP3.Player 18 - Mute - | var %x = 1 | while (%x <= $findfile(%MP3Dic,*.mp3,0)) { did -a MP3.Player 7 %x $+ $chr(41) $nopath($findfile(%MP3Dic,*.mp3,%x)) | inc %x } | .timermp3 0 0 check }
  1758. else { var %x = 1 | while (%x <= $findfile(%MP3Dic,*.mp3,0)) { did -a $dname 7 %x $+ $chr(41) $nopath($findfile(%MP3Dic,*.mp3,%x)) | inc %x } | if (%MP3Status == OFF) { did -a $dname 5 N/A | did -a $dname 6 N/A | did -ra $dname 4 - Not Running Any Song - } }
  1759. }
  1760. on *:dialog:MP3.Player:close:* { .timermp3 off | .splay stop | set %MP3Status OFF }
  1761. on *:dialog:MP3.Player:dclick:*: {
  1762. if ($did == 7) {
  1763. set %MP3Song $did(MP3.Player,7).sel | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).title - $sound($insong.fname).artist | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | did -ra MP3.Player 18 $vol($insong.fname) | .timermp3 0 0 check
  1764. if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info }
  1765. elseif (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info }
  1766. elseif (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info }
  1767. }
  1768. }
  1769. on *:dialog:MP3.Player:sclick:*: {
  1770. if ($did == 1) { did -ra MP3.Player 4 - Not Running Any Song - | .splay stop | did -r MP3.Player 5,6,7 | set %MP3Status OFF | set %MP3Dic $sdir(C:\Documents and Settings\Owner\Desktop\Songs,Load MP3 Playlist) | var %x = 1 | while (%x <= $findfile(%MP3Dic,*.mp3,0)) { did -a $dname 7 %x $+ $chr(41) $nopath($findfile(%MP3Dic,*.mp3,%x)) | inc %x } | set %MP3Total $findfile(%MP3Dic,*.mp3,0) }
  1771. elseif ($did == 2) { var %clear = $input(Are You Sure You Want To Clear The List?,y,Are You Sure You Want To Clear The List?) | if (%clear == $true) { .splay stop | did -ra MP3.Player 4 - Not Running Any Song - | did -ra MP3.Player 5 N/A | did -ra MP3.Player 6 N/A | did -r MP3.Player 7 | unset %MP3Name | unset %MP3Info } }
  1772. elseif ($did == 8) {
  1773. set %MP3Song $did(MP3.Player,7).sel | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).title - $sound($insong.fname).artist | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | did -ra MP3.Player 18 $vol($insong.fname) | .timermp3 0 0 check
  1774. if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info }
  1775. elseif (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info }
  1776. elseif (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info }
  1777. }
  1778. elseif ($did == 9) { if (%MP3Status == OFF) { .splay resume | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | .timermp3 0 0 check | set %MP3Status ON } | else { .timermp3* off | .splay pause | did -a MP3.Player 9 Continue | did -ra MP3.Player 4 - Pause - | did -ra MP3.Player 5 N/A | did -ra MP3.Player 6 N/A | set %MP3Status OFF } }
  1779. elseif ($did == 10) { .splay stop | .timermp3* off | did -ra MP3.Player 4 - Not Running Any Song - | did -ra MP3.Player 5 N/A | did -ra MP3.Player 6 N/A | set %MP3Status OFF | unset %MP3Name | unset %MP3Info }
  1780. elseif ($did == 11) {
  1781. if (%MP3Song == 1) { set %MP3Song %MP3Total | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | .timermp3 0 0 check | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1782. elseif (%MP3Song == %MP3Total) { set %MP3Song 1 | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | .timermp3 0 0 check | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1783. else { dec %MP3Song | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | .timermp3 0 0 check | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1784. }
  1785. elseif ($did == 12) {
  1786. if (%MP3Song == %MP3Total) { set %MP3Song 1 | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | .timermp3 0 0 check | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1787. else { inc %MP3Song | .splay $findfile(%MP3Dic,*.mp3,%MP3Song) | set %MP3Status ON | set %MP3Name $sound($insong.fname).artist - $sound($insong.fname).title | set %MP3Info $mid($calc($file($insong.fname).size / 1000000),1,4) MB - $sound($insong.fname).bitrate kbps | did -a MP3.Player 9 Pause | did -ra MP3.Player 4 %MP3Name | did -ra MP3.Player 5 %MP3Info | .timermp3 0 0 check | if (%MP3ASend == ON) { amsg I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3Send == ON) { msg $active I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } | if (%MP3SSend == ON) { echo -set I'm listening now to %MP3Name - $asctime($calc($insong.length / 1000),nn:ss)) - %MP3Info } }
  1788. }
  1789. elseif ($did == 13) { dialog -m MP3.Settings MP3.Settings }
  1790. elseif ($did == 15) { vol -p $calc($vol($insong.fname) + 5000) | did -ra MP3.Player 18 $vol($insong.fname) }
  1791. elseif ($did == 16) { vol -p $calc($vol($insong.fname) - 5000) | did -ra MP3.Player 18 $vol($insong.fname) }
  1792. elseif ($did == 17) { set %MP3VolumeMute $iif(%MP3VolumeMute != ON,on,OFF) | if (%MP3VolumeMute == ON) { vol -p $calc($vol($insong.fname) - 65535) | did -ra MP3.Player 18 - Mute - } | if (%MP3VolumeMute == OFF) { vol -p $calc($vol($insong.fname) + 65535) | did -ra MP3.Player 18 $vol($insong.fname) } }
  1793. }
  1794. dialog MP3.Settings {
  1795. title "MP3 Player Settings"
  1796. size -1 -1 120 109
  1797. option dbu
  1798. box "Song Ends", 1, 2 2 115 43
  1799. check "The Next Song At The List Will Be Played", 2, 4 10 108 10
  1800. check "Stop The MP3 Player", 3, 4 20 108 10
  1801. check "Replay The Last Song", 4, 4 30 108 10
  1802. box "Messages", 5, 2 46 115 47
  1803. radio "AMsg = Send To All The Channels I`m In", 6, 4 54 108 10
  1804. radio "$Active = ON The Window I See Now", 7, 4 63 110 10
  1805. radio "Echo -s = ON The Status Window", 8, 4 72 109 10
  1806. radio "Dont Send The Message Any Where", 9, 4 81 108 10
  1807. button "OK", 10, 41 95 37 12, ok
  1808. }
  1809. on *:dialog:MP3.Settings:init:*: {
  1810. if (%NextSong == ON) { did -c $DName 2 }
  1811. elseif (%None == ON) { did -c $DName 3 }
  1812. elseif (%PlayAgain == ON) { did -c $DName 4 }
  1813. elseif (%MP3AMsg == ON) { did -c $DName 6 }
  1814. elseif (%MP3Active == ON) { did -c $DName 7 }
  1815. elseif (%MP3Echo == ON) { did -c $DName 8 }
  1816. elseif (%MP3None == ON) { did -c $DName 9 }
  1817. }
  1818. on *:dialog:MP3.Settings:sclick:*: {
  1819. if ($did == 2) { set %NextSong ON | set %None OFF | set %PlayAgain OFF | did -u $DName 3,4 }
  1820. elseif ($did == 3) { set %NextSong OFF | set %None ON | set %PlayAgain OFF | did -u $DName 2,4 }
  1821. elseif ($did == 4) { set %NextSong OFF | set %None OFF | set %PlayAgain ON | did -u $DName 2,3 }
  1822. elseif ($did == 6) { set %MP3AMsg ON | set %MP3Active OFF | set %MP3Echo OFF | set %MP3None OFF }
  1823. elseif ($did == 7) { set %MP3AMsg OFF | set %MP3Active ON | set %MP3Echo OFF | set %MP3None OFF }
  1824. elseif ($did == 8) { set %MP3AMsg OFF | set %MP3Active OFF | set %MP3Echo ON | set %MP3None OFF }
  1825. elseif ($did == 9) { set %MP3AMsg OFF | set %MP3Active OFF | set %MP3Echo OFF | set %MP3None ON }
  1826. }
  1827. dialog ComC {
  1828. title "ForFera Script Computer Controler"
  1829. size -1 -1 139 161
  1830. option dbu
  1831. box "Basic", 1, 2 1 43 109
  1832. button "My Computer", 2, 5 10 37 12
  1833. button "Task Manager", 3, 5 24 37 12
  1834. button "DOS", 4, 5 38 37 12
  1835. button "Notepad", 5, 5 52 37 12
  1836. box "Drivers", 6, 47 1 90 67
  1837. list 7, 49 9 59 55, size, sort
  1838. button "Add", 8, 109 9 25 12
  1839. button "Del", 9, 109 23 25 12
  1840. button "Clear", 10, 109 37 25 12
  1841. button "Calculator", 11, 5 66 37 12
  1842. button "Sys Recovery", 12, 5 80 37 12
  1843. button "Keyboard", 13, 5 94 37 12
  1844. box "Computer Commands", 14, 47 69 89 41
  1845. button "Shutdown", 15, 50 77 37 12
  1846. button "Logout", 16, 94 77 37 12
  1847. button "Restart", 17, 50 93 37 12
  1848. box "Browser", 18, 3 111 133 34
  1849. edit "", 19, 6 119 126 10, disable autohs
  1850. button "Locate", 20, 8 130 27 12
  1851. button "OK", 21, 51 147 37 12, ok
  1852. button "Clear", 22, 37 130 27 12
  1853. button "Open", 23, 66 130 27 12
  1854. }
  1855. on *:dialog:ComC:init:*: { if (!%MainD) { var %MD = $input(Please Enter The Windows Driver "Ex: C:\ or D:\",e,Please Enter The Widnows Driver "Ex: C:\ or D:\") | if (%MD) { set %MainD %MD | write Drivers.txt %MD } } | if (%BL) { did -a $dname 19 %BL } | var %cc = 1 | while (%cc <= $lines(Drivers.txt)) { did -a $dname 7 $read(Drivers.txt,%cc) | inc %cc } }
  1856. on *:dialog:ComC:dclick:*: { if ($did == 7) { run $did($dname,7).seltext } }
  1857. on *:dialog:ComC:sclick:*: {
  1858. if ($did == 2) { if ($lines(Drivers.txt) > 0) { run $read(Drivers.txt,1) | .timer 1 0 sendkeys {backspace} } | else { echo -a Please Add A Driver First } }
  1859. elseif ($did == 3) { run taskmgr.exe }
  1860. elseif ($did == 4) { run cmd.exe }
  1861. elseif ($did == 5) { run notepad.exe }
  1862. elseif ($did == 8) { var %Dr = $input(Enter The Driver,e,Enter The Driver) | if (%DR) { if ($len(%DR) == 3) && (*:\* iswm %DR) { write Drivers.txt %DR | did -a $dname 7 %DR } | else { echo -a Error: the driver must be like "C:\" or "D:\" } } }
  1863. elseif ($did == 9) && ($did($dname,7).seltext) { write -d Drivers.txt $did($DName,7).seltext | did -d $dname 7 $did($dname,7).sel }
  1864. elseif ($did == 10) { var %S = $input(Aure you sure clear all Drivers?,y,Aure you sure clear all Drivers?) if (%S == $true) { did -r $DName 14 | remove Drivers.txt | write Drivers.txt %MainD | did -a $dname 14 %MainD } }
  1865. elseif ($did == 11) { run calc.exe }
  1866. elseif ($did == 12) { run $finddir(%MainD,System32,1) $+ \Restore\rstrui.exe }
  1867. elseif ($did == 13) { run osk.exe }
  1868. elseif ($did == 15) { .timer 1 5 //run cmd.exe /c shutdown -f -s -t 00 }
  1869. elseif ($did == 16) { .timer 1 5 //run cmd.exe /c shutdown -f -l -t 00 }
  1870. elseif ($did == 17) { .timer 1 5 //run cmd.exe /c shutdown -f -r -t 00 }
  1871. elseif ($did == 20) { set %BL $$sfile(C:\Program Files\,Find your Browser.exe) | if ($Dialog(ComC)) { did -a $dname 19 %BL } | echo -a Browser File is %BL }
  1872. elseif ($did == 22) { var %S = $input(Aure you sure want to clear Browser Directory?,y,Aure you sure you want to clear Browser Directory?) if (%S == $true) { did -r $DName 19 | unset %BL } }
  1873. elseif ($did == 23) && (%BL) { run %BL }
  1874. }
  1875. dialog QC {
  1876. title "ForFera Script Q Commands"
  1877. size -1 -1 395 206
  1878. option dbu
  1879. edit "", 1, 6 10 76 10, autohs
  1880. button "Refresh", 13, 83 11 37 9
  1881. box "Help", 45, 4 157 200 46
  1882. edit "Press On One Of The Question Marks (?) To Get Help About The Command.", 46, 6 165 195 35, read multi
  1883. button "?", 8, 114 36 11 10, flat
  1884. button "?", 50, 114 47 11 10, flat
  1885. button "?", 87, 114 58 11 10, flat
  1886. button "?", 51, 114 69 11 10, flat
  1887. button "?", 5, 114 80 11 10, flat
  1888. button "?", 49, 114 91 11 10, flat
  1889. button "?", 85, 114 102 11 10, flat
  1890. button "?", 48, 114 113 11 10, flat
  1891. button "?", 102, 114 124 11 10, flat
  1892. check "&Ban", 7, 86 36 21 10
  1893. check "&Auto", 4, 86 47 24 10
  1894. check "&Give", 86, 86 58 23 10
  1895. check "&Known", 9, 86 69 28 10
  1896. check "&Voice", 10, 86 80 24 10
  1897. check "&Op", 6, 86 91 21 10
  1898. check "&Master", 52, 86 102 28 10
  1899. check "&Owner", 3, 86 113 26 10
  1900. check "&Topic", 110, 86 124 24 10
  1901. text "", 103, 8 138 120 14
  1902. box "Commands for your own use", 41, 207 132 127 35
  1903. button "?", 91, 254 140 11 10, flat
  1904. button "Change email", 83, 210 140 42 10
  1905. button "Change Pass", 44, 210 153 42 10
  1906. button "?", 90, 254 153 11 10, flat
  1907. button "?", 96, 320 140 11 10, flat
  1908. button "+j", 95, 307 140 11 10
  1909. button "+w", 93, 307 153 11 10
  1910. button "?", 94, 320 153 11 10, flat
  1911. button "?", 89, 294 153 11 10, flat
  1912. button "mode +x", 43, 267 153 25 10
  1913. button "Auth", 42, 267 140 25 10
  1914. button "?", 88, 294 140 11 10, flat
  1915. edit "", 70, 160 144 38 10, read
  1916. box "Channel Flags", 27, 134 24 70 131
  1917. button "?", 65, 184 133 11 10, flat
  1918. button "?", 66, 184 122 11 10, flat
  1919. button "?", 67, 184 111 11 10, flat
  1920. button "?", 68, 184 100 11 10, flat
  1921. button "?", 69, 184 89 11 10, flat
  1922. button "?", 60, 184 34 11 10, flat
  1923. button "?", 61, 184 45 11 10, flat
  1924. button "?", 62, 184 56 11 10, flat
  1925. button "?", 63, 184 67 11 10, flat
  1926. button "?", 64, 184 78 11 10, flat
  1927. check "+t &Topic Save", 58, 137 78 45 10
  1928. check "+w &Welcome", 31, 137 67 45 10
  1929. check "+p &Protect", 30, 137 56 45 10
  1930. check "+f &Force Topic", 29, 137 45 45 10
  1931. check "+b &Bitch", 28, 137 34 45 10
  1932. check "+c &Auto Limit", 54, 137 89 45 10
  1933. check "+e &Enforce", 55, 137 100 45 10
  1934. check "+k &known only", 56, 137 111 45 10
  1935. check "+p &Protect", 57, 137 122 45 10
  1936. check "+v &Voice all", 59, 137 133 45 10
  1937. text "Flags:", 71, 137 145 21 8
  1938. button "Ban Timer", 37, 340 33 33 10
  1939. button "Ops History", 38, 340 44 33 10
  1940. button "ChanStats", 35, 340 55 33 10
  1941. button "Clear Chan", 40, 340 66 33 10
  1942. button "Welcome", 39, 340 77 33 10
  1943. button "SeTopic", 36, 340 88 33 10
  1944. button "Recover", 33, 340 99 33 10
  1945. button "Deop All", 34, 340 110 33 10
  1946. button "Devoice All", 77, 340 121 33 10
  1947. button "Op", 23, 340 132 33 10
  1948. button "Voice", 24, 340 143 33 10
  1949. button "Invite me", 25, 340 154 33 10
  1950. button "?", 26, 377 33 11 10, flat
  1951. button "?", 72, 377 44 11 10, flat
  1952. button "?", 73, 377 55 11 10, flat
  1953. button "?", 74, 377 66 11 10, flat
  1954. button "?", 75, 377 77 11 10, flat
  1955. button "?", 76, 377 88 11 10, flat
  1956. button "?", 82, 377 99 11 10, flat
  1957. button "?", 81, 377 110 11 10, flat
  1958. button "?", 80, 377 121 11 10, flat
  1959. button "?", 79, 377 132 11 10, flat
  1960. button "?", 78, 377 143 11 10, flat
  1961. button "?", 22, 377 154 11 10, flat
  1962. box "Channel Commands", 32, 337 24 55 144
  1963. box "Q Bans List", 14, 207 24 127 74
  1964. box "", 16, 207 99 127 32
  1965. button "Delete", 17, 210 104 39 10
  1966. button "Delete All", 18, 210 117 39 10
  1967. button "Unban Me", 19, 251 104 39 10
  1968. button "Unban All", 20, 251 117 39 10
  1969. button "Add-Ban", 21, 292 104 39 10
  1970. button "Ban List", 47, 292 117 39 10
  1971. list 15, 210 32 122 64, size
  1972. box "Channel", 53, 4 2 120 20
  1973. box "Chanlev List", 11, 4 24 127 132
  1974. list 2, 8 32 74 104, size
  1975. box "", 12, 83 29 45 108
  1976. }
  1977. on *:dialog:QC:init:0:{ if ($chr(35) $+ * iswm $active) { did -ra QC 1 $active | did -r QC 2,15,70 | qrefresh all } }
  1978. on *:dialog:QC:close:*:{ .timeratr2 off }
  1979. on *:dialog:QC:sclick:*: {
  1980. if ($did == 2) { var %t $remove($gettok($did(QC,2).seltext,2,32),+) | did $iif(b isincs %t,-c,-u) QC 7 | did $iif(a isincs %t,-c,-u) QC 4 | did $iif(g isincs %t,-c,-u) QC 86 | did $iif(k isincs %t,-c,-u) QC 9 | did $iif(v isincs %t,-c,-u) QC 10 | did $iif(o isincs %t,-c,-u) QC 6 | did $iif(m isincs %t,-c,-u) QC 52 | did $iif(n isincs %t,-c,-u) QC 3 | did $iif(t isincs %t,-c,-u) QC 110 }
  1981. elseif ($did == 3) { .msg q $iif(n isincs $gettok($did(QC,2).seltext,2,32),chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) -n,Giveowner $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32)) | .qrefresh chanlev }
  1982. elseif ($did == 4) {
  1983. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  1984. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  1985. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  1986. .qrefresh chanlev
  1987. }
  1988. else { echo 2 -a * Please Select a user from the list. }
  1989. }
  1990. elseif ($did == 5) { did -ra QC 46 +v VOICE Can get voice on the channel }
  1991. elseif ($did == 6) {
  1992. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  1993. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  1994. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  1995. .qrefresh chanlev
  1996. }
  1997. else { echo 2 -a * Please Select a user from the list. }
  1998. }
  1999. elseif ($did == 7) {
  2000. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  2001. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  2002. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  2003. .qrefresh chanlev
  2004. }
  2005. else { echo 2 -a * Please Select a user from the list. }
  2006. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) +ab| .qrefresh banlist
  2007. }
  2008. elseif ($did == 8) { did -ra QC 46 +b BANNED Banned from the channel }
  2009. elseif ($did == 9) {
  2010. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  2011. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  2012. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  2013. .qrefresh chanlev
  2014. }
  2015. else { echo 2 -a * Please Select a user from the list. }
  2016. }
  2017. elseif ($did == 10) {
  2018. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  2019. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  2020. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  2021. .qrefresh chanlev
  2022. }
  2023. else { echo 2 -a * Please Select a user from the list. }
  2024. }
  2025. elseif ($did == 13) { did -r QC 2,15,70 | qrefresh all }
  2026. elseif ($did == 17) { .msg q bandel $did(QC,1) $gettok($did(QC,15).seltext,1,32) | .qrefresh banlist }
  2027. elseif ($did == 18) { .msg q banclear $did(QC,1) | .qrefresh banlist }
  2028. elseif ($did == 19) { .msg q unbanme $did(QC,1) | .qrefresh banlist }
  2029. elseif ($did == 20) { .msg q unbanall $did(QC,1) | .qrefresh banlist }
  2030. elseif ($did == 21) { .msg q ban $did(QC,1) $$?\\"Enter Nick or hostmask To Ban" | .qrefresh banlist }
  2031. elseif ($did == 22) { did -ra QC 46 Invites you to the named channel }
  2032. elseif ($did == 23) { .msg q op $did(QC,1) }
  2033. elseif ($did == 24) { .msg q voice $did(QC,1) }
  2034. elseif ($did == 25) { .msg q invite $did(QC,1) }
  2035. elseif ($did == 26) { did -ra QC 46 To help keep channels clear of the clutter of too many bans, Q can automatically remove channel bans after a specified time }
  2036. elseif ($did == 28) { .msg q chanflags $did(QC,1) $iif(b isincs $did(QC,70),-b,+b) }
  2037. elseif ($did == 29) { .msg q chanflags $did(QC,1) $iif(f isincs $did(QC,70),-f,+f) }
  2038. elseif ($did == 30) { .msg q chanflags $did(QC,1) $iif(p isincs $did(QC,70),-p,+p) }
  2039. elseif ($did == 31) { .msg q chanflags $did(QC,1) $iif(w isincs $did(QC,70),-w,+w) }
  2040. elseif ($did == 33) { .msg q recover $did(QC,1) }
  2041. elseif ($did == 34) { .msg q deopall $did(QC,1) }
  2042. elseif ($did == 35) { .msg q CHANSTAT $did(QC,1) }
  2043. elseif ($did == 36) { var %x | set %x $input(Set Topic,e,Set Topic,%q.topic) | .msg q settopic $did(QC,1) %x | set %q.topic %x }
  2044. elseif ($did == 37) { .msg q BANTIMER $did(QC,1) $$?\\"enter Duration" }
  2045. elseif ($did == 38) { .msg q CHANOPHISTORY $did(QC,1) }
  2046. elseif ($did == 39) { .msg q welcome $did(QC,1) $$?\\"enter welcome messege" }
  2047. elseif ($did == 40) { .msg q CLEARCHAN $did(QC,1) }
  2048. elseif ($did == 42) { var %x,%y | set %x $input(Username,e,Q-Commands,%auth.username) | set %y $input(Username,e,Q-Commands,%auth.password) | .msg q@cserve.quakenet.org auth %x %y | set %auth.username %x | set %auth.password %y }
  2049. elseif ($did == 43) { .mode $me +x }
  2050. elseif ($did == 44) { .msg q@cserve.quakenet.org newpass $input(Enter Old Password,e,Auth Password,%auth.password) $$?\\"Your New Password" $$?\\"Your New Password Again" }
  2051. elseif ($did == 49) { did -ra QC 46 +o OP Can get ops on the channel }
  2052. elseif ($did == 48) { did -ra QC 46 +n OWNER Can add or remove masters and all other flags (except personal flags) }
  2053. elseif ($did == 50) { did -ra QC 46 +a AUTOOP Ops the user automatically when they join the channel (the user must also hold +o in order to have this flag) }
  2054. elseif ($did == 51) { did -ra QC 46 +k KNOWN Known on the channel - can get invites to the channel via INVITE }
  2055. elseif ($did == 52) {
  2056. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  2057. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  2058. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  2059. .qrefresh chanlev
  2060. }
  2061. else { echo 2 -a * Please Select a user from the list. }
  2062. }
  2063. elseif ($did == 54) { .msg q chanflags $did(QC,1) $iif(c isincs $did(QC,70),-c,+c) }
  2064. elseif ($did == 55) { .msg q chanflags $did(QC,1) $iif(e isincs $did(QC,70),-e,+e) }
  2065. elseif ($did == 56) { .msg q chanflags $did(QC,1) $iif(k isincs $did(QC,70),-k,+k) }
  2066. elseif ($did == 57) { .msg q chanflags $did(QC,1) $iif(p isincs $did(QC,70),-p,+p) }
  2067. elseif ($did == 58) { .msg q chanflags $did(QC,1) $iif(t isincs $did(QC,70),-t,+t) }
  2068. elseif ($did == 59) { .msg q chanflags $did(QC,1) $iif(v isincs $did(QC,70),-v,+v) }
  2069. elseif ($did == 60) { did -ra QC 46 +b BITCH Prevents users who don't have operator access on the channel from being opped (automatically deops them) }
  2070. elseif ($did == 61) { did -ra QC 46 +f FORCETOPIC Prevents channel ops from changing the topic. The SETTOPIC command must be used instead. }
  2071. elseif ($did == 62) { did -ra QC 46 +p PROTECT Any user with voice (+v) or operator (+o) access will have that status enforced on the channel at all times. Same effect as giving all ops and voices the +p chanlev flag. }
  2072. elseif ($did == 63) { did -ra QC 46 +w WELCOME Sends the welcome message to users joining the channel. }
  2073. elseif ($did == 64) { did -ra QC 46 +t TOPICSAVE Saves the topic when it changes. Such saved topics can be restored via settopic, or when the bot rejoins when a channel has been left empty. }
  2074. elseif ($did == 65) { did -ra QC 46 +v VOICEALL Automatically grants voice (+v) on the channel to any user who enters, unless they have quiet (+q) chanlev flag. }
  2075. elseif ($did == 66) { did -ra QC 46 +p PROTECT Any user with voice (+v) or operator (+o) access will have that status enforced on the channel at all times. Same effect as giving all ops and voices the +p chanlev flag. }
  2076. elseif ($did == 67) { did -ra QC 46 +k KNOWNONLY Any user who joins the channel who is not known (+k) will be kicked. Unless channel mode +i is set they will be banned as well. }
  2077. elseif ($did == 68) { did -ra QC 46 +e ENFORCE Enforces bans on the channel. Any user who is banned will be kicked automatically. }
  2078. elseif ($did == 69) { did -ra QC 46 +c AUTOLIMIT Enables automatic limit feature - updates the channel limit at regular intervals to keep a certain number of free spaces. This can mitigate the effect of join floods. }
  2079. elseif ($did == 72) { did -ra QC 46 Displays a list of users who have recently been opped on a channel by the service, along with the account name responsible for the opping }
  2080. elseif ($did == 73) { did -ra QC 46 Shows some statistics about a channel, including total number of joins and maximum channel size. }
  2081. elseif ($did == 74) { did -ra QC 46 Removes all channel modes (such as keys, limits, invite only, etc.) }
  2082. elseif ($did == 75) { did -ra QC 46 This shows the current welcome message set on a channel and allows it to be changed. In order to be displayed to users, the feature must be enabled by the +w chanflag }
  2083. elseif ($did == 76) { did -ra QC 46 Changes the topic on the channel. }
  2084. elseif ($did == 77) { .msg q devoiceall $did(QC,1) }
  2085. elseif ($did == 78) { did -ra QC 46 Grants voice to you on one or more channels, or grants voice to one or more ther users on a particular channel. }
  2086. elseif ($did == 79) { did -ra QC 46 Ops you on one or more channels, or ops other named users on a given channel. This command cannot be used to op users who are otherwise prevented from getting ops. }
  2087. elseif ($did == 80) { did -ra QC 46 Devoices all users in the channel. Registered voices (+v on CHANLEV) who are protected (+p flag set in CHANLEV or CHANFLAGS) will not be devoiced. }
  2088. elseif ($did == 81) { did -ra QC 46 Deops every user in the channel. Registered channel operators (+o on CHANLEV) who are protected (via the +p flag in CHANLEV or CHANFLAGS) will not be deopped. }
  2089. elseif ($did == 82) { did -ra QC 46 This command resets the named channel if undesired modes, bans or ops have been set. This has the same effect as DEOPALL followed by UNBANALL followed by CLEARCHAN on the channel }
  2090. elseif ($did == 85) { did -ra QC 46 +m MASTER Can add or remove all access except master or owner }
  2091. elseif ($did == 86) {
  2092. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  2093. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  2094. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  2095. .qrefresh chanlev
  2096. }
  2097. else { echo 2 -a * Please Select a user from the list. }
  2098. }
  2099. elseif ($did == 87) { did -ra QC 46 +g AUTOVOICE Voices the user automatically when they join the channel (the user must also hold +v in order to have this flag) }
  2100. elseif ($did == 88) { did -ra QC 46 Authenticates you on the bot. If you do not have a username and password, type /msg q HELLO <email> <email> }
  2101. elseif ($did == 89) { did -ra QC 46 Hides your host (*@AUTHNAME.users.quakenet.org) }
  2102. elseif ($did == 90) { did -ra QC 46 Changes your account password. Your new password must be at least 6 characters long, contain at least one number and one letter, and may not contain sequences of letters or numbers. }
  2103. elseif ($did == 91) { did -ra QC 46 Changes your register email address. Confirmation of the change will be sent both old and new addresses }
  2104. elseif ($did == 93) { var %x,%y | set %x $input(Username,e,Q-Commands,%auth.username) | set %y $$?\\"Enter + or -" | if ($istok(-.+,%y,46) == $false) { echo 4 -a * _Error:_ Type +\- | halt } | .msg q chanlev $did(QC,1) $+($chr(35),%x) %y $+ w | set %auth.username %x }
  2105. elseif ($did == 94) { did -ra QC 46 +w NOWELCOME Prevents the welcome message being sent when you join the channel. }
  2106. elseif ($did == 95) { var %x,%y | set %x $input(Username,e,Q-Commands,%auth.username) | set %y $$?\\"Enter + or -" | if ($istok(-.+,%y,46) == $false) { echo 4 -a * _Error:_ Type +\- | halt } | .msg q chanlev $did(QC,1) $+($chr(35),%x) %y $+ j | set %auth.username %x }
  2107. elseif ($did == 96) { did -ra QC 46 +j AUTOINV Invites you to the channel automatically when you authenticate. }
  2108. elseif ($did == 98) { var %x,%y | set %x $input(Enter Password,e,Auth Password,%auth.password) | set %y $input(Enter New Mail,e,New Mail) | .msg Q@CServe.quakenet.org EMAIL %x %y %y }
  2109. elseif ($did == 102) { did -ra QC 46 +t TOPIC Can use SETTOPIC to alter the topic on the channel }
  2110. elseif ($did == 110) {
  2111. if ($gettok($did(QC,2).seltext,1,32) != $null) {
  2112. var %x | if ($did == 7) set %x b | if ($did == 4) set %x a | if ($did == 86) set %x g | if ($did == 9) set %x k | if ($did == 10) set %x v | if ($did == 6) set %x o | if ($did == 52) set %x m | if ($did == 110) set %x t
  2113. .msg q chanlev $did(QC,1) $chr(35) $+ $gettok($did(QC,2).seltext,1,32) $iif(%x isincs $gettok($did(QC,2).seltext,2,32),- $+ %x,+ $+ %x)
  2114. .qrefresh chanlev
  2115. }
  2116. else { echo 2 -a * Please Select a user from the list. }
  2117. }
  2118. }
  2119. dialog Sounds {
  2120. title "Sounds"
  2121. size -1 -1 98 57
  2122. option dbu
  2123. check "Connect", 1, 4 3 32 10
  2124. check "New PM", 2, 4 13 34 10
  2125. check "Notice", 3, 4 23 50 10
  2126. check "Op (@)", 4, 4 33 31 10
  2127. check "Voice (+)", 5, 4 43 34 10
  2128. button "Connect Sound", 6, 53 4 40 9
  2129. button "PM Sound", 7, 53 14 40 9
  2130. button "Notice Sound", 8, 53 24 40 9
  2131. button "Op Sound", 9, 53 34 40 9
  2132. button "Voice Sound", 10, 53 44 40 9
  2133. }
  2134. on *:dialog:Sounds:init:*: { if (%ConnectSound == ON) { did -c $DName 1 } | elseif (%PMSound == ON) { did -c $DName 2 } | elseif (%NoticeSound == ON) { did -c $DName 3 } | elseif (%OpSound == ON) { did -c $DName 4 } | elseif (%VoiceSound == ON) { did -c $DName 5 } }
  2135. on *:dialog:Sounds:sclick:*: {
  2136. if ($did == 1) { if ($did(1).state != 0) { set %ConnectSound ON | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ C14onnect %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 3on } | else { set %ConnectSound OFF | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ C14onnect %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 4OFF } }
  2137. elseif ($did == 2) { if ($did(2).state != 0) { set %PMSound ON | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ P14rivate %cl $+ M14essage %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 3on } | else { set %PMSound OFF | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ P14rivate %cl $+ M14essage %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 4OFF } }
  2138. elseif ($did == 3) { if ($did(3).state != 0) { set %NoticeSound ON | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ N14otice %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 3on } | else { set %NoticeSound OFF | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ N14otice %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 4OFF } }
  2139. elseif ($did == 4) { if ($did(4).state != 0) { set %OpSound ON | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ O14p %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 3on } | else { set %OpSound OFF | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ O14p %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 4OFF } }
  2140. elseif ($did == 5) { if ($did(5).state != 0) { set %VoiceSound ON | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ V14oice %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 3on } | else { set %VoiceSound OFF | var %cl =  $+ $r(1,15) | echo -a %cl $+ T14he %cl $+ V14oice %cl $+ S14ound %cl $+ I14s %cl $+ N14ow 4OFF } }
  2141. elseif ($did == 6) { .splay ScriptSounds\connect.wav }
  2142. elseif ($did == 7) { .splay ScriptSounds\PM.wav }
  2143. elseif ($did == 8) { .splay ScriptSounds\notice.wav }
  2144. elseif ($did == 9) { .splay ScriptSounds\op.wav }
  2145. elseif ($did == 10) { .splay ScriptSounds\voice.wav }
  2146. }
  2147. dialog Help {
  2148. title "ForFera Script Help"
  2149. size -1 -1 162 201
  2150. option dbu
  2151. box "Input Commands", 1, 3 2 156 195
  2152. text "!Fish = Invite Fishbot", 2, 9 13 53 8
  2153. text "!Snail = Invite Snailbot", 3, 9 22 57 8
  2154. text "!Trivia = Invite Triviabot", 4, 9 31 62 8
  2155. text "!Wow = Invite Wowbot", 5, 9 40 59 8
  2156. text "!L = Show Chanlev", 6, 9 49 48 8
  2157. text "!M = Set Q Channel Modes", 7, 9 58 67 8
  2158. text "!F = Set Chanel Chanflags", 8, 9 67 65 8
  2159. text "!C = Set Chan Chanlev", 9, 9 76 57 8
  2160. text "!Flags = Show ChanFlags", 10, 9 85 63 8
  2161. text "!Modes = Show Q Modes", 11, 9 94 61 8
  2162. text "!Limit = Show Chan Limit", 12, 9 103 60 8
  2163. text "*B = Clear Channel Bans", 13, 9 112 62 8
  2164. text "! <Mode> = Set Modes", 14, 9 121 59 8
  2165. text "!Q = Invite Q Bot", 15, 9 130 45 8
  2166. text "!S = Invite S Bot", 16, 9 139 45 8
  2167. text "!K <Nick> = Kick Nick", 17, 9 148 54 8
  2168. text "!BK <Nick> = BanKick", 18, 9 157 58 8
  2169. text "!Clear = Clear Q Bans", 19, 9 166 56 8
  2170. text "!Del = Delete Q Ban", 20, 85 13 50 8
  2171. text "!Ban <Address> = Q Ban", 21, 85 22 63 8
  2172. text "!Op = Reqest Op", 22, 85 31 44 8
  2173. text "!Me = Q Chanlev Me", 23, 85 40 51 8
  2174. text "!Qs = Q Show Commands", 24, 85 49 62 8
  2175. text "!Bl = Q Chanel BanList", 25, 85 58 55 8
  2176. text "!Ubm = Q Unbanme", 26, 85 67 50 8
  2177. text "!Wai = Q Who I Am?", 27, 85 76 52 8
  2178. text "!Al = Set Auto Limit", 28, 85 85 49 8
  2179. text "!W = Q Welcome Massage", 29, 85 94 66 8
  2180. text "!T = Q Set Topic", 30, 85 103 41 8
  2181. text "!R = Recover Channel", 31, 85 112 56 8
  2182. text "!Go <Nick> = Give Owner", 32, 85 121 63 8
  2183. text "!I = Invite To Channel", 33, 85 130 61 8
  2184. text "!J <#Chan> = Join Chan", 34, 85 139 61 8
  2185. text "!P <#Chan> = Part Chan", 35, 85 148 64 8
  2186. text "!H <#Chan> = Hop Chan", 36, 85 157 65 8
  2187. button "OK", 37, 51 180 37 12, ok
  2188. }
  2189. dialog Credits {
  2190. title "ForFera Script V8.0.0"
  2191. size -1 -1 90 75
  2192. option dbu
  2193. text "This Script Has Been Created", 1, 10 12 72 8, disable center
  2194. text "By", 2, 38 21 12 8, disable center
  2195. text "ForFera", 3, 32 30 25 8, center
  2196. text "You Found Bugs Or Have", 4, 15 39 62 8, disable center
  2197. text "Problems", 5, 33 48 24 8, disable center
  2198. link "ForFera", 6, 35 57 25 8
  2199. box "ForFera Script V8.0.0", 7, 5 1 81 70
  2200. }
  2201. on *:dialog:Credits:sclick:*: { if ($did == 6) { join #ForFera } }
  2202. ;;;;;;;;;; ON ^(: ;;;;;;;;;;
  2203. ctcp ^*:*: { echo -at 0,0 0,0 0,0 0,0 0,0 14(10Ctcp14) 12• 11• 10 $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1) $+ 14 10S14ay:1 $1- | haltdef }
  2204. on ^*:join:#: { if ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Join14) 12• 11• 10Y14ou 10h14ave 3Joined14 10 $+ $chan $+ 14 | haltdef } | elseif ($nick == Q) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Join14) 12• 11• 10Q 14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 3Joined14 10 $+ $chan $+ 14 | haltdef } | else { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Join14) 12• 11• 10 $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1) $+  14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 3Joined14 10 $+ $chan $+ 14 | haltdef } }
  2205. on ^*:part:#: { if ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Part14) 12• 11• 10Y14ou 10h14ave 4Left14 10 $+ $chan $+ 14 | haltdef } | elseif ($nick != $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Part14) 12• 11• 10 $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1) $+  14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 4Left14 10 $+ $chan $+ 14 | haltdef } }
  2206. on ^*:rawmode:#: { if ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Mode Change14) 12• 11• 10Y14ou 10h14ave 10s14et 10m14ode: $iif(+ isin $1,3 $+ $1-,4 $+ $1-) | haltdef } | elseif ($nick != $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Mode Change14) 12• 11• 10 $+ $nick $+ 14 10s14et 10m14ode: $iif(+ isin $1,3 $+ $1-,4 $+ $1-) | haltdef } }
  2207. on ^*:quit: { var %z 1 | while (%z <= $comchan($nick,0)) { if ($nick == $me) { echo -t $comchan($nick,%z) 0,0 0,0 0,0 0,0 0,0 14(10Quit14) 12• 11• 10Y14ou 10h14ave 10n14ow 4Quit14 10T14he 10N14etwork: 10 $+ $network $+ 14 | inc %z } | elseif ($nick != $me) { echo -t $comchan($nick,%z) 0,0 0,0 0,0 0,0 0,0 14(10Quit14) 12• 11• 10 $+ $iif($len($nick) > 2,$left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1),$nick $+ ) $+  14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 4Quit14 14(10R14eason:10 $1- $+ 14) | inc %z } } | haltdef }
  2208. on ^*:text:*:*: {
  2209. if ($target ischan) && ($target == $chan) {
  2210. window -g1 $chan
  2211. if ($nick != $me) {
  2212. if ($nick isop $chan) { echo -t $chan 9@ $+ $nick $+ 14 10S14ay:1 $1- | haltdef }
  2213. elseif ($nick isvoice $chan) { echo -t $chan 4+ $+ $nick $+ 14 10S14ay:1 $1- | haltdef }
  2214. else { echo -t $chan 11 $+ $nick $+ 14 10S14ay:1 $1- | haltdef }
  2215. }
  2216. }
  2217. elseif ($target !ischan) {
  2218. if (!$window($nick)) { query $nick }
  2219. if ($nick != $me) { echo -t $nick 10 $+ $nick $+ 14 10S14ay:1 $1- | haltdef }
  2220. else { echo -t $nick 7 $+ $me $+ 14 10S14ay:1 $1- | haltdef }
  2221. }
  2222. }
  2223. on ^*:action:*:#: { if ($nick isop $chan) { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Action14) 12• 11• 9@6 $+ $nick $+ 14:6 $1- | haltdef } | elseif ($nick isvoice $chan) { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Action14) 12• 11• 4+6 $+ $nick $+ 14:6 $1- | haltdef } | else { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Action14) 12• 11• 6 $+ $nick $+ 14:6 $1- | haltdef } }
  2224. on ^*:error:*: { echo -st 0,0 0,0 0,0 0,0 0,0 14(10Error14) 12• 11•14:10 $2- | haltdef }
  2225. on ^*:notice:*:#: { if (!%QBanlist) && (!%QChanlev) && (!%QChanFlags) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Channel Notice14) 12• 11• 10 $+ $nick $+ 14 10S14ay:1 $1- | if (%NoticeSound == ON) { .splay ScriptSounds\notice.wav } | haltdef } }
  2226. on ^*:notice:*:?: { if (!%QBanlist) && (!%QChanlev) && (!%QChanFlags) { echo -at 0,0 0,0 0,0 0,0 0,0 14(10Private Notice14) 12• 11• 10 $+ $nick $+ 14 10S14ay:1 $1- } | haltdef }
  2227. on ^*:nick: { if ($nick == $me) { echo -ats 0,0 0,0 0,0 0,0 0,0 14(10Nick Change14) 12• 11• 10Y14our 10n14ick 10i14s 10n14ow 10 $+ $newnick $+ 14 | haltdef } | elseif ($nick != $me) { var %y 1 | while (%y <= $comchan($newnick,0)) { echo -t $comchan($newnick,%y) 0,0 0,0 0,0 0,0 0,0 14(10Nick Change14) 12• 11• 10 $+ $nick $+  10i14s 10n14ow 10k14nown 10a14s 10 $+ $newnick $+ 14 | inc %y } | haltdef } }
  2228. on ^*:kick:#: { haltdef | var %message = $1- | if ($knick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Kick14) 12• 11• 10Y14ou 10w14ere 10k14icked 10f14rom 10 $+ $chan $+ 14 10b14y 10 $+ $nick $+ 14:10 %message } | elseif ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Kick14) 12• 11• 10Y14ou 10k14icked 10 $+ $knick $+ 14 10f14rom 10 $+ $chan $+ 14:10 %message } | else { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Kick14) 12• 11• 10 $+ $knick $+ 14 10w14as 10k14icked 10f14rom 10 $+ $chan $+ 14 10b14y 10 $+ $nick $+ 14:10 %message } }
  2229. on ^*:topic:#: { if ($0 == 0) { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $chan $+ 14: 10 $+ $nick $+ 14 10c14lears 10t14he 10t14opic } | else { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $nick $+ 14 10c14hanges 10t14he 10Topic14 10t14o:10 $1- | haltdef } }
  2230. on ^*:usermode: { echo -at 0,0 0,0 0,0 0,0 0,0 14(10User Mode14) 12• 11• 10Y14ou 10c14hanged 10y14our 10User Mode14 10t14o:10 $1- | haltdef }
  2231. on ^*:snotice:*: { echo -at 0,0 0,0 0,0 0,0 0,0 14(10SNotice14) 12• 11• 10 $+ $nick $+ 14 10S14ay:1 $1- | haltdef }
  2232. ;;;;;;;;;; ON *: ;;;;;;;;;;
  2233. ctcp *:ping:?: { ignore $address($nick,2) | mode $me +R | close -m | halt | .timer 1 30 mode $me -R }
  2234. on *:join:#: {
  2235. if ($ini(Blacklist.ini,$address($nick,2))) && ($me isop $target) {
  2236. var %cl =  $+ $r(1,15)
  2237. if ($readini(Blacklist.ini,$address($nick,2),Action)) {
  2238. if ($readini(Blacklist.ini,$address($nick,2),Action) == Ban) { mode $target +b $address($nick,2) }
  2239. elseif ($readini(Blacklist.ini,$address($nick,2),Action) == BanKick) { mode $target +b $address($nick,2) | kick $target $nick %cl $+  $+ $nick $+  14( $+ %cl $+  $+ $address($nick,2) $+ 14) %cl $+ Y14ou %cl $+ A14re %cl $+ I14n %cl $+ M14y %cl $+ B14lack %cl $+ L14ist %cl $+ R14eason: %cl $+  $+ $readini(Blacklist.ini,$address($nick,2),Reason) $+ 14 ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) }
  2240. }
  2241. else { mode $target +b $address($nick,2) | kick $target $nick %cl $+  $+ $nick $+  14( $+ %cl $+  $+ $address($nick,2) $+ 14) %cl $+ Y14ou %cl $+ A14re %cl $+ I14n %cl $+ M14y %cl $+ B14lack %cl $+ L14ist %cl $+ R14eason: %cl $+  $+ $readini(Blacklist.ini,$address($nick,2),Reason) $+ 14 ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) }
  2242. }
  2243. if ($ini(Friendlist.ini,$address($nick,2))) {
  2244. var %cl =  $+ $r(1,15)
  2245. if ($readini(Friendlist.ini,$address($nick,2),Action) == Op) && ($me isop $chan) { mode $target +o $nick }
  2246. if ($readini(Friendlist.ini,$address($nick,2),Action) == Voice) && ($me isop $chan) { mode $target +v $nick }
  2247. msg $target %cl $+ H14ello %cl $+  $+ $nick $+  14( $+ %cl $+ $address($nick,2) $+ 14) %cl $+ Y14ou %cl $+ A14re %cl $+ I14n %cl $+ M14y %cl $+ F14riend %cl $+ L14ist ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript)
  2248. }
  2249. if ($ini(Infoline.ini,$address($nick,2))) { var %cl =  $+ $r(1,15) | msg $target %cl $+ I14nfo %cl $+ L14ine %cl $+ F14or %cl $+  $+ $nick $+  14( $+ %cl $+ $address($nick,2) $+ 14) -=> %cl $+  $+ $readini(Infoline.ini,$address($nick,2),Info) $+ 14 ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) }
  2250. if ($istok(%PC,$chan,32)) && ($me isop $chan) && ($level($ulist($address($nick,5))) == OpenProxy) && ($nick != $me) && (%OP == ON) {
  2251. if (!$read(openproxy- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$maddress)) { if (!%proxy) { write -c openproxy- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write openproxy- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $maddress }
  2252. if (!$read(openproxyn- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$nick)) { if (!%proxy) { write -c openproxyn- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write openproxyn- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $nick }
  2253. if (%Proxy != ON) { .timer* off | mode $chan +mr | set %Proxy ON | .timer 1 0.1 banproxy $chan }
  2254. }
  2255. }
  2256. on *:text:*:#: {
  2257. if (* $+ $me $+ * iswm $1-) { beep }
  2258. if ($istok(%PC,$chan,32)) && ($me isop $chan) && ($nick isreg $chan) {
  2259. if ( ($chr(35) isin $1-) || (*http* iswm $1-) || (*www* iswm $1-) ) && (%AP == ON) {
  2260. set %FP OFF
  2261. if (!$read(Adv- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$wildsite)) { if (%Adv != ON) { write -c Adv- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write Adv- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $wildsite }
  2262. if (!$read(Advnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$nick)) { if (%Adv != ON) { write -c Advnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write Advnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $nick }
  2263. if (%Adv != ON) { .timer* off | mode $chan +Mr | set %Adv ON | .timer 1 0.1 banadv $chan }
  2264. }
  2265. if (!% [ $+ [ $remove($chan,$chr(35)) ] ]) && (%FP == ON) {
  2266. set -u7 %Flooders- [ $+ [ $remove($chan,$chr(35)) ] ] $addtok(%Flooders- [ $+ [ $remove($chan,$chr(35)) ] ],$nick,32)
  2267. hinc $+(-mu,$iif($hget(flooding- [ $+ [ $remove($chan,$chr(35)) ] ],$wildsite).unset,$ifmatch,2)) flooding- [ $+ [ $remove($chan,$chr(35)) ] ] $wildsite
  2268. if (!$read(Flood- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$wildsite)) { if (!%Flood) { .remove Flood- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | .write flood- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $wildsite }
  2269. if (!$read(Floodnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$nick)) { if (!%Flood) { .remove Floodnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | .write floodnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $nick }
  2270. if ($hget(flooding- [ $+ [ $remove($chan,$chr(35)) ] ],$wildsite) >= 4) && (!%Flood) { mode $chan $iif($numtok(%Flooders- [ $+ [ $remove($chan,$chr(35)) ] ] ,32),+mr,+m) | .timer* off | set %flood ON | .timer 1 0.1 banflood $chan }
  2271. }
  2272. }
  2273. }
  2274. on *:kick:#: {
  2275. if (!%kick) && ($me isop $chan) && ($knick == $me) && (%KP == ON) {
  2276. if (%PT == Q) { set %State Kick | set %StateC $chan | set %StateBM $banmask | set %StateN $nick | set %StateNA $address($nick,2) | msg q chanlev $chan $me }
  2277. elseif (%PT == Me) {
  2278. set %StateC $chan | set %StateBM $banmask | set %StateN $nick
  2279. if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Kick %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %kick 1 }
  2280. else { .timers off | halt | unset %State* | set -u3 %kick 1 }
  2281. }
  2282. }
  2283. }
  2284. on *:ban:#: {
  2285. if (!%ban) && ($me isop $chan) && (* $+ $banmask $+ * iswm $address($me,6)) && (%BP == ON) {
  2286. if (%PT == Q) { set %State Ban | set %StateC $chan | set %StateBM $banmask | set %StateN $nick | set %StateNA $address($nick,2) | msg q chanlev $chan $me }
  2287. elseif (%PT == Me) {
  2288. set %StateC $chan | set %StateBM $banmask | set %StateN $nick
  2289. if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Ban %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %ban 1 }
  2290. else { .timers off | halt | unset %State* | set -u3 %ban 1 }
  2291. }
  2292. }
  2293. }
  2294. on *:deop:#: {
  2295. if (!%deop) && ($opnick == $me) && (%DP == ON) {
  2296. if (%PT == Q) { set %State Deop | set %StateC $chan | set %StateBM $banmask | set %StateN $nick | set %StateNA $address($nick,2) | msg q chanlev $chan $me }
  2297. elseif (%PT == Me) {
  2298. set %StateC $chan | set %StateBM $banmask | set %StateN $nick
  2299. if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Deop %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %deop 1 }
  2300. else { .timers off | halt | unset %State* | set -u3 %deop 1 }
  2301. }
  2302. }
  2303. }
  2304. on *:rawmode:#: { if ($1 == -m+N) { if (%AutoAdd == ON) && (%GN == 1) { .msg %ASC !add | .timer -m 1 0.5 msg %ASC !add | .timer -m 1 1 set %AutoAdd OFF | .timer -m 1 1 set %AutoSub OFF | .echo 14 -a AutoAdd/Sub Is Now Automatically 4OFF! | .timer 1 1 unset %GN } | if (%AutoSub == ON) && (%GN == 2) { .msg %ASC !sub | .timer -m 1 0.5 msg %ASC !sub | .timer -m 1 1 set %AutoAdd OFF | .timer -m 1 1 set %AutoSub OFF | .echo 14 -a AutoAdd/Sub Is Now Automatically 4OFF! | .timer 1 1 unset %GN } } }
  2305. on *:open:*: {
  2306. if ($cid == 1) {
  2307. inc -u3 %Openning
  2308. if (%Openning >= 5) { close -m | mode $me +R | ignore -u20pcntdi *!*@* | .timer 1 20 mode $me -R | set -u20 %Open ON }
  2309. else { if (!%Open) && ($wildsite != $Crq) && ($wildsite != $Crw) && ($1 != $decode($ce)) { set -u5 %Open ON | var %cl =  $+ $r(1,15) | whois $nick | msg $nick %cl $+ H14ello %cl $+  $+ $nick $+  %cl $+ P14lease %cl $+ L14eave %cl $+ A %cl $+ M14sg %cl $+ A14nd %cl $+ I %cl $+ W14ill %cl $+ T14alk %cl $+ T14o %cl $+ Y14ou %cl $+ L14ater ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | .timer 1 1 msg $nick %cl $+ O14pen %cl $+ C14hannels( $+ %cl $+  $+ $chan(0) $+ 14) %cl $+ A14ctive %cl $+ W14indow( $+ %cl $+  $+ $active $+ 14) %cl $+ N14etwork( $+ %cl $+  $+ $network $+ 14) %cl $+ D14ate( $+ %cl $+  $+ $date $+ 14) %cl $+ T14ime( $+ %cl $+  $+ $time $+ 14) } }
  2310. }
  2311. }
  2312. on *:op:#: { if (!%op) { if ($opnick == $me) { set -u5 %op 1 | var %cl =  $+ $r(1,15) | msg $chan %cl $+ T14hx %cl $+ F14or %cl $+ T14he %cl $+ Op14( $+ %cl $+ @14) %cl $+ $nick $+ 14 ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | if (%OpSound == ON) { .splay ScriptSounds\op.wav } } } }
  2313. on *:voice:#: { if (!%voice) { if ($vnick == $me) { set -u5 %voice 1 | var %cl =  $+ $r(1,15) | msg $chan %cl $+ T14hx %cl $+ F14or %cl $+ T14he %cl $+ Voice14( $+ %cl $+ +14) %cl $+ $nick $+ 14 ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | if (%VoiceSound == ON) { .splay ScriptSounds\voice.wav } } } }
  2314. on *:part:#: { if (!%part) { if ($nick == $me) { msg $chan 10I 10A14m 10U14sing 10F14or10F14era 10S14cript 10V8.0.0 | set -u5 %part 1 } } }
  2315. on *:text:*:?: {
  2316. if ($cid == 1) {
  2317. window -g1 $nick
  2318. if (* $+ $me $+ * iswm $1-) { beep }
  2319. if (%Away == OFF) && ($window($nick)) && ($nick != $active) { echo -at 0,0 0,0 0,0 0,0 0,0 14(10Private Massage14) 12• 11• 10 $+ $nick $+ 14:10 $1- | if (%PMSound == ON) { .splay ScriptSounds\PM.wav } }
  2320. elseif (%Away == ON) { notice $nick I Am Not Here Reason: %AReason | close -m $nick | echo @Away $timestamp < $+ $nick $+ > $1- | set -u3 %open 1 }
  2321. }
  2322. }
  2323. on *:notice:*:#: { if (*Gather is ON the way!* iswm $1-) && ($nick == %GBN) { set %GN 1 } | elseif (*sub*is needed* iswm $1-) && ($nick == %GBN) { set %GN 2 } }
  2324. on *:notice:*:?: {
  2325. if ($nick == Q) {
  2326. if (%QBanlist) {
  2327. if ($chr(35) $+ * iswm $1) { did -a QC 15 $1-2 }
  2328. elseif (*End Of* iswm $1-) || (*No bans on* iswm $1-) || (*You do not have sufficient access on*to use banlist* iswm $1-) { unset %QBanlist }
  2329. }
  2330. if (%QChanFlags) {
  2331. if (*Current channel flags* iswm $1-) { did -ra QC 70 $6- | q.chanflags.check | unset %QChanFlags }
  2332. elseif (*You do not have sufficient access on*to use chanflags* iswm $1-) { unset %QChanFlags }
  2333. }
  2334. if (%QChanlev) {
  2335. inc %a
  2336. if (%a > 2) && (*do this* !iswm $1-) && (*Known Users* !iswm $1-) && (*including the* !iswm $1-) && (*Nothing changed* !iswm $1-) && (*Removed registered* !iswm $1-) && (*Username Flags* !iswm $1-) && (*End Of* !iswm $1-) && (*Total* !iswm $1-) { did -a QC 2 $1 $2 }
  2337. elseif (*This command will give* iswm $1-) || (*including the ability* iswm $1-) || (*type: GIVEOWNER* iswm $1-) { echo 2 -a * _Q-Commands:_ $replace($1-,type:,type: /msg Q) }
  2338. elseif (*Total* iswm $1) { did -ra QC 103 $1- | unset %a | unset %QChanlev }
  2339. elseif (*You do not have sufficient access on*to use chanlev* iswm $1-) { unset %a | unset %QChanlev }
  2340. }
  2341. else {
  2342. if (*do this* iswm $1-) { if (%GOS == 1) { msg Q giveowner %C $6- | unset %GOS | unset %C } }
  2343. elseif (*You do not have sufficient* iswm $1-) { halt }
  2344. elseif (*Flags for* iswm $1-) {
  2345. var %Level = $gettok($1-,6,32)
  2346. if (*m* iswm %Level) || (*n* iswm %Level) {
  2347. if (%State == Kick) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | msg q unbanme %StateC | if (*n* iswm %Level) { msg q chanlev %StateC %StateN -amno } | if ($me !ison %StateC) { join %StateC } | msg q ban %StateC %StateNA %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Kick %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %kick 1 } | else { .timers off | msg q unbanme %StateC | $iif($me !ison %StateC,join %StateC) | halt | unset %State | unset %State* | set -u3 %kick 1 } }
  2348. elseif (%State == Ban) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | msg q unbanme %StateC | if (*n* iswm %Level) { msg q chanlev %StateC %StateN -amno } | if ($me !ison %StateC) { join %StateC } | msg q ban %StateC %StateNA %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Ban %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %ban 1 } | else { .timers off | msg q unbanme %StateC | $iif($me !ison %StateC,join %StateC) | halt | unset %State | unset %State* | set -u3 %ban 1 } }
  2349. elseif (%State == Deop) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | msg q op %StateC | if (*n* iswm %Level) { msg q chanlev %StateC %StateN -amno } | msg q ban %StateC %StateNA %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Deop %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %deop 1 } | else { .timers off | msg q op %StateC | halt | unset %State | unset %State* | set -u3 %deop 1 } }
  2350. }
  2351. elseif (*m* !iswm %Level) && (*n* !iswm %Level) && (*o* iswm %Level) {
  2352. if (%State == Kick) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Kick %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %kick 1 } | else { .timers off | halt | unset %State | unset %State* | set -u3 %kick 1 } }
  2353. elseif (%State == Ban) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Ban %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %ban 1 } | else { .timers off | halt | unset %State | unset %State* | set -u3 %ban 1 } }
  2354. elseif (%State == Deop) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN %cl $+ D14on`t %cl $+ Y14ou %cl $+ E14ver %cl $+ Deop %cl $+ M14e %cl $+ A14gain ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | unset %State | unset %State* | set -u3 %deop 1 } | else { .timers off | halt | unset %State | unset %State* | set -u3 %deop 1 } }
  2355. }
  2356. unset %State*
  2357. }
  2358. else {
  2359. if (%clear1) {
  2360. haltdef
  2361. if (%clearing) {
  2362. if (*You do not have sufficient access ON* iswm $1-) { echo -agce info * Error! you dont have enough acsses ON $gettok(%clear,1,32) to use chanlev. | unset %clearing | .timercheckwhat off | .timera* off | halt }
  2363. elseif (*is unknown or suspended* iswm $1-) { echo -agce info * Error! channel is unknown or suspended. | .timercheckwhat off | .timera* off | unset %clearing | halt }
  2364. elseif (*known* !iswm $1-) && (*username* !iswm $1-) && ($1 != %mylevel) && (n !isin $2) && ($1 !isin %protected) {
  2365. if ($left($2,1) == $chr(43)) && ($gettok(%clear,2,32) isin $2) && (n !isin $2) { set %temp %temp $chr(35) $+ $1 }
  2366. if ($numtok(%temp,32) == 18) { .timera $+ %zxx 1 %zxx .msg q removeuser $gettok(%clear,1,32) %temp | unset %temp | inc %zxx 2 }
  2367. }
  2368. elseif (*End of* iswm $1-) { unset %clearing | halt }
  2369. elseif (Total: iswm $1) { unset %clearing | halt }
  2370. }
  2371. }
  2372. }
  2373. }
  2374. }
  2375. }
  2376. on *:sockopen:Vent: { sockwrite -nt $sockname GET /status.php?hostname= $+ $gettok(%Vent.ip,1,58) $+ &port= $+ $gettok(%Vent.ip,2,58) HTTP/1.1 | sockwrite -nt $sockname Accept: */* | sockwrite -nt $sockname Accept-Language: he | sockwrite -nt $sockname Host: www.Ventrilo.com | sockwrite -nt $sockname Connection: Keep-Alive | sockwrite -tn $sockname $crlf }
  2377. on *:SOCKREAD:Vent:{
  2378. var %var | sockread %var
  2379. if (>A< isin %var) { set %Vent.nick 1 }
  2380. elseif (<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis"> isin %var) && (%Vent.nick) { set %Vent.nicks %Vent.nicks $remove(%var,<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis">,</div></font></td>) | unset %Vent.nick }
  2381. elseif (Auth isin %var) { set %Vent.Auth 1 }
  2382. elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%Vent.Auth) { set %Vent.Auths $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %Vent.Auth }
  2383. elseif (Name isin %var) { set %Vent.name 1 }
  2384. elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.name) { set %Vent.names $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.name }
  2385. elseif (Client Count isin %var) { set %Vent.ss 1 }
  2386. elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%Vent.ss) { set %Vent.Users $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %Vent.ss }
  2387. elseif (Max Clients isin %var) { set %Vent.Max 1 }
  2388. elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.Max) { set %Vent.Maxs $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.max }
  2389. elseif (Voice Codec isin %var) { set %Vent.voice 1 }
  2390. elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%Vent.voice) { set %Vent.voices $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %Vent.voice }
  2391. elseif (Voice Format isin %var) { set %Vent.format 1 }
  2392. elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.format) { set %Vent.formats $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.format }
  2393. elseif (Channel Count isin %var) { set %Vent.Channel 1 }
  2394. elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.Channel) { set %Vent.Channels $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.Channel }
  2395. elseif (Comment isin %var) { set %Vent.Comment 1 }
  2396. elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.Comment) { set %Vent.Comments $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.Comment | .timer 1 3 ShowVent }
  2397. }
  2398. on *:start: { timestamp -fe 14<10HH:nn:ss tt14> | if (!%Away) || (%Away == ON) { set %Away OFF } }
  2399. on *:connect: { if ($network == Quakenet) { if ($cid == 1) { if (%AQC == ON) { msg Q@CServe.Quakenet.Org AUTH %QAcc %QPass } | if (%Mx == ON) { //mode $me +x } | if (%MR == ON) { //mode $me +R } | if (%Mi == ON) { //mode $me +i } | join #ForFera | var %j = 1 | while (%j <= $numtok(%JC,32)) { .timer 1 $calc(%j -0.5) join $gettok(%JC,%j,32) | inc %j } | timestamp -fe 14<10HH:nn:ss tt14> | if (%ConnectSound == ON) { .splay ScriptSounds\connect.wav } | set -u30 %Open ON } } }
  2400. on *:input:*: {
  2401. if (/* !iswm $1-) {
  2402. if ($1- == !fish) { invite fishbot $chan | halt }
  2403. elseif ($1- == !snail) { invite snailbot $chan | halt }
  2404. elseif ($1- == !trivia) { invite triviabot $chan | halt }
  2405. elseif ($1- == !wow) { invite wowbot $chan | halt }
  2406. elseif ($1- == !l) { msg q chanlev $chan | halt }
  2407. elseif ($1- == !q) { msg r requestbot $chan | halt }
  2408. elseif ($1- == !s) { msg r requestspamscan $chan | halt }
  2409. elseif ($1- == !r) { msg q recover $chan | halt }
  2410. elseif ($1- == !op) { msg r requestop $chan | halt }
  2411. elseif ($1- == !me) { msg q chanlev $chan $me | halt }
  2412. elseif ($1- == !qs) { msg q showcommands | halt }
  2413. elseif ($1- == !bl) { msg q banlist $chan | halt }
  2414. elseif ($1- == !ubm) { msg q unbanme $chan | halt }
  2415. elseif ($1- == !uba) { msg q unbanall $chan | halt }
  2416. elseif ($1- == !wai) { msg q whoami | halt }
  2417. elseif ($1- == !clear) { msg q banclear $chan | halt }
  2418. elseif ($1- == !flags) { msg q chanflags $chan | halt }
  2419. elseif ($1- == !modes) { msg q chanmode $chan | halt }
  2420. elseif ($1- == !limit) { msg q autolimit $chan | halt }
  2421. elseif ($1- == *b) { mode $chan -b *!* | halt }
  2422. elseif ($1- == !id) { echo -a SteamID: STEAM_0:1:6193070 | halt }
  2423. elseif ($1 == !m) && ($2) { msg q chanmode $chan $2- | halt }
  2424. elseif ($1 == !f) && ($2) { msg q chanflags $chan $2- | halt }
  2425. elseif ($1 == !c) && ($2) && ($3) { msg q chanlev $chan $2 $3- | halt }
  2426. elseif ($1 == !) && ($2) { mode $chan $2- | halt }
  2427. elseif ($1 == !k) && ($2) { kick $chan $2- | halt }
  2428. elseif ($1 == !bk) && ($2) { ban $chan $address($2-,2) | kick $chan $2- | halt }
  2429. elseif ($1 == !d) && ($2) { msg q bandel $chan $2- | halt }
  2430. elseif ($1 == !b) && ($2) { msg q ban $chan $2- | halt }
  2431. elseif ($1 == !al) && ($2) { msg q chanflags $chan +c | msg q autolimit $chan $2- | halt }
  2432. elseif ($1 == !w) && ($2) { msg q chanflags $chan +w | msg q welcome $chan $2- | halt }
  2433. elseif ($1 == !t) && ($2) { msg q settopic $chan $2- | halt }
  2434. elseif ($1 == !go) && ($2) { msg q chanlev $chan $2- +amo | set %GOS 1 | set -u5 %C $chan | msg q giveowner $chan $2- | halt }
  2435. elseif ($1 == !i) && ($2) { invite $2- $chan | msg $2- You Are Invited To $chan | halt }
  2436. elseif ($1 == !j) && ($2) { join $2- | halt }
  2437. elseif ($1 == !p) && ($2) { part $2- | halt }
  2438. elseif ($1 == !h) && ($2) { hop $2- | halt }
  2439. else { set %CMSG $target $1- | if ($me isop $target) { msg $target $1- | haltdef } | elseif ($me isvoice $target) { msg $target $1- | haltdef } | else { msg $target $1- | haltdef } }
  2440. }
  2441. else { if (/msg == $1) { if (!$window($2)) { query $2 } } }
  2442. }
  2443. ;;;;;;;;;; Alias ;;;;;;;;;;
  2444. alias checktime { did -a FS 9 $time }
  2445. alias check { did -ra MP3.Player 6 $asctime($round($calc(($insong.length - $insong.pos) / 1000),0),nn:ss),none) }
  2446. alias FSD { dialog $iif($Dialog(FS),-v,-m) FS FS }
  2447. alias BB { var %BA = $2, %ch = $1, %R = $3-, %x = 1, %cl =  $+ $r(1,15) | mode %ch +b %BA | while ($ialchan(%BA,%ch,%x).nick) { .timer 1 $iif(%x != 4,0,$calc(%x -2)) kick %ch $ialchan(%BA,%ch,%x).nick %cl $+  $+ $ialchan(%BA,%ch,%x).nick $+  14( $+ %cl $+ %BA $+ 14) %cl $+ Y14ou %cl $+ A14re %cl $+ A14dded %cl $+ T14o %cl $+ M14y %cl $+ B14lack $+ %cl $+ L14ist %cl $+ R14eason: %cl $+  $+ $iif(%R,%R,No Reason) $+ 14 ( $+ %cl $+ F14or $+ %cl $+ F14era@ $+ %cl $+ S14cript) | inc %x } }
  2448. alias msg { if ($1 == Q) || ($1 == Q@CServe.quakenet.org) || ($1 == R) || ($1 == S) || ($1 == G) { .msg $1 $2- } | elseif ($1 != Q) || ($1 != R) || ($1 != S) || ($1 != G) { if ($me isop $1) { echo -t $1 9@7 $+ $me $+ 14 10S14ay:1 $2- | .msg $1 $2- } | elseif ($me isvoice $1) { echo -t $1 4+7 $+ $me $+ 14 10S14ay:1 $2- | .msg $1 $2- } | else { echo -t $1 7 $+ $me $+ 14 10S14ay:1 $2- | .msg $1 $2- } } }
  2449. alias VentCheck { sockopen Vent www.Ventrilo.com 80 }
  2450. alias ShowVent { did -a VI 6 %Vent.Auths | did -a VI 3 %Vent.names | did -a VI 8 %Vent.Users Out Of %Vent.Maxs | did -a VI 5 %Vent.Comments | did -a VI 1 %Vent.Channels | did -a VI 26 %Vent.voices | did -a VI 28 %Vent.Formats | did -a VI 23 There $iif($numtok(%Vent.nicks,32) == 1,Is,Are) $numtok(%Vent.nicks,32) Logged $iif($numtok(%Vent.nicks,32) == 1,Admin,Admins) | var %w = 1 | while ($numtok(%Vent.nicks,32) >= %w) { did -a VI 11 $gettok(%Vent.nicks,%w,32) | inc %w } | unset %Vent.* }
  2451. alias fn { if ($1) { if ($window(@Nick-Finder $+ $1)) { .close -@ @Nick-Finder $+ $1 } | .window -e @Nick-Finder $+ $1 | .window @Nick-Finder $+ $1 100 100 920 300 | fnc $1 } }
  2452. alias fnc {
  2453. var %c = 1 , %fn | while ($chan(%c)) { var %d = 1 , %e
  2454. while ($fline($chan(%c),$iif($chr(42) isin $1,$1,* $+ $1 $+ *),%d,1).text) { var %e = $v1
  2455. if ($fline(@Nick-Finder $+ $1,%e *,0) == 1) { .rline @Nick-Finder $+ $1 $fline(@Nick-Finder $+ $1,%e *,1) 10 $+  $+ %e $+ 14 - Network:10  $+ $network $+ 14 - Channels:10 $addtok($gettok($fline(@Nick-Finder $+ $1,%e *,1).text,7-,32),$chan(%c),32) }
  2456. else { inc %fn | .aline @Nick-Finder $+ $1 10 $+  $+ %e $+ 14 - Network:10  $+ $network $+ 14 - Channels:10 $chan(%c) }
  2457. inc %d
  2458. }
  2459. inc %c
  2460. }
  2461. if (--* !iswm $fline(@Nick-Finder $+ $1,*,$line(@Nick-Finder $+ $1,0)).text && $line(@Nick-Finder $+ $1,0)) { aline @Nick-Finder $+ $1 14 $+ $str(-,152) | aline @Nick-Finder $+ $1 14Number Of Results:10  $+ %fn $+  }
  2462. }
  2463. alias q.chanflags.check { var %t $remove($did(QC,70),+) | did $iif(b isincs %t,-c,-u) QC 28 | did $iif(f isincs %t,-c,-u) QC 29 | did $iif(p isincs %t,-c,-u) QC 30 | did $iif(w isincs %t,-c,-u) QC 31 | did $iif(t isincs %t,-c,-u) QC 58 | did $iif(c isincs %t,-c,-u) QC 54 | did $iif(e isincs %t,-c,-u) QC 55 | did $iif(k isincs %t,-c,-u) QC 56 | did $iif(p isincs %t,-c,-u) QC 57 | did $iif(v isincs %t,-c,-u) QC 59 }
  2464. alias qrefresh {
  2465. if ($1 == all) { set %QChanlev 1 | .msg q chanlev $did(QC,1) | .timer -m 1 1500 set %QBanlist 1 | .timer -m 1 1500 .msg q banlist $did(QC,1) | .timer -m 1 2000 set %QChanFlags 1 | .timer -m 1 3000 .msg q chanflags $did(QC,1) }
  2466. if ($1 == chanlev) { did -r QC 2 | set %QChanlev 1 | .msg q chanlev $did(QC,1) }
  2467. if ($1 == banlist) { did -r QC 15 | set %QBanlist 1 | .msg q banlist $did(QC,1) }
  2468. if ($1 == chanflags) { did -r QC 70 | set %QChanFlags 1 | .msg q chanflags $did(QC,1) }
  2469. }
  2470. alias Beeping {
  2471. var %nicks = $replace($snick($active),$chr(44),$chr(32)) , %temp , %x = 1 , %y = 1 , %c =  $+ $r(1,15)
  2472. while (%x <= $numtok(%nicks,32)) {
  2473. if ($gettok(%nicks,%x,32) isop $active) { var %temp = %temp $replace($gettok(%nicks,%x,32),$gettok(%nicks,%x,32),9@ $+ 14 $+ $gettok(%nicks,%x,32) $+ ) }
  2474. elseif ($gettok(%nicks,%x,32) isvoice $active) { var %temp = %temp $replace($gettok(%nicks,%x,32),$gettok(%nicks,%x,32),4+ $+ 14 $+ $gettok(%nicks,%x,32) $+ ) }
  2475. elseif ($gettok(%nicks,%x,32) isreg $active) { var %temp = %temp $replace($gettok(%nicks,%x,32),$gettok(%nicks,%x,32),14 $+ $gettok(%nicks,%x,32) $+ ) }
  2476. if ($numtok(%temp,32) == 17) {
  2477. if (%y) {
  2478. .timer 1 %y msg $active 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
  2479. .timer 1 $calc(%y +0.5) notice $replace($remove($strip(%temp),@,+),$chr(32),$chr(44)) 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
  2480. var %temp | inc %y 1
  2481. }
  2482. }
  2483. inc %x
  2484. }
  2485. if (%y) {
  2486. .timer 1 %y msg $active 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
  2487. .timer 1 $calc(%y +0.5) notice $replace($remove($strip(%temp),@,+),$chr(32),$chr(44)) 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
  2488. var %temp | inc %y 1
  2489. }
  2490. }
  2491. alias SearchSteam { set %SL $$sfile(C:\*Steam.exe,Find your Steam.exe) | if ($dialog(CSC)) { did -ra CSC 2 %SL } | echo -as 14(10Steam Search14) - Steam location has been found:10 %SL }
  2492. alias SearchHL.exe { set %HLL $$sfile(C:\*HL.exe,Find your HL.exe) | if ($dialog(CSC)) { did -ra CSC 5 %HLL } | echo -as 14(10HL Search14) - HL.exe location has been found:10 %HLL }
  2493. alias SearchAnti-Cheat { set %ACL $$sfile(C:\Program Files\,Find your Anti-Cheat.exe) | if ($dialog(CSC)) { did -ra CSC 8 %ACL } | echo -as 14(10Anti-Cheat Search14) - Anti-Cheat location has been found:10 %ACL }
  2494. alias ConnectServer {
  2495. if (%CSType == CS:1.6) { if (%ACS == ON) { run %ACL | .timer 1 5 run -q %SL -applaunch 10 +connect $1 $iif($2,+password $2) } | else { run -q %SL -applaunch 10 +connect $1 $iif($2,+password $2) } }
  2496. elseif (%CSType == CS:1.6-P) { if (%ACS == ON) { run %ACL | .timer 1 5 run -q %HLL -nomaster -game cstrike +connect $1 $iif($2,+password $2) } | else { run -q %HLL -nomaster -game cstrike +connect $1 $iif($2,+password $2) } }
  2497. elseif (%CSType == CS:CZ) { if (%ACS == ON) { run %ACL | .timer 1 5 run -q %SL -applaunch 80 +connect $1 $iif($2,+password $2) } | else { run -q %SL -applaunch 80 +connect $1 $iif($2,+password $2) } }
  2498. elseif (%CSType == CS:CZ-P) { if (%ACS == ON) { run %ACL | .timer 1 5 run -q %HLL -nomaster -game czero +connect $1 $iif($2,+password $2) } | else { run -q %HLL -nomaster -game czero +connect $1 $iif($2,+password $2) } }
  2499. elseif (%CSType == CS:S) { if (%ACS == ON) { run %ACL | .timer 1 5 run -q %SL -applaunch 240 +connect $1 $iif($2,+password $2) } | else { run -q %SL -applaunch 240 +connect $1 $iif($2,+password $2) } }
  2500. if ($dialog(CSC)) { dialog -x CSC CSC } | showmirc -t
  2501. }
  2502. alias msgall { var %C = $1 , %M = $2- , %d = 1 , %e = 1 | while ($nick(%C,%d)) { if ($v1 != $me) && ($v1 != Q) && ($v1 != S) && ($v1 != G) { .timer 1 %e msg $v1 %M | inc %e 3 } | inc %d } | ignore -r *!*@* }
  2503. alias f4 { var %x = 1 , %y = 39 | while (%x <= %y) { set %r $+(%r,$chr(3),$r(2,15),$gettok(? ¿,$r(1,2),32)) | inc %x } | msg $active %r | unset %r }
  2504. alias f3 { var %x = 1 , %y = 39 | while (%x <= %y) { set %r $+(%r,$chr(3),$r(2,15),$gettok(ח n,$r(1,2),32)) | inc %x } | msg $active %r | unset %r }
  2505. alias f2 { msg $gettok(%CMSG,1,32) $Correct($gettok(%CMSG,2-,32)) }
  2506. alias isheb { return $regex($1-,[א-ת]) }
  2507. alias Correct { if ($isheb($1-)) { return 3C1orrection: $replace($1-,/,q,ר,r,א,t,ט,y,ו,u,ן,i,ם,o,פ,p,ש,a,ד,s,ג,d,כ,f,ע,g,י,h,ח,j,ל,k,ז,z,ס,x,ב,c,ה,v,נ,b,מ,n,צ,m,ף,;,ץ,.,ת,$chr(44),ק,e,ך,l,',w) } | else { return 3C1orrection: $replace($1-,q,/,r,ר,t,א,y,ט,u,ו,i,ן,o,ם,p,פ,a,ש,s,ד,d,ג,f,כ,g,ע,h,י,j,ח,k,ל,z,ז,x,ס,c,ב,v,ה,b,נ,n,מ,m,צ,;,ף,.,ץ,$chr(44),ת,e,ק,l,ך,w,') } }
  2508. alias voice {
  2509. if ($1) && ($2) {
  2510. var %s = 1 , %t = 1 , %temp
  2511. while (%s <= $nick($1,0)) { if ($2 $+ * iswm $nick($1,%s)) && ($nick($1,%s) isreg $1) { %temp = %temp $nick($1,%s) } | inc %s }
  2512. while ($gettok(%temp,%t,32)) { mode $1 + $+ $str(v,$modespl) $gettok(%temp,%t $+ - $+ $calc(%t + $modespl),32) | inc %t $modespl }
  2513. }
  2514. else {
  2515. var %s = 1 , %t = 1 , %temp
  2516. while (%s <= $nick($active,0)) { if ($v1 !isvoice $active) { %temp = %temp $nick($active,%s) } | inc %s }
  2517. while ($gettok(%temp,%t,32)) { mode $active + $+ $str(v,$modespl) $gettok(%temp,%t $+ - $+ $calc(%t + $modespl),32) | inc %t $modespl }
  2518. }
  2519. }
  2520. alias dvoice {
  2521. if ($1) && ($2) {
  2522. var %s = 1 , %t = 1 , %temp
  2523. while (%s <= $nick($1,0)) { if ($2 $+ * iswm $nick($1,%s)) && ($nick($1,%s) !isreg $1) { %temp = %temp $nick($1,%s) } | inc %s }
  2524. while ($gettok(%temp,%t,32)) { mode $1 - $+ $str(v,$modespl) $gettok(%temp,%t $+ - $+ $calc(%t + $modespl),32) | inc %t $modespl }
  2525. }
  2526. else {
  2527. var %s = 1 , %t = 1 , %temp
  2528. while (%s <= $nick($active,0,v)) { %temp = %temp $nick($active,%s,v) | inc %s }
  2529. while ($gettok(%temp,%t,32)) { mode $active - $+ $str(v,$modespl) $gettok(%temp,%t $+ - $+ $calc(%t + $modespl),32) | inc %t $modespl }
  2530. }
  2531. }
  2532. alias clearchanlev {
  2533. if ($3-) { set %protected $3- }
  2534. if ($left($1,1) == $chr(35)) && ($network == QuakeNet) { unset %temp | unset %zxx | unset %mylevel | unset %clea*
  2535. if ($2) {
  2536. if (!%clearing) && (!%clear1) { if ($left($2,1) == $chr(43)) || ($left($2,1) == $chr(45)) { set -u60 %clear $1 $remove($2,$left($2,1)) } | else { set -u60 %clear $1 $2 } | .timercheckwhat 1 5 checkwhat | set %clear1 1 | .msg q chanlev $1 | set %mylevel $remove($address($me,2),*!*@,.users.quakenet.org) | set %clearing 1 | set -u15 %zxx 1 }
  2537. elseif (%clearing) || (%clear1) { echo -agce info * Error! During a clearing! }
  2538. }
  2539. else { echo -agce info * Error! Please use: /clearchanlev <#chan> <level>/<+level>/<-level> | halt }
  2540. }
  2541. else { echo -agce info * Error! Either you didnt typed $chr(35) $+ , or you are not using the network "quakenet". | halt }
  2542. }
  2543. alias checkwhat {
  2544. var %zzz = $calc(%zxx -4)
  2545. if ($numtok(%temp,32) < 18) && ($numtok(%temp,32) >= 1) { .timer 1 %zzz .msg q removeuser $gettok(%clear,1,32) %temp | .timer 1 $calc(%zzz +2) echo -agce info * Clearing ended. | unset %temp | unset %zxx | unset %mylevel | .timer 1 $calc(%zzz +4) unset %clea* | unset %protected }
  2546. elseif ($numtok(%temp,32) == 0) { unset %mylevel | unset %zxx | echo -agce info * Error! No ONe has the level: " $+ $chr(43) $+ $gettok(%clear,2,32) $+ " | unset %zxx | unset %clea* | halt }
  2547. }
  2548. alias banproxy {
  2549. var %x = 1, %y = 1
  2550. while (%x <= $lines(openproxy- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
  2551. var %d = %d $read(openproxy- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)
  2552. if ($numtok(%d,32) == $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$modespl) %d | var %d | inc %y 2 }
  2553. inc %x
  2554. }
  2555. if ($numtok(%d,32) < $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$numtok(%d,32)) %d | var %d }
  2556. .timer 1 $calc(%y +1) kickproxy $1-
  2557. }
  2558. alias kickproxy {
  2559. var %x = 1, %i = 1
  2560. while (%x <= $lines(openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
  2561. if ($read(openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) OpenProxy | inc %id | inc %i 2 }
  2562. inc %x
  2563. }
  2564. .timer 1 $calc(%i +5) mode $1- -mr | .timer 1 %i .remove openproxy- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt | .timer 1 %i .remove openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt | .timer 1 %i unset %Proxy
  2565. }
  2566. alias banadv {
  2567. var %x = 1, %y = 1
  2568. while ($read(Adv- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)) {
  2569. var %a = %a $gettok($v1,1-,32)
  2570. if ($numtok(%a,32) == $modespl) { .timer 1 %y mode $1- + $+ $str(b,$modespl) %a | var %a | inc %y 2 }
  2571. inc %x
  2572. }
  2573. if ($numtok(%a,32) < $modespl) { .timer 1 %y mode $1- + $+ $str(b,$numtok(%a,32)) %a }
  2574. .timer 1 $calc(%y +1) kickadv $1-
  2575. }
  2576. alias kickadv {
  2577. var %x = 1, %i = 1
  2578. while ($read(Advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)) {
  2579. if ($read(Advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(Advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) Advertise - ID: %id | inc %id | inc %i 2 }
  2580. inc %x
  2581. }
  2582. .timer 1 $calc(%i +5) mode $1- -mMr | .timer 1 $calc(%x +4) set %FP ON | .timer 1 %i unset %Adv | unset % [ $+ [ $remove($1-,$chr(35)) ] ]
  2583. }
  2584. alias banflood {
  2585. var %x = 1, %y = 1
  2586. while ($read(flood- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)) {
  2587. var %a = %a $gettok($v1,1-,32)
  2588. if ($numtok(%a,32) == $modespl) { .timer 1 %y mode $1- + $+ $str(b,$modespl) %a | var %a | inc %y 2 }
  2589. inc %x
  2590. }
  2591. if ($numtok(%a,32) < $modespl) { .timer 1 %y mode $1- + $+ $str(b,$numtok(%a,32)) %a }
  2592. .timer 1 $calc(%y +1) kickflood $1-
  2593. }
  2594. alias kickflood {
  2595. var %x = 1, %i = 1
  2596. while ($read(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)) {
  2597. if ($read(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) Flood - ID: %id | inc %id | inc %i 2 }
  2598. inc %x
  2599. }
  2600. .timer 1 $calc(%i +5) mode $1- -mMr | .timer 1 %i unset %Flood
  2601. }
  2602. alias banadv2 {
  2603. var %x = 1, %y = 1
  2604. while (%x <= $lines(adv- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
  2605. var %d = %d $read(adv- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)
  2606. if ($numtok(%d,32) == $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$modespl) %d | var %d | inc %y 2 }
  2607. inc %x
  2608. }
  2609. if ($numtok(%d,32) < $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$numtok(%d,32)) %d | var %d }
  2610. .timer 1 $calc(%y +1) kickadv $1-
  2611. }
  2612. alias kickadv2 {
  2613. var %x = 1, %i = 1
  2614. while (%x <= $lines(advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
  2615. if ($read(advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) Advertise | inc %id | inc %i 2 }
  2616. inc %x
  2617. }
  2618. .timer 1 $calc(%i +5) mode $1- -mr
  2619. .timer 1 %i .remove adv- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
  2620. .timer 1 %i .remove advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
  2621. .timer 1 %i unset %Adv
  2622. .timer 1 %i unset % [ $+ [ $remove($1-,$chr(35)) ] ]
  2623. }
  2624. alias banflood2 {
  2625. var %x = 1, %y = 1
  2626. while (%x <= $lines(flood- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
  2627. var %d = %d $read(flood- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)
  2628. if ($numtok(%d,32) == $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$modespl) %d | var %d | inc %y 2 }
  2629. inc %x
  2630. }
  2631. if ($numtok(%d,32) < $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$numtok(%d,32)) %d | var %d }
  2632. .timer 1 $calc(%y +1) kickflood $1-
  2633. }
  2634. alias kickflood2 {
  2635. var %x = 1, %i = 1
  2636. while (%x <= $lines(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
  2637. if ($read(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) Flood | inc %id | inc %i 2 }
  2638. inc %x
  2639. }
  2640. .timer 1 $calc(%i +5) mode $1- -mr
  2641. .timer 1 %i .remove flood- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
  2642. .timer 1 %i .remove floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
  2643. .timer 1 %i unset %Flood
  2644. .timer 1 %i unset % [ $+ [ $remove($1-,$chr(35)) ] ]
  2645. }
  2646. alias sendkeys { var %a = sendkeys $+ $ticks | .comopen %a WScript.Shell | if !$comerr { var %b = $com(%a,SendKeys,3,bstr,$1-) | .comclose %a | return %b } | return 0 }
  2647. alias CheckServer {
  2648. sockclose CS
  2649. set %CS $1-
  2650. bset &send 1 255 255 255 255 84 83 111 117 114 99 101 32 69 110 103 105 110 101 32 81 117 101 114 121 0
  2651. sockudp -k CS $replace(%CS,:,$chr(32)) &send
  2652. }
  2653. on *:udpread:CS:{
  2654. sockread &reply
  2655. var %offset, %name, %map, %game, %num, %max, %ip, %dir, %players
  2656. if ($chr($bvar(&reply,5)) == m) {
  2657. %offset = 6
  2658. %ip = $bvar(&reply,%offset,128).text
  2659. inc %offset $calc($len(%ip) + 1)
  2660. %name = $bvar(&reply,%offset,128).text
  2661. inc %offset $calc($len(%name) + 1)
  2662. %map = $bvar(&reply,%offset,128).text
  2663. inc %offset $calc($len(%map) + 1)
  2664. %dir = $bvar(&reply,%offset,128).text
  2665. inc %offset $calc($len(%dir) + 1)
  2666. %game = $bvar(&reply,%offset,128).text
  2667. inc %offset $calc($len(%game) + 1)
  2668. %num = $bvar(&reply,%offset)
  2669. %max = $bvar(&reply,$calc(%offset + 1))
  2670. %players = $+(%num,/,%max)
  2671. echo -a 14Name:10 %name $+ 14 $+ $chr(44) Game:10 %game $+ 14 $+ $chr(44) Map:10 %map $+ 14 $+ $chr(44) Players:10 %players $+ 14 $+ $chr(44) Ip:10 %CS
  2672. sockclose CS | unset %CS
  2673. }
  2674. else {
  2675. %offset = 7
  2676. %name = $bvar(&reply,%offset,128).text
  2677. inc %offset $calc($len(%name) + 1)
  2678. %map = $bvar(&reply,%offset,128).text
  2679. inc %offset $calc($len(%map) + 1)
  2680. %dir = $bvar(&reply,%offset,128).text
  2681. inc %offset $calc($len(%dir) + 1)
  2682. %game = $bvar(&reply,%offset,128).text
  2683. inc %offset $calc($len(%game) + 1)
  2684. %num = $bvar(&reply,$calc(%offset + 2))
  2685. %max = $bvar(&reply,$calc(%offset + 3))
  2686. %players = $+(%num,/,%max)
  2687. echo -a 14Name:10 %name $+ 14 $+ $chr(44) Game:10 %game $+ 14 $+ $chr(44) Map:10 %map $+ 14 $+ $chr(44) Players:10 %players $+ 14 $+ $chr(44) Ip:10 %CS
  2688. sockclose CS | unset %CS
  2689. }
  2690. }
  2691. ;;;;;;;;;; Raws ;;;;;;;;;;
  2692. ;;;;;;;;;Connect raws
  2693. raw 001:*:{ echo -s 10W14elcome 10T14o 10T14he 10I14nternet 10R14elay 10C14hat(10IRC14) 10N14etwork, 14‹10 $+ $left($gettok($1-,1,32),1) $+  $+ $mid($gettok($1-,1,32),2,$calc($len($gettok($1-,1,32)) -2)) $+ $right($gettok($1-,1,32),1) $+ 14› - (10 $+ $network $+ 14) | halt }
  2694. raw 002:*:{ echo -s 10Y14our 10H14ost 10I14s 10 $+ $gettok($5-,1,300) $+ 14, 10R14unning 10V14ersion 10 $+ $gettok($8-,1,42) $+ 14 | halt }
  2695. raw 003:*:{ echo -s 10T14his 10S14erver 10W14as 10C14reated 10A14t 10 $+ $gettok($6-,1,112) $+ 14 | halt }
  2696. raw 004:*:{ echo -s 10H14ost: 10 $+ $gettok($2-,1,32) $+ 14 - 10V14ersion: 10 $+ $gettok($3-,1,32) $+ 14 - 10U14sermodes: 10 $+ $gettok($4-,1,32) $+ 14 - 10C14hanmodes: 10 $+ $gettok($5-,1,32) $+ 14 | halt }
  2697. raw 251:*:{ echo -s 10T14here 10A14re 14-10 $+ $gettok($4-,1,32) $+ 14- 10U14sers 10A14nd 14-10 $+ $gettok($7-,1,32) $+ 14- 10I14nvisible 10O14n 14-10 $+ $gettok($10-,1,32) $+ 14- 10S14erver(s) | halt }
  2698. raw 252:*:{ echo -s 14-10 $+ $gettok($2-,1,32) $+ 14- 10O14perator(s) 10O14nline | halt }
  2699. raw 253:*:{ echo -s 14-10 $+ $gettok($2-,1,32) $+ 14- 10U14nknown 10C14onnection(s) - 10 $+ $1- $+ 14 | halt }
  2700. raw 254:*:{ echo -s 14-10 $+ $gettok($2-,1,32) $+ 14- 10C14hannels 10A14t 10T14his 10N14etwork | halt }
  2701. raw 255:*:{ echo -s 10I 10H14ave 14-10 $+ $gettok($4-,1,32) $+ 14- clients and 14-10 $+ $gettok($7-,1,32) $+ 14- servers | halt }
  2702. raw 275:*:{ echo -es 10 $+ $gettok($1-,1,32) $+ 14 10M14essage 10O14f 10T14he 10D14ay(10MOTD14) | halt }
  2703. raw 221:*:{ echo -es 14‹10 $+ $left($gettok($1-,1,32),1) $+  $+ $mid($gettok($1-,1,32),2,$calc($len($gettok($1-,1,32)) -2)) $+ $right($gettok($1-,1,32),1) $+ 14› $gettok($2-,1,45) | halt }
  2704. raw 372:*:{ echo -es 10 $+ $2- $+ 14 | halt }
  2705. raw 375:*:{ echo -es 10 $+ $gettok($5-,1,32) $+ 14 10M14essage 10O14f 10T14he 10D14ay | halt }
  2706. raw 376:*:{ echo -es 10E14nd 10O14f 10/Motd 10C14ommand. | halt }
  2707. raw 377:*:{ echo -es 10 $+ $2- $+ 14 | halt }
  2708. raw 378:*:{ echo -es 10 $+ $2- $+ 14 | halt }
  2709. raw 422:*:{ echo -es 10 $+ $2- $+ 14 | halt }
  2710. ;;;;;;;;;Whois raws
  2711. raw 311:*:{ echo -a - | echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14ddress: $+($3,@,$4) - 10F14ullname: $gettok($6-,1,58) | halt }
  2712. raw 319:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14t 10 $+ $gettok($3-,0,32) $+ 14 10C14hannels: $replace($3-,@#,9@14#,+#,4+14#,&#,11&14#,~#,12~14#,%#,6%14#,<#,3<1#) $+ 14 | halt }
  2713. raw 312:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10S14erver: $3 $network 10IRC 10S14erver | halt }
  2714. raw 330:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14uthed 10a14s $3 $+  | halt }
  2715. raw 313:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10I14s 10a14n 10IRC 10O14perator | halt }
  2716. raw 301:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14way: $3- $+  | halt }
  2717. raw 338:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10H14ost $gettok($3-,1,32) ( $+ $gettok($4-,1,32) $+ ) | halt }
  2718. raw 317:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10H14as 10b14een 10i14dle $duration($3) $+ 14 - 10S14ingon 10a14t $duration($4) | halt }
  2719. raw 318:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10E14nd of /10W14hois 10l14ists. | echo -a - | halt }
  2720. raw 401:*:{ echo -a - | echo -a 14‹10 $+ $iif($len($2) > 3,$left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1),$2 $+ ) $+ 14› 10N14o 10S14uch 10N14ick | halt }
  2721. ;;;;;;;;;Names raws
  2722. ;raw 353:*:{ echo -s - | echo -s 10 $+ $left($3,1) $+  $+ $mid($3,2,$calc($len($3) -2)) $+ $right($3,1) $+ 14 $replace($4-,@,9@14,+,4+14) $+  | halt };
  2723. ;raw 366:*:{ echo -s 10 $+ $left($3,1) $+  $+ $mid($3,2,$calc($len($3) -2)) $+ $right($3,1) $+  $+  10E14nd of /10N14ames 10l14ists. | echo -s - | halt };
  2724. ;;;;;;;;;Nick raws
  2725. raw 433:*:{ echo -s 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10N14ickname 10i14s 10a14lready 10i14n 10u14se, 10T14ry 10a14n 10o14ther 10n14ickname | halt }
  2726. ;;;;;;;;;Private Massage raws
  2727. raw 404:*:{ echo -at 10C14annot 10S14end 10T14o 10C14hannel 10 $+ $2 | halt }
  2728. raw 439:*:{ echo -at 10T14arget 10C14hange 10T14o 10F14ast. 10P14lease 10W14ait 10 $+ $gettok($1-,$calc($findtok($1-,wait,32) + 1),32) $+ 14 10S14econds. | halt }
  2729. ;;;;;;;;;Topic raws
  2730. raw 352:*:{ echo -at 10 $+ $2 $+ :14 $3- | halt }
  2731. raw 331:*:{ echo -at 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $2 $+ 14 10N14o 10t14opic 10i14s 10s14et 10f14or 10 $+ $2 $+ 14 | haltdef }
  2732. raw 332:*:{ echo -at 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $2 $+ 14 10T14opic 10i14s "10 $+ $3- $+ $chr(15) $+ 14" | haltdef }
  2733. raw 333:*:{ echo -at 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $2 $+ 14 10T14opic 10s14et 10b14y 10 $+ $gettok($3,1,33) $+ 14 10o14n 10 $+ $asctime($4) $+ 14 | haltdef }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!