API tools faq
paste
Bradmasta

Bot coding project

Bradmasta
Jun 21st, 2015
250
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 77.16 KB | None | 0 0
raw download clone embed print report
  1. on *:JOIN:#bradmasta: {
  2. if ($nick == $me) {
  3. /raw CAP REQ :twitch.tv/membership
  4. /raw CAP REQ :twitch.tv/commands
  5. }
  6. }
  7.  
  8.  
  9. on *:TEXT:!songlist:#: { msg $chan You can find the song list here: http://pastebin.com/hiRqf87J or below the stream (In my bio info if on mobile) :) }
  10. on *:TEXT:!songrequest:#: { msg $chan To request a song, simply find the list of songs either down below, by typing in !songlist, or swipe from the right to the left if on mobile, and type in !as [x] replacing [x] with the number you'd like me to play! DO NOT INCLUDE THE PARENTHESIS CONTAINING THE NUMBERS! Also, you may only make one song request every 5 minutes, so be wise about your choice! }
  11. on *:text:!Allysonlove:#: { msg $chan <3 Brad loves Allyson very much :) <3 }
  12. on *:text:!bc:#: { msg $chan To get all the information on the currency system, please go here!: http://pastebin.com/0HtSFzjw }
  13. on *:text:!dd:#: { msg $chan Want to bet your bcoins against another person in the channel? simply type in !D [your opponents name] [the amount you want to bet] Example: !d bradmasta_bot 2000. For full rules, go here! http://pastebin.com/XWcASfh6 }
  14. on *:TEXT:!Commands:#: { msg $chan Link to an explanation of the commands: http://pastebin.com/V8K8G6fJ My current commands are !commands, !songsrequest, !bc, !bcoins, !bn, !bug, !hoa, !qs, !songlist, and !top5. Slots/dice duel: !dd, !slots, !items, !jackpot, !mega, and !stats. Random fun ones: !allysonlove, !matt, !exo, !brandon, !cmon, !rigged and !solo. Hype commands: !1k, !2k, !3k, and !fc. If you're a mod: !cl, !ctq, and !r [x] (Mods: ask me or wait for permission to use these, thanks!) }
  15. on *:text:!Matt:#: { msg $chan EXCUUUUUUSE ME! }
  16. on *:text:!noice:#: { msg $chan NOICE! Kreygasm PogChamp }
  17. on *:text:THANK YOU:#: { msg $chan NO THANK YOU! }
  18. on *:text:!Exo:#: { msg $chan That's just utrageous! }
  19. on *:text:!Syd:#: { msg $chan BabyRage NEVER LUCKY BabyRage }
  20. on *:text:Thx:#: { msg $chan NO THANK YOU! }
  21. on *:text:Thanx:#: { msg $chan NO THANK YOU! }
  22. on *:text:thanks!:#: { msg $chan NO THANK YOU! }
  23. on *:text:ty:#: { msg $chan NO THANK YOU! }
  24. on *:text:THANKs:#: { msg $chan NO THANK YOU! }
  25. on *:text:!Kristen:#: { msg $chan KRISTEN IS A HAX0R }
  26. on *:text:!question:#: { msg $chan YES SIR?? }
  27. on *:text:Can you play rev death?:#: {
  28. var %regex_text = Queued Songs:
  29. var %songID = $readini(%songfile, 122, name)
  30. var %Ident = $readini(%songfile, 122, Identifier)
  31. var %artistID = $readini(%songfile, 122, artist)
  32. var %songstring = %ident %songID %artistID
  33. var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  34. var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  35. var %read_text = $read(%file_search,r,%regex_text)
  36. var %read_text3 $read(%file_search2,r,%songstring)
  37. var %songnick $+(16, $nick)
  38.  
  39. if (%read_text3) {
  40. msg $chan I WOULD LOVE TO ADD THIS SONG BUT IT'S ALREADY ON THE QUEUE! YOU HAVE A GOOD STREAM THE TWITCH WAY!
  41. }
  42. elseif (%read_text) && ($timer(%songnick) == $null) {
  43. TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add rev death if you ask "can you play rev death?" (no quotes)! :)
  44.  
  45. write C:\Users\Brad\Desktop\Songlist\Songs.txt %text %ident %songID %artistID
  46. write $+(-l,$readn) %file_search $+(%read_text, $chr(32), %text %ident %songID , $chr(44))
  47. msg $chan ABSOLUTELY SIR! REV DEATH HAS BEEN ADDED TO THE LIST! HAVE A GOOD STREAM THE TWITCH WAY!
  48. }
  49. else {
  50. msg $chan you must wait $timer(%songnick).secs seconds before you add Matt's favorite song to the list!
  51. }
  52. }
  53.  
  54. on *:text:!brandon:#: {
  55. var %regex_text = Queued Songs:
  56. var %songID = $readini(%songfile, 39, name)
  57. var %Ident = $readini(%songfile, 39, Identifier)
  58. var %artistID = $readini(%songfile, 39, artist)
  59. var %songstring = %Ident %songID %artistID
  60. var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  61. var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  62. var %read_text = $read(%file_search,r,%regex_text)
  63. var %read_text3 $read(%file_search2,r,%songstring)
  64. var %songnick $+(25, $nick)
  65. if (%read_text3) {
  66. msg $chan B_rocks favorite song is already on the queue!
  67. }
  68. elseif (%read_text) && ($timer(%songnick) == $null) {
  69. TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add B_rocks favorite song if you type in !brock :)
  70.  
  71. write C:\Users\Brad\Desktop\Songlist\Songs.txt %text %ident %songID %artistID
  72. write $+(-l,$readn) %file_search $+(%read_text, $chr(32), %text %ident %songID , $chr(44))
  73. msg $chan B_rocks favorite song has been added to the list!
  74. }
  75.  
  76. else {
  77. msg $chan you must wait $timer(%songnick).secs seconds before you add B_rocks favorite song to the list!
  78. }
  79. }
  80.  
  81.  
  82. on *:text:!solo:#: { msg $chan Solo Insanity Incoming! PogChamp }
  83. on *:text:!cmon:#: { msg $chan Really Brad? FailFish }
  84. on *:text:!fc:#: { msg $chan FC HYPE! PogChamp }
  85. on *:text:!1k:#: { msg $chan 1k Notestreak HYPE! PogChamp }
  86. on *:text:!2k:#: { msg $chan 2k Notestreak HYPE!! Kreygasm }
  87. on *:text:!3k:#: { msg $chan 3k Notestreak HYPE!!! PogChamp Kreygasm }
  88. on *:text:Kappa:#: { msg $chan Kappa Kappa Doopian is the king of Kappa counting! }
  89.  
  90.  
  91. on 2:TEXT:!starttimers:#: {
  92.  
  93. starthelpsong
  94. startfollow
  95. startcommands
  96. startdiceduel
  97. startwelcome
  98. msg $chan All timers have been started.
  99.  
  100.  
  101. }
  102. alias -l starthelpsong {
  103. .timer.timerhelp7 0 1000 msg $chan To request a song, simply find the list of songs either down below, or swipe from the right to the left if on mobile, and type in !as [x] replacing [x] with the number you'd like me to play! DO NOT INCLUDE THE PARENTHESIS CONTAINING THE NUMBERS!
  104.  
  105. }
  106.  
  107. alias -l startfollow {
  108.  
  109. .timer.timerhelp1 0 1300 msg $chan If you're enjoying the stream, please be sure to follow! :)
  110. }
  111.  
  112. alias -l startcommands {
  113.  
  114. .timer.timerhelp4 0 1600 msg $chan To see my list of commands, simply type "!commands" :)
  115. }
  116.  
  117. alias -l startdiceduel {
  118.  
  119. .timer.timerhelp20 0 1900 msg $chan Want to bet your bcoins against another person in the channel? simply type in !D [your opponents name] [the amount you want to bet] Example: !d bradmasta_bot 2000. For full rules, go here! http://pastebin.com/XWcASfh6
  120. }
  121. alias -l startwelcome {
  122. .timer.timerhelp50 0 1000 msg $chan Hello guys! Welcome to the channel, home of the Guitar Hero Casino! Here, we've got music, fun gambling games, and a great community of people. So, kick back, relax, and have some fun! :D
  123. }
  124.  
  125.  
  126. on *:text:!as*:#: {
  127.  
  128. var %regex_text = Queued Songs:
  129. var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  130. var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  131. var %read_text2 = $read(%file_search,r,%regex_text)
  132. var %songID = $readini(%songfile, $2, name)
  133. var %Ident = $readini(%songfile, $2, Identifier)
  134. var %artistID = $readini(%songfile, $2, artist)
  135. var %command = !as
  136. var %songstring = %ident %songID %artistID
  137. var %read_text $readini(%songfile, $2, name)
  138. var %read_text3 $read(%file_search2,r,%songstring)
  139. var %songnick $+(20, $nick)
  140. if ($1 == %command) && (%read_text3) {
  141. msg $chan This song already exists on the queue!
  142. }
  143. elseif ($1 == %command) && (%read_text) && (read_text2) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) < 15) && ($timer(%songnick) == $null) {
  144.  
  145.  
  146. write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
  147. write $+(-l,$readn) %file_search $+(%read_text2, $chr(32), %text %ident %songID $chr(44))
  148. msg $chan $nick %songID has been added to the list! Thank you! :)
  149. TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick you may now add another song! :)
  150.  
  151. }
  152. elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
  153. msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!
  154.  
  155. }
  156. elseif ($1 == %command) && (%read_text == $null) {
  157. msg $chan That doesn't exist on my list!
  158. }
  159. elseif ($1 != %command) {
  160. msg $chan That isn't the correct format! Make sure to type in the command in the correct format of !as [x] where [x] is the number.
  161. }
  162. else {
  163. msg $chan You must wait $timer(%songnick).secs seconds before you can add another song!
  164. }
  165. }
  166. on 2:text:!r*:#: {
  167. var %song $2
  168. %song = $readini(%songfile, $2, name)
  169. var %songID = $readini(%songfile, $2, name)
  170. var %Ident = $readini(%songfile, $2, Identifier)
  171. var %file_search = C:\Users\Brad\Desktop\Songlist\Songs.txt
  172. var %points = $readini(%pointsfile, $findIDID($1), name)
  173. var %command = !r
  174. var %artistID = $readini(%songfile, $2, artist)
  175. var %songstring = %ident %songID %artistID
  176. %symbols = ,
  177. var %read_text $read(C:\Users\Brad\Desktop\Songlist\Songqueue.txt)
  178. var %read_text2 $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,1)
  179. var %read_text5 $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,2)
  180. var %read_text3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1)
  181. var %read_text4 $read(%file_Search,r,%songstring)
  182. var %delete $remove(%read_text, %song, %ident, %symbols )
  183. if ($1 == %command) && (%read_text4 == $null) {
  184. msg $chan That song is either not on the queue or isn't in the first spot! Also make sure to type in the command in the correct format of !r [x] where [x] is the number.
  185. }
  186. elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) = 0) && ($lines(%instantqueue) = 0) && ($lines(C:\Users\Brad\Desktop\Songlist\Songqueue.txt) = 0) {
  187. msg $chan There are no songs on the queue.
  188. }
  189. elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) > 1) && (%read_text3 = %songstring) {
  190. write -c C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  191. write -dl1 C:\Users\Brad\Desktop\Songlist\instantqueue.txt
  192. write -dl1 C:\Users\Brad\Desktop\Songlist\Songs.txt
  193. write C:\Users\Brad\Desktop\Songlist\Songqueue.txt %delete
  194. msg $chan removing the top song off the queue.
  195.  
  196. }
  197. elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) = 1) && (%read_text3 = %songstring) {
  198. write -c C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  199. write -dl1 C:\Users\Brad\Desktop\Songlist\instantqueue.txt
  200. write -dl1 C:\Users\Brad\Desktop\Songlist\Songs.txt
  201. write C:\Users\Brad\Desktop\Songlist\Songqueue.txt %delete
  202. msg $chan removing the top song off the queue. The current song now is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)
  203.  
  204. }
  205. elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) > 1) && (%read_text2 == %songstring) {
  206.  
  207.  
  208. write -c C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  209. write -dl1 C:\Users\Brad\Desktop\Songlist\Songs.txt
  210. write C:\Users\Brad\Desktop\Songlist\Songqueue.txt %delete
  211. msg $chan removing the top song off the queue. The current song now is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)
  212. }
  213.  
  214.  
  215. elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 1) && (%read_text2 == %songstring) {
  216. write -dl1 C:\Users\Brad\Desktop\Songlist\Songs.txt
  217. write -c C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  218. write C:\Users\Brad\Desktop\Songlist\Songqueue.txt %delete
  219. msg $chan removing the top song off the queue. There are no more songs on the queue!
  220.  
  221. }
  222.  
  223. elseif ($1 != %command) {
  224. msg $chan That isn't formatted correctly! Make sure to type in the command in the correct format of !r [x] where [x] is the number.
  225. }
  226. else {
  227. msg $chan Song isn't in first spot!
  228. }
  229. }
  230.  
  231. on *:text:!qs:#: {
  232. if ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) >= 2) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) != $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  233. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1)
  234. }
  235. elseif ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) >= 2) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) == $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  236. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,2)
  237. }
  238.  
  239. elseif ($lines(%instantqueue) == 1) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) != $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  240.  
  241. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1)
  242.  
  243. }
  244. elseif ($lines(%instantqueue) == 1) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) == $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  245.  
  246. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,2)
  247.  
  248. }
  249.  
  250. elseif ($lines(%instantqueue) == 0) && ($read(C:\Users\Brad\Desktop\Songlist\Songqueue.txt,n,1) == Queued Songs:) {
  251. msg $chan There are no songs on the queue.
  252. }
  253.  
  254. else (!$play(#)) {
  255. .play # C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  256. }
  257.  
  258. }
  259. on 2:text:!cl:#: {
  260.  
  261. msg $chan Clearing list..
  262. write -c C:\Users\Brad\Desktop\Songlist\Songs.txt
  263. }
  264.  
  265. on 2:text:!ctq:#: {
  266.  
  267. msg $chan Clearing the queue..
  268. write -c C:\Users\Brad\Desktop\Songlist\Songqueue.txt
  269. write C:\Users\Brad\Desktop\Songlist\Songqueue.txt %text Queued Songs:
  270.  
  271. }
  272. on 2:text:!cis:#: {
  273.  
  274. msg $chan Clearing instant song queue..
  275. write -c C:\Users\Brad\Desktop\Songlist\instantqueue.txt
  276.  
  277. }
  278.  
  279.  
  280.  
  281. on *:text:!cs:#: {
  282.  
  283. if ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 0) {
  284.  
  285. msg $chan There are no songs currently on the queue.
  286. }
  287. if ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) >= 2) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) != $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  288. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1)
  289. }
  290. elseif ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) >= 2) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) == $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  291. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,2)
  292. }
  293.  
  294. elseif ($lines(%instantqueue) == 1) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) != $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  295.  
  296. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1)
  297.  
  298. }
  299. elseif ($lines(%instantqueue) == 1) && ($read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) == $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1)) {
  300.  
  301. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,n,1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,2)
  302.  
  303. }
  304. elseif ($lines(%instantqueue) = 0) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 2) {
  305. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,1) and the next song will be $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,2)
  306. }
  307.  
  308. elseif ($lines(%instantqueue) = 0) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) = 1) {
  309. msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,1)
  310. }
  311. }
  312. alias -l findIDID {
  313. var %searchName = $1
  314. var %i = 1
  315.  
  316. while (%i <= %pointsID) {
  317. var %name = $readini(%pointsfile, %i, name)
  318. if (%name == %searchName) {
  319. return %i
  320. }
  321. inc %i
  322. }
  323.  
  324. return 0
  325. }
  326. alias -l findrequestor {
  327. var %searchName = $readini(%pointsfile, %pointsID, name)
  328. var %i = 1
  329.  
  330. while (%i <= %pointsID2) {
  331. var %name = $readini(%pointsfile2, %i, name)
  332. if (%name == %searchName) {
  333. return %i
  334. }
  335. inc %i
  336. }
  337.  
  338. return 0
  339. }
  340. on *:text:!testing*:#bradmasta: {
  341. msg $chan test
  342. PRIVMSG #jtv :.w bradmasta Hi
  343. }
  344. ----------------------------------------------------------------------------------------------------------
  345.  
  346.  
  347.  
  348.  
  349. on *:text:!join:#: {
  350. var %songnick $+(4, $nick)
  351. IF ($timer(%songnick) == $null) {
  352. addTimerPoints $nick
  353. addTimerPoints2 $nick
  354. $+(timer4, $nick) 1 3600 msg $chan $nick you may now type in !join again to earn 1800 bcoins!
  355. msg $chan Thank you typing in !join! You can type this in once per hour to earn 1800 bcoins! :) If you're new, you can now earn bcoins through the in channel games!
  356. }
  357. else {
  358. msg $chan $nick you must wait $timer(%songnick).secs seconds before you can type in !join D:
  359. }
  360. }
  361.  
  362.  
  363. // This alias adds timer points to a user every so often. It looks for them in the %rosterFile. If they are not there,
  364. // it adds them to the list then starts adding their points.
  365. alias -l addTimerPoints {
  366. var %ID = $findID(%pointsfile, %pointsID, $1)
  367. if (%ID == 0) {
  368. $addUser($1)
  369. %ID = $findID(%pointsfile, %pointsID, $1)
  370. }
  371. var %currentPoints = $readini(%pointsfile, %ID, points)
  372. writeini -n %pointsfile %ID points $calc(%currentPoints + 1800)
  373. }
  374. alias -l addTimerPoints2 {
  375. var %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  376. if (%ID2 == 0) {
  377. $addUser2($1)
  378. %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  379. }
  380. var %currentPoints2 = $readini(%pointsfile2, %ID2, points)
  381. writeini -n %pointsfile2 %ID2 points $calc(%currentPoints2 + 1800)
  382. }
  383.  
  384. // This alias adds someone new to the points system. Note that it only adds [name] and [points] so if you have any
  385. // other items, then you should include those in additional writeini statements as well.
  386. alias -l addUser {
  387. writeini -n %pointsFile $calc(%pointsID + 1) name $1
  388. writeini -n %pointsFile $calc(%pointsID + 1) points 1800
  389. inc %pointsID
  390. }
  391. alias -l addUser2 {
  392. writeini -n %pointsFile2 $calc(%pointsID2 + 1) name $1
  393. writeini -n %pointsFile2 $calc(%pointsID2 + 1) points 1800
  394. inc %pointsID2
  395. }
  396. alias -l addUser3 {
  397. writeini -n %megacoins $findcoins name $1
  398. writeini -n %megacoins $findcoins coin1
  399. inc %megaID
  400. }
  401. alias -l addUser4 {
  402. writeini -n %megacoins2 $findcoins name $1
  403. writeini -n %megacoins2 $findcoins coin2
  404. inc %megaID
  405. }
  406. alias -l addUser5 {
  407. writeini -n %megacoins3 $findcoins name $1
  408. writeini -n %megacoins3 $findcoins coin3
  409. inc %megaID
  410. }
  411. alias -l addUser6 {
  412. writeini -n %megacoins4 $findcoins name $1
  413. writeini -n %megacoins4 $findcoins coin4
  414. inc %megaID
  415. }
  416. alias -l addUser7 {
  417. writeini -n %megacoins5 $findcoins name $1
  418. writeini -n %megacoins5 $findcoins coin5
  419. inc %megaID
  420. }
  421. alias -l addUser8 {
  422. writeini -n %megacoins6 $findcoins name $1
  423. writeini -n %megacoins6 $findcoins coin6
  424. inc %megaID
  425. }
  426. on *:text:!bcoins:#: {
  427. var %points = $readini(%pointsfile, $findIDID($nick), points)
  428. var %findme = $readini(%pointsfile, $findIDID($nick), name)
  429. var %points2 = $readini(%pointsfile2, $findIDIDIDIDID($nick), points)
  430. var %currentPoints = $readini(%pointsfile, $findIDID(%name), points)
  431. var %ID = $findIDIDID(%Hallofawesome, %HallofawesomeID, $1)
  432. if (%findme == $null) {
  433.  
  434. msg $chan $nick you haven't started earning bcoins in this channel! Type in !join to do so :D
  435. }
  436.  
  437. elseIF (%points2 >= 2000000) && (%ID == 0) {
  438. $addHall($nick)
  439. msg $chan $nick has %points bcoins and has earned %points2 all time! $nick has done it! $nick has been added to the Hall Of Awesome for achieving over 2,000,000 bcoins all time! :D
  440. }
  441. elseif (%points2 >= 2000000) {
  442. msg $chan $nick has %points bcoins and has earned %points2 all time! $nick is a member of the Hall of Awesome, a list only reserved for the most dedicated viewers and supporters of bradmasta! :)
  443. }
  444. elseif (%points2 isnum 1-99999) {
  445. msg $chan $nick has %points bcoins and has earned %points2 bcoins all time!
  446. }
  447. elseif (%points2 isnum 100000-249999) {
  448. msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick enjoys Bradmasta's stream!
  449. }
  450. elseif (%points2 isnum 250000-499999) {
  451. msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick has been with the channel for some time now!
  452. }
  453. elseif (%points2 isnum 500000-999999) {
  454. msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick is a high roller! PogChamp
  455. }
  456. elseif (%points2 isnum 1000000-1999999) {
  457. msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick has an impressive amount of bcoins!
  458. }
  459. elseif (%points <= 0) {
  460. msg $chan $nick You have no bcoins! But has earned %points2 bcoins all time!
  461. }
  462. else {
  463. msg $chan $nick hasn't started earning bcoins yet! Check again in a minute :)
  464. }
  465. }
  466. alias -l addHall {
  467. writeini -n %Hallofawesome $calc(%HallofawesomeID + 1) name $1
  468. inc %HallofawesomeID
  469. }
  470.  
  471. on *:text:!bn:#: {
  472. var %currentPoints = $readini(%pointsfile2, $findIDIDIDIDID($nick), points)
  473. var %pointsneeded = $calc(2000000 - %currentPoints)
  474.  
  475. if (%currentPoints isnum 1-1999999) {
  476. msg $chan $nick You need %pointsneeded Bcoins to reach the Hall of Awesome!
  477. }
  478. elseif (%currentPoints >= 2000000) {
  479. msg $chan $nick You have %currentpoints bcoins, which is enough to enter the Hall of Awesome! Simply type into chat !bcoins and you'll be added! :D
  480. }
  481. }
  482. on *:text:!mega:#: {
  483. var %coins1 = $readini(%megacoins, $findcoins($nick), coin1)
  484. var %coins2 = $readini(%megacoins2, $findcoins2($nick), coin2)
  485. var %coins3 = $readini(%megacoins3, $findcoins3($nick), coin3)
  486. var %coins4 = $readini(%megacoins4, $findcoins4($nick), coin4)
  487. var %coins5 = $readini(%megacoins5, $findcoins5($nick), coin5)
  488. var %coins6 = $readini(%megacoins6, $findcoins6($nick), coin6)
  489. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID($nick), points)
  490. var %newPoints2 = $calc(%currentPoints2 + 1000000)
  491. var %currentPoints = $readini(%pointsfile, $findIDID($nick), points)
  492. var %newPoints = $calc(%currentPoints + 1000000)
  493. var %ID = $findallmega(%allmega, %allmegaID, $nick)
  494. if (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) && (%ID == 0) {
  495.  
  496. addmeganame
  497.  
  498. writeini -n %pointsfile $findIDID($nick) points %newpoints
  499. writeini -n %pointsfile2 $findIDIDIDIDID($nick) points %newpoints2
  500. msg $chan $nick has the megacoins %coins1 , %coins2 , %coins3 , %coins4 , %coins5 , and %coins6 ! By obtaining all 6 megacoins $nick has just won 1,000,000 bcoins!! Kreygasm PogChamp
  501. } // 123456 missing none
  502. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  503. msg $chan $nick has the megacoins %coins1 , %coins2 , %coins3 , %coins4 , %coins5 , and %coins6 ! $nick has managed to collect all 6 megacoins!
  504. } // 123456 missing none
  505.  
  506. elseif (%coins1 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  507. msg $chan $nick has %coins1 , %coins3 , %coins4 , %coins5 , and %coins6 megacoins! $nick needs 1 more to win 1,000,000 bcoins!
  508. } // 13456 missing 2
  509. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  510. msg $chan $nick has %coins1 , %coins2 , %coins4 , %coins5 , and %coins6 megacoins! $nick needs 1 more to win 1,000,000 bcoins!
  511. } // 12456 missing 3
  512. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  513. msg $chan $nick has %coins1 , %coins2 , %coins3 , %coins5 , and %coins6 megacoins! $nick needs 1 more to win 1,000,000 bcoins!
  514. } // 12356 missing 4
  515. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins6 != $null) {
  516. msg $chan $nick has %coins1 , %coins2 , %coins3 , %coins4 , and %coins6 megacoins! $nick needs 1 more to win 1,000,000 bcoins!
  517. } // 12346 missing 5
  518. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) {
  519. msg $chan $nick has %coins1 , %coins2 , %coins3 , %coins4 , and %coins5 megacoins! $nick needs 1 more to win 1,000,000 bcoins!
  520. } // 12345 missing 6
  521. elseif (%coins1 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  522. msg $chan $nick has %coins1 , %coins4 , %coins5 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  523. } // 1456 missing 2 and 3
  524. elseif (%coins1 != $null) && (%coins3 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  525. msg $chan $nick has %coins1 , %coins3 , %coins5 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  526. } // 1356 missing 2 and 4
  527. elseif (%coins1 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins6 != $null) {
  528. msg $chan $nick has %coins1 , %coins3 , %coins4 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  529. } // 1346 missing 2 and 5
  530. elseif (%coins1 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) {
  531. msg $chan $nick has %coins1 , %coins3 , %coins4 , and %coins5 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  532. } // 1345 missing 2 and 6
  533. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  534. msg $chan $nick has %coins1 , %coins2 , %coins5 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  535. } // 1256 missing 3 and 4
  536. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins4 != $null) && (%coins6 != $null) {
  537. msg $chan $nick has %coins1 , %coins2 , %coins4 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  538. } // 1246 missing 3 and 5
  539. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins4 != $null) && (%coins5 != $null) {
  540. msg $chan $nick has %coins1 , %coins2 , %coins4 , and %coins5 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  541. } // 1245 missing 3 and 6
  542. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins6 != $null) {
  543. msg $chan $nick has %coins1 , %coins2 , %coins3 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  544. } // 1236 missing 4 and 5
  545. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins5 != $null) {
  546. msg $chan $nick has %coins1 , %coins2 , %coins3 , and %coins5 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  547. } // 1235 missing 4 and 6
  548. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) {
  549. msg $chan $nick has %coins1 , %coins2 , %coins3 , and %coins4 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  550. } // 1234 missing 5 and 6
  551. elseif (%coins1 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  552. msg $chan $nick has %coins1 , %coins5 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  553. } // 156 missing 2, 3, and 4
  554. elseif (%coins1 != $null) && (%coins4 != $null) && (%coins6 != $null) {
  555. msg $chan $nick has %coins1 , %coins4 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  556. } // 146 missing 2, 3, and 5
  557. elseif (%coins1 != $null) && (%coins4 != $null) && (%coins5 != $null) {
  558. msg $chan $nick has %coins1 , %coins4 , and %coins5 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  559. } // 145 missing 2, 3, and 6
  560. elseif (%coins1 != $null) && (%coins3 != $null) && (%coins6 != $null) {
  561. msg $chan $nick has %coins1 , %coins3 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  562. } // 136 missing 2, 4, and 5
  563. elseif (%coins1 != $null) && (%coins3 != $null) && (%coins5 != $null) {
  564. msg $chan $nick has %coins1 , %coins3 , and %coins5 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  565. } // 135 missing 2, 4, and 6
  566. elseif (%coins1 != $null) && (%coins3 != $null) && (%coins4 != $null) {
  567. msg $chan $nick has %coins1 , %coins3 , and %coins4 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  568. } // 134 missing 2, 5, and 6
  569. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins6 != $null) {
  570. msg $chan $nick has %coins1 , %coins2 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  571. } // 126 missing 3, 4, and 5
  572. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins5 != $null) {
  573. msg $chan $nick has %coins1 , %coins2 , and %coins5 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  574. } // 125 missing 3, 4, and 6
  575. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins4 != $null) {
  576. msg $chan $nick has %coins1 , %coins2 , and %coins4 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  577. } // 124 missing 3, 5, and 6
  578. elseif (%coins1 != $null) && (%coins2 != $null) && (%coins3 != $null) {
  579. msg $chan $nick has %coins1 , %coins2 , and %coins3 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  580. } // 123 missing 4, 5, and 6
  581. elseif (%coins1 != $null) && (%coins6 != $null) {
  582. msg $chan $nick has %coins1 and %coins6 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  583. } // 16 missing 2, 3, 4, and 5
  584. elseif (%coins1 != $null) && (%coins5 != $null) {
  585. msg $chan $nick has %coins1 and %coins5 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  586. } // 15 missing 2, 3, 4, and 6
  587. elseif (%coins1 != $null) && (%coins4 != $null) {
  588. msg $chan $nick has %coins1 and %coins4 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  589. } // 14 missing 2, 3, 5, and 6
  590. elseif (%coins1 != $null) && (%coins3 != $null) {
  591. msg $chan $nick has %coins1 and %coins3 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  592. } // 13 missing 2, 4, 5, and 6
  593. elseif (%coins1 != $null) && (%coins2 != $null) {
  594. msg $chan $nick has %coins1 and %coins2 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  595. } // 12 missing 3, 4, 5, and 6
  596. elseif (%coins1 != $null) {
  597. msg $chan $nick has the megacoin %coins1 ! $nick needs 5 more to win 1,000,000 bcoins!
  598. } // 1 missing 2, 3, 4, 5, and 6
  599.  
  600.  
  601.  
  602. elseif (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  603. msg $chan $nick has %coins2 , %coins3, %coins4 , %coins5 , and %coins6 megacoins! $nick needs 1 more to win 1,000,000 bcoins!
  604. } // 23456 missing none
  605. elseif (%coins2 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  606. msg $chan $nick has %coins2 , %coins4 , %coins5 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  607. } // 2456 missing 3
  608. elseif (%coins2 != $null) && (%coins3 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  609. msg $chan $nick has %coins2 , %coins3, %coins5 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  610. } // 2356 missing 4
  611. elseif (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins6 != $null) {
  612. msg $chan $nick has %coins2 , %coins3, %coins4 , and %coins6 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  613. } // 2346 missing 5
  614. elseif (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  615. msg $chan $nick has %coins2 , %coins3, %coins4 , and %coins5 megacoins! $nick needs 2 more to win 1,000,000 bcoins!
  616. } // 2345 missing 6
  617. elseif (%coins2 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  618. msg $chan $nick has %coins2 , %coins5 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  619. } // 256 missing 3 and 4
  620. elseif (%coins2 != $null) && (%coins4 != $null) && (%coins6 != $null) {
  621. msg $chan $nick has %coins2 , %coins4 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  622. } // 246 missing 3 and 5
  623. elseif (%coins2 != $null) && (%coins4 != $null) && (%coins5 != $null) {
  624. msg $chan $nick has %coins2 , %coins4 , and %coins5 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  625. } // 245 missing 3 and 6
  626. elseif (%coins2 != $null) && (%coins3 != $null) && (%coins6 != $null) {
  627. msg $chan $nick has %coins2 , %coins3, and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  628. } // 236 missing 4 and 5
  629. elseif (%coins2 != $null) && (%coins3 != $null) && (%coins5 != $null) {
  630. msg $chan $nick has %coins2 , %coins3, and %coins5 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  631. } // 235 missing 4 and 6
  632. elseif (%coins2 != $null) && (%coins3 != $null) && (%coins4 != $null) {
  633. msg $chan $nick has %coins2 , %coins3, and %coins4 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  634. } // 234 missing 5 and 6
  635. elseif (%coins2 != $null) && (%coins6 != $null) {
  636. msg $chan $nick has %coins2 and %coins6 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  637. } // 26 missing 3, 4, and 5
  638. elseif (%coins2 != $null) && (%coins5 != $null) {
  639. msg $chan $nick has %coins2 and %coins 5megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  640. } // 25 missing 3, 4, and 6
  641. elseif (%coins2 != $null) && (%coins4 != $null) {
  642. msg $chan $nick has %coins2 and %coins4 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  643. } // 24 missing 3, 5, and 6
  644. elseif (%coins2 != $null) && (%coins3 != $null) {
  645. msg $chan $nick has %coins2 and %coins3 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  646. } // 23 missing 4, 5, and 6
  647. elseif (%coins2 != $null) {
  648. msg $chan $nick has the megacoin %coins2 ! $nick needs 5 more to win 1,000,000 bcoins!
  649. } // 2 missing 3, 4, 5, and 6
  650.  
  651.  
  652. elseif (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  653. msg $chan $nick has %coins3 , %coins5 , and %coins6 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  654. } // 3456 missing none
  655. elseif (%coins3 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  656. msg $chan $nick has %coins3 , %coins5 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  657. } // 356 missing 4
  658. elseif (%coins3 != $null) && (%coins4 != $null) && (%coins6 != $null) {
  659. msg $chan $nick has %coins3 , %coins4 , and %coins6 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  660. } // 346 missing 5
  661. elseif (%coins3 != $null) && (%coins4 != $null) && (%coins5 != $null) {
  662. msg $chan $nick has %coins3 , %coins4 , and %coins5 megacoins! $nick needs 3 more to win 1,000,000 bcoins!
  663. } // 345 missing 6
  664. elseif (%coins3 != $null) && (%coins6 != $null) {
  665. msg $chan $nick has %coins3 and %coins6 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  666. } // 36 missing 4 and 5
  667. elseif (%coins3 != $null) && (%coins5 != $null) {
  668. msg $chan $nick has %coins3 and %coins5 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  669. } // 35 missing 4 and 6
  670. elseif (%coins3 != $null) && (%coins4 != $null) {
  671. msg $chan $nick has %coins3 and %coins4 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  672. } // 34 missing 5 and 6
  673. elseif (%coins3 != $null) {
  674. msg $chan $nick has the megacoin %coins3 ! $nick needs 5 more to win 1,000,000 bcoins!
  675. } // 3 missing 4, 5, and 6
  676.  
  677. elseif (%coins4 != $null) && (%coins5 != $null) && (%coins6 != $null) {
  678. msg $chan $nick has %coins4 and %coins6 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  679. } // 456 missing none
  680. elseif (%coins4 != $null) && (%coins6 != $null) {
  681. msg $chan $nick has %coins4 and %coins6 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  682. } // 46 missing 5
  683. elseif (%coins4 != $null) && (%coins5 != $null) {
  684. msg $chan $nick has %coins4 and %coins5 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  685. } // 45 missing 6
  686. elseif (%coins4 != $null) {
  687. msg $chan $nick has the megacoin %coins4 ! $nick needs 5 more to win 1,000,000 bcoins!
  688. } // 4 missing 5 and 6
  689.  
  690.  
  691. elseif (%coins5 != $null) && (%coins6 != $null) {
  692. msg $chan $nick has %coins5 and %coins6 megacoins! $nick needs 4 more to win 1,000,000 bcoins!
  693. } // 56 missing none
  694. elseif (%coins5 != $null) {
  695. msg $chan $nick has the megacoin %coins5 ! $nick needs 5 more to win 1,000,000 bcoins!
  696. } // 5 missing 6
  697.  
  698.  
  699. elseif (%coins6 != $null) {
  700. msg $chan $nick has the megacoin %coins6 ! $nick needs 5 more to win 1,000,000 bcoins!
  701. } // 6 missing none
  702.  
  703.  
  704.  
  705. else {
  706. msg $chan $nick doesn't have any mega coins! Keep playing the slots to win 1! If you obtain all 6, you win 1,000,000 bcoins!
  707. }
  708. }
  709. alias -l addmeganame {
  710. var %ID = $findallmega(%allmega, %allmegaID, $nick)
  711. if (%ID == 0) {
  712. $addallmega($nick)
  713. %ID = $findallmega(%allmega, %allmegaID, $nick)
  714. }
  715.  
  716. }
  717. alias -l addallmega {
  718. writeini -n %allmega $calc(%allmegaID + 1) name $nick
  719. inc %allmegaID
  720. }
  721. on *:text:!Hoa:#: {
  722. msg $chan No one is in the Hall Of Awesome (yet!). To get in, type in !bcoins once you've reached 2,000,000 bcoins!
  723. }
  724. // Format: !addPoints [name] [points]
  725. on 2:text:!ab*:#: {
  726. var %name = $2
  727. var %points = $3
  728. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%name), points)
  729. var %newPoints2 = $calc(%currentPoints2 + %points)
  730. var %currentPoints = $readini(%pointsfile, $findIDID(%name), points)
  731. var %newPoints = $calc(%currentPoints + %points)
  732.  
  733. writeini -n %pointsfile $findIDID(%name) points %newPoints
  734. writeini -n %pointsfile2 $findIDIDIDIDID(%name) points %newPoints2
  735.  
  736. msg $chan %points bcoins were added to %name
  737. }
  738.  
  739. on 2:text:!au*:#: {
  740.  
  741.  
  742. writeini -n %pointsFile $calc(%pointsID + 1) name $2
  743. writeini -n %pointsFile $calc(%pointsID + 1) points 2000
  744.  
  745.  
  746. writeini -n %pointsFile2 $calc(%pointsID2 + 1) name $2
  747. writeini -n %pointsFile2 $calc(%pointsID2 + 1) points 2000
  748. inc %pointsID
  749. inc %pointsID2
  750.  
  751.  
  752. msg $chan $2 has been added to the bcoins list! :)
  753. }
  754.  
  755. alias -l adduserspoints {
  756. var %ID = $findID(%pointsfile, %pointsID, $2)
  757. if (%ID == 0) {
  758. $addUser($2)
  759. %ID = $findID(%pointsfile, %pointsID, $2)
  760. }
  761. var %currentPoints = $readini(%pointsfile, %ID, points)
  762. writeini -n %pointsfile %ID points $calc(%currentPoints + 5)
  763. }
  764. alias -l adduserspoints2 {
  765. var %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  766. if (%ID2 == 0) {
  767. $addUser2($2)
  768. %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  769. }
  770. var %currentPoints2 = $readini(%pointsfile2, %ID2, points)
  771. writeini -n %pointsfile2 %ID2 points $calc(%currentPoints2 + 5)
  772. }
  773. on 2:text:!tb*:#: {
  774. var %name = $2
  775. var %points = $3
  776.  
  777. var %currentPoints = $readini(%pointsfile, $findIDID(%name), points)
  778. var %newPoints = $calc(%currentPoints - %points)
  779.  
  780. writeini -n %pointsfile $findIDID(%name) points %newPoints
  781.  
  782. msg $chan %points bcoins were taken from %name
  783. }
  784. on *:text:!is*:#: {
  785. var %currentPoints = $readini(%pointsfile, $findIDID($nick), points)
  786. var %newPoints = $calc(%currentPoints - 15000)
  787. var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  788. var %songID $readini(%songfile, $2, name)
  789. var %command = !is
  790. var %ident $readini(%songfile, $2, Identifier)
  791. var %artistID $readini(%songfile, $2, artist)
  792. var %songstring = %ident %songID %artistID
  793. var %read_text $read(%file_search2,r,%songstring)
  794. var %read_text3 $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,w,%songstring)
  795. var %read_text4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue.txt,w,%songstring)
  796. var %pointsneeded $calc(15000 - %currentPoints)
  797. var %songnick $+(6, $nick)
  798. var %read_text2 $readini(%songfile, $2, name)
  799. if ($1 == %command) && (%read_text2 == $null) {
  800. msg $chan That song doesn't exist! | halt
  801. }
  802. elseif ($1 == %command) && (%read_text4 != $null) {
  803. msg $chan %songID is already on the instant song queue!
  804. }
  805.  
  806. elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) >= 5) {
  807. msg $chan There can only be 5 songs added to the instant queue at one time! Please wait for this list to lower! Thank you :) | halt
  808. }
  809.  
  810.  
  811.  
  812. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 0) && (%read_text3 != $null) {
  813.  
  814. var %i 1
  815. while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
  816. if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
  817. inc %i
  818. }
  819.  
  820.  
  821. writeini -n %pointsfile $findIDID($nick) points %newPoints
  822. write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  823. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  824.  
  825. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  826.  
  827. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  828. }
  829. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 0) && (%read_text3 == $null) {
  830.  
  831.  
  832. writeini -n %pointsfile $findIDID($nick) points %newPoints
  833. write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  834. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  835.  
  836. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  837.  
  838. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  839. }
  840. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 1) && (%read_text3 != $null) {
  841.  
  842. var %i 1
  843. while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
  844. if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
  845. inc %i
  846. }
  847.  
  848.  
  849. writeini -n %pointsfile $findIDID($nick) points %newPoints
  850. write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  851. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  852.  
  853. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  854.  
  855. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  856. }
  857. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 1) && (%read_text3 == $null) {
  858.  
  859.  
  860. writeini -n %pointsfile $findIDID($nick) points %newPoints
  861. write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  862. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  863.  
  864. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  865.  
  866. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  867. }
  868. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 2) && (%read_text3 != $null) {
  869.  
  870. var %i 1
  871. while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
  872. if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
  873. inc %i
  874. }
  875.  
  876.  
  877. writeini -n %pointsfile $findIDID($nick) points %newPoints
  878. write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  879. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  880.  
  881. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  882.  
  883. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  884. }
  885. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 2) && (%read_text3 == $null) {
  886.  
  887.  
  888. writeini -n %pointsfile $findIDID($nick) points %newPoints
  889. write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  890. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  891.  
  892. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  893.  
  894. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  895. }
  896. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 3) && (%read_text3 != $null) {
  897.  
  898. var %i 1
  899. while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
  900. if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
  901. inc %i
  902. }
  903.  
  904.  
  905. writeini -n %pointsfile $findIDID($nick) points %newPoints
  906. write -il5 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  907. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  908.  
  909. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  910.  
  911. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  912. }
  913. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 3) && (%read_text3 == $null) {
  914.  
  915.  
  916. writeini -n %pointsfile $findIDID($nick) points %newPoints
  917. write -il5 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  918. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  919.  
  920. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  921.  
  922. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  923. }
  924. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 4) && (%read_text3 != $null) {
  925.  
  926. var %i 1
  927. while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
  928. if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
  929. inc %i
  930. }
  931.  
  932.  
  933. writeini -n %pointsfile $findIDID($nick) points %newPoints
  934. write -il6 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  935. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  936.  
  937. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  938.  
  939. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  940. }
  941. elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue.txt) == 4) && (%read_text3 == $null) {
  942.  
  943.  
  944. writeini -n %pointsfile $findIDID($nick) points %newPoints
  945. write -il6 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
  946. write C:\Users\Brad\Desktop\Songlist\instantqueue.txt %text %ident %songID %artistID
  947.  
  948. msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!
  949.  
  950. TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  951. }
  952. elseif ($1 == %command) && (%currentpoints < 15000) {
  953. msg $chan You don't have enough bcoins to add a song to the instant songlist! You currently need %pointsneeded bcoins.
  954. }
  955. elseif ($1 != %command) {
  956. msg $chan That isn't formatted correctly! Make sure to format the command as !is [x] where [x] is the number of the song you want played.
  957. }
  958. else {
  959. msg $chan you must wait $timer(%songnick).secs seconds before adding another song to the top of the list!
  960. }
  961. }
  962.  
  963.  
  964. // ------------------------------------------------------------------------------------------------------------------------
  965. alias -l findID {
  966. var %file = $1
  967. var %ID = $2
  968. var %user = $3
  969. var %i = 1
  970. while (%i <= %ID) {
  971. if ($readini(%file, %i, name) == %user) {
  972. return %i
  973. }
  974. inc %i
  975. }
  976. return 0
  977. }
  978.  
  979.  
  980. alias -l findIDID {
  981. var %searchName = $1
  982. var %i = 1
  983.  
  984. while (%i <= %pointsID) {
  985. var %name = $readini(%pointsfile, %i, name)
  986. if (%name == %searchName) {
  987. return %i
  988. }
  989. inc %i
  990. }
  991.  
  992. return 0
  993. }
  994. alias -l findIDIDID {
  995. var %searchName = $nick
  996. var %i = 1
  997.  
  998. while (%i <= %HallofawesomeID) {
  999. var %name = $readini(%Hallofawesome, %i, name)
  1000. if (%name == %searchName) {
  1001. return %i
  1002. }
  1003. inc %i
  1004. }
  1005.  
  1006. return 0
  1007. }
  1008. alias -l findIDIDIDID {
  1009. var %file = $1
  1010. var %ID = $2
  1011. var %user = $3
  1012. var %i = 1
  1013. while (%i <= %ID) {
  1014. if ($readini(%file, %i, name) == %user) {
  1015. return %i
  1016. }
  1017. inc %i
  1018. }
  1019. return 0
  1020. }
  1021. alias -l findIDIDIDIDID {
  1022. var %searchName = $1
  1023. var %i = 1
  1024.  
  1025. while (%i <= %pointsID2) {
  1026. var %name = $readini(%pointsfile2, %i, name)
  1027. if (%name == %searchName) {
  1028. return %i
  1029. }
  1030. inc %i
  1031. }
  1032.  
  1033. return 0
  1034. }
  1035. alias -l findcoins {
  1036. var %searchName = $nick
  1037. var %i = 1
  1038.  
  1039. while (%i <= %megaID) {
  1040. var %name = $readini(%megacoins, %i, name)
  1041. if (%name == %searchName) {
  1042. return %i
  1043. }
  1044. inc %i
  1045. }
  1046.  
  1047. return 0
  1048. }
  1049. alias -l findcoins {
  1050. var %searchName = $nick
  1051. var %i = 1
  1052.  
  1053. while (%i <= %megaID) {
  1054. var %name = $readini(%megacoins, %i, name)
  1055. if (%name == %searchName) {
  1056. return %i
  1057. }
  1058. inc %i
  1059. }
  1060.  
  1061. return 0
  1062. }
  1063. alias -l findcoins2 {
  1064. var %searchName = $nick
  1065. var %i = 1
  1066.  
  1067. while (%i <= %megaID2) {
  1068. var %name = $readini(%megacoins2, %i, name)
  1069. if (%name == %searchName) {
  1070. return %i
  1071. }
  1072. inc %i
  1073. }
  1074.  
  1075. return 0
  1076. }
  1077. alias -l findcoins3 {
  1078. var %searchName = $nick
  1079. var %i = 1
  1080.  
  1081. while (%i <= %megaID3) {
  1082. var %name = $readini(%megacoins3, %i, name)
  1083. if (%name == %searchName) {
  1084. return %i
  1085. }
  1086. inc %i
  1087. }
  1088.  
  1089. return 0
  1090. }
  1091. alias -l findcoins4 {
  1092. var %searchName = $nick
  1093. var %i = 1
  1094.  
  1095. while (%i <= %megaID4) {
  1096. var %name = $readini(%megacoins4, %i, name)
  1097. if (%name == %searchName) {
  1098. return %i
  1099. }
  1100. inc %i
  1101. }
  1102.  
  1103. return 0
  1104. }
  1105. alias -l findcoins5 {
  1106. var %searchName = $nick
  1107. var %i = 1
  1108.  
  1109. while (%i <= %megaID5) {
  1110. var %name = $readini(%megacoins5, %i, name)
  1111. if (%name == %searchName) {
  1112. return %i
  1113. }
  1114. inc %i
  1115. }
  1116.  
  1117. return 0
  1118. }
  1119. alias -l findcoins6 {
  1120. var %searchName = $nick
  1121. var %i = 1
  1122.  
  1123. while (%i <= %megaID6) {
  1124. var %name = $readini(%megacoins6, %i, name)
  1125. if (%name == %searchName) {
  1126. return %i
  1127. }
  1128. inc %i
  1129. }
  1130.  
  1131. return 0
  1132. }
  1133. alias -l findallmega {
  1134. var %searchName = $nick
  1135. var %i = 1
  1136.  
  1137. while (%i <= %allmegaID) {
  1138. var %name = $readini(%allmega, %i, name)
  1139. if (%name == %searchName) {
  1140. return %i
  1141. }
  1142. inc %i
  1143. }
  1144.  
  1145. return 0
  1146. }
  1147. ------------------------------------------------------------------
  1148. on *:LOAD:{
  1149. SET %Winners 0
  1150. SET %Sjackpot 200
  1151. SET %Mjackpot 400
  1152. SET %Ljackpot 600
  1153. SET %MjAckpot 800
  1154. SET %Ujackpot 1000
  1155. SET %jackpot 10000
  1156. SET %symbol.0  4Head 
  1157. SET %symbol.1  Shazam 
  1158. SET %symbol.2  PogChamp 
  1159. SET %symbol.3  GasJoker 
  1160. SET %symbol.4  deIlluminati 
  1161. SET %symbol.5  Kappa 
  1162. SET %symbol.8  Apple 
  1163. }
  1164.  
  1165. ON *:UNLOAD:{
  1166. UNSET %jackpot
  1167. UNSET %symbol.*
  1168. }
  1169.  
  1170. on *:TEXT:!slots:#: {
  1171. var %slotsnick $nick
  1172. var %points = $readini(%pointsfile, $findIDID(%slotsnick), points)
  1173. var %ID = $readini(%pointsfile2, $findIDID(%slotsnick), name)
  1174.  
  1175. IF (%ID == $null) {
  1176. msg $chan $nick You haven't started earning bcoins in this channel yet! Type in !join to start earning them! :)
  1177.  
  1178. }
  1179. ELSEIF (%points >= 20) {
  1180.  
  1181. slotsetup
  1182. }
  1183. ELSE {
  1184. msg $chan You don't have enough bcoins to play!
  1185. }
  1186. }
  1187. alias slotsetup {
  1188. SET %chanslot $chan
  1189. SET %nickslot $nick
  1190. IF ($timer(%nickslot) == $null) {
  1191. TIMER [ $+ [ %nickslot ] ] 1 120 msg $chan %nickslot you may play the slots again!
  1192. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1193. INC %Sjackpot 50
  1194. INC %Mjackpot 50
  1195. INC %Ljackpot 50
  1196. INC %Xjackpot 50
  1197. INC %Ujackpot 50
  1198. INC %Tjackpot 50
  1199. INC %jackpot 100
  1200. var %pointstoplay = 20
  1201. var %bcoinsused = $calc(%currentPoints - %pointstoplay)
  1202.  
  1203. writeini -n %pointsfile $findIDID(%nickslot) points %bcoinsused
  1204.  
  1205. playslot
  1206. }
  1207. ELSE {
  1208. msg $chan %nickslot You have to wait $timer(%nickslot).secs seconds before playing again.
  1209.  
  1210. }
  1211. }
  1212.  
  1213. alias playslot {
  1214. IF ( %slot.lose. [ $+ [ %nickslot ] ] == $null ) SET %slot.lose. [ $+ [ %nickslot ] ] 0
  1215. INC %slot.lose. [ $+ [ %nickslot ] ]
  1216. SET %col.0 %symbol. [ $+ [ $rand(0,5) ] ]
  1217. SET %col.1 %symbol. [ $+ [ $rand(0,5) ] ]
  1218. SET %col.2 %symbol. [ $+ [ $rand(0,5) ] ]
  1219. SET %col.3 %symbol. [ $+ [ $rand(0,10) ] ]
  1220. var %ID = $findcoins(%megacoins, %megaID, $1)
  1221. var %ID2 = $findcoins2(%megacoins2, %megaID2, $1)
  1222. var %ID3 = $findcoins3(%megacoins3, %megaID3, $1)
  1223. var %ID4 = $findcoins4(%megacoins4, %megaID4, $1)
  1224. var %ID5 = $findcoins5(%megacoins5, %megaID5, $1)
  1225. var %ID6 = $findcoins6(%megacoins6, %megaID6, $1)
  1226. var %coins1 = $readini(%megacoins, $findcoins($nick), coin1)
  1227. var %coins2 = $readini(%megacoins2, $findcoins2($nick), coin2)
  1228. var %coins3 = $readini(%megacoins3, $findcoins3($nick), coin3)
  1229. var %coins4 = $readini(%megacoins4, $findcoins4($nick), coin4)
  1230. var %coins5 = $readini(%megacoins5, $findcoins5($nick), coin5)
  1231. var %coins6 = $readini(%megacoins6, $findcoins6($nick), coin6)
  1232. var %megacoinsfile = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,1)
  1233. var %megacoinsfile2 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,2)
  1234. var %megacoinsfile3 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,3)
  1235. var %megacoinsfile4 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,4)
  1236. var %megacoinsfile5 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,5)
  1237. var %megacoinsfile6 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,6)
  1238. IF (%col.0 == %symbol.0) && (%col.1 == %symbol.0) && (%col.2 == %symbol.0) && (%col.3 == %symbol.8) && (%ID == 0) {
  1239. SET %winlineslot %nickslot just won %Sjackpot bcoins and the mega coin %megacoinsfile ! Check your mega coins by typing in !mega :D
  1240. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1241. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1242. var %jackpotwon = $calc(%currentPoints + %Sjackpot)
  1243. var %jackpotwon2 = $calc(%currentPoints2 + %Sjackpot)
  1244. $addmega($nick)
  1245. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1246. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1247. writeini -n %megacoins $findcoins(%nickslot) coin1 $chr(40) 4Head $chr(41)
  1248. INC %Winners
  1249. SET %Last.Winner %nickslot
  1250. SET %Last.Amount %Sjackpot
  1251. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %jackpot )
  1252. SET %Sjackpot 200
  1253. }
  1254. else if (%col.0 == %symbol.0) && (%col.1 == %symbol.0) && (%col.2 == %symbol.0) {
  1255. SET %winlineslot %nickslot just won %Sjackpot bcoins!
  1256. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1257. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1258. var %jackpotwon = $calc(%currentPoints + %Sjackpot)
  1259. var %jackpotwon2 = $calc(%currentPoints2 + %Sjackpot)
  1260.  
  1261. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1262. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1263. INC %Winners
  1264. SET %Last.Winner %nickslot
  1265. SET %Last.Amount %Sjackpot
  1266. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %jackpot )
  1267. SET %Sjackpot 200
  1268. }
  1269. elseIF (%col.0 == %symbol.1) && (%col.1 == %symbol.1) && (%col.2 == %symbol.1) && (%col.3 == %symbol.8) && (%ID2 == 0) {
  1270. SET %winlineslot %nickslot just won %Mjackpot bcoins and the mega coin %megacoinsfile2 ! Check your mega coins by typing in !mega :D
  1271. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1272. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1273. var %jackpotwon = $calc(%currentPoints + %Mjackpot)
  1274. var %jackpotwon2 = $calc(%currentPoints2 + %Mjackpot)
  1275. $addmega2($nick)
  1276. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1277. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1278. writeini -n %megacoins2 $findcoins2(%nickslot) coin2 $chr(40) Shazam $chr(41)
  1279. INC %Winners
  1280. SET %Last.Winner %nickslot
  1281. SET %Last.Amount %Mjackpot
  1282. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Mjackpot )
  1283. SET %Mjackpot 400
  1284. }
  1285. elseIF (%col.0 == %symbol.1) && (%col.1 == %symbol.1) && (%col.2 == %symbol.1) {
  1286. SET %winlineslot %nickslot just won %Mjackpot bcoins!
  1287. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1288. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1289. var %jackpotwon = $calc(%currentPoints + %Mjackpot)
  1290. var %jackpotwon2 = $calc(%currentPoints2 + %Mjackpot)
  1291.  
  1292. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1293. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1294. INC %Winners
  1295. SET %Last.Winner %nickslot
  1296. SET %Last.Amount %Mjackpot
  1297. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Mjackpot )
  1298. SET %Mjackpot 400
  1299. }
  1300. elseIF (%col.0 == %symbol.2) && (%col.1 == %symbol.2) && (%col.2 == %symbol.2) && (%col.3 == %symbol.8) && (%ID3 == 0) {
  1301. SET %winlineslot %nickslot just won %Ljackpot bcoins and the mega coin %megacoinsfile3 ! Check your mega coins by typing in !mega :D
  1302. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1303. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1304. var %jackpotwon = $calc(%currentPoints + %Ljackpot)
  1305. var %jackpotwon2 = $calc(%currentPoints2 + %Ljackpot)
  1306. $addmega3($nick)
  1307. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1308. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1309. writeini -n %megacoins3 $findcoins3(%nickslot) coin3 $chr(40) PogChamp $chr(41)
  1310. INC %Winners
  1311. SET %Last.Winner %nickslot
  1312. SET %Last.Amount %Ljackpot
  1313. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Ljackpot)
  1314. SET %Ljackpot 600
  1315. }
  1316. elseIF (%col.0 == %symbol.2) && (%col.1 == %symbol.2) && (%col.2 == %symbol.2) {
  1317. SET %winlineslot %nickslot just won %Ljackpot bcoins!
  1318. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1319. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1320. var %jackpotwon = $calc(%currentPoints + %Ljackpot)
  1321. var %jackpotwon2 = $calc(%currentPoints2 + %Ljackpot)
  1322.  
  1323. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1324. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1325.  
  1326. INC %Winners
  1327. SET %Last.Winner %nickslot
  1328. SET %Last.Amount %Ljackpot
  1329. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Ljackpot)
  1330. SET %Ljackpot 600
  1331. }
  1332. elseIF (%col.0 == %symbol.3) && (%col.1 == %symbol.3) && (%col.2 == %symbol.3) && (%col.3 == %symbol.8) && (%ID4 == 0) {
  1333. SET %winlineslot %nickslot just won %Xjackpot bcoins and the mega coin %megacoinsfile4 ! Check your mega coins by typing in !mega :D
  1334. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1335. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1336. var %jackpotwon = $calc(%currentPoints + %Xjackpot)
  1337. var %jackpotwon2 = $calc(%currentPoints2 + %Xjackpot)
  1338. $addmega4($nick)
  1339. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1340. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1341. writeini -n %megacoins4 $findcoins4(%nickslot) coin4 $chr(40) GasJoker $chr(41)
  1342. INC %Winners
  1343. SET %Last.Winner %nickslot
  1344. SET %Last.Amount %Xjackpot
  1345. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Xjackpot )
  1346. SET %Xjackpot 800
  1347. }
  1348. elseIF (%col.0 == %symbol.3) && (%col.1 == %symbol.3) && (%col.2 == %symbol.3) {
  1349. SET %winlineslot %nickslot just won %Xjackpot bcoins!
  1350. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1351. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1352. var %jackpotwon = $calc(%currentPoints + %Xjackpot)
  1353. var %jackpotwon2 = $calc(%currentPoints2 + %Xjackpot)
  1354.  
  1355. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1356. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1357.  
  1358. INC %Winners
  1359. SET %Last.Winner %nickslot
  1360. SET %Last.Amount %Xjackpot
  1361. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Xjackpot )
  1362. SET %Xjackpot 800
  1363. }
  1364. elseIF (%col.0 == %symbol.4) && (%col.1 == %symbol.4) && (%col.2 == %symbol.4) && (%col.3 == %symbol.8) && (%ID5 == 0) {
  1365. SET %winlineslot HOLY! %nickslot just won %jackpot bcoins!! PogChamp %nickslot has also earned the %megacoinsfile5 mega coin! Check your mega coins by typing in !mega :D!
  1366. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1367. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1368. var %jackpotwon = $calc(%currentPoints + %jackpot)
  1369. var %jackpotwon2 = $calc(%currentPoints2 + %jackpot)
  1370. $addmega5($nick)
  1371. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1372. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1373. writeini -n %megacoins5 $findcoins5(%nickslot) coin5 $chr(40) deIlluminati $chr(41)
  1374. INC %Winners
  1375. SET %Last.Winner %nickslot
  1376. SET %Last.Amount %jackpot
  1377. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %jackpot)
  1378. SET %jackpot 15000
  1379. }
  1380. elseIF (%col.0 == %symbol.4) && (%col.1 == %symbol.4) && (%col.2 == %symbol.4) {
  1381. SET %winlineslot %nickslot just won %Tjackpot bcoins!
  1382. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1383. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1384. var %jackpotwon = $calc(%currentPoints + %Tjackpot)
  1385. var %jackpotwon2 = $calc(%currentPoints2 + %Tjackpot)
  1386.  
  1387. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1388. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1389.  
  1390. INC %Winners
  1391. SET %Last.Winner %nickslot
  1392. SET %Last.Amount %jackpot
  1393. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Tjackpot)
  1394. SET %Tjackpot 1200
  1395. }
  1396. elseIF (%col.0 == %symbol.5) && (%col.1 == %symbol.5) && (%col.2 == %symbol.5) && (%col.3 == %symbol.8) && (%ID6 == 0) {
  1397. SET %winlineslot %nickslot just won %Ujackpot bcoins and the mega coin %megacoinsfile6 ! Check your mega coins by typing in !mega :D
  1398. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1399. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1400. var %jackpotwon = $calc(%currentPoints + %Ujackpot)
  1401. var %jackpotwon2 = $calc(%currentPoints2 + %Ujackpot)
  1402. $addmega6($nick)
  1403. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1404. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1405. writeini -n %megacoins6 $findcoins6(%nickslot) coin6 $chr(40) Kappa $chr(41)
  1406. INC %Winners
  1407. SET %Last.Winner %nickslot
  1408. SET %Last.Amount %Ujackpot
  1409. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Ujackpot )
  1410. SET %Ujackpot 1000
  1411. }
  1412. elseIF (%col.0 == %symbol.5) && (%col.1 == %symbol.5) && (%col.2 == %symbol.5) {
  1413. SET %winlineslot %nickslot just won %Ujackpot bcoins!
  1414. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
  1415. var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
  1416. var %jackpotwon = $calc(%currentPoints + %Ujackpot)
  1417. var %jackpotwon2 = $calc(%currentPoints2 + %Ujackpot)
  1418.  
  1419. writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
  1420. writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
  1421.  
  1422. INC %Winners
  1423. SET %Last.Winner %nickslot
  1424. SET %Last.Amount %Ujackpot
  1425. SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %Ujackpot )
  1426. SET %Ujackpot 1000
  1427. }
  1428.  
  1429.  
  1430. MSG %chanslot 20 bcoins placed in the machine! Good luck! ::: %col.0 %col.1 %col.2 ::: $iif(%winlineslot == $null, Unlucky BibleThump ,%nickslot won!! Kreygasm)
  1431.  
  1432. IF (%winlineslot != $null) AMSG %winlineslot
  1433. UNSET %winlineslot
  1434. }
  1435. alias -l addmega {
  1436. writeini -n %megacoins $calc(%megaID + 1) name $1
  1437. inc %megaID
  1438. }
  1439. alias -l addmega2 {
  1440. writeini -n %megacoins2 $calc(%megaID2 + 1) name $1
  1441. inc %megaID2
  1442. }
  1443. alias -l addmega3 {
  1444. writeini -n %megacoins3 $calc(%megaID3 + 1) name $1
  1445. inc %megaID3
  1446. }
  1447. alias -l addmega4 {
  1448. writeini -n %megacoins4 $calc(%megaID4 + 1) name $1
  1449. inc %megaID4
  1450. }
  1451. alias -l addmega5 {
  1452. writeini -n %megacoins5 $calc(%megaID5 + 1) name $1
  1453. inc %megaID5
  1454. }
  1455. alias -l addmega6 {
  1456. writeini -n %megacoins6 $calc(%megaID6 + 1) name $1
  1457. inc %megaID6
  1458. }
  1459. on *:text:!items:#: {
  1460. msg $chan The items and their values: 4Head = 200, Shazam = 400, PogChamp = 600, GasJoker = 800, Kappa = 1000, deIlluminati = 1200, and SEVEN + Secret = jackpot (NOTE: jackpots for each will increase if no one wins!)
  1461. }
  1462. on *:TEXT:!stats*:#:{
  1463. SET %tmpnick $iif($2 == $null,$nick,$2)
  1464. SET %tmpwon $iif( %slot.win. [ $+ [ %tmpnick ] ] == $null,0, %slot.win. [ $+ [ %tmpnick ] ] )
  1465. SET %tmplose $iif( %slot.lose. [ $+ [ %tmpnick ] ] == $null,0, %slot.lose. [ $+ [ %tmpnick ] ] )
  1466. MSG $chan %tmpnick $+ 's Slot Machine stats: Won Amount: %tmpwon Lost games: %tmplose Net: $calc(%tmpwon - %tmplose)
  1467. msg $chan $nick Last winner was: %Last.Winner and they won %Last.Amount bcoins
  1468. msg $chan  Number of Winners: %Winners
  1469.  
  1470. }
  1471. on *:text:!jackpot:#: {
  1472. msg $chan Current jackpot for 3 deIlluminati (with secret item match) is %jackpot
  1473. msg $chan Current jackpot for 3 4Head is %Sjackpot
  1474. msg $chan Current jackpot for 3 Shazam is %Mjackpot
  1475. msg $chan Current jackpot for 3 PogChamp is %Ljackpot
  1476. msg $chan Current jackpot for 3 GasJoker is %Xjackpot
  1477. msg $chan Current jackpot for 3 Kappa is %Ujackpot
  1478. msg $chan Current Jackpot for 3 deIlluminati is %Tjackpot
  1479. }
  1480.  
  1481. alias -l findID {
  1482. var %file = $1
  1483. var %ID = $2
  1484. var %user = $3
  1485. var %i = 1
  1486. while (%i <= %ID) {
  1487. if ($readini(%file, %i, name) == %user) {
  1488. return %i
  1489. }
  1490. inc %i
  1491. }
  1492. return 0
  1493. }
  1494. alias -l findIDID {
  1495. var %searchName = $1
  1496. var %i = 1
  1497.  
  1498. while (%i <= %pointsID) {
  1499. var %name = $readini(%pointsfile, %i, name)
  1500. if (%name == %searchName) {
  1501. return %i
  1502. }
  1503. inc %i
  1504. }
  1505.  
  1506. return 0
  1507. }
  1508. ; {}
  1509. alias -l findIDIDIDIDID {
  1510. var %searchName = $nick
  1511. var %i = 1
  1512.  
  1513. while (%i <= %pointsID2) {
  1514. var %name = $readini(%pointsfile2, %i, name)
  1515. if (%name == %searchName) {
  1516. return %i
  1517. }
  1518. inc %i
  1519. }
  1520.  
  1521. return 0
  1522. }
  1523. alias -l findcoins {
  1524. var %searchName = $nick
  1525. var %i = 1
  1526.  
  1527. while (%i <= %megaID) {
  1528. var %name = $readini(%megacoins, %i, name)
  1529. if (%name == %searchName) {
  1530. return %i
  1531. }
  1532. inc %i
  1533. }
  1534.  
  1535. return 0
  1536. }
  1537. alias -l findcoins2 {
  1538. var %searchName = $nick
  1539. var %i = 1
  1540.  
  1541. while (%i <= %megaID2) {
  1542. var %name = $readini(%megacoins2, %i, name)
  1543. if (%name == %searchName) {
  1544. return %i
  1545. }
  1546. inc %i
  1547. }
  1548.  
  1549. return 0
  1550. }
  1551. alias -l findcoins3 {
  1552. var %searchName = $nick
  1553. var %i = 1
  1554.  
  1555. while (%i <= %megaID3) {
  1556. var %name = $readini(%megacoins3, %i, name)
  1557. if (%name == %searchName) {
  1558. return %i
  1559. }
  1560. inc %i
  1561. }
  1562.  
  1563. return 0
  1564. }
  1565. alias -l findcoins4 {
  1566. var %searchName = $nick
  1567. var %i = 1
  1568.  
  1569. while (%i <= %megaID4) {
  1570. var %name = $readini(%megacoins4, %i, name)
  1571. if (%name == %searchName) {
  1572. return %i
  1573. }
  1574. inc %i
  1575. }
  1576.  
  1577. return 0
  1578. }
  1579. alias -l findcoins5 {
  1580. var %searchName = $nick
  1581. var %i = 1
  1582.  
  1583. while (%i <= %megaID5) {
  1584. var %name = $readini(%megacoins5, %i, name)
  1585. if (%name == %searchName) {
  1586. return %i
  1587. }
  1588. inc %i
  1589. }
  1590.  
  1591. return 0
  1592. }
  1593. alias -l findcoins6 {
  1594. var %searchName = $nick
  1595. var %i = 1
  1596.  
  1597. while (%i <= %megaID6) {
  1598. var %name = $readini(%megacoins6, %i, name)
  1599. if (%name == %searchName) {
  1600. return %i
  1601. }
  1602. inc %i
  1603. }
  1604.  
  1605. return 0
  1606. }
  1607. ------------------------------------------------------------------------------------------
  1608. on *:TEXT:!top5:#: {
  1609. run_top5 #
  1610. }
  1611. alias run_top5 {
  1612. window -h @. | var %i 1
  1613. while $ini(C:\Users\Brad\Desktop\Songlist\points2.ini,%i) {
  1614. var %n $v1
  1615. aline @. $gettok($remove(%n,[,]),2,46) $readini(C:\Users\Brad\Desktop\Songlist\points2.ini,%n,points) $readini(C:\Users\Brad\Desktop\Songlist\points2.ini,%n,name)
  1616. inc %i
  1617. }
  1618. filter -cetuww 1 32 @. @.
  1619. var %i 1 | while %i <= 5 {
  1620. var %list $addtok(%list,$line(@.,%i),44)
  1621. inc %i
  1622. }
  1623. msg $chan Top 5 bcoins earners are: $replace(%list,$chr(44),$+($chr(44),$chr(32)))
  1624. window -c @.
  1625. }
  1626. ------------------------------------------------------------------------------------------
  1627. on *:text:!d *:#: {
  1628. var %songnick $+(30, $nick)
  1629. var %timerDD $+(dd)
  1630. if ($timer(%timerDD) != $null) && ($nick != %player1) && ($2 != %opponent) {
  1631. msg $chan A Duel is currently going on! Please wait $timer(%timerDD).secs until you can start a match!
  1632.  
  1633.  
  1634. }
  1635.  
  1636. elseif ($timer(%songnick) != $null) {
  1637. msg $chan You're currently in a duel or just ended one! please wait $timer(%songnick).secs until your match timer expires!
  1638.  
  1639.  
  1640. }
  1641.  
  1642. elseif ($timer(%songnick) == $null) {
  1643. SET %player1 $nick
  1644. SET %opponent $2
  1645. var %IDexist = $readini(%pointsfile, $findID(%opponent), name)
  1646. var %songnick $+(30, $nick)
  1647. var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
  1648. var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
  1649. var %pointstoplay $3
  1650. var %bcoinsused $calc(%currentPoints - %pointstoplay)
  1651. var %bcoinsused2 $calc(%currentPoints2 - %pointstoplay)
  1652. if ($2 == $nick) {
  1653. msg $chan You cannot duel yourself!
  1654. unset %dd
  1655. unset %ddr.*
  1656. unset %pot
  1657. unset %opponent
  1658. unset %player1
  1659. unset %pot2
  1660. | halt
  1661.  
  1662. }
  1663. elseif ($2 != %IDexist) {
  1664. msg $chan The opponent must exist in the bcoins list in order to be dueled!
  1665. unset %dd
  1666. unset %ddr.*
  1667. unset %pot
  1668. unset %opponent
  1669. unset %player1
  1670. unset %pot2
  1671. | halt
  1672.  
  1673. }
  1674. elseif (%pointstoplay > 5000) {
  1675. msg $chan You must bet less than/equal to 5000 bcoins!
  1676. unset %dd
  1677. unset %ddr.*
  1678. unset %pot
  1679. unset %opponent
  1680. unset %player1
  1681. unset %pot2
  1682. | halt
  1683.  
  1684. }
  1685. elseif (%currentPoints < %pointstoplay) || (%currentPoints2 < %pointstoplay) {
  1686. msg $chan you or your opponent do not have enough bcoins to dice duel!
  1687. unset %dd
  1688. unset %ddr.*
  1689. unset %pot
  1690. unset %opponent
  1691. unset %player1
  1692. unset %pot2
  1693. | halt
  1694.  
  1695. }
  1696. elseif (%currentPoints >= %pointstoplay) && (%currentPoints2 >= %pointstoplay) {
  1697. set %dd $nick $2 $3
  1698. SET %pot $calc($3 * 2)
  1699. SET %pot2 $3
  1700. writeini -n %pointsfile $findIDID(%player1) points %bcoinsused
  1701. writeini -n %pointsfile $findID(%opponent) points %bcoinsused2
  1702. msg $chan Dice duel between $nick and $2 for %pot bcoins! ; Type !broll.
  1703. TIMER [ $+ [ %songnick ] ] 1 90 msg $chan $nick The match timer has expired! You may now Duel again!
  1704. .timerDD 1 90 EndDD
  1705. }
  1706. else {
  1707. msg $chan You need to specify the amount!
  1708. }
  1709. }
  1710. }
  1711. on *:text:!broll:#: {
  1712. if (!%dd) { msg $chan  No duel in progress. | halt }
  1713. if (!$istok(%dd,$nick,32)) { msg $chan You are not one of the duelists. | halt }
  1714. if ($($+(%,ddr.,$nick),2)) { msg $chan You have already rolled. | halt }
  1715. var %r = $rand(2,12), %d1 = $gettok(%dd,1,32), %d2 = $gettok(%dd,2,32)
  1716. var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
  1717. var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
  1718. var %currentPoints3 = $readini(%pointsfile2, $findIDIDIDIDID(%player1), points)
  1719. var %currentPoints4 = $readini(%pointsfile2, $findID2(%opponent), points)
  1720. set %ddr. $+ $nick %r
  1721. msg $chan  $nick rolled a %r $+ .
  1722. var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2), %r2 = $($+(%,ddr.,$gettok(%dd,2,32)),2)
  1723. if (%r1 && %r2) {
  1724. if (%r1 > %r2) {
  1725. writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot)
  1726. writeini -n %pointsfile2 $findIDIDIDIDID(%player1) points $calc(%currentPoints3 + %pot2)
  1727. msg $chan  %d1 won the %pot bcoin pot with a %r1 $+ - $+ %r2 $+ .
  1728.  
  1729. }
  1730. elseif (%r2 > %r1) {
  1731. writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot)
  1732. writeini -n %pointsfile2 $findID2(%opponent) points $calc(%currentPoints4 + %pot2)
  1733. msg $chan  %d2 won the %pot bcoin pot with a %r2 $+ - $+ %r1 $+ .
  1734.  
  1735. }
  1736. elseif (%r1 == %r2) {
  1737. writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot2)
  1738. writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot2)
  1739. msg $chan  %d1 and %d2 tied with a %r1 $+ - $+ %r2 $+ .
  1740. }
  1741. unset %dd
  1742. unset %ddr.*
  1743. unset %pot
  1744. unset %player1
  1745. unset %opponent
  1746. unset %pot2
  1747. .timerDD off
  1748. }
  1749. }
  1750. alias EndDD {
  1751.  
  1752. var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
  1753. var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
  1754. writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot2)
  1755. writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot2)
  1756. unset %dd
  1757. unset %ddr.*
  1758. unset %pot
  1759. unset %opponent
  1760. unset %player1
  1761. unset %pot2
  1762.  
  1763. }
  1764.  
  1765. alias -l findIDID {
  1766. var %searchName = %player1
  1767. var %i = 1
  1768.  
  1769. while (%i <= %pointsID) {
  1770. var %name = $readini(%pointsfile, %i, name)
  1771. if (%name == %searchName) {
  1772. return %i
  1773. }
  1774. inc %i
  1775. }
  1776.  
  1777. return 0
  1778. }
  1779. alias -l findIDIDIDIDID {
  1780. var %searchName = %player1
  1781. var %i = 1
  1782.  
  1783. while (%i <= %pointsID2) {
  1784. var %name = $readini(%pointsfile2, %i, name)
  1785. if (%name == %searchName) {
  1786. return %i
  1787. }
  1788. inc %i
  1789. }
  1790.  
  1791. return 0
  1792. }
  1793. alias -l findID {
  1794. var %searchName = %opponent
  1795. var %i = 1
  1796.  
  1797. while (%i <= %pointsID) {
  1798. var %name = $readini(%pointsfile, %i, name)
  1799. if (%name == %searchName) {
  1800. return %i
  1801. }
  1802. inc %i
  1803. }
  1804.  
  1805. return 0
  1806. }
  1807. alias -l findID2 {
  1808. var %searchName = %opponent
  1809. var %i = 1
  1810.  
  1811. while (%i <= %pointsID2) {
  1812. var %name = $readini(%pointsfile2, %i, name)
  1813. if (%name == %searchName) {
  1814. return %i
  1815. }
  1816. inc %i
  1817. }
  1818.  
  1819. return 0
  1820. }
  1821.  
  1822. on *:text:!sdt:#: {
  1823. if ($nick isop #) {
  1824. var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
  1825. var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
  1826. writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot2)
  1827. writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot2)
  1828. unset %dd
  1829. unset %ddr.*
  1830. unset %pot
  1831. unset %opponent
  1832. unset %player1
  1833. unset %pot2
  1834.  
  1835. .timerDD off
  1836. msg $chan The dice timer has been turned off!
  1837. }
  1838. }
  1839. -------------------------------------------------------------------------------------
  1840. on 2:text:!ticket:#: {
  1841. var %raffle $+(99, $nick)
  1842. var %currentPoints = $readini(%pointsfile, $findIDID($nick), points)
  1843. var %file_search C:\Users\Brad\Desktop\Songlist\Raffle.txt
  1844. var %raffleentry = $nick
  1845. var %Read_text (%file_search,r,%raffleentry)
  1846. var %bcoinsused = $calc(%currentPoints - 1000)
  1847.  
  1848.  
  1849.  
  1850.  
  1851. if (%currentPoints >= 1000) && ($timer(%raffle) == $null) {
  1852.  
  1853. write C:\Users\Brad\Desktop\Songlist\Raffle.txt %raffleentry
  1854. writeini -n %pointsfile $findIDID($nick) points %bcoinsused
  1855. msg $chan 1,000 bcoins have been deducted and your raffe entry has been saved!
  1856. TIMER [ $+ [ %raffle ] ] 1 300 msg $chan $nick You may now add another entry!
  1857.  
  1858.  
  1859. }
  1860. elseif (%currentPoints < 1000) {
  1861.  
  1862. msg $chan You must have at least 1,000 bcoins to enter your name into the raffle!
  1863.  
  1864.  
  1865. }
  1866. else {
  1867. msg $chan Please wait $timer(%raffle).secs seconds before adding another entry :)
  1868. }
  1869. }
  1870. on 2:text:!draw:#: {
  1871.  
  1872. msg $chan The winner of the raffle is $read(C:\Users\Brad\Desktop\Songlist\raffle.txt,n)
  1873.  
  1874.  
  1875. }
  1876. on 2:text:!clrf:#: {
  1877. write -c C:\Users\Brad\Desktop\Songlist\Raffle.txt
  1878. msg $chan clearing raffle entries..
  1879. }
  1880. // ------------------------------------------------------------------------------------------------
  1881. alias -l findIDID {
  1882. var %searchName = $1
  1883. var %i = 1
  1884.  
  1885. while (%i <= %pointsID) {
  1886. var %name = $readini(%pointsfile, %i, name)
  1887. if (%name == %searchName) {
  1888. return %i
  1889. }
  1890. inc %i
  1891. }
  1892.  
  1893. return 0
  1894. }
  1895. ------------------------------------------------------------------------------------------------
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!