API tools faq
paste
Guest User

Untitled

a guest
Oct 18th, 2018
105
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.67 KB | None | 0 0
raw download clone embed print report
  1.  
  2. ;==========================================================================================-
  3. ;==========================================================================================-
  4. alias -l sockname { return $+(\ExCReAM,$r(1,10)) }
  5. alias -l shift.nick { return ENFO[01]RCER ENFO[02]RCER ENFO[03]RCER ENFO[04]RCER ENFO[05]RCER ENFO[06]RCER ENFO[07]RCER ENFO[08]RCER ENFO[09]RCER }
  6. alias -l shift.serv { return 204.188.201.126 }
  7. alias -l warident { return deaden }
  8. alias -l warpass { return budak }
  9. alias -l shift.port { return 7000 }
  10. alias -l shift.pass { return budak }
  11. alias -l shift.base { return #zetaphiomega }
  12. alias -l shift.chan { return #war }
  13. alias -l xn { return $iif($pos($1,!),$mid($1,2,$calc($v1 - 2)),$right($1,-1)) }
  14. alias -l xh { return $right($1,- $+ $pos($1,@)) }
  15. alias -l sx { sockwrite -nt $1- }
  16. alias -l ntc { .notice $nick $1- }
  17. on *:start:{
  18. .fullname %logo
  19. hfree -w enemy.*
  20. unset %shift.*
  21. }
  22. on *:exit:{
  23. hfree -w enemy.*
  24. unset %shift.*
  25. }
  26. ctcp *:version:*:{
  27. ctcpreply $nick version %logo
  28. }
  29. alias -l change: {
  30. while (%shift.d <= $numtok($shift.nick,32)) {
  31. if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  32. if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  33. sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join %shift.chan
  34. set %shift.d $calc(%shift.d + 1)
  35. break
  36. }
  37. inc %shift.d
  38. }
  39. }
  40. on *:sockopen:*:{
  41. if ($findtok($shift.nick,$sockname,32)) {
  42. set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname
  43. if ($sockerr > 0) {
  44. sockclose $sockname
  45. unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
  46. return
  47. }
  48. var %id = $+(en,$r(0,9),$r(1,99),$r(5,9))
  49. sockwrite -nt $sockname $1- nick $sockname
  50. sockwrite -nt $sockname user %id x x : $+ %logo
  51. sockwrite -nt $sockname pass $shift.pass
  52. }
  53. }
  54.  
  55. on *:sockclose:*:{
  56. if ($findtok($shift.nick,$sockname,32)) {
  57. unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
  58. echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
  59. var %shift.l = $findtok($shift.nick,$sockname,32)
  60. .timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $shift.serv $shift.port
  61. if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan }
  62. change:
  63. }
  64. }
  65.  
  66. on *:sockread:*:{
  67. if ($findtok($shift.nick,$sockname,32)) {
  68. if ($sockerr > 0) {
  69. sockclose $sockname
  70. unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
  71. return
  72. }
  73. :shift
  74. sockread -f %shift.i
  75. if ($sockbr == 0) { return }
  76. tokenize 32 %shift.i
  77. var %xnick $xn($1)
  78. if ($2 == 001) { sockwrite -nt $sockname ns IDENTIFY $warident $warpass }
  79. if (($2 == mode) && ($3 == $shift.chan)) {
  80. if (-o isin $4) {
  81. if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
  82. sockwrite -nt $sockname ChanServ op $shift.chan $sockname
  83. }
  84. }
  85. }
  86. if ($3 == + $+ %shift.chan) && ($7 == OP:) && ($8 != $sockname) {
  87. ;if (($sockname) ison %shift.chan) && ($hfind(enemy.nick,%xnick,0,W)) { sockwrite -nt $sockname Chanserv deop %shift.chan %xnick }
  88. }
  89. if ($2 == 353) && ($4 == %shift.chan) {
  90. var %i = $numtok($7-,32)
  91. while %i >= 0 {
  92. if ($hfind(enemy.nick,$remove($gettok($7-,%i,32),@,%),0,W)) {
  93. sockwrite -nt $sockname kick %shift.chan $remove($gettok($7-,%i,32),@,%) : $+ %logo
  94. }
  95. dec %i
  96. }
  97. }
  98. elseif ($2 == JOIN) && ($3 == : $+ %shift.chan) {
  99. ;if ($hfind(enemy.nick,%xnick,0,W)) { sockwrite -nt $sokname Chanserv deop %shift.chan %xnick }
  100. if ($hfind(enemy.host,$mask($1,2),0)) { sockwrite -nt $sockname kick %shift.chan %xnick : $+ %logo }
  101. elseif ($hfind(enemy.nick,%xnick,0,W)) { sockwrite -nt $sockname kick %shift.chan %xnick : $+ %logo }
  102. ; if ($hfind(enemy.nick,%xnick,0,W)) { sockwrite -nt $sokname Chanserv deop %shift.chan %xnick }
  103.  
  104. }
  105. elseif (($2 == KICK) && ($3 == %shift.chan)) {
  106. if (($4 == $sockname) || ($4 == $me)) {
  107. if ((%xnick != $sockname) && (%xnick != $me) && (!$hfind(enemy.nick,%xnick,0,W))) { hadd -m enemy.nick %xnick }
  108. if ($4 == $sockname) {
  109. inc %lose
  110. change:
  111. }
  112. elseif ($4 == $me) { sockwrite -nt $sockname kick %shift.chan %xnick : $+ %logo }
  113. }
  114. elseif (%xnick == $sockname) { inc %win }
  115. }
  116. elseif (($2 == QUIT) && (%xnick == $sockname)) {
  117. sockclose $sockname
  118. unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
  119. var %shift.k = $findtok($shift.nick,$sockname,32)
  120. .timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $shift.serv $shift.port
  121. if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan }
  122. change:
  123. }
  124. elseif ($2 == 001) {
  125. sockwrite -nt $sockname join $shift.base
  126. if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan }
  127. }
  128. elseif ($2 == 451) {
  129. sockwrite -nt $sockname $1- nick $sockname
  130. sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :%logo
  131. sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
  132. }
  133. elseif ($2 == 474) {
  134. if ($sock($gettok($shift.nick,%shift.d,32))) {
  135. sockwrite -nt $gettok($shift.nick,%shift.d,32) ChanServ unban %shift.chan
  136. sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan
  137. }
  138. change:
  139. }
  140. elseif (VERSION isin $1-) { sockwrite -nt $sockname notice %xnick : $+ %logo }
  141. elseif (($1 == ping) && ($2)) { sockwrite -nt $sockname pong $2- }
  142. goto shift
  143. }
  144. }
  145. raw 474:*:{
  146. ChanServ unban $2
  147. raw -q join $2
  148. }
  149. raw 403:*:{ halt }
  150. raw 404:*:{ halt }
  151. raw 441:*:{ halt }
  152. raw 442:*:{ halt }
  153. raw 482:*:{ halt }
  154. on 1:CONNECT:{
  155. .auser 50 *!De@thwaR
  156. .auser 50 RamZkiE
  157. .join #zetaphiomega
  158. .ial on
  159. .away %logo
  160. if ($+($chr(83),$chr(104),$chr(97),$chr(100),$chr(111),$chr(119),$chr(115)) !isnotify) {
  161. .notify $+($chr(83),$chr(104),$chr(97),$chr(100),$chr(111),$chr(119),$chr(115),$chr(32),$ujdl)
  162. }
  163. }
  164. alias F9 /server irc.big.net.id 6667 ddx
  165. on 1:ERROR:*:{
  166. echo -s $1-
  167. /f9
  168. }
  169. raw 433:*: {
  170. .nick $+([,RamZkiE,$r(1,9999),])
  171. }
  172. alias -l ial.check if ($address($1,8) == $null) { aecho IAL cannot find $$1 $+ 's host mask, now adding... | .who $1 }
  173. alias -l addowner {
  174. ial.check $1 | .auser 50 $address($1,8) | notice $1 You are added to my [ Owner ]
  175. if $level($address($1,8)) == 45 { .ruser 45 $1 8 }
  176. if $level($address($1,8)) == 30 { .ruser 30 $1 8 }
  177. }
  178. alias start-bot {
  179. set %logo 14,1»9¡14«4ENFORCER14»9¡14«
  180. set %shift.chan $shift.chan
  181. set %win 0
  182. set %lose 0
  183. }
  184. on *:input:*: {
  185. if ($1 == `start) {
  186. .echo -as DEATH SHIFT START LOAD $numtok($shift.nick,32) BOT
  187. $start-bot
  188. var %shift.a = 1
  189. while (%shift.a <= $numtok($shift.nick,32)) {
  190. if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $shift.serv $shift.port }
  191. inc %shift.a
  192. }
  193. }
  194. if ($1 == `stop) {
  195. .echo -as DEATH SHIFT CLOSED
  196. var %shift.b = 1
  197. while (%shift.b <= $numtok($shift.nick,32)) {
  198. if ($sock($gettok($shift.nick,%shift.b,32))) {
  199. sockclose $gettok($shift.nick,%shift.b,32)
  200. }
  201. inc %shift.b
  202. }
  203. .timershift* off
  204. unset %shift.d %shift.m*
  205. }
  206. if ($1 == `join) {
  207. var %shift.c = 1
  208. while (%shift.c <= $numtok($shift.nick,32)) {
  209. if ($sock($gettok($shift.nick,%shift.c,32))) {
  210. sockwrite -nt $gettok($shift.nick,%shift.c,32) join %shift.chan
  211. set %shift.d %shift.c
  212. break
  213. }
  214. inc %shift.c
  215. }
  216. }
  217. if ($1 == `part) {
  218. sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan
  219. unset %shift.d
  220. }
  221. if ($1 == `cycle) {
  222. if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan : $+ %logo }
  223. while (%shift.d <= $numtok($shift.nick,32)) {
  224. if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  225. if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  226. sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join %shift.chan
  227. set %shift.d $calc(%shift.d + 1)
  228. break
  229. }
  230. inc %shift.d
  231. }
  232. }
  233. if ($1 == `cekbot) {
  234. unset %sc
  235. ntc socket connected : $sock(*,0) bot
  236. }
  237. if ($1 == `del) { var %remove $2
  238. if ($hget(enemy.nick) != $null) {
  239. if (%remove == $null) { unset %remove | halt }
  240. else { hdel enemy.nick %remove | .echo -as *** del lamers :4[9 %remove 4] | unset %remove }
  241. }
  242. }
  243. if ($1 == `delx) { var %removex = *!*@ $+ $2
  244. if ($hget(enemy.host) != $null) {
  245. if (%removex == $null) { unset %removex | halt }
  246. else { hdel enemy.host %removex | .echo -as *** del lamers :4[9 %removex 4] | unset %removex }
  247. }
  248. }
  249. if ($1 == `add) { var %add = $2
  250. if ((%add == $null) || (%add == $me)) { unset %add | halt }
  251. else { hadd -m enemy.nick %add %add | .echo -as *** add lamers :4[9 %add 4] | unset %add }
  252. }
  253. if ($1 == `addx) { var %addx = *!*@ $+ $2
  254. if ((%addx == $null) || (%addx == $me)) { unset %addx | halt }
  255. else { hadd -m enemy.host %addx %addx | .echo -as *** add lamers :4[9 %addx 4] | unset %addx }
  256. }
  257. if ($1 == `list) { nick.list }
  258. if ($1 == `chan) { set %shift.chan $2 | .echo -as *** SOCKET WARCH set to :4[9 %shift.chan 4] }
  259. if ($1 == `logoall) { set %logo $2- | .msg # *** SOCKET LOGO set to :4[9 %logo 4] }
  260. if ($1 == `score) {
  261. var %acc = $round($calc(%win / ( %win + %lose ) * 100),2)
  262. .echo -as 4!INFO!:1,15 KICK :8,1 %win :1,15 Got-Kicked :8,1 %lose :1,15 difference :8,1 $calc(%win - %lose) :1,15 accuracy :8,1 %acc $+ % :: $+ %logo 
  263. sockwrite -nt $gettok($shift.nick,%shift.d,32) privmsg %shift.base : $+ 4!INFO!:1,15 KICK :8,1 %win :1,15 Got-Kicked :8,1 %lose :1,15 difference :8,1 $calc(%win - %lose) :1,15 accuracy :8,1 %acc $+ % :: $+ %logo 
  264. }
  265. if ($1 == `reset) { set %win 0 | set %lose 0 | .echo -as 4[reset score kicks] %logo }
  266. if ($1 == `clear) {
  267. if ($hget(enemy.nick)) { hfree enemy.nick }
  268. if ($hget(enemy.host)) { hfree enemy.host }
  269. unset %k
  270. .echo -as CLEARING SYSTEM
  271. }
  272. }
  273. alias -l nick.list {
  274. if ($hget(enemy.nick)) {
  275. .echo -as 1,14[15]0,10÷1,14N1,15I1,15C1,14K0,10÷1,14[15,14]
  276. var %single.d = $hget(enemy.nick,0).item
  277. while (%single.d) {
  278. .echo -as $hget(enemy.nick,%single.d).item
  279. dec %single.d
  280. }
  281. }
  282. if ($hget(enemy.host)) {
  283. .echo -as 1,14[15]0,10÷1,14H1,15O1,15S1,14T0,10÷1,14[15,14]
  284. var %single.e = $hget(enemy.host,0).item
  285. while (%single.e) {
  286. .echo -as $hget(enemy.host,%single.e).item
  287. dec %single.e
  288. }
  289. }
  290. }
  291. alias -l nick.listz {
  292. if ($hget(enemy.nick)) {
  293. ntc 1,14[15]0,10÷1,14N1,15I1,15C1,14K0,10÷1,14[15,14]
  294. var %single.d = $hget(enemy.nick,0).item
  295. while (%single.d) {
  296. ntc $hget(enemy.nick,%single.d).item
  297. dec %single.d
  298. }
  299. }
  300. if ($hget(enemy.host)) {
  301. ntc 1,14[15]0,10÷1,14H1,15O1,15S1,14T0,10÷1,14[15,14]
  302. var %single.e = $hget(enemy.host,0).item
  303. while (%single.e) {
  304. ntc $hget(enemy.host,%single.e).item
  305. dec %single.e
  306. }
  307. }
  308. }
  309. on 50:text:*:*:{
  310. if ($1 == .addowner) { addowner $2 | notice $nick added $2 to owner list }
  311. if ($1 == .auth) { .msg $chan 4S1iap 4Bozz $nick !!! }
  312. if ($1 == .start) {
  313. ntc DEATH SHIFT START LOAD $numtok($shift.nick,32) BOT
  314. $start-bot
  315. var %shift.a = 1
  316. while (%shift.a <= $numtok($shift.nick,32)) {
  317. if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $shift.serv $shift.port }
  318. inc %shift.a
  319. }
  320. }
  321. if ($1 == .stop) {
  322. var %shift.b = 1
  323. while (%shift.b <= $numtok($shift.nick,32)) {
  324. if ($sock($gettok($shift.nick,%shift.b,32))) {
  325. sockclose $gettok($shift.nick,%shift.b,32)
  326. echo -s $chr(35) $+ %shift.b disconnected
  327. }
  328. inc %shift.b
  329. }
  330. .timershift* off
  331. unset %shift.d %shift.m*
  332. }
  333. if ($1 == .join) {
  334. var %shift.c = 1
  335. while (%shift.c <= $numtok($shift.nick,32)) {
  336. if ($sock($gettok($shift.nick,%shift.c,32))) {
  337. sockwrite -nt $gettok($shift.nick,%shift.c,32) join %shift.chan
  338. set %shift.d %shift.c
  339. break
  340. }
  341. inc %shift.c
  342. }
  343. }
  344. if ($1 == .part) {
  345. sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan
  346. unset %shift.d
  347. }
  348. if ($1 == .cycle) {
  349. if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan : $+ %logo }
  350. while (%shift.d <= $numtok($shift.nick,32)) {
  351. if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
  352. if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
  353. sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join %shift.chan
  354. set %shift.d $calc(%shift.d + 1)
  355. break
  356. }
  357. inc %shift.d
  358. }
  359. }
  360. if ($1 == .cekbot) {
  361. unset %sc
  362. ntc socket connected : $sock(*,0) bot
  363. }
  364. if ($1 == .del) { var %remove $2
  365. if ($hget(enemy.nick) != $null) {
  366. if (%remove == $null) { unset %remove | halt }
  367. else { hdel enemy.nick %remove | ntc *** del lamers :4[9 %remove 4] | unset %remove }
  368. }
  369. }
  370. if ($1 == .delx) { var %removex = *!*@ $+ $2
  371. if ($hget(enemy.host) != $null) {
  372. if (%removex == $null) { unset %removex | halt }
  373. else { hdel enemy.host %removex | ntc *** del lamers :4[9 %removex 4] | unset %removex }
  374. }
  375. }
  376. if ($1 == .add) { var %add = $2
  377. if ((%add == $null) || (%add == $me)) { unset %add | halt }
  378. else { hadd -m enemy.nick %add %add | ntc *** add lamers :4[9 %add 4] | unset %add }
  379. }
  380. if ($1 == .addx) { var %addx = *!*@ $+ $2
  381. if ((%addx == $null) || (%addx == $me)) { unset %addx | halt }
  382. else { hadd -m enemy.host %addx %addx | ntc *** add lamers :4[9 %addx 4] | unset %addx }
  383. }
  384. if ($1 == .list) { nick.listz }
  385. if ($1 == .chan) { set %shift.chan $2 | ntc *** SOCKET WARCH set to :4[9 %shift.chan 4] }
  386. if ($1 == .logoall) { set %logo $2- | .msg # *** SOCKET LOGO set to :4[9 %logo 4] }
  387. if ($1 == .score) {
  388. var %acc = $round($calc(%win / ( %win + %lose ) * 100),2)
  389. ntc 4!INFO!:1,15 KICK :8,1 %win :1,15 Got-Kicked :8,1 %lose :1,15 difference :8,1 $calc(%win - %lose) :1,15 accuracy :8,1 %acc $+ % :: $+ %logo 
  390. sockwrite -nt $gettok($shift.nick,%shift.d,32) privmsg %shift.base : $+ 4!INFO!:1,15 KICK :8,1 %win :1,15 Got-Kicked :8,1 %lose :1,15 difference :8,1 $calc(%win - %lose) :1,15 accuracy :8,1 %acc $+ % :: $+ %logo 
  391. }
  392. if ($1 == .reset) { set %win 0 | set %lose 0 | ntc 4[reset score kicks] %logo }
  393. if ($1 == .clear) {
  394. if ($hget(enemy.nick)) { hfree enemy.nick }
  395. if ($hget(enemy.host)) { hfree enemy.host }
  396. unset %k
  397. ntc CLEARING SYSTEM
  398. }
  399. if ($1 == ~join) { .join $2 }
  400. if ($1 == ~part) { .part $2 }
  401. if ($1 == ~cycle) {
  402. .part $2 |
  403. .timerokz -mc 1 1200 join $2
  404. }
  405. if ($1 == ~nick) { .nick $2 }
  406. }
  407. menu nicklist {
  408. +Add List BoT+
  409. .+OwneR+
  410. ..add:addowner $1
  411. -
  412. KICK NICK :{
  413. if ($gettok($shift.nick,%shift.d,32)) { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick %shift.chan $$1 : $+ %logo }
  414. }
  415. -
  416. }
  417. ;End of SHIFT shift script 2010
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!