API tools faq
paste
Advertisement
Guest User

casino slots

a guest
Jun 9th, 2013
170
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 9.46 KB | None | 0 0
raw download clone embed print report
  1. --Written by the driver87 for use with CC and tekkit pack in making a funciton slot machine--
  2.  
  3. --revision date 6/9/2013--
  4.  
  5. -- declare variables--
  6. local payoff= 256 -- this value is the number of items that are avaiable for payout --
  7. local payout=0 -- this number will change to the proper payout and is not a setting only a place holder
  8. local matches=0
  9. local pside="right" -- side of the coin counter
  10. local monside="top" -- set the side of the monitor
  11. local sside="bottom" -- set the side of the payment machine is dispenser or RS engine
  12. local spd=.1 -- time of the ticks between parts of the advetisment higher is slower--
  13. local white=1-- set a color table to use for setting colors easily
  14. local orange=2
  15. local mag=4
  16. local lblu=8
  17. local yell=16
  18. local lime=32
  19. local pink= 64
  20. local gray= 128
  21. local lightg=256
  22. local cyan=512
  23. local purple=1024
  24. local blue=2048
  25. local brown= 4096
  26. local green= 8192
  27. local red=16384
  28. local black=32768
  29. local cl1=gray -- background color1
  30. local cl2=black -- background color2 also reel color
  31. local cl3=red -- background color3 also reel color
  32. local cl4=orange -- extra advert and winning color
  33. local cl5=yell -- text color
  34. local payed=false
  35. ------------------------payout settings for different match styles-------------
  36. local horpay=2
  37. local linepay=4
  38. local diagpay=2
  39. local doublepay=8
  40. local jackpot=10 -- a jackpot bonus and will be added to total of all matches
  41. mon=peripheral.wrap(monside)
  42. local totalx, totaly=mon.getSize()
  43. mon.setBackgroundColor(cl1)
  44. -- produce functions --
  45. local function drawreel(totalx,totaly,rnum) -- draws each reel placed by rnum 1,2,3 and "moves it" each tick based on the speed value--
  46. x1=totalx-totalx+2
  47. x2=totalx/2
  48. x3=totalx-2
  49.     if rnum==1 then -- gets the reel positon   
  50.     e=totaly+1
  51.     o=totaly
  52.         for i=1,totaly do
  53.             e=e-2
  54.             o=o-2
  55.             mon.setTextColor(cl2)
  56.             mon.setCursorPos(x1,e)
  57.             mon.write("-o-")
  58.             mon.setTextColor(cl3)
  59.             mon.setCursorPos(x1,o)
  60.             mon.write("=0=")
  61.             end
  62.     elseif rnum==2 then
  63.     e=totaly+1
  64.     o=totaly
  65.         for i=1,totaly do
  66.             e=e-2
  67.             o=o-2
  68.             mon.setTextColor(cl2)
  69.             mon.setCursorPos(x2,e)
  70.             mon.write("-o-")
  71.             mon.setTextColor(cl3)
  72.             mon.setCursorPos(x2,o)
  73.             mon.write("=0=")
  74.             end
  75.     elseif rnum==3 then
  76.     e=totaly+1
  77.     o=totaly
  78.         for i=1,totaly do
  79.             e=e-2
  80.             o=o-2
  81.             mon.setTextColor(cl2)
  82.             mon.setCursorPos(x3,e)
  83.             mon.write("-o-")
  84.             mon.setTextColor(cl3)
  85.             mon.setCursorPos(x3,o)
  86.             mon.write("=0=")
  87.             end
  88.     else
  89.     error("mis designated reel")
  90.     end
  91. end
  92. local function drawfin(totalx,totaly,rnum,pick1,pick2,pick3) -- draws each reel placed by rnum 1,2,3 and "moves it" each tick based on the speed value--
  93. x1=totalx-totalx+2
  94. x2=totalx/2
  95. x3=totalx-2
  96.     if rnum==1 then -- gets the reel positon   
  97.     e=totaly+1
  98.     o=totaly
  99.         for i=1,totaly do
  100.             e=e-2
  101.             o=o-2
  102.             mon.setTextColor(cl2)
  103.             mon.setCursorPos(x1,e)
  104.             mon.write("-O-")
  105.             mon.setTextColor(cl3)
  106.             mon.setCursorPos(x1,o)
  107.             mon.write("=o=")
  108.             end
  109.             mon.setCursorPos(x1+1,totaly/2)
  110.             mon.write(pick1)
  111.             mon.setCursorPos(x1+1,totaly/2-2)
  112.             mon.write(pick2)
  113.             mon.setCursorPos(x1+1,totaly/2+2)
  114.             mon.write(pick3)
  115.     elseif rnum==2 then
  116.     e=totaly+1
  117.     o=totaly
  118.         for i=1,totaly do
  119.             e=e-2
  120.             o=o-2
  121.             mon.setTextColor(cl2)
  122.             mon.setCursorPos(x2,e)
  123.             mon.write("-O-")
  124.             mon.setTextColor(cl3)
  125.             mon.setCursorPos(x2,o)
  126.             mon.write("=o=")
  127.             end
  128.             mon.setCursorPos(x2+1,totaly/2)
  129.             mon.write(pick1)
  130.             mon.setCursorPos(x2+1,totaly/2-2)
  131.             mon.write(pick2)
  132.             mon.setCursorPos(x2+1,totaly/2+2)
  133.             mon.write(pick3)
  134.     elseif rnum==3 then
  135.     e=totaly+1
  136.     o=totaly
  137.         for i=1,totaly do
  138.             e=e-2
  139.             o=o-2
  140.             mon.setTextColor(cl2)
  141.             mon.setCursorPos(x3,e)
  142.             mon.write("-O-")
  143.             mon.setTextColor(cl3)
  144.             mon.setCursorPos(x3,o)
  145.             mon.write("=o=")
  146.             end
  147.             mon.setCursorPos(x3+1,totaly/2)
  148.             mon.write(pick1)
  149.             mon.setCursorPos(x3+1,totaly/2-2)
  150.             mon.write(pick2)
  151.             mon.setCursorPos(x3+1,totaly/2+2)
  152.             mon.write(pick3)
  153.     else
  154.     error("mis designated reel")
  155.     end
  156. end
  157. ---------------------------------------------------- spin function is primary generator and graphic drawing function
  158. local function spin(spins)
  159. local matches=0
  160. local totalx, totaly=mon.getSize()
  161. for i=1,spins do -- draw reel one
  162. drawreel(totalx,totaly,1)
  163. os.sleep(.5)
  164. mon.clear()
  165. drawreel(totalx,totaly+1,1)
  166. os.sleep(.5)
  167. mon.clear()
  168. end
  169. mon.clear()
  170. run1a=math.abs(math.random(0,9))
  171. run1b=math.abs(math.random(0,9))
  172. run1c=math.abs(math.random(0,9))
  173. drawfin(totalx,totaly,1,tostring(run1a),tostring(run1b),tostring(run1c)) -- finish reel one
  174. for i=1,spins do -- draw reel 2 while keeping one
  175. drawreel(totalx,totaly,2)
  176. os.sleep(.5)
  177. mon.clear()
  178. drawfin(totalx,totaly,1,tostring(run1a),tostring(run1b),tostring(run1c))
  179. drawreel(totalx,totaly+1,2)
  180. os.sleep(.5)
  181. mon.clear()
  182. drawfin(totalx,totaly,1,tostring(run1a),tostring(run1b),tostring(run1c))
  183. end
  184. run2a=math.random(0,9)
  185. run2b=math.random(0,9)
  186. run2c=math.random(0,9)
  187. drawfin(totalx,totaly,2,tostring(run2a),tostring(run2b),tostring(run2c)) -- finish reel 2
  188. for i=1,spins do
  189. drawreel(totalx,totaly,3)
  190. os.sleep(.5)
  191. mon.clear()
  192. drawfin(totalx,totaly,1,tostring(run1a),tostring(run1b),tostring(run1c))
  193. drawfin(totalx,totaly,2,tostring(run2a),tostring(run2b),tostring(run2c))
  194. drawreel(totalx,totaly+1,3)
  195. os.sleep(.5)
  196. mon.clear()
  197. drawfin(totalx,totaly,1,tostring(run1a),tostring(run1b),tostring(run1c))
  198. drawfin(totalx,totaly,2,tostring(run2a),tostring(run2b),tostring(run2c))
  199. end
  200. run3a=math.floor(math.random(0,9))
  201. run3b=math.floor(math.random(0,9))
  202. run3c=math.floor(math.random(0,9))
  203. drawfin(totalx,totaly,1,tostring(run1a),tostring(run1b),tostring(run1c))
  204. drawfin(totalx,totaly,2,tostring(run2a),tostring(run2b),tostring(run2c))
  205. drawfin(totalx,totaly,3,tostring(run3a),tostring(run3b),tostring(run3c))
  206. end
  207. local function coined(pside) -- listens for a RS signal on the designated side for configuration this is the main loop
  208. while payed==false do
  209. local rEvent, param = os.pullEvent()
  210.     if rEvent == "redstone" then
  211.         if rs.getInput(pside) then
  212.         payed=true
  213.         return
  214.         end
  215.     elseif rEvent == "char" then
  216.         if param =="c" then
  217.         --error()
  218.         end
  219.     end
  220.     end
  221.     end
  222.    
  223. local function checks()
  224. compare(linepay,run1a,run2a,run3a)
  225. compare(linepay,run1b,run2b,run3b)
  226. compare(linepay,run1c,run2c,run3c)
  227. if matches== 2 then
  228. payout=payout+doublepay
  229. end
  230. if matches== 3 then
  231. payout=payout+jackpot
  232. end
  233. compare(diagpay,run1a,run2b,run3c)
  234. compare(diagpay,run1c,run2b,run3a)
  235. compare(horpay,run1a,run1b,run1c)
  236. compare(horpay,run2a,run2b,run2c)
  237. compare(horpay,run3a,run3b,run3c)
  238. while winner do -- paying out loop checks that amount can be paid and then
  239. for i=1,payout do
  240. mon.clear()
  241. mon.setCursorPos(totalx/2-4,totaly/2-1)
  242. mon.setTextColor(2048)
  243. mon.write("!You Win!")
  244. mon.setCursorPos(totalx/2-2,totaly/2+1)
  245. mon.setTextColor(16)
  246. mon.write("$",payout)
  247. if payout>payoff then
  248. mon.clear()
  249. mon.setTextColor(col4)
  250. mon.setCursorPos(totalx/2-5,totaly/2)
  251. mon.write("unable to payout $",payout)
  252. mon.setCursorPos(totalx/2-5,totaly/2)
  253. mon.write("please contact owner")
  254. error("payout exceeded")
  255. end
  256. rs.setOutput(sside,true)
  257. os.sleep(.4)
  258. rs.setOutput(sside,false)
  259. os.sleep(.4)
  260. payout=payout-1
  261. mon.clear()
  262. mon.setCursorPos(totalx/2-4,totaly/2-1)
  263. mon.setTextColor(yell)
  264. mon.write("!You Win!")
  265. mon.setCursorPos(totalx/2-2,totaly/2+1)
  266. mon.setTextColor(red)
  267. mon.write("$",payout)
  268. end
  269. winner=false
  270. end
  271. end
  272. ------------------------------------------------------------------------------
  273. local function compare(value,one,two,three) -- comparative function for diaganols yay
  274. if one==two then
  275.     if two==three then
  276.     winner=true
  277.     payout=payout+value
  278.     matches=matches+1
  279.     end
  280. else
  281. winner=false
  282. end
  283. end
  284.  
  285. local function advert(speed,col1,col2,col3,col4,col5)-- runs along side main loop as a screen saver
  286. while payed==false do
  287. mon.clear()
  288. mon.setBackgroundColor(col4)
  289. for i=1,totalx do
  290. mon.setBackgroundColor(col1)
  291. mon.setTextColor(col2)
  292. mon.setCursorPos(i,1)
  293. mon.write("-")
  294. os.sleep(speed)
  295. mon.setTextColor(col3)
  296. mon.setCursorPos(i+1,1)
  297. mon.write("=")
  298. os.sleep(speed)
  299. end
  300. mon.setBackgroundColor(col1)
  301. for i=1,totaly do
  302. mon.setTextColor(col2)
  303. mon.setCursorPos(totalx,i)
  304. mon.write("|")
  305. mon.setTextColor(col3)
  306. mon.setCursorPos(totalx,i+1)
  307. mon.write("I")
  308. os.sleep(speed)
  309. end
  310. for i=1,totalx do
  311. m=totalx
  312. j=m-i
  313. mon.setTextColor(col2)
  314. mon.setCursorPos(j,totaly)
  315. mon.write("-")
  316. mon.setTextColor(col3)
  317. mon.setCursorPos(j-1,totaly)
  318. mon.write("=")
  319. os.sleep(speed)
  320. end
  321. mon.setBackgroundColor(col1)
  322. for i=1,totaly do
  323. m=totaly
  324. j=m-i
  325. mon.setTextColor(col2)
  326. mon.setCursorPos(1,j)
  327. mon.write("|")
  328. mon.setTextColor(col3)
  329. mon.setCursorPos(1,j-1)
  330. mon.write("I")
  331. os.sleep(speed)
  332. end
  333. mon.setBackgroundColor(col4)
  334. mon.setCursorPos(totalx/2-3,totaly/2-2)
  335. mon.setTextColor(col2)
  336. mon.write("Casino")
  337. os.sleep(1)
  338. for i=1,totalx do
  339. mon.setTextColor(col2)
  340. mon.setCursorPos(i,totaly/2)
  341. mon.write("-")
  342. mon.setTextColor(col3)
  343. mon.setCursorPos(i+1,totaly/2)
  344. mon.write("=")
  345. os.sleep(speed)
  346. end
  347. mon.setBackgroundColor(col4)
  348. mon.setCursorPos(totalx/2-3,totaly/2+2)
  349. mon.setTextColor(col3)
  350. mon.write("Slots")
  351. os.sleep(2)
  352. end
  353. mon.clear()
  354. end
  355. while true do
  356. mon.clear()
  357. parallel.waitForAny(advert(spd,cl1,cl2,cl3,cl4,cl5),coined(pside))
  358. mon.clear()
  359. mon.setCursorPos(1,1)
  360. mon.write("debugging message")
  361. os.sleep(10)
  362. if payed== true then
  363. spin(4)
  364. check()
  365. end
  366. end
  367.  
  368. --first time configuartion for admin user--
  369.  
  370. --game loop holding on payment--
  371.  
  372. --pay off loop--
  373.  
  374. --empty machine loop, used when the payoff can not be given and displays remaining payoff value for the pit boss--
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!