API tools faq
paste
Advertisement
Bradmasta

Code for Tomas

Bradmasta
Nov 4th, 2015
125
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.87 KB | None | 0 0
raw download clone embed print report
  1. on *:LOAD:{
  2. SET %symbol.10  EvilFetus 
  3. SET %symbol.11  MrDestructoid 
  4. SET %symbol.12  BabyRage 
  5. SET %symbol.13  OSsloth 
  6. SET %symbol.14  AtGL 
  7. SET %symbol.15  KappaPride 
  8. SET %symbol.16  PraiseIt 
  9. SET %symbol.8  Apple 
  10. }
  11.  
  12. on *:text:!thc:#: {
  13.  
  14. var %flowersnick $nick
  15. var %points = $readini(%pointsfile, $findIDID(%flowersnick), points)
  16. var %ID = $readini(%pointsfile2, $findIDID(%flowersnick), name)
  17.  
  18. IF (%ID == $null) {
  19. msg $chan $nick You haven't started earning bcoins in this channel yet! Type in !join to start earning them! :)
  20.  
  21. }
  22. ELSEIF (%points >= 5000) {
  23.  
  24. flowersetup
  25. }
  26. ELSE {
  27. msg $chan You don't have enough bcoins to play! You need $calc(20000 - %points) more bcoins to play!
  28. }
  29. }
  30.  
  31. alias -l flowersetup {
  32. SET %flowerslot $nick
  33. SET %chanslots $chan
  34. var %flowernick $+(12345, $nick)
  35. IF ($timer(%flowernick) == $null) {
  36. TIMER [ $+ [ %flowernick ] ] 1 86400 msg $chan %flowerslot You may now play Twitch Hot Cold again! :)
  37. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  38. var %pointstoplay = 5000
  39. var %bcoinsused = $calc(%currentPoints - %pointstoplay)
  40.  
  41. writeini -n %pointsfile $findIDID(%flowerslot) points %bcoinsused
  42.  
  43. playpoker
  44. }
  45. ELSE {
  46. msg $chan $nick You can only play Twitch Hot Cold ocne per stream.
  47.  
  48. }
  49. }
  50. alias -l playpoker {
  51. SET %col.8 %symbol. [ $+ [ $rand(10,16) ] ]
  52. SET %col.9 %symbol. [ $+ [ $rand(0,16) ] ]
  53. SET %col.10 %symbol. [ $+ [ $rand(7,11) ] ]
  54. var %ID = $findcoins(%megacoins, %megaID, $1)
  55. var %ID2 = $findcoins2(%megacoins2, %megaID2, $1)
  56. var %ID3 = $findcoins3(%megacoins3, %megaID3, $1)
  57. var %ID4 = $findcoins4(%megacoins4, %megaID4, $1)
  58. var %ID5 = $findcoins5(%megacoins5, %megaID5, $1)
  59. var %ID6 = $findcoins6(%megacoins6, %megaID6, $1)
  60. var %coins1 = $readini(%megacoins, $findcoins($nick), coin1)
  61. var %coins2 = $readini(%megacoins2, $findcoins2($nick), coin2)
  62. var %coins3 = $readini(%megacoins3, $findcoins3($nick), coin3)
  63. var %coins4 = $readini(%megacoins4, $findcoins4($nick), coin4)
  64. var %coins5 = $readini(%megacoins5, $findcoins5($nick), coin5)
  65. var %coins6 = $readini(%megacoins6, $findcoins6($nick), coin6)
  66. var %megacoinsfile = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,1)
  67. var %megacoinsfile2 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,2)
  68. var %megacoinsfile3 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,3)
  69. var %megacoinsfile4 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,4)
  70. var %megacoinsfile5 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,5)
  71. var %megacoinsfile6 = $read(C:\Users\Brad\Desktop\Songlist\megacoinsfile.txt,6)
  72.  
  73.  
  74. if (%col.8 == %symbol.10) || (%col.8 == %symbol.11) || (%col.8 == %symbol.12) {
  75. msg $chan %col.8 was chosen, %flowerslot unlucky BibleThump D:
  76. }
  77. elseif (%col.8 == %symbol.13) {
  78. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  79. var %jackpotwon = $calc(%currentPoints + 5000)
  80.  
  81.  
  82. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  83. msg $chan %symbol.13 has been chosen! %flowerslot gets their money back Kappa
  84.  
  85. }
  86. elseif (%col.8 == %symbol.14) {
  87. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  88. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  89. var %jackpotwon = $calc(%currentPoints + 10000)
  90. var %jackpotwon2 = $calc(%currentPoints2 + 10000)
  91.  
  92. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  93. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  94. msg $chan %symbol.14 has been chosen! %flowerslot wins 10,000 bcoins! PogChamp
  95.  
  96. }
  97. elseif (%col.8 == %symbol.15) {
  98. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  99. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  100. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  101. var %jackpotwon = $calc(%currentPoints + 20000)
  102. var %jackpotwon2 = $calc(%currentPoints2 + 20000)
  103.  
  104. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  105. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  106. msg $chan %symbol.15 has been chosen! %flowerslot wins 20,000 bcoins!! PogChamp Kreygasm
  107.  
  108. }
  109. elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%col.10 == %symbol.10) {
  110. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  111. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  112. var %jackpotwon = $calc(%currentPoints + 1000000)
  113. var %jackpotwon2 = $calc(%currentPoints2 + 1000000)
  114.  
  115. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  116. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  117. msg $chan %symbol.16 has been chosen! %flowerslot also wins the secret jackpot of 1,000,000 bcoins!
  118. }
  119. elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID == 0) {
  120. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  121. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  122. var %jackpotwon = $calc(%currentPoints + 30000)
  123. var %jackpotwon2 = $calc(%currentPoints2 + 30000)
  124. $addmega($nick)
  125. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  126. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  127. writeini -n %megacoins $findcoins(%flowerslot) coin1 $chr(40) 4Head $chr(41)
  128. msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin %megacoinsfile ! PogChamp :D
  129. }
  130. elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID2 == 0) {
  131. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  132. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  133. var %jackpotwon = $calc(%currentPoints + 30000)
  134. var %jackpotwon2 = $calc(%currentPoints2 + 30000)
  135. $addmega2($nick)
  136. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  137. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  138. writeini -n %megacoins2 $findcoins2(%flowerslot) coin2 $chr(40) Shazam $chr(41)
  139. msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin %megacoinsfile2 ! PogChamp :D
  140.  
  141. }
  142. elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID3 == 0) {
  143. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  144. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  145. var %jackpotwon = $calc(%currentPoints + 30000)
  146. var %jackpotwon2 = $calc(%currentPoints2 + 30000)
  147. $addmega3($nick)
  148. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  149. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  150. writeini -n %megacoins3 $findcoins3(%flowerslot) coin3 $chr(40) PogChamp $chr(41)
  151. msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin %megacoinsfile3 ! PogChamp :D
  152. }
  153. elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID4 == 0) {
  154. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  155. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  156. var %jackpotwon = $calc(%currentPoints + 30000)
  157. var %jackpotwon2 = $calc(%currentPoints2 + 30000)
  158. $addmega4($nick)
  159. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  160. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  161. writeini -n %megacoins4 $findcoins4(%flowerslot) coin4 $chr(40) GasJoker $chr(41)
  162. msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin %megacoinsfile4 ! PogChamp :D
  163. }
  164. elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID5 == 0) {
  165. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  166. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  167. var %jackpotwon = $calc(%currentPoints + 30000)
  168. var %jackpotwon2 = $calc(%currentPoints2 + 30000)
  169. $addmega5($nick)
  170. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  171. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  172. writeini -n %megacoins5 $findcoins5(%flowerlot) coin5 $chr(40) deIlluminati $chr(41)
  173. msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin %megacoinsfile5 ! PogChamp :D
  174. }
  175. elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID6 == 0) {
  176. var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
  177. var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
  178. var %jackpotwon = $calc(%currentPoints + 30000)
  179. var %jackpotwon2 = $calc(%currentPoints2 + 30000)
  180. $addmega6($nick)
  181. writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
  182. writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
  183. writeini -n %megacoins6 $findcoins6(%flowerslot) coin6 $chr(40) Kappa $chr(41)
  184. msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin %megacoinsfile6 ! PogChamp :D
  185. }
  186.  
  187.  
  188. }
  189. alias -l addmega {
  190. writeini -n %megacoins $calc(%megaID + 1) name $1
  191. inc %megaID
  192. }
  193. alias -l addmega2 {
  194. writeini -n %megacoins2 $calc(%megaID2 + 1) name $1
  195. inc %megaID2
  196. }
  197. alias -l addmega3 {
  198. writeini -n %megacoins3 $calc(%megaID3 + 1) name $1
  199. inc %megaID3
  200. }
  201. alias -l addmega4 {
  202. writeini -n %megacoins4 $calc(%megaID4 + 1) name $1
  203. inc %megaID4
  204. }
  205. alias -l addmega5 {
  206. writeini -n %megacoins5 $calc(%megaID5 + 1) name $1
  207. inc %megaID5
  208. }
  209. alias -l addmega6 {
  210. writeini -n %megacoins6 $calc(%megaID6 + 1) name $1
  211. inc %megaID6
  212. }
  213.  
  214. alias -l findID {
  215. var %file = $1
  216. var %ID = $2
  217. var %user = $3
  218. var %i = 1
  219. while (%i <= %ID) {
  220. if ($readini(%file, %i, name) == %user) {
  221. return %i
  222. }
  223. inc %i
  224. }
  225. return 0
  226. }
  227. alias -l findIDID {
  228. var %searchName = $1
  229. var %i = 1
  230.  
  231. while (%i <= %pointsID) {
  232. var %name = $readini(%pointsfile, %i, name)
  233. if (%name == %searchName) {
  234. return %i
  235. }
  236. inc %i
  237. }
  238.  
  239. return 0
  240. }
  241. ; {}
  242. alias -l findIDIDIDIDID {
  243. var %searchName = $nick
  244. var %i = 1
  245.  
  246. while (%i <= %pointsID2) {
  247. var %name = $readini(%pointsfile2, %i, name)
  248. if (%name == %searchName) {
  249. return %i
  250. }
  251. inc %i
  252. }
  253.  
  254. return 0
  255. }
  256. alias -l findcoins {
  257. var %searchName = $nick
  258. var %i = 1
  259.  
  260. while (%i <= %megaID) {
  261. var %name = $readini(%megacoins, %i, name)
  262. if (%name == %searchName) {
  263. return %i
  264. }
  265. inc %i
  266. }
  267.  
  268. return 0
  269. }
  270. alias -l findcoins2 {
  271. var %searchName = $nick
  272. var %i = 1
  273.  
  274. while (%i <= %megaID2) {
  275. var %name = $readini(%megacoins2, %i, name)
  276. if (%name == %searchName) {
  277. return %i
  278. }
  279. inc %i
  280. }
  281.  
  282. return 0
  283. }
  284. alias -l findcoins3 {
  285. var %searchName = $nick
  286. var %i = 1
  287.  
  288. while (%i <= %megaID3) {
  289. var %name = $readini(%megacoins3, %i, name)
  290. if (%name == %searchName) {
  291. return %i
  292. }
  293. inc %i
  294. }
  295.  
  296. return 0
  297. }
  298. alias -l findcoins4 {
  299. var %searchName = $nick
  300. var %i = 1
  301.  
  302. while (%i <= %megaID4) {
  303. var %name = $readini(%megacoins4, %i, name)
  304. if (%name == %searchName) {
  305. return %i
  306. }
  307. inc %i
  308. }
  309.  
  310. return 0
  311. }
  312. alias -l findcoins5 {
  313. var %searchName = $nick
  314. var %i = 1
  315.  
  316. while (%i <= %megaID5) {
  317. var %name = $readini(%megacoins5, %i, name)
  318. if (%name == %searchName) {
  319. return %i
  320. }
  321. inc %i
  322. }
  323.  
  324. return 0
  325. }
  326. alias -l findcoins6 {
  327. var %searchName = $nick
  328. var %i = 1
  329.  
  330. while (%i <= %megaID6) {
  331. var %name = $readini(%megacoins6, %i, name)
  332. if (%name == %searchName) {
  333. return %i
  334. }
  335. inc %i
  336. }
  337.  
  338. return 0
  339. }
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!