API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 25th, 2017
103
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 28.21 KB | None | 0 0
raw download clone embed print report
  1.  
  2. on *:TEXT:!ahelp:#: {
  3. if ($nick isop $chan) || ($nick ishop $chan) {
  4. msg # 4Admin-Commands:
  5. msg # !ri 7- 1!time(Only in Adminchat) 7- 1!insult [ID] 7- 1!spam [ID] 7- 1!caps [ID]
  6. msg # !flood [ID]
  7. msg # 4Weathers:
  8. msg # !wgroove 7- 1 !wnice 7- 1 !wdark 7- 1 !wnormal 7- 1 !wrainy
  9. }
  10. else {
  11. msg # You're not allowed to use that command! }
  12. }
  13. on *:TEXT:!hop:#: {
  14. if ($nick == Banhammer) || ($nick == TheBanhammer) || ($nick == Pirate) || ($nick == Florian_HH) {
  15. hop #
  16. }
  17. }
  18. on *:text:!eat *:#: {
  19. msg # Eating $2- $+ , mhhhhhhh.
  20. }
  21. on *:TEXT:!hop:#: {
  22. if ($nick == Banhammer) || ($nick == TheBanhammer) || ($nick == Pirate) || ($nick == Florian_HH) {
  23. hop #
  24. }
  25. }
  26. on *:text:*!bot *:#: {
  27. if (TW isin $nick) && ($2 == Florian_HH) && (Admin-Chat isin $1) {
  28. msg # !m $4-
  29. }
  30. }
  31. on *:text:!flood *:#: {
  32. if ($nick isop $chan || $nick ishop $chan) {
  33. msg # !mute $2 Flood
  34. msg # !warn $2 Flood
  35. }
  36. else {
  37. You're not allowed to use that command! }
  38. }
  39. on *:text:!caps *:#: {
  40. if ($nick isop $chan || $nick ishop $chan) {
  41. msg # !warn $2 Please turn your caps off
  42. }
  43. else {
  44. You're not allowed to use that command! }
  45. }
  46. on *:text:!wnormal:#: {
  47. if ($nick isop $chan || $nick ishop $chan)) {
  48. msg # !time 12
  49. msg # !weather 1
  50. }
  51. else {
  52. You're not allowed to use that command! }
  53. }
  54. on *:text:!wdark:#: {
  55. if ($nick isop $chan || $nick ishop $chan) {
  56. msg # !time 23
  57. msg # !weather 9
  58. }
  59. else {
  60. You're not allowed to use that command! }
  61. }
  62. on *:text:!wnice:#: {
  63. if ($nick isop $chan || $nick ishop $chan) {
  64. msg # !time 14
  65. msg # !weather 12
  66. }
  67. else {
  68. You're not allowed to use that command! }
  69. }
  70. on *:text:!wrainy:#: {
  71. if ($nick isop $chan || $nick ishop $chan) {
  72. msg # !time 19
  73. msg # !weather 8
  74. }
  75. else {
  76. You're not allowed to use that command! }
  77. }
  78. on *:text:!wgroove:#: {
  79. if ($nick isop $chan || $nick ishop $chan) {
  80. msg # !time 23
  81. msg # !weather -11
  82. }
  83. else {
  84. You're not allowed to use that command! }
  85. }
  86. on *:text:!spam *:#: {
  87. if ($nick isop $chan || $nick ishop $chan) {
  88. msg # !mute $2 Spam
  89. msg # !warn $2 Spam
  90. }
  91. else {
  92. You're not allowed to use that command! }
  93. }
  94. on *:text: *:#: { if (Admin-Chat isin $1 && !insult isin $4) {
  95. msg $chan !clearchat
  96. msg $chan !mute $2 Insulting
  97. msg $chan !warn $2 Insulting
  98. msg $chan !a Thanks for using ThePirate
  99. }
  100. }
  101. on *:TEXT:*lala*:#: {
  102. if (TW isin $nick) { }
  103. else {
  104. /describe $chan says THERE IS NO LALA!!!
  105. }
  106. }
  107. on *:text:!ri:#:{
  108. if ($nick isop $chan || $nick ishop $chan) {
  109. msg # !say Please use /report ID Reason to report a cheater or a rulebreaker to the administation-team!
  110. }
  111. else {
  112. msg # You're not allowed to use that command!
  113. }
  114. }
  115. on *:TEXT:!crash:#: {
  116. if ($nick == Florian_HH) {
  117. unset %system
  118. unset %pirate
  119. msg # 4ERROR: SYSTEM WAS CHRASHED BY OWNER
  120. msg # System restarts!
  121. }
  122. }
  123.  
  124. on *:TEXT:!piratesys:#: {
  125. if (%system != $null) || (%pirate != $null) {
  126. msg # 4 You cant open System while another user using it!
  127. }
  128. elseif ($nick == Florian_HH) || ($nick == Nishe) || ($nick == tupac) || ($nick == [TW]seiscientos40) {
  129. set %pirate $nick
  130. msg # 15 [SYS]Succesfull opened
  131. msg # 14 Version:12 1.4
  132. msg # 12 Please be carefull!
  133. msg # 12 You want to open the System?
  134. }
  135. else {
  136. msg # 15 [SYS]ERROR: You cant open the System
  137. }
  138. }
  139. on *:TEXT:Yes:#: {
  140. if ($nick == %pirate) {
  141. set %system $nick
  142. unset %pirate
  143. msg # 12[SYS]1Type a number to choose one command:
  144. msg # 1 4[1]1 Show the time 12<>1 4[2]1 Reportinfo 12<>1 4[3]1 Restart System
  145. msg # 1 4[4]1 Add new cmd 12<>1 4[5]1 How are you? 12<>1 4[6]1 All Commands
  146. msg # 1 4[7]1 [Weather]Niceday 12<>1 4[8]1 [Weather]Darknight
  147. msg # 1 4[9]1 [Weather]Hotday 12<>1 4[10]1 [Weather]Normal
  148. msg # 1 4[11]1 System Version 12<>1 4[12]1 Shutdown
  149. msg # 1 12[SYS]1More will be added soon!
  150. }
  151. }
  152.  
  153. on *:TEXT:12:#: {
  154. if ($nick == %system) {
  155. msg # Shutdown...
  156. unset %pirate
  157. unset %system
  158. quit #
  159. else {
  160. msg # 15 [SYS]ERROR Invailid CMD }
  161. }
  162. }
  163.  
  164. on *:TEXT:3:#: {
  165. if ($nick == %system) {
  166. msg # Restarting!
  167. unset %pirate
  168. unset %system
  169. hop #
  170. else {
  171. msg # 15 [SYS]ERROR Invailid CMD }
  172. }
  173. }
  174.  
  175. on *:TEXT:10:#: {
  176. if ($nick == %system) {
  177. msg # !time 12
  178. msg # !weather 1
  179. else {
  180. msg # 15 [SYS]ERROR Invailid CMD }
  181. msg # System ready! 14Type close to close system!
  182. }
  183. }
  184. on *:TEXT:9:#: {
  185. if ($nick == %system) {
  186. msg # !time 14
  187. msg # !weather 17
  188. else {
  189. msg # 15 [SYS]ERROR Invailid CMD }
  190. msg # System ready! 14Type close to close system!
  191. }
  192. }
  193. on *:TEXT:11:#: {
  194. if ($nick == %system) {
  195. msg # System Version:
  196. msg # 1.4 by Florian_HH
  197. msg # Special thanks to Somoon, Iron and Nishe
  198. msg # Friendsystem CP by Nishe
  199. else {
  200. msg # 15 [SYS]ERROR Invailid CMD }
  201. msg # System ready! 14Type close to close system!
  202. }
  203. }
  204. on *:TEXT:2:#: {
  205. if ($nick == %system) {
  206. msg # !say Please use /report ID Reason to report a cheater or a rulebreaker!
  207. else {
  208. msg # 15 [SYS]ERROR Invailid CMD }
  209. msg # System ready! 14Type close to close system!
  210. }
  211. }
  212. on *:TEXT:8:#: {
  213. if ($nick == %system) {
  214. msg # !time 23
  215. msg # !weather 9
  216. else {
  217. msg # 15 [SYS]ERROR Invailid CMD }
  218. msg # System ready! 14Type close to close system!
  219. }
  220. }
  221. on *:TEXT:7:#: {
  222. if ($nick == %system) {
  223. msg # !time 14
  224. msg # !weather 12
  225. else {
  226. msg # 15 [SYS]ERROR Invailid CMD }
  227. msg # System ready! 14Type close to close system!
  228. }
  229. }
  230. on *:TEXT:4:#: {
  231. if ($nick == %system) {
  232. msg $chan ERROR: Not Ready!
  233. else {
  234. msg # 15 [SYS]ERROR Invailid CMD }
  235. msg # System ready! 14Type close to close system!
  236. }
  237. }
  238. on *:TEXT:1:#: {
  239. if ($nick == %system) {
  240. msg $chan 4 Time: (GMT +1) $asctime
  241. else {
  242. msg # 15 [SYS]ERROR Invailid CMD }
  243. msg # System ready! 14Type close to close system!
  244. }
  245. }
  246. on *:TEXT:5:#: {
  247. if ($nick == %system) {
  248. msg # OMG im Bot, but im fine :P
  249. else {
  250. msg # 15 [SYS]ERROR Invailid CMD }
  251. msg # System ready! 14Type close to close system!
  252. }
  253. }
  254. on *:TEXT:6:#: {
  255. if ($nick == %system) {
  256. msg # 4!eatall !bombkick !eatit !eatme !snake !fish !weed !pirateinfo !piratecrew
  257. else {
  258. msg # 15 [SYS] ERROR Invailid CMD }
  259. msg # System ready! 14Type close to close system!
  260. }
  261. }
  262.  
  263. on *:TEXT:no:#: {
  264. if ($nick == %pirate ) {
  265. unset %owner
  266. unset %system
  267. unset %pirate
  268. msg # 15 [SYS]Succesfull closed
  269. }
  270. }
  271. on *:TEXT:close:#: {
  272. if ($nick == %system) {
  273. unset %owner
  274. unset %system
  275. unset %pirate
  276. msg # 15 [SYS]Succesfull closed
  277. }
  278. }
  279. on *:TEXT:*!pirateinfo*:#: {
  280. if (TW isin $nick) { }
  281. else {
  282. msg $active 4 You wanna be a pirate? Than ask Florian_HH or Fabian_Noezz!
  283. msg $active 4 Type !piratecrew to see the whole crew.
  284. msg $active 4 :)
  285. }
  286. }
  287. on *:TEXT:*!piratecrew*:#: {
  288. if (TW isin $nick) { }
  289. else {
  290. msg $active 7Captain: 9 Florian_HH
  291. msg $active 7Co-Captain: 9 Fabian_Noezz
  292. msg $active 7Cook: 9 Mia_Smith 1(4<31)
  293. msg $active 7Navigator: 9 Mikkel_Pedersen
  294. msg $active 7Co-Navigator: 9 [TW]Never_Back_Down
  295. msg $active 7Weaponengineer: 9 [TW]Seiscientos40
  296. msg $active 7Co-Weaponengineer: 9 [SS][BK]G_M
  297. msg $active 7Mechanic: 9 SkillZ
  298. msg $active 7Parrot: 9 Ironboy500[MM]
  299. msg $active 7Parrot Feeder: 9 dont_trust
  300. msg $active 7Cook's Assistant: 9 2pac_2pac
  301. msg $active 7Cleaner: 9 Somoon
  302. msg $active 7Co-Cleaner: 9 [TW]Simi
  303. msg $active 7Co-Cleaner's Assistant: 9 [TW]Ronaldo
  304. msg $active 7Co-Cleaner's Co-Assistant: 9 [DD][TW]X_Drifter
  305. msg $active You wanna be a pirate, type !pirateinfo
  306. }
  307. }
  308. on *:TEXT:*mia*:#: {
  309. if (TW isin $nick) { }
  310. else {
  311. msg # 4 Mia <3
  312. }
  313. }
  314.  
  315. on *:TEXT:*Bot owns all*:#: {
  316. if (TW isin $nick) { }
  317. else {
  318. msg # 4 ye I do
  319. }
  320. }
  321. on *:TEXT:*haha*:#: {
  322. if (TW isin $nick) { }
  323. else {
  324. msg # 4H13A6H10A
  325. }
  326. }
  327. on *:TEXT:*!weed*:#: {
  328. if (TW isin $nick) { }
  329. else {
  330. msg $active 0_________________3WW0__________________
  331. msg $active 0________________3WWWW_0________________
  332. msg $active 0_______________3WWWWWW0________________
  333. msg $active 0____3WW0_________3WWWWWWW0__________3WW0___
  334. msg $active 0_____3WWWW0______3WWWWWWW0______3WWWWW0____
  335. msg $active 0_____3WWWWWW0____3WWWWWWW0___3WWWWWWW0_____
  336. msg $active 0______3WWWWWW0___3WWWWWWW0_3WWWWWWW0_______
  337. msg $active 0_______3WWWWWWW0_3WWWWWW0_3WWWWWWW0________
  338. msg $active 0_________3WWWWWW0_3WWWWW0_3WWWWWW0_________
  339. msg $active 0_3WWWW0_____3WWWWWW0_3WWW0_3WWWW0__3WWWWWWWW0__
  340. msg $active 0__3WWWWWWWWW0__3WWWW0_3W0_3WWW0_3WWWWWWWWW0____
  341. msg $active 0_____3WWWWWWWWW0__3W0_3W0_3W0_3WWWWWWWWW0______
  342. msg $active 0_________3WWWWWWWWWWWWWWWWWWWW0________
  343. msg $active 0______________3WWW0_3W0_3WWWW0_____________
  344. msg $active 0____________3WWWWW0_3W0__3WWWWW0___________
  345. msg $active 0___________3WW0_____3W0______3WW0__________
  346. }
  347. }
  348. on *:text:!fish:#: {
  349. if (TW isin $nick) { }
  350. else {
  351. msg $active 0__________________________________
  352. msg $active 0_____11§0____11§§§§§§0_______
  353. msg $active 0_____11§§0__11§§§§§§§§0_____
  354. msg $active 0______11§§§§§§§§§4*11§§0___
  355. msg $active 0______11§§§§§§§§§§§§0___
  356. msg $active 0_____11§§0__11§§§§§§§§0____
  357. msg $active 0_____11§0____11§§§§§§0_____
  358. msg $active 0_____________________
  359. }
  360. }
  361. on *:TEXT:*!snake*:#: {
  362. if (TW isin $nick) { }
  363. else {
  364. msg $active 13...//////....
  365. msg $active 13..(4o13)(4o13).....
  366. msg $active 13...(__)......
  367. msg $active 13....(_)......
  368. msg $active 13.....(_).....
  369. msg $active 13....(_)......
  370. msg $active 13....(_)......
  371. msg $active 13...(_).......
  372. msg $active 13....(_)......
  373. msg $active 13.....(_).....
  374. msg $active 13......(_)....
  375. }
  376. }
  377. on *:TEXT:*!eatme*:#: {
  378. set %eater $nick
  379. if ($nick == %eater) {
  380. msg # 4 $nick $+ , you really want to eat yourself?
  381. }
  382. }
  383. on *:TEXT:yes:#: {
  384. if ($nick == %eater) {
  385. msg # Eating you....
  386. else {
  387. msg # ERROR }
  388. unset %eater
  389. }
  390. }
  391. on *:TEXT:*!cmds*:#:/msg # 4!bombkick (Its a Game!!!) !eatall !eatbomb !eatit !eatme !snake !fish !weed !pirateinfo !piratecrew
  392. on *:TEXT:*!eatit*:#: {
  393. if (TW isin $nick) { }
  394. else {
  395. msg # 4 $nick $+ , you can't.
  396. }
  397. }
  398. on *:TEXT:*gay*:#: {
  399. if (TW isin $nick) { }
  400. else {
  401. msg # 13 G6a13Y
  402. }
  403. }
  404. on *:TEXT:*lie*:#: {
  405. if (TW isin $nick) { }
  406. else {
  407. msg # 4 is not...
  408. }
  409. }
  410. on *:TEXT:*!eatbomb*:#: {
  411. if (TW isin $nick) { }
  412. else {
  413. msg # 4 BOOOOOOOOOOM!
  414. }
  415. }
  416. on *:TEXT:*!eatall*:#: {
  417. if (TW isin $nick) { }
  418. else {
  419. msg # 4 $nick $+ , you are too fat.
  420. }
  421. }
  422. on *:TEXT:*bored*:#: {
  423. if (TW isin $nick) { }
  424. else {
  425. msg # 4 $nick $+ , Milk is boring.
  426. }
  427. }
  428. menu nicklist {
  429. A-Bomb:bombkick $$1
  430. }
  431.  
  432. alias bombreset {
  433. /unset %bombstat*
  434. /unset %bombchan*
  435. /set %bombtop 0
  436. /set %bombtopn 0
  437. /.timerbombreset off
  438. /.timerbombreset 00:01 1 1 /bombreset
  439. }
  440.  
  441. on 1:text:!bombkick:#:{
  442. if ( $me isvo $chan ) /bombkick $nick
  443. }
  444.  
  445. on 1:text:!bombstats:%atsbombchan:{
  446. if ( %bombstats [ $+ [ $$1 ] ] = on ) { /stop }
  447. /set -u20 %bomstats [ $+ [ $$1 ] ] on
  448. /.notice $nick you have $iif(%bombstat [ $+ [ $nick ] ] != $null,%bombstat [ $+ [ $nick ] ],0) Bomb successfully deactivates ;)
  449. }
  450.  
  451. alias bombkick {
  452. if ( %bombtop = $null ) { /set %bombtop 0 }
  453. if ( %bombtopn = $null ) { /set %bombtopn 0 }
  454. if ( %bombkick [ $+ [ $$1 ] ] = on ) { /halt }
  455. elseif ( %bombchan [ $+ [ $nick ] ] != $null ) {
  456. if ( %bombchanb [ $+ [ $nick ] ] = blubb ) { stop }
  457. /.notice $nick only one bomb in 3 min ! ;)
  458. stop
  459. }
  460. /set -u20 %bombkick [ $+ [ $$1 ] ] on
  461. /inc %bombnumber
  462. /describe $chan gives $$1 a Bomb! Try to cut the right cabel! Use !red , !pink , !yellow or !green FAST!!! You have only 20 sec. (Bomb Nr. %bombnumber $+ )
  463. /.timerbombkick $+ $$1 1 20 $chan $$1 *BOOOM* - The bomb has detonated ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn
  464. /set %color $rand(1,3)
  465. if (%color == 1) { set %colo red }
  466. if (%color == 2) { set %colo green }
  467. if (%color == 3) { set %colo yellow }
  468. if (%color == 4) { set %colo pink }
  469.  
  470. /set -u20 %bombcolor [ $+ [ $$1 ] ] %colo
  471. /set -u180 %bombchan [ $+ [ $$1 ] ] $chan
  472. }
  473.  
  474. on 1:text:!red:#:{
  475. if ( %bombkick [ $+ [ $nick ] ] = on ) {
  476. if ( %bombcolor [ $+ [ $nick ] ] = red ) {
  477. /inc %bombstat [ $+ [ $nick ] ]
  478. /unset %bombstatn [ $+ [ $nick ] ]
  479. /describe %bombchan [ $+ [ $nick ] ] Puh, you're lucky ! Bomb successfully deactivates. - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstat [ $+ [ $nick ] ]
  480. /.timerbombkick $+ $nick off
  481. /unset %bombkick [ $+ [ $nick ] ]
  482. if ( %bombtop = %bombstat [ $+ [ $nick ] ] ) { msg $chan $nick is new at the "Bomb point"! ( $+ %bombtop Defusing, exactly such as %bombtopnick $+ ) | /set %bombtopnick $addtok(%bombtopnick,$nick,32) }
  483. if ( %bombtop < %bombstat [ $+ [ $nick ] ] ) { /set %bombtop %bombstat [ $+ [ $nick ] ] | /set %bombtopnick $nick | msg $chan $nick if is new master defuser with %bombtop defuses !!! }
  484. }
  485. else {
  486. /inc %bombstatn [ $+ [ $nick ] ]
  487. /describe %bombchan [ $+ [ $nick ] ] says: wrong wire $nick - *BOOOOOOOOOM*
  488. /.timerbombkick $+ $nick off
  489. /unset %bombkick [ $+ [ $nick ] ]
  490. /describe %bombchan [ $+ [ $nick ] ] $nick *BOOOM* - The bomb has detonated ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstatn [ $+ [ $nick ] ]
  491. /unset %bombstat [ $+ [ $nick ] ]
  492. if ( %bombtopn = %bombstatn [ $+ [ $nick ] ] ) { msg $chan $nick now is also with completely below! ( $+ %bombtopn Defuses, exactly such as: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
  493. if ( %bombtopn < %bombstatn [ $+ [ $nick ] ] ) { /set %bombtopn %bombstatn [ $+ [ $nick ] ] | /set %bombtopnickn $nick | msg $chan $nick is new master defuser %bombtopn explosions !!! }
  494. }
  495. }
  496. }
  497.  
  498. on 1:text:!green:#:{
  499. if ( %bombkick [ $+ [ $nick ] ] = on ) {
  500. if ( %bombcolor [ $+ [ $nick ] ] = green ) {
  501. /inc %bombstat [ $+ [ $nick ] ]
  502. /unset %bombstatn [ $+ [ $nick ] ]
  503. /describe %bombchan [ $+ [ $nick ] ] Puh, you're lucky ! $nick ! Bomb successfully deactivates. - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstat [ $+ [ $nick ] ]
  504. /.timerbombkick $+ $nick off
  505. /unset %bombkick [ $+ [ $nick ] ]
  506. if ( %bombtop = %bombstat [ $+ [ $nick ] ] ) { msg $chan $nick is new at the "Bomb point"! ( $+ %bombtop Defusing, exactly such as %bombtopnick $+ ) | /set %bombtopnick $addtok(%bombtopnick,$nick,32) }
  507. if ( %bombtop < %bombstat [ $+ [ $nick ] ] ) { /set %bombtop %bombstat [ $+ [ $nick ] ] | /set %bombtopnick $nick | msg $chan $nick is new master defuser %bombtopn explosions !!! }
  508. }
  509. else {
  510. /inc %bombstatn [ $+ [ $nick ] ]
  511. /describe %bombchan [ $+ [ $nick ] ] says: wrong wire $nick - *BOOOOOOOOOM*
  512. /.timerbombkick $+ $nick off
  513. /unset %bombkick [ $+ [ $nick ] ]
  514. /describe %bombchan [ $+ [ $nick ] ] $nick *BOOOM* - The bomb has detonated ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstatn [ $+ [ $nick ] ]
  515. /unset %bombstat [ $+ [ $nick ] ]
  516. if ( %bombtopn = %bombstatn [ $+ [ $nick ] ] ) { msg $chan $nick now is also with completely below! ( $+ %bombtopn Defuses, exactly such as: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
  517. if ( %bombtopn < %bombstatn [ $+ [ $nick ] ] ) { /set %bombtopn %bombstatn [ $+ [ $nick ] ] | /set %bombtopnickn $nick | msg $chan $nick is new master defuser with %bombtopn explosions !!! }
  518. }
  519. }
  520. }
  521.  
  522. on 1:text:!yellow:#:{
  523. if ( %bombkick [ $+ [ $nick ] ] = on ) {
  524. if ( %bombcolor [ $+ [ $nick ] ] = yellow ) {
  525. /inc %bombstat [ $+ [ $nick ] ]
  526. /unset %bombstatn [ $+ [ $nick ] ]
  527. /describe %bombchan [ $+ [ $nick ] ] Puh, you're lucky ! $nick ! Bomb successfully deactivates. - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstat [ $+ [ $nick ] ]
  528. /.timerbombkick $+ $nick off
  529. /unset %bombkick [ $+ [ $nick ] ]
  530. if ( %bombtop = %bombstat [ $+ [ $nick ] ] ) { msg $chan $nick is new at the "Bomb point! ( $+ %bombtopn Explosions, exactly such as: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
  531. if ( %bombtop < %bombstat [ $+ [ $nick ] ] ) { /set %bombtop %bombstat [ $+ [ $nick ] ] | /set %bombtopnick $nick | msg $chan $nick is new master defuser with %bombtopn defuses !!! }
  532. }
  533. else {
  534. /inc %bombstatn [ $+ [ $nick ] ]
  535. /describe %bombchan [ $+ [ $nick ] ] says: wrong wire $nick - *BOOOOOOOOOM*
  536. /.timerbombkick $+ $nick off
  537. /unset %bombkick [ $+ [ $nick ] ]
  538. /describe %bombchan [ $+ [ $nick ] ] $nick *BOOOM* - The bomb has detonated ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstatn [ $+ [ $nick ] ]
  539. /unset %bombstat [ $+ [ $nick ] ]
  540. if ( %bombtopn = %bombstatn [ $+ [ $nick ] ] ) { msg $chan $nick now is also with completely below! ( $+ %bombtopn Defuses, exactly such as: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
  541. if ( %bombtopn < %bombstatn [ $+ [ $nick ] ] ) { /set %bombtopn %bombstatn [ $+ [ $nick ] ] | /set %bombtopnickn $nick | msg $chan $nick is new master defuser with %bombtopn explosions !!! }
  542. }
  543. }
  544. }
  545.  
  546. on 1:text:!pink:#:{
  547. if ( %bombkick [ $+ [ $nick ] ] = on ) {
  548. if ( %bombcolor [ $+ [ $nick ] ] = pink ) {
  549. /inc %bombstat [ $+ [ $nick ] ]
  550. /unset %bombstatn [ $+ [ $nick ] ]
  551. /describe %bombchan [ $+ [ $nick ] ] Puh, you're lucky ! $nick ! Bomb successfully deactivates. - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstat [ $+ [ $nick ] ]
  552. /.timerbombkick $+ $nick off
  553. /unset %bombkick [ $+ [ $nick ] ]
  554. if ( %bombtop = %bombstat [ $+ [ $nick ] ] ) { msg $chan $nick is new at the "Bomb point! ( $+ %bombtopn Explosions, exactly such as: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
  555. if ( %bombtop < %bombstat [ $+ [ $nick ] ] ) { /set %bombtop %bombstat [ $+ [ $nick ] ] | /set %bombtopnick $nick | msg $chan $nick is new master defuser with %bombtopn defuses !!! }
  556. }
  557. else {
  558. /inc %bombstatn [ $+ [ $nick ] ]
  559. /describe %bombchan [ $+ [ $nick ] ] says: wrong wire $nick - *BOOOOOOOOOM*
  560. /.timerbombkick $+ $nick off
  561. /unset %bombkick [ $+ [ $nick ] ]
  562. /describe %bombchan [ $+ [ $nick ] ] $nick *BOOOM* - The bomb has detonated ;) - Top: %bombtopnick - %bombtop -- Flop: %bombtopnickn - %bombtopn -- You: %bombstatn [ $+ [ $nick ] ]
  563. /unset %bombstat [ $+ [ $nick ] ]
  564. if ( %bombtopn = %bombstatn [ $+ [ $nick ] ] ) { msg $chan $nick now is also with completely below! ( $+ %bombtopn Defuses, exactly such as: %bombtopnickn $+ ) | /set %bombtopnickn $addtok(%bombtopnickn,$nick,32) }
  565. if ( %bombtopn < %bombstatn [ $+ [ $nick ] ] ) { /set %bombtopn %bombstatn [ $+ [ $nick ] ] | /set %bombtopnickn $nick | msg $chan $nick is new master defuser with %bombtopn explosions !!! }
  566. }
  567. }
  568. }
  569.  
  570. on *:text:*:#team-wars: { if (Admin-Chat isin $1) { if (!time isin $4) { msg $chan !a GMT +1 $asctime } } }
  571. on 1:START: { start }
  572.  
  573. dialog start {
  574. title "Yourbot IRC Bot 4.5 - Startup"
  575. size -1 -1 160 49
  576. option dbu
  577. icon images\logo2.ico, 0
  578. text "Operation: Loading Files...", 1, 4 2 101 13
  579. icon 2, 33 23 88 12, images\start1.bmp, 0
  580. text "Complete: 0%", 3, 118 2 39 13
  581. button "Ok" 8, 2 47 6 2, Ok
  582. }
  583.  
  584. alias start {
  585. titlebar Yourbot IRC Bot 4.5> Offline
  586. if ($os == XP) { .unload -rs scripts\config.mrc | .load -rs scripts\xpconfig.mrc }
  587. else { .unload -rs scripts\xpconfig.mrc | .load -rs scripts\config.mrc }
  588. if ($exists(scripts\gopro.mrc) == $true) {
  589. if (%unusep == on) { .load -rs scripts\gopro.mrc | set %unusep off | import | halt }
  590. if (%unusep == off) { }
  591. }
  592. if (%pro.yb == true) { ybpro }
  593. if (%prstart == on) { spr | setup | halt }
  594. dialog -m start start
  595. did -h start 8
  596. if ($script(away.mrc) == $null) { .load -rs scripts\away.mrc }
  597. if ($script(antitalk.mrc) == $null) { .load -rs scripts\antitalk.mrc }
  598. if ($script(autostart.mrc) == $null) { .load -rs scripts\autostart.mrc }
  599. if ($script(away.mrc) == $null) { .load -rs scripts\away.mrc }
  600. if ($script(boxop.mrc) == $null) { .load -rs scripts\boxop.mrc }
  601. if ($script(btserv.mrc) == $null) { .load -rs scripts\btserv.mrc }
  602. if ($script(chancmds.mrc) == $null) { .load -rs scripts\chancmds.mrc }
  603. if ($script(chancmds2.mrc) == $null) { .load -rs scripts\chancmds2.mrc }
  604. if ($script(commands.mrc) == $null) { .load -rs scripts\commands.mrc }
  605. if ($script(ctrl.mrc) == $null) { .load -rs scripts\ctrl.mrc }
  606. if ($script(def.mrc) == $null) { .load -rs scripts\def.mrc }
  607. if ($script(dialogs.mrc) == $null) { .load -rs scripts\dialogs.mrc }
  608. if ($script(faqcent.mrc) == $null) { .load -rs scripts\faqcent.mrc }
  609. if ($script(faqdb.mrc) == $null) { .load -rs scripts\faqdb.mrc }
  610. if ($script(games.mrc) == $null) { .load -rs scripts\games.mrc }
  611. if ($script(greet.mrc) == $null) { .load -rs scripts\greet.mrc }
  612. if ($script(guestbook.mrc) == $null) { .load -rs scripts\guestbook.mrc }
  613. if ($script(help.mrc) == $null) { .load -rs scripts\help.mrc }
  614. if ($script(link.mrc) == $null) { .load -rs scripts\link.mrc }
  615. if ($script(mboard.mrc) == $null) { .load -rs scripts\mboard.mrc }
  616. if ($script(onoff.mrc) == $null) { .load -rs scripts\onoff.mrc }
  617. if ($script(oper.mrc) == $null) { .load -rs scripts\oper.mrc }
  618. if ($script(protect.mrc) == $null) { .load -rs scripts\protect.mrc }
  619. if ($script(register.mrc) == $null) { .load -rs scripts\register.mrc }
  620. if ($script(seen.mrc) == $null) { .load -rs scripts\seen.mrc }
  621. if ($script(sk.mrc) == $null) { .load -rs scripts\sk.mrc }
  622. if ($script(status.mrc) == $null) { .load -rs scripts\status.mrc }
  623. if ($script(sys.mrc) == $null) { .load -rs scripts\sys.mrc }
  624. if ($script(various.mrc) == $null) { .load -rs scripts\various.mrc }
  625. if ($script(ybpro.mrc) == $null) { .load -rs scripts\ybpro.mrc }
  626. did -a start 1 Operation: Initialiazing DDE and IAL...
  627. did -a start 3 Complete: 13%
  628. did -g start 2 images\start1.bmp
  629. .ddeserver on
  630. .ial on
  631. inc %start.num 1
  632. if (%start.num == 30) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  633. if (%start.num == 50) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  634. if (%start.num == 75) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  635. if (%start.num == 100) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  636. if (%start.num == 200) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  637. if (%start.num == 300) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  638. if (%start.num == 400) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  639. if (%start.num == 500) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  640. unset %gb.AD.*
  641. if (%sont == off) { did -a start 1 Operation: Re-enabling the bot... | did -a start 3 Complete: 39% | did -g start 2 images\start3.bmp | .bton | .set %sont on }
  642. set %check.cur $findfile($mircdiraddons,*.*,0)
  643. set %check.num 1
  644. set %first.disconnect true
  645. :CHECK
  646. if (%check.num <= %check.cur) {
  647. if (.yb isin $shortfn($findfile($mircdiraddons,*.*,%check.num))) { .load -rs $shortfn($findfile($mircdiraddons,*.*,%check.num)) | inc %check.num 1 | did -a start 1 Operation: Loading addon files... | did -a start 3 Complete: 52% | did -g start 2 images\start4.bmp | goto CHECK }
  648. else { inc %check.num 1 | goto CHECK }
  649. }
  650. unset %check.*
  651. set %check.cur $findfile($mircdiraddons,*.*,0)
  652. set %check.num 1
  653. :2CHECK
  654. if (%check.num <= %check.cur) {
  655. if (.yb isin $findfile($mircdir,*.*,%check.num)) { .load -rs $findfile($mircdir,*.*,%check.num) | inc %check.num 1 | did -a start 1 Operation: Loading addon files... | did -a start 3 Complete: 52% | did -g start 2 images\start4.bmp | goto 2CHECK }
  656. else { inc %check.num 1 | goto 2CHECK }
  657. }
  658. unset %check.*
  659. write -c ini\tempgb.ini
  660. set %gbInUse false
  661. if (%spopon == QuitIRC) { unset %spopon }
  662. if (%made.owner == on) { echo Please make sure you follow the directions in the Readme file and set yourself as Owner. | echo 12Please press F1 to view. | .echo ------------------------------------------------------------------------- }
  663. did -a start 1 Operation: Configuring display...
  664. did -a start 3 Complete: 87%
  665. did -g start 2 images\start5.bmp
  666. if ($script(bt.mrc) == bt.mrc) { set %btpop Bot Talk }
  667. if ($script(bt.mrc) == $null) { unset %btpop }
  668. echo 10Command Keys:
  669. echo F1 - Opens the Readme.
  670. echo F2 - Opens the Configuration Wizard.
  671. echo F3 - $iif(%pro.yb == $true, 3Upgrade to 12Yourbot IRC Bot Professional12, Enables/Disables channel and query colors.)
  672. echo F4 - Changes the bots nickname.
  673. echo F5 - Auto-Start setup.
  674. echo F6 - Displays Command Identifier setup.
  675. echo F7 - Displays the Operator Management dialog.
  676. echo F8 - Displays Command Retrieval setup.
  677. echo F9 - Restarts the bot.
  678. echo F10 - Quits the bot.
  679. echo F11 - List all "F" commands.
  680. echo -------------------------------------------------------------------------
  681. svset
  682. did -a start 1 Operation: Successful
  683. did -a start 3 Complete: 100%
  684. did -g start 2 images\start6.bmp
  685. .timer 1 1 dialog -x start start
  686. if (%2prstart == on) { set %2prstart off | readme }
  687. if (%rst == on) { server %rs.server | set %rst off | .timer 2 10 /join %rs.chan | halt }
  688. if (%astart == on) { server %auto.server %auto.port }
  689. if (%news.check == on) {
  690. if (%news.now == %news.days) { .timer 1 1 /news | set %news.now 1 }
  691. else {
  692. if (%news.last == $adate) { halt }
  693. else { set %news.last $adate | inc %news.now }
  694. }
  695. }
  696. if ($adate == 08/15/2004) {
  697. if (%nwcheck == on) { .timer 1 1 /news | set %nwcheck off }
  698. }
  699. if ($adate == 09/15/2004) {
  700. if (%2nwcheck == on) { .timer 1 1 /news | set %2nwcheck off }
  701. }
  702. if ($adate == 10/01/2004) {
  703. if (%3nwcheck == on) { .timer 1 1 /news | set %2nwcheck off }
  704. }
  705. }
  706.  
  707. alias spr {
  708. .ddeserver on
  709. .ial on
  710. rmecho
  711. echo 10Command Keys:
  712. echo F1 - Opens the Readme.
  713. echo F2 - Opens the Configuration Wizard.
  714. echo F3 - $iif(%pro.yb == $true, 3Upgrade to 12Yourbot IRC Bot Professional12., Enables/Disables channel and query colors.)
  715. echo F4 - Changes the bots nickname.
  716. echo F5 - Auto-Start setup.
  717. echo F6 - Displays Command Identifier setup.
  718. echo F7 - Displays the Operator Management dialog.
  719. echo F8 - Displays Command Retrieval setup.
  720. echo F9 - Restarts the bot.
  721. echo F10 - Quits the bot.
  722. echo F11 - List all "F" commands.
  723. echo -------------------------------------------------------------------------
  724. svset
  725. }
  726.  
  727. alias svset {
  728. if (%auto.server != $null) { echo 5Primary IRC Server -  $+ %auto.server $+  (push F12 to connect) }
  729. else { echo 5Primary IRC Server - irc.chatcircuit.com (push F12 to connect) }
  730. }
  731. on *:text:*!*:#: {
  732. if (TW isin $nick) && ($2 == Florian_HH) && (Admin-Chat isin $1) {
  733. msg # !$4-
  734. }
  735. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!