API tools faq
paste
Guest User

Untitled

a guest
Jan 21st, 2019
115
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 17.00 KB | None | 0 0
raw download clone embed print report
  1. on *:load:{
  2. set %pdcznick1
  3. set %pdcznick2
  4. set %pdcznick3
  5. set %pdcznick4
  6. set %pdcznick5
  7. set %pdcznick6
  8. set %pdcznick7
  9. set %pdcznick8
  10. set %pdcznick9
  11. set %pdcznick10
  12. set %pdcznick11
  13. set %pdcznick12
  14. set %pdcznick13
  15. set %pdcznick14
  16. set %pdcznick15
  17. set %pdcznick16
  18. set %pdcznick17
  19. set %pdcznick18
  20. set %pdcznick19
  21. set %pdcznick20
  22. set %pdcznick21
  23. set %pdcznick22
  24. set %pdcznick23
  25. set %pdcznick24
  26. set %pdcznick25
  27. set %pdcznick26
  28. set %pdcznick27
  29. set %pdcznick28
  30. set %pdcznick29
  31. set %pdcznick30
  32. set %pdcznick31
  33. set %pdcznick32
  34. set %pdcznick33
  35. set %pDCZNumNick 1
  36. set %pDCZMMaxKick 4
  37. set %dualmode on
  38. set %pdczFdeop off
  39. set %pdczMDeop off
  40. set %pdczKDeop off
  41. set %chnk 4
  42. set %pdczwarchanx
  43. set %pdczserver webmaster.webchat.org
  44. set %pdczport 7000
  45. set %pDCZMsidentify no
  46. set %pdczbotnick
  47. set %pdczsocketip
  48. set %pdczwarip
  49. set %ptempip
  50. set %svrpor 1
  51. set %warautoADDip on
  52. set %pdczmUseProxy off
  53. set %pdczmproxy
  54. set %pdczmproxyport
  55. %pdczwaranmy
  56. set %p-DCZ1 Indonesia-x
  57. set %timepcz
  58. set %warmsg
  59. set %pDCZQuitmsg no
  60. echo -as Start/Reconnect F5 12-9 Stop 12-4 F6
  61. echo -as Setting you nick and password 1st then nick number to use
  62. }
  63. menu * {
  64. Total Kick: { msg $active 12E14nemy 12K14icked 14-=(4 %sayakenakick 14)=- | msg $active 12K14icked 12E14nemy 14-=(4 %sayatelahkick 14)=- }
  65. .clear kick:.unset %sayatelahkick %sayakenakick
  66. }
  67. on *:start:{
  68. Echo -as DCZ Socket Lite 2010
  69. echo -as Start/Reconnect F5 Stop F6
  70. echo -as Setting you nick and password 1st then nick number to use
  71. }
  72.  
  73. #pdczsocket on
  74.  
  75. ALIAS PDCZLOGO { return 6Spíde®Web 4 14-=( 4mí®ç 4§tánÐárd14)=- 6Soçket System }
  76.  
  77. alias getip return $mask($1,4)
  78. alias getnick { return $remove($gettok($1-,1,33),:) }
  79. alias Addtoip {
  80. return $2 $+ $iif($1 != $null,$chr($3)) $+ $1
  81. }
  82.  
  83. alias pdczopen {
  84. pdczclose $1
  85. .sockopen $iif(!$1,pdcz,$1) $iif(%pdczmuseproxy == off,%pdczserver %pdczport , %pdczmproxy %pdczmproxyport)
  86. }
  87. alias pdczclose {
  88. .timer* off
  89. IF $sock($iif($1,$1,pdcz)) { $iif(%pDCZQuitmsg == yes,sockwrite -tn $iif($1,$1,pdcz) QUIT) | .sockclose $iif($1,$1,pdcz) }
  90. ; .sockclose $iif($1,$1,pdcz)
  91. unset %pkck
  92. unset %pkcnt
  93. unset %pkk1
  94. }
  95. alias precon {
  96. pdczclose $iif($1,$1,*)
  97. unset %pdczklimit
  98. if (!%timepcz) set %timepcz 0
  99. if (%timepcz < 0) set %timepcz 0
  100. .timerpconw -m 1 %timepcz pdczopen $iif($1,$1,pdcz)
  101. echo $iif($active != %pdczwarchanx,$iif($window(@debugwar),@debugwar,%pdczwarchanx),$active) Reconnect
  102. }
  103.  
  104. alias chgNick {
  105. if (%chnk >= %pDCZNumNick) set %chnk 0
  106. inc %chnk 1
  107. return $($+(%,pdcznick,%chnk),2)
  108. }
  109.  
  110. alias remguest {
  111. var %remg $numtok($1,32) , %remgg , %tmprem , %remg2 1
  112. while (%remg) {
  113. %tmprem = $gettok($1,%remg2,32)
  114. if (Guest* !iswm %tmprem) set %remgg $addtok(%remgg,%tmprem,32)
  115. dec %remg
  116. inc %remg2
  117. }
  118. return %remgg
  119. }
  120.  
  121. on *:SOCKOPEN:pdcz:{
  122. if ($sockerr != 0) { echo -a 4Error Socket open $sock($sockname).wsmsg | precon pdcz | halt }
  123. var %dczid LoVe $+ $rand(1,100)
  124.  
  125. if (%pdczmUseProxy == on) {
  126. if ($sock($sockname).port isincs < 1080 80 8080 3128 6588 8000 34449 >) sockwrite -nt $sockname CONNECT $+(%pdczserver,:,%pdczport) HTTP/1.0 $+ $crlf $+ $crlf
  127. else { bset &bin 1 4 | bset &bin 2 1 | bset &bin 3 $int($calc(6664 / 256)) | bset &bin 4 6664 % 256 | bset &bin 5 216 | bset &bin 6 152 | bset &bin 7 64 | bset &bin 8 142 | bset &bin 9 0 | sockwrite -n $sockname &bin | bunset &bin }
  128. }
  129. .sockwrite -tn $sockname USER %dczid 2 3 $+(:,Mortalkombat)
  130. .sockwrite -tn $sockname NICK %p-DCZ1
  131.  
  132. .sockmark $sockname %dczid
  133. set %pdczbotnick %p-DCZ1
  134. }
  135. on *:sockread:pdcz:{
  136. if ($sockerr != 0) { echo $iif($window(@debug),@debug,$iif($window(@debugwar),@debugwar,%pdczwarchanx)) 4Error Socket Read $sock($sockname).wsmsg | pdczclose $sockname | halt }
  137. if (%pkcnt > %pdczwarmaxkicking) { set %pkcnt | .timer* off | precon pdcz | halt }
  138. :readm | var %tempdcz | .sockread %tempdcz
  139. if ($window(@debug)) { echo @debug %tempdcz }
  140.  
  141. if (ERROR :You are banned from this network. Excessive Flooding isin %tempdcz) { echo $iif($window(@debug),@debug,$iif($window(@debugwar),@debugwar,%pdczwarchanx)) 9You r'e Banned on network - change IP | pdczclose | halt }
  142. if (:You are placing a heavy load on services! isincs $strip(%tempdcz)) { precon pdcz | halt }
  143. if (:You're not channel operator isin $strip(%tempdcz)) { inc -u2 %notopx | if (%notopx > 4) { unset %notopx | echo $iif($window(@debug),@debug,$iif($window(@debugwar),@debugwar,%pdczwarchanx)) 4Lagging Please Off Mode Deop | precon pdcz | halt } }
  144. IF (:You must wait before trying to identify to that nick. isincs $strip(%tempdcz)) { set %timepcz $iif(%pDCZMsidentify == yes,2000,1000) | precon pdcz | halt }
  145. if (:You have successfully identified isincs $strip(%tempdcz)) { set %timepcz 0 }
  146. if (:Password accepted isincs $strip(%tempdcz)) { set %timepcz 0 }
  147. if (:Nickname is already in use. isincs $strip(%tempdcz)) { set %p-DCZ1 pDCZ. $+ $r(10,99) | precon pdcz | halt }
  148. .tokenize 32 %tempdcz
  149. if ($1 == ping) { sockwrite -n $sockname PONG $2 }
  150. if ($2 == 001) { set %botxku $3 }
  151. if ($2 == pong) {
  152. set %slag $calc(($calc($ticks - %sping) / 1000))
  153. echo -s 5>>>>>4SOCKET5<<<<< 14,15[PING]4-4 %slag 12sec
  154. }
  155. if ($2 == KICK) && (%botxku isincs $1) { inc %sayakenakick 1 }
  156. if ($2 == KICK) && ($4 == %botxku) { inc %sayatelahkick 1 }
  157.  
  158. if ($2 == join) { .sockwrite -tn * kick %pdczwarchanx %pdczwarip $pdczlogo }
  159. if ($2 == 377) { .timerhehe -qmhc 1 140 sockwrite -tn * kick %pdczwarchanx %pdczwarip $pdczlogo }
  160. if ($2 == 221) { .timerx -qmhc 2 200 sockwrite -tn * kick %pdczwarchanx %pdczwarip 1 $pdczlogo }
  161.  
  162. if ($istok(001 002 003 221 353 266 377 375 332 386,$2,32) == $true) { .signal -n $+($sockname $+ -,nump) %tempdcz | halt }
  163. if ($istok(join part quit nick mode KICK,$2,32) == $true) { .signal -n $+($sockname $+ -,$2) %tempdcz | halt }
  164. }
  165.  
  166. on *:signal:pdcz-JOIN: {
  167.  
  168. if ($getnick($1) == %p-DCZ1) { if (%pdczwarip) .sockwrite -tn pdcz $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $event $pdczlogo(Rejoin KICK),1),1) | echo $iif($window(@debugwar),@debugwar,%pdczwarchanx) Joining %pdczwarchanx }
  169. if ($istok(%pdczwarip,$getip($1),44) == $true) {
  170. inc -u0.5 %jo 1
  171. if (%jo == 1) .sockwrite -tn pdcz $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo(JOIN),1),1)
  172. if ($window(@debugwar)) echo @debugwar $getnick($1) Joining %pdczwarchanx
  173. }
  174. }
  175.  
  176. on *:signal:pdcz-PART:{
  177. ; echo -a part
  178. }
  179. on *:signal:pdcz-QUIT:{
  180. if ($getnick($1) == %p-DCZ1) { halt }
  181. inc -u3 %warqu
  182. if (%warqu > 1) { return }
  183. if ($istok(%pdczwarip,$getip($1),44) == $true) { .sockwrite -tn pd*z $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo(FORCE KICK),1),1) }
  184. }
  185.  
  186. on *:signal:pdcz-NICK:{
  187. if ($getnick($1) == %p-DCZ1) {
  188. set %pdczbotnick $replace($3,:,$null)
  189. set %pdczsocketip $getip($1)
  190. set %p-DCZ1 %pdczbotnick
  191. .sockmark pdcz %p-DCZ1
  192. if (%pdczMDeop == on) && (%pdczwaranmy) { .sockwrite -n pdcz mode %pdczwarchanx -oooo %pdczwaranmy }
  193. inc -u1 %DKick 1
  194. $pkick2(DKick %DKick,20)
  195. halt
  196. }
  197. if ($istok(%pdczwarip,$getip($1),44) == $true) {
  198. .sockwrite -tn pd*z $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo(NICK),1),1)
  199. }
  200. }
  201. alias ModeDeops {
  202. if (%pdczMDeop == off) { return }
  203. inc -u1 %modeop 1
  204. if ((%pdczMDeop == on) && (%modeop == 1)) { .sockwrite -n pdcz mode %pdczwarchanx -ooo %pdczwaranmy }
  205. }
  206. on *:signal:ModeDeopsx:{
  207. if (%pdczMDeop == off) { return }
  208. inc -u1 %modeop 1
  209. if ((%pdczMDeop == on) && (%modeop == 1)) { .timermdeopxY -m 1 0 .sockwrite -n pdcz mode %pdczwarchanx -ooo %pdczwaranmy }
  210. }
  211.  
  212. on *:signal:pdcz-MODE:{
  213.  
  214. if ($getnick($1) == %p-DCZ1) && (:+r == $4) && (%pdczwarip) { $pkick2(Develope Kick) | goto px | .signal -n pkick2 %pdczwarchanx %pdczwarip $pdczlogo(Develope Test) }
  215. :px
  216. if ($window(@debugwar)) echo @debugwar $getnick($1) set mode $3-
  217.  
  218. if (-o isincs $4) && (%pdczbotnick isincs $1-) && ($getnick($1) != %p-DCZ1) { $precon | halt }
  219. if (-o isincs $4) && ($5 == %p-DCZ1) { $precon | halt }
  220. if (*-o iswm $4) && ($5 == %p-DCZ1) { $precon | halt }
  221. if (*-o* iswm $4) && ($5 == %p-DCZ1) { $precon | halt }
  222. if (+o isincs $4) && ($getnick($5) == %p-DCZ1) {
  223. inc -u1 %warqop
  224. if (%warqop > 1) { halt }
  225. .sockwrite -tn pdcz $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo(OP),1),1)
  226. }
  227. }
  228.  
  229. on *:signal:pdcz-KICK:{
  230. if (($getnick($1) != %p-DCZ1) && ($getnick($4) != %p-DCZ1)) && ($istok(%pdczwarip,$getip($1),44) == $false) { set %pdczwarip $Addtoip(%pdczwarip,$getip($1),44) | echo -a [Auto add] New ip added $getip($1) - $getnick($1) }
  231. if ($getnick($1) == %p-DCZ1) && (%p-DCZ1 != $getnick($4)) {
  232. if ($window(@debugwar)) echo @debugwar 8kicking # $getnick($4) $5-
  233. .inc %pdczklimit 1
  234. if (%pdczklimit >= %pDCZMMaxKick) { precon $sockname | unset %pdczklimit | halt }
  235. }
  236. if ($getnick($1) != %p-DCZ1) && (%p-DCZ1 == $getnick($4)) {
  237. if (%pdczKDeop == on) .sockwrite -nt pdcz cs deop %pdczwarchanx $getnick($1)
  238. .timer* off
  239. if (Guest* iswm $getnick($1)) { set %pdczwaranmy $remguest(%pdczwaranmy) }
  240. if (%pdczwaranmy != $NULL) && ($numtok(%pdczwaranmy,32) > 6) set %pdczwaranmy $remtok(%pdczwaranmy,$gettok(%pdczwaranmy,$numtok(%pdczwaranmy,32),32),1,32)
  241.  
  242. if ($istok(%pdczwaranmy,$getnick($1),32) == $false) { set %pdczwaranmy $instok(%pdczwaranmy ,$getnick($1),1,32)) }
  243. if ($window(@debugwar)) echo @debugwar 4Kicked9 By $getnick($1) $5-
  244. if ($istok(%pdczwarip,$getip($1),44) == $false) && ($getip($1) != %pdczsocketip) {
  245. set %pdczwarip $Addtoip(%pdczwarip,$getip($1),44)
  246. echo $iif($window(@bebeh),@bebeh,$iif($window(@debugwar),@debugwar,%pdczwarchanx)) [Kick add] New ip added3 $getip($1) - $getnick($1)
  247. }
  248. precon $sockname
  249. }
  250.  
  251. if ($getnick($1) == %p-DCZ1) && (%p-DCZ1 != $getnick($4)) {
  252. inc %kicking 1
  253. inc -u5 %pkcnt 1
  254. if (%pkcnt >= %pDCZMMaxKick) { set %pkcnt | precon $sockname | halt }
  255. inc -u1 %rkck 1 | if (%rkck == 1) { .timerdkz -m 2 0 sockwrite -n p* $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo(ZKick),1),1) }
  256. }
  257.  
  258. }
  259.  
  260.  
  261.  
  262. on *:signal:pdcz-nump:{
  263. if ($2 == 001) { .sockwrite -nt pdcz ns $iif(%dualmode == on,$iif(%pDCZMsidentify == yes,sidentify,identify) $chgNick,$iif(%pDCZMsidentify == yes,sidentify,identify) %pdcznick %pdczpass) | $iif(%pdczFdeop == on, .sockwrite -nt pdcz cs deop %pdczwarchanx %pdczwaranmy ) | $eval($str(.sockwrite -nt,1) $str(pdcz invite %pdczwarchanx,1),1) | echo $iif($active != %pdczwarchanx,$iif($window(@debugwar),@debugwar,%pdczwarchanx)) Connected }
  264. if ($2 == 003) { $iif(%pDCZMsidentify == yes,$ModeDeops) | $pkick1(Start,0) }
  265. if ($2 == 221) { $pkick1(CKick) | .signal -n pwrk1 %pdczwarchanx %pdczwarip $pdczlogo(DCZKick) }
  266. if ($2 == 353) { .sockwrite -tn pdcz $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo(DCZKick),1),1) }
  267. if ($2 == 375) && (%pdczwarip) { inc -u0.5 %375 1 | if (%375 == 1) { $pkick1(VB Kick,0) } }
  268. if ($2 == 386) { $pkick1(Last Kick,0) | .signal -n pwrk1 %pdczwarchanx %pdczwarip $pdczlogo(5) }
  269. }
  270.  
  271. on *:signal:pwrk1: {
  272. inc -u1 %pwrk1z 1
  273. RETURN $+(.TIMER,%pwrk1z) -mo 1 0 .sockwrite -n pdcz $eval($str(kick $1-,1),1)
  274. }
  275.  
  276. alias pkick1 {
  277. if (!$2) inc -u1 %pk1 200
  278. inc -u3 %pkk1 1
  279. return $+(.timerpk1,%pkk1) -mo 1 $iif(!$2,$calc(%pk1 - 250),$2) .sockwrite -tn pdcz $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo($1),1),1)
  280. }
  281.  
  282. alias pkick2 {
  283. return .timerpkick2 -om 1 0 $eval($str(.sockwrite -nt pdcz,1) $str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo($1),1),1)
  284. }
  285.  
  286. #pdczsocket end
  287.  
  288. menu Channel,Status,@debugwar,@debug {
  289. DCZ MHSock Lite Edition
  290. .Socket
  291. ..$iif(!$sock(pdcz),Start F5, Reconnect F5):$iif(!$sock(pdcz),pdczopen pdcz, precon pdcz)
  292. ..Stop:if ($sock(pdcz)) pdczclose pdcz
  293. .Mode- $+ $group(#pdczsocket ):/$iif($group(#pdczsocket ) == on,.disable,.enable) #pdczsocket | $iif($group(#pdczsocket ) == on,echo -a [Multisock Power]4 ON,echo -a [Mulitsock Power]4 OFF)
  294. .Server- $(%pdczserver) $(%pdczport):set %pdczserver $input(Server,-e,Server,%pdczserver) | set %pdczport $input(Port,-e,Port,%pdczport)
  295. .ProxyMode
  296. ..Mode- $(%pdczmUseProxy):set %pdczmUseProxy $iif(%pdczmUseProxy == off,on,off)
  297. ..Proxy- $(%pdczmproxy):set %pdczmproxy $input(Proxy,-e,Proxy,%pdczmproxy)
  298. ..Proxy Port- $(%pdczmproxyport):set %pdczmproxyport $input(Proxy Port,-e,Port,%pdczmproxyport)
  299. .Nick-Pass
  300. ..Num Nick- $(%pDCZNumNick):/set %pDCZNumNick $input(Number of nick,-e,Nick,%pDCZNumNick)
  301. ..Warnick 1- $(%pdcznick1):set %pdcznick1 $input(War Nick 1 and passw,-e,Nick,%pdcznick1)
  302. ..Warnick 2- $(%pdcznick2):set %pdcznick2 $input(War Nick 2 and passw,-e,Nick,%pdcznick2)
  303. ..Warnick 3- $(%pdcznick3):set %pdcznick3 $input(War Nick 3 and passw,-e,Nick,%pdcznick3)
  304. ..Warnick 4- $(%pdcznick4):set %pdcznick4 $input(War Nick 4 and passw,-e,Nick,%pdcznick4)
  305. ..Warnick 5- $(%pdcznick5):set %pdcznick5 $input(War Nick 5 and passw,-e,Nick,%pdcznick5)
  306. ..Warnick 6- $(%pdcznick6):set %pdcznick6 $input(War Nick 6 and passw,-e,Nick,%pdcznick6)
  307. ..Warnick 7- $(%pdcznick7):set %pdcznick7 $input(War Nick 7 and passw,-e,Nick,%pdcznick7)
  308. ..Warnick 8- $(%pdcznick8):set %pdcznick8 $input(War Nick 8 and passw,-e,Nick,%pdcznick8)
  309. ..Warnick 9- $(%pdcznick9):set %pdcznick9 $input(War Nick 9 and passw,-e,Nick,%pdcznick9)
  310. ..Warnick 10- $(%pdcznick10):set %pdcznick10 $input(War Nick 10 and passw,-e,Nick,%pdcznick10)
  311. ..Warnick 11- $(%pdcznick11):set %pdcznick11 $input(War Nick 11 and passw,-e,Nick,%pdcznick11)
  312. ..Warnick 12- $(%pdcznick12):set %pdcznick12 $input(War Nick 12 and passw,-e,Nick,%pdcznick12)
  313. ..Warnick 13- $(%pdcznick13):set %pdcznick13 $input(War Nick 13 and passw,-e,Nick,%pdcznick13)
  314. ..Warnick 14- $(%pdcznick14):set %pdcznick14 $input(War Nick 14 and passw,-e,Nick,%pdcznick14)
  315. ..Warnick 15- $(%pdcznick15):set %pdcznick15 $input(War Nick 15 and passw,-e,Nick,%pdcznick15)
  316. ..Warnick 16- $(%pdcznick16):set %pdcznick16 $input(War Nick 16 and passw,-e,Nick,%pdcznick16)
  317. ..Warnick 17- $(%pdcznick17):set %pdcznick17 $input(War Nick 17 and passw,-e,Nick,%pdcznick17)
  318. ..Warnick 18- $(%pdcznick18):set %pdcznick18 $input(War Nick 18 and passw,-e,Nick,%pdcznick18)
  319. ..Warnick 19- $(%pdcznick19):set %pdcznick19 $input(War Nick 19 and passw,-e,Nick,%pdcznick19)
  320. ..Warnick 20- $(%pdcznick20):set %pdcznick20 $input(War Nick 20 and passw,-e,Nick,%pdcznick20)
  321. ..Warnick 21- $(%pdcznick21):set %pdcznick21 $input(War Nick 21 and passw,-e,Nick,%pdcznick21)
  322. ..Warnick 22- $(%pdcznick22):set %pdcznick22 $input(War Nick 22 and passw,-e,Nick,%pdcznick22)
  323. ..Warnick 23- $(%pdcznick23):set %pdcznick23 $input(War Nick 23 and passw,-e,Nick,%pdcznick23)
  324. ..Warnick 24- $(%pdcznick24):set %pdcznick24 $input(War Nick 24 and passw,-e,Nick,%pdcznick24)
  325. ..Warnick 25- $(%pdcznick25):set %pdcznick25 $input(War Nick 25 and passw,-e,Nick,%pdcznick25)
  326. ..Warnick 26- $(%pdcznick26):set %pdcznick26 $input(War Nick 26 and passw,-e,Nick,%pdcznick26)
  327. ..Warnick 27- $(%pdcznick27):set %pdcznick27 $input(War Nick 27 and passw,-e,Nick,%pdcznick27)
  328. ..Warnick 28- $(%pdcznick28):set %pdcznick28 $input(War Nick 28 and passw,-e,Nick,%pdcznick28)
  329. ..Warnick 29- $(%pdcznick29):set %pdcznick29 $input(War Nick 29 and passw,-e,Nick,%pdcznick29)
  330. ..Warnick 30- $(%pdcznick30):set %pdcznick30 $input(War Nick 30 and passw,-e,Nick,%pdcznick30)
  331. ..Warnick 31- $(%pdcznick31):set %pdcznick31 $input(War Nick 31 and passw,-e,Nick,%pdcznick31)
  332. ..Warnick 32- $(%pdcznick32):set %pdcznick32 $input(War Nick 32 and passw,-e,Nick,%pdcznick32)
  333. ..Warnick 33- $(%pdcznick33):set %pdcznick33 $input(War Nick 33 and passw,-e,Nick,%pdcznick33)
  334. .Nick Mode
  335. ..Fnick - $(%p-DCZ1):set %p-DCZ1 $input(fNick 2,-e,fnick,%p-DCZ1)
  336. ..DualMode- $(%dualmode):set %dualmode $iif(%dualmode == on,off,on)
  337. ..sidentify- $(%pDCZMsidentify):set %pDCZMsidentify $iif(%pDCZMsidentify == yes,no,yes)
  338. .Deop
  339. ..001 CS Deop- $(%pdczFdeop):set %pdczFdeop $iif(%pdczFdeop == off,on,off)
  340. ..Mode Deop- $(%pdczMDeop):set %pdczMDeop $iif(%pdczMDeop == off,on,off)
  341. ..Deop On Kicked- $(%pdczKDeop):set %pdczKDeop $iif(%pdczKDeop == off,on,off)
  342. .War Channel- $(%pdczwarchanx):set %pdczwarchanx $input(War Channel,-e,Channel,%pdczwarchanx)
  343. ..Kick Limit- $(%pDCZMMaxKick):set %pDCZMMaxKick $input(Kick Limit,-e,Limit,%pDCZMMaxKick)
  344. .Quit Msg- $(%pDCZQuitmsg):set %pDCZQuitmsg $iif(%pDCZQuitmsg == yes,no,yes)
  345. .Windows
  346. ..Debug:if (!$window(@debug)) window -e @debug
  347. ..Debug War:if (!$window(@debugwar)) window -e @debugwar
  348. .Clear Ip's:set %pdczwarip
  349. }
  350. menu nicklist {
  351. DCZ MHSock Lite Edition
  352. .Add to Kick:/.enable #pdczsocket | set %pdczwarchanx $chan | set %pdczwarip $addtok(%pdczwarip,$address($$1,4),44) | .sockwrite -tn pd*z $eval($str(kick %pdczwarchanx,1) $str(%pdczwarip $pdczlogo(Added To List),1),1) $$1 12Added To List::
  353. }
  354. alias F5 { precon pdcz }
  355. alias F6 { pdczclose pdcz }
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!