API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
78
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.72 KB | None | 0 0
raw download clone embed print report
  1. on *:invite:#:{
  2. if (%blackl [ $+ [ $chan ] ] == yes) { .notice $Nick Cannot join, channel is blacklisted! Reason: %blackreason [ $+ [ $chan ] ] $3- | halt }
  3. if ($me == CookieScript) {
  4. msg #CookieScript 12(4Invite12)2 $nick 14from # $+.
  5. .join $chan
  6. .timer 1 1 msg $chan 10 Hey :D im the CookieBot - Created by 4Blunt10 @cookie to begin, for commands do @cjar 11Support #cookieScript 4ยค
  7. }
  8. }
  9.  
  10. on *:kick:#: {
  11. if ($knick == $me) {
  12. msg #CookieScript 12(4Kick12)14 $nick 10Kicked Me 4from # $+.
  13. }
  14. }
  15.  
  16. On $*:TEXT:/^[!.@]CJar/Si:#: {
  17. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  18. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  19. $iif(@* iswm $1,msg #,notice $nick) 14(4Commands14): !Cookie, !RobShip [When 3CookieShip14 is docked], !Collect [With 3Business 14Cookie], !Lighthouse [11Lighthouse14 Cookie required], !Cstats, !Cstore, !Thief [With 6Thieving 14cookie], !iCookie [With 15Invisible14 cookie], !Citems, !BuyCookie <4Cookie14>, !SellCookie <4Cookie14>, !Cinfo <4Cookie14>
  20. }
  21.  
  22.  
  23. On $*:TEXT:/^[!.@](cookie|cookies)/Si:#: {
  24. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  25. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  26. cookieitems $chan
  27. if ($left($1,1) == @) { set %lastm [ $+ [ $chan ] ] @ }
  28. if ($left($1,1) == .) { set %lastm [ $+ [ $chan ] ] . }
  29. if ($left($1,1) == !) { set %lastm [ $+ [ $chan ] ] ! }
  30. if (%timeleft [ $+ [ $nick ] ]) { $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4Notice14): You can use this command again in10 $duration(%timeleft [ $+ [ $nick ] ]) | halt }
  31. if (%lighttime [ $+ [ $nick ] ]) { $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4Notice14): You can use this command again in10 $duration(%lighttime [ $+ [ $nick ] ]) | halt }
  32. cookies $chan
  33. }
  34. alias Cookieitems {
  35. if (!%LightCookie [ $+ [ $nick ] ]) { set %LightCookie $+ $nick 0 }
  36. if (!%TCookie [ $+ [ $nick ] ]) { set %TCookie $+ $nick 0 }
  37. if (!%LhouseCookie [ $+ [ $nick ] ]) { set %LhouseCookie $+ $nick 0 }
  38. if (!%SafeCookie [ $+ [ $nick ] ]) { set %SafeCookie $+ $nick 0 }
  39. if (!%InvisibleCookie [ $+ [ $nick ] ]) { set %invisibleCookie $+ $nick 0 }
  40. if (!%BusinessCookie [ $+ [ $nick ] ]) { set %BusinessCookie $+ $nick 0 }
  41. if (!%ShipCount [ $+ [ $nick ] ]) { set %ShipCount $+ $nick 0 }
  42.  
  43. }
  44. alias cookies {
  45. if (%LightCookie [ $+ [ $nick ] ] = 0) {
  46. //var %x = $r(10,20)
  47. //var %y = $r(60,90)
  48. inc %cookies [ $+ [ $nick ] ] %x
  49. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14You reach into the jar and pull out10 %x 14cookies. You now have10 $bytes(%cookies [ $+ [ $nick ] ],bd) Cookies!
  50. set -z %timeleft $+ $nick %y
  51. }
  52. if (%LightCookie [ $+ [ $nick ] ] >= 1) {
  53. //var %x = $r(70,100)
  54. //var %y = $r(60,90)
  55. inc %cookies [ $+ [ $nick ] ] %x
  56. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14You use your 8Lightning14 cookie to steal some extra cookies! You stole10 %x 14cookies. You now have10 $bytes(%cookies [ $+ [ $nick ] ],bd) Cookies!
  57. set -z %lighttime $+ $nick %y
  58. dec %lightcookie [ $+ [ $nick ] ] 1
  59. }
  60. }
  61.  
  62. On $*:TEXT:/^[!.@]cstats/Si:#: {
  63. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  64. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  65. $iif(@* iswm $1,msg #,notice $nick) 14(4Cookie Stats14):14 $iif($2,$2 $+ 's,Your) current cookie count is10 $bytes(%cookies [ $+ [ $$iif($2,$2,$nick) ] ],bd) cookies14.
  66. }
  67.  
  68. on $*:TEXT:/^[!@.]citems/Si:#: {
  69. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  70. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  71. $cookieitems
  72. $iif(@* iswm $1,msg #,notice $nick) 14(4 $+ $iif($2,$2,$nick) $+ 's Items14): 6Thieving Cookie( $+ $bytes(%tcookie [ $+ [ $iif($2,$2,$nick) ] ],bd))) $+ ) 1- 8Lightning Cookie( $+ $bytes(%lightcookie [ $+ [ $iif($2,$2,$nick) ] ],bd))) $+ ) 1- 11Lighthouse Cookie( $+ $bytes(%lhousecookie [ $+ [ $iif($2,$2,$nick) ] ],bd))) $+ ) 1- 7Safety Cookie( $+ $bytes(%safecookie [ $+ [ $iif($2,$2,$nick) ] ],bd))) $+ ) 1- 3Business Cookie( $+ $bytes(%businesscookie [ $+ [ $iif($2,$2,$nick) ] ],bd))) $+ ) 1-14 (3Special Cookies14): 15Invisible Cookie( $+ $bytes(%invisiblecookie [ $+ [ $iif($2,$2,$nick) ] ],bd))) $+ ) 14(10Cookies14):10 $bytes(%Cookies [ $+ [ $iif($2,$2,$nick) ] ],bd) Cookies {
  73. }
  74. }
  75.  
  76.  
  77. On $*:TEXT:/^[!.@](CookieStore|cshop|cstore)/Si:#: {
  78. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  79. $iif(@* iswm $1,msg #,notice $nick) 14(4Store14): 6Thieving Cookie 14[4Cost:10 250 Cookies14] 1-8 Lightning Cookie 14[4Cost:10 75 Cookies14] 1-11 Lighthouse Cookie 14[4Cost:10 500 Cookies14] 1-7 Safety Cookie 14[4Cost:10 200 Cookies14] 1-3 Business Cookie 14[4Cost:10 1000 Cookies14] (3Special Cookies14): 15Invisible Cookie 9~14 For info about each cookie type7 !Cinfo <Cookie>
  80. }
  81.  
  82. on $*:TEXT:/^[!@.]cinfo/Si:#: {
  83. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  84. if ($2- == Thieving Cookie) { $iif(@* iswm $1,msg #,notice $nick) 14(4Cookie Info14): 6Thieving Cookie14 allows you to steal cookies from other players! | halt }
  85. if ($2- == Lightning Cookie) { $iif(@* iswm $1,msg #,notice $nick) 14(4Cookie Info14): 8Lightning Cookie14 allows you to steal more cookies when doing7 !cookies | halt }
  86. if ($2- == Lighthouse Cookie) { $iif(@* iswm $1,msg #,notice $nick) 14(4Cookie Info14): 11Lighthouse Cookie14 calls the 3Cookie Ship14 allowing you to 6!rob14 it. | halt }
  87. if ($2- == Safety Cookie) { $iif(@* iswm $1,msg #,notice $nick) 14(4Cookie Info14): 7Safety Cookie14 reduces the amount of cookies stolen from you when others use the 6!Thief14 command! | halt }
  88. if ($2- == Invisible Cookie) { $iif(@* iswm $1,msg #,notice $nick) 14(4Cookie Info14): 15Invisible Cookie14 can only be obtained from the 3Cookie Ship14 it's a rare item that resets ALL cookie timers when the 4!iCookie14 command is used! | halt }
  89. if ($2- == Business Cookie) { $iif(@* iswm $1,msg #,notice $nick) 14(4Cookie Info14): 3Business Cookie14 allows the user to use the 7!Collect14 command to collect cookies from the 3Cookie Ship14! | halt }
  90. }
  91. On $*:TEXT:/^[!.@]buycookie/Si:#: {
  92. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  93. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  94. if ($2- == Thieving Cookie) && (%cookies [ $+ [ $nick ] ] >= 250) {
  95. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just purchased a 6Thieving Cookie14!
  96. dec %cookies [ $+ [ $nick ] ] 250
  97. inc %tcookie [ $+ [ $nick ] ] 1
  98. }
  99. else {
  100. if (%cookies [ $+ [ $nick ] ] < 250) && ($2- == Thieving Cookie) {
  101. notice $nick 14(4ERROR14): You do not have enough cookies to purchase a 6Thieving14 cookie! You currently have4 %cookies [ $+ [ $nick ] ] 14cookies!
  102. }
  103. }
  104. if ($2- == Lightning Cookie) && (%cookies [ $+ [ $nick ] ] >= 75) {
  105. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just purchased a 8Lightning Cookie14!
  106. dec %cookies [ $+ [ $nick ] ] 50
  107. inc %lightcookie [ $+ [ $nick ] ] 1
  108. }
  109. else {
  110. if (%cookies [ $+ [ $nick ] ] < 75) && ($2- == Lightning cookie) {
  111. notice $nick 14(4ERROR14): You do not have enough cookies to purchase a 8Lightning14 cookie! You currently have4 %cookies [ $+ [ $nick ] ] 14cookies!
  112. }
  113. }
  114. if ($2- == Lighthouse Cookie) && (%cookies [ $+ [ $nick ] ] >= 500) {
  115. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just purchased a 11Lighthouse Cookie14!
  116. dec %cookies [ $+ [ $nick ] ] 500
  117. inc %lhousecookie [ $+ [ $nick ] ] 1
  118. }
  119. else {
  120. if (%cookies [ $+ [ $nick ] ] < 500) && ($2- == Lighthouse Cookie) {
  121. notice $nick 14(4ERROR14): You do not have enough cookies to purchase a 11Lighthouse14 cookie! You currently have4 %cookies [ $+ [ $nick ] ] 14cookies!
  122. }
  123. }
  124. if ($2- == Safety Cookie) && (%cookies [ $+ [ $nick ] ] >= 200) {
  125. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just purchased a 7Safety Cookie14!
  126. dec %cookies [ $+ [ $nick ] ] 200
  127. inc %safecookie [ $+ [ $nick ] ] 1
  128. }
  129. else {
  130. if (%cookies [ $+ [ $nick ] ] < 200) && ($2- == Safety Cookie) {
  131. notice $nick 14(4ERROR14): You do not have enough cookies to purchase a 7Safety14 cookie! You currently have4 %cookies [ $+ [ $nick ] ] 14cookies!
  132. }
  133. }
  134. if ($2- == Business Cookie) && (%cookies [ $+ [ $nick ] ] >= 1000) {
  135. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just purchased a 3Business Cookie14!
  136. dec %cookies [ $+ [ $nick ] ] 1000
  137. inc %businesscookie [ $+ [ $nick ] ] 1
  138. }
  139. else {
  140. if (%cookies [ $+ [ $nick ] ] < 1000) && ($2- == Business Cookie) {
  141. notice $nick 14(4ERROR14): You do not have enough cookies to purchase a 3Business14 cookie! You currently have4 %cookies [ $+ [ $nick ] ] 14cookies!
  142. }
  143. }
  144. }
  145. On $*:TEXT:/^[!.@]sellcookie/Si:#: {
  146. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  147. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  148. if ($2- == Thieving Cookie) && (%tcookie [ $+ [ $nick ] ] >= 1) {
  149. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just sold one of your 6Thieving Cookies14!
  150. inc %cookies [ $+ [ $nick ] ] 125
  151. dec %tcookie [ $+ [ $nick ] ] 1
  152. }
  153. else {
  154. if ($2- = Thieving Cookie) && (%tcookie [ $+ [ $nick ] ] = 0) {
  155. notice $nick 14(4ERROR14): You do not own a 6Thieving Cookie14!
  156. }
  157. }
  158. if ($2- == Lightning Cookie) && (%lightcookie [ $+ [ $nick ] ] >= 1) {
  159. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just sold one of your 8Lightning Cookies14!
  160. inc %cookies [ $+ [ $nick ] ] 25
  161. dec %lightcookie [ $+ [ $nick ] ] 1
  162. }
  163. else {
  164. if ($2- = Lightning Cookie) && (%lightcookie [ $+ [ $nick ] ] = 0) {
  165. notice $nick 14(4ERROR14): You do not own a 8Lightning Cookie14!
  166. }
  167. }
  168. if ($2- == Lighthouse Cookie) && (%lhousecookie [ $+ [ $nick ] ] >= 1) {
  169. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just sold one of your 11Lighthouse Cookies14!
  170. inc %cookies [ $+ [ $nick ] ] 250
  171. dec %lhousecookie [ $+ [ $nick ] ] 1
  172. }
  173. else {
  174. if ($2- = Lighthouse Cookie) && (%lhousecookie [ $+ [ $nick ] ] = 0) {
  175. notice $nick 14(4ERROR14): You do not own a 11Lighthouse Cookie14!
  176. }
  177. }
  178. if ($2- == Safety Cookie) && (%Safecookie [ $+ [ $nick ] ] >= 1) {
  179. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just sold one of your 7Safety Cookies14!
  180. inc %cookies [ $+ [ $nick ] ] 100
  181. dec %safecookie [ $+ [ $nick ] ] 1
  182. }
  183. else {
  184. if ($2- = Safety Cookie) && (%Safecookie [ $+ [ $nick ] ] = 0) {
  185. notice $nick 14(4ERROR14): You do not own a 7Safety Cookie14!
  186. }
  187. }
  188. if ($2- == Business Cookie) && (%Businesscookie [ $+ [ $nick ] ] >= 1) {
  189. $iif(@* iswm $1,msg #,notice $nick) 4Congratulations14! You have just sold one of your 3Business Cookies14!
  190. inc %cookies [ $+ [ $nick ] ] 500
  191. dec %businesscookie [ $+ [ $nick ] ] 1
  192. }
  193. else {
  194. if ($2- = Business Cookie) && (%Businesscookie [ $+ [ $nick ] ] = 0) {
  195. notice $nick 14(4ERROR14): You do not own a 3Business Cookie14!
  196. }
  197. }
  198. }
  199. On $*:TEXT:/^[!.@]thief/Si:#: {
  200. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  201. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  202. if ($left($1,1) == @) { set %lastm [ $+ [ $chan ] ] @ }
  203. if ($left($1,1) == .) { set %lastm [ $+ [ $chan ] ] . }
  204. if ($left($1,1) == !) { set %lastm [ $+ [ $chan ] ] ! }
  205. if (%thieftime [ $+ [ $nick ] ]) { $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4Notice14): You can use this command again in10 $duration(%Thieftime [ $+ [ $nick ] ]) | halt }
  206. if (%tcookie [ $+ [ $nick ] ] >= 1) && (%SafeCookie [ $+ [ $2 ] ] = 0) || (%SafeCookie [ $+ [ $2 ] ] = $null) {
  207. //var %x = $r(10,30)
  208. //var %y = 1800
  209. if (!$2) { notice $nick 14You forgot to choose someone to steal from! 4!Thief <nick> | halt }
  210. if ($2 = $nick) { notice $nick 14(4Notice14): You can't steal from yourself! Try again! 4!Thief <nick> | halt }
  211. if (%cookies [ $+ [ $2 ] ] == $null) { notice $nick 14(4Notice14):10 $2 14 doesn't have any cookies to steal! Try again! 4!thief <nick> | halt }
  212. if (%cookies [ $+ [ $2 ] ] < %x) { notice $nick 14(4Error14): 14Ouch!10 $2 14doesn't have enough cookies for you to steal!10 $2 14 only has10 %cookies [ $+ [ $2 ] ] Cookies! | halt }
  213. inc %cookies [ $+ [ $nick ] ] %x
  214. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14You use one of your 6Thieving14 cookie to steal some cookies from 4 $+ $2 $+ 14! You stole10 %x 14cookies. You now have10 $bytes(%cookies [ $+ [ $nick ] ],bd) Cookies!
  215. set -z %Thieftime $+ $nick %y
  216. dec %cookies [ $+ [ $2 ] ] %x
  217. notice $2 14(4Notice14):14 $nick has just stolen10 %x 14cookies from you!
  218. dec %tcookie [ $+ [ $nick ] ] 1
  219. }
  220. else {
  221. if (%tcookie [ $+ [ $nick ] ] >= 1) && (%SafeCookie [ $+ [ $2 ] ] >= 1) {
  222. //var %x = $r(1,15)
  223. //var %y = 1800
  224. if (!$2) { notice $nick 14You forgot to choose someone to steal from! 4!Thief <nick> | halt }
  225. if ($2 = $nick) { notice $nick 14(4Notice14): You can't steal from yourself! Try again! 4!Thief <nick> | halt }
  226. if (%cookies [ $+ [ $2 ] ] == $null) { notice $nick 14(4Notice14):10 $2 14 doesn't have any cookies to steal! Try again! 4!thief <nick> | halt }
  227. if (%cookies [ $+ [ $2 ] ] < %x) { notice $nick 14(4Notice14): Ouch!10 $2 14doesn't have enough cookies for you to steal!10 $2 14 only has10 %cookies [ $+ [ $2 ] ] Cookies! | halt }
  228. inc %cookies [ $+ [ $nick ] ] %x
  229. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 4 $2 14uses their 7Safety Cookie14 to protect some of thier cookies! You only steal10 %x 14cookies! You now have10 $bytes(%cookies [ $+ [ $nick ] ],bd) Cookies!
  230. set -z %Thieftime $+ $nick %y
  231. dec %cookies [ $+ [ $2 ] ] %x
  232. notice $2 14Your 7Safety Cookie14 prevented4 $nick 14from stealing a lot of cookies from you!4 $nick 14only got away with10 %x cookies14!
  233. dec %tcookie [ $+ [ $nick ] ] 1
  234. dec %safecookie [ $+ [ $2 ] ] 1
  235. }
  236. else {
  237. if (%tcookie [ $+ [ $nick ] ] = 0) {
  238. notice $nick 14(4ERROR14): 14Sorry, you do not have any 6Thieving14 cookies!
  239. }
  240. }
  241. }
  242. }
  243. On $*:TEXT:/^[!.@]Lighthouse/Si:#: {
  244. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  245. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  246. if ($left($1,1) == @) { set %lastm [ $+ [ $chan ] ] @ }
  247. if ($left($1,1) == .) { set %lastm [ $+ [ $chan ] ] . }
  248. if ($left($1,1) == !) { set %lastm [ $+ [ $chan ] ] ! }
  249. if (%lighthousetime [ $+ [ $nick ] ]) { $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4Notice14): You can use this command again in10 $duration(%lighthousetime [ $+ [ $nick ] ]) | halt }
  250. if (%ShipDocked = Yes) { notice $nick 14(4Notice14): The 3Cookie Ship14 is already docked! Type4 !robship14 to get some loot! | halt }
  251. if (%LhouseCookie [ $+ [ $nick ] ] >= 1) {
  252. CookieShip $chan
  253. set %ShipDocked Yes
  254. dec %lhousecookie [ $+ [ $nick ] ] 1
  255. }
  256. else {
  257. if (%lhousecookie [ $+ [ $nick ] ] = 0) || (%lhousecookie [ $+ [ $nick ] ] = $null) {
  258. notice $nick 14(4ERROR14): Sorry you don't have any 11Lighthouse14 cookies!
  259. }
  260. }
  261. }
  262. alias CookieShip {
  263. //var %x = 3600
  264. //var %z = 300
  265. set -z %Lighthousetime $+ $nick %x
  266. amsg 14(3Cookie Ship14): *7Fog Horn14* The 3Cookie Ship14 is now docking! It'll stay docked for4 $duration(%z) $+ 14! Type 7!RobShip14 to get some loot before it sets sail again!
  267. timer 1 %z msg $chan 14(3Cookie Ship14): *7Fog Horn14* The 3Cookie Ship14 is now departing! Enjoy your loot!
  268. timer 1 301 set %shipdocked no
  269. timer 1 302 unset %shipcount*
  270. timer 1 303 unset %collectcount*
  271. }
  272. On $*:TEXT:/^[!.@]robship/Si:#: {
  273. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  274. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  275. CookieItems $chan
  276. if (%shipcount [ $+ [ $nick ] ] = 2) { notice $nick 14(4ERROR14): You have robbed the ship twice already! Don't be greedy! | halt }
  277. if ($left($1,1) == @) { set %lastm [ $+ [ $chan ] ] @ }
  278. if ($left($1,1) == .) { set %lastm [ $+ [ $chan ] ] . }
  279. if ($left($1,1) == !) { set %lastm [ $+ [ $chan ] ] ! }
  280. if (%robtime [ $+ [ $nick ] ]) { $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4Notice14): You can use this command again in10 $duration(%robtime [ $+ [ $nick ] ]) | halt }
  281. if (%ShipDocked = Yes) {
  282. //var %y = $r(20,70)
  283. //var %u = $r(1,10)
  284. //var %i = $r(1,20)
  285. set -z %robtime [ $+ [ $nick ] ] 120
  286. inc %shipcount [ $+ [ $nick ] ] 1
  287. inc %cookies [ $+ [ $nick ] ] %y
  288. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(3Cookie Ship14): You hop onto the 3Cookie Ship14 and steal10 %y cookies14 from a random chest! You now have10 $bytes(%cookies [ $+ [ $nick ] ],bd) Cookies!
  289. }
  290. if (%shipdocked = no) {
  291. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4ERROR14): The 3Cookie Ship14 isn't docked at this time! Try later!
  292. }
  293. if (%u = 1) && (%shipdocked = yes) {
  294. notice $nick 14(4Special Loot14): You happened to find a 11Lighthouse Cookie14 lying on the floor while raiding the ship!
  295. inc %lhousecookie [ $+ [ $nick ] ] 1
  296. }
  297. if (%i = 1) && (%shipdocked = yes) {
  298. notice $nick 14(4Special Loot14): You happened to find a 15Invisible Cookie14 lying on the floor while raiding the ship!
  299. inc %invisiblecookie [ $+ [ $nick ] ] 1
  300. }
  301. }
  302. On $*:TEXT:/^[!.@]Collect/Si:#: {
  303. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  304. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  305. $cookieitems $chan
  306. if (%CollectCount [ $+ [ $nick ] ] = 1) { notice $nick 14(4ERROR14): Looks like you've already collected from this ship! Try again on the next one! | halt }
  307. if ($left($1,1) == @) { set %lastm [ $+ [ $chan ] ] @ }
  308. if ($left($1,1) == .) { set %lastm [ $+ [ $chan ] ] . }
  309. if ($left($1,1) == !) { set %lastm [ $+ [ $chan ] ] ! }
  310. set %CollectCount [ $+ [ $nick ] ] 0
  311. if (%businesscookie [ $+ [ $nick ] ] = 0) && (%ShipDocked = Yes) {
  312. notice $nick 14(4ERROR14): Sorry you don't have any 3Business14 cookies!
  313. }
  314. if (%ShipDocked = Yes) && (%BusinessCookie [ $+ [ $nick ] ] >= 1) {
  315. dec %businesscookie [ $+ [ $nick ] ] 1
  316. //var %q = 100
  317. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(3Collect14): You go through with a deal with the 7Cookie Pirates14 and they give you10 %q cookies14.
  318. inc %cookies [ $+ [ $nick ] ] 100
  319. dec %businesscookie [ $+ [ $nick ] ] 1
  320. inc %CollectCount [ $+ [ $nick ] ] 1
  321. }
  322. if (%ShipDocked = No) {
  323. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4ERROR14): The 3Cookie Ship14 isn't docked at this time! Try later!
  324. }
  325. }
  326.  
  327. On $*:TEXT:/^[!.@]iCookie/Si:#: {
  328. if ($chanhalt($chan) == true) || ($nickhalt($nick) == true) { halt }
  329. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  330. if ($left($1,1) == @) { set %lastm [ $+ [ $chan ] ] @ }
  331. if ($left($1,1) == .) { set %lastm [ $+ [ $chan ] ] . }
  332. if ($left($1,1) == !) { set %lastm [ $+ [ $chan ] ] ! }
  333. if (%invisibletime [ $+ [ $nick ] ]) { $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4Notice14): You can use this command again in10 $duration(%invisibletime [ $+ [ $nick ] ]) | halt }
  334. if (%invisiblecookie [ $+ [ $nick ] ] >= 1) {
  335. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(15Invisible14): All of your 3cookie timers14 have been 4reset14! Enjoy!
  336. unset %robtime [ $+ [ $nick ] ]
  337. unset %lighthousetime [ $+ [ $nick ] ]
  338. unset %lighttime [ $+ [ $nick ] ]
  339. unset %timeleft [ $+ [ $nick ] ]
  340. unset %thieftime [ $+ [ $nick ] ]
  341. dec %invisiblecookie [ $+ [ $nick ] ] 1
  342. }
  343. else {
  344. if (%invisiblecookie [ $+ [ $nick ] ] = 0) || (%invisiblecookie [ $+ [ $nick ] ] = $null) {
  345. $iif(%lastm [ $+ [ $chan ] ] == @,msg $chan,notice $nick) 14(4ERROR14): You do not have any 15Invisible14 cookies!
  346. }
  347. }
  348. }
  349. on $*:TEXT:/^[.!@]login/Si:#: {
  350. if (%loggedin [ $+ [ $nick ] ] == Yes) {
  351. notice $nick 14(4ERROR14): You are already logged in, to logout type !logout | halt
  352. }
  353. set %login $nick
  354. ns status $nick
  355. set %logchan $chan
  356. set %logmsg $1
  357. }
  358. on *:NOTICE:*:?: {
  359. if ($nick == NickServ) {
  360. if (%login) {
  361. if (*3* iswm $1-) {
  362. $iif(@* iswm %logmsg, msg %logchan, notice %login) 14(3LogIn14): You are now logged in with the address:10 $address(%login,2)
  363. set %loggedin $+ %login Yes
  364. unset %login
  365. unset %logchan
  366. }
  367. else {
  368. notice $nick 14(4ERROR14): You are not identified, please do 10/ns identify password14 to login.
  369. unset %login
  370. unset %logchan
  371. }
  372. }
  373. }
  374. }
  375. on $*:TEXT:/^[.!@]logout/Si:#: {
  376. if (%loggedin [ $+ [ $nick ] ] == No) {
  377. notice $nick 14(4ERROR14): You arent identified! To login do !login provided your identified with NickServ | halt
  378. }
  379. if (%loggedin [ $+ [ $nick ] ] == Yes) {
  380. $iif(@* iswm $1, msg $chan, notice $nick) 14(4LogOut14): You have been logged out!
  381. }
  382. set %loggedin $+ $nick No
  383. }
  384. alias rank {
  385. window -h @list1
  386. window -h @list2
  387. var %aa 1
  388. while ($var(%cookies*,%aa)) {
  389. aline -a @list1 $($v1,2) $right($v1,100)
  390. inc %aa
  391. }
  392. filter -wwteuc 1 1 @list1 @list2
  393. var %bb $iif($1 isnum,$1,$fline(@list2,*%cookies $+ $1)), %rr = $token($line(@list2,%bb),2,32) $token($line(@list2,%bb),1,32) %bb
  394. close -@ @list*
  395. return %rr
  396. }
  397.  
  398. on $*:text:/^[!@.](rank|score)/Si:#: {
  399. if (!$2) {
  400. if (%loggedin [ $+ [ $nick ] ] != Yes) { notice $nick 14(4ERROR14): You are 4not14 logged in with me. Please do !login (No password needed). | halt }
  401. if (%cookies [ $+ [ $nick ] ] !isnum) { $iif($left($1,1) == @,msg $chan,notice $nick) 14(4ERROR14): You're not ranked in my database }
  402. elseif (%cookies [ $+ [ $nick ] ] isnum) { $iif($left($1,1) == @,msg $chan,notice $nick) 14(10Rank14): You're ranked10 $gettok($rank($nick),3,32)) 14out of10 $var(%cookies*) 14players with10 $bytes(%cookies [ $+ [ $nick ] ],bd) cookies }
  403. }
  404. if ($2 != $null) && ($2 isnum) {
  405. if ($rank($2) isnum) { $iif($left($1,1) == @,msg $chan,notice $nick) 14(4ERROR14): No one is ranked10 $2 14in my highscores. }
  406. elseif ($rank($2) !isnum) { $iif($left($1,1) == @,msg $chan,notice $nick) 14(10Rank14): On rank10 $2 14is10 $remove($gettok($rank($2),1,32),$chr(37) $+ cookies)) 14with10 $bytes($gettok($rank($2),2,32),bd) cookies }
  407. }
  408. if ($2 != $null) && ($2 !isnum) {
  409. if (%cookies [ $+ [ $replace($2-,$chr(32),_) ] ] !isnum) { $iif($left($1,1) == @,msg $chan,notice $nick) 14(4ERROR14):10 $2- 4is not ranked in my database }
  410. elseif (%cookies [ $+ [ $replace($2-,$chr(32),_) ] ] isnum) { $iif($left($1,1) == @,msg $chan,notice $nick) 14(10Rank14):10 $2- 14is ranked $gettok($rank($replace($2-,$chr(32),_)),3,32) 14out of10 $var(%cookies*) 14total players, with10 $bytes(%cookies [ $+ [ $replace($2-,$chr(32),_) ] ],bd) cookies }
  411. }
  412. }
  413. on $*:text:/^[!@.]ctop10/Si:#: {
  414. var %topten $topten
  415. $iif($left($1,1) == @,msg $chan,notice $nick) 14(10TopTen14): The top 10 players are:10 $replace(%topten,$chr(32),$chr(44) $+ $chr(32))
  416. }
  417.  
  418. alias topten {
  419. var %xx = 1
  420. var %result
  421. while (%xx <= 10) {
  422. var %result %result $remove($gettok($rank(%xx),1,32),$chr(37) $+ cookies))
  423. inc %xx
  424. }
  425. return %result
  426. }
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!