Plinko! TI-84+ SE - Cemetech | Forum

odogollie
Newbie (Posts: 18)

Plinko! TI-84+ SE
05 Mar 2012 09:17:57 pm
Last edited by odogollie on 06 Mar 2012 11:09:36 pm; edited 3 times in total

I finally finished a working game of Plinko! Laughing

I sound dumb but how do you post pictures? I would like the exact code, if there is anything like that.

Thanks!

Edit: http://i41.tinypic.com/33wnng4.jpg
http://i43.tinypic.com/fog36c.jpg
http://i42.tinypic.com/k50vba.jpg
http://i40.tinypic.com/21mewzp.jpg
http://i43.tinypic.com/35006sk.jpg

Here you go! I hope this works!

Edit2:

Code:

AxesOff


Lbl Z


ClrDraw


Menu("PLINKO!","PLAY",P,"HOW TO PLAY",H,"CREDITS",1,"QUIT",2)





Lbl H


Text(0,1,"Welcome to Plinko! This")


Text(7,1,"game is completely random.")


Text(14,1,"After starting wait until")


Text(21,1,"the game board is loaded")





Text(28,1,"then hit ENTER.")


Text(35,1,"Choose where you")


Text(42,1,"want to start.")


Text(49,1,"you have 5 tries.")


Text(56,1,"Good luck! HIT ENTER")


Pause 


Goto Z


Lbl 1


ClrDraw


Text(0,1,"CREDITS:")


Text(14,1,"Code: Oliver Shanklin")


Text(28,1,"Thanks for playing!")


Text(42,1,"Version:"


Text(49,1,".8.5")


Pause 


Goto Z





Lbl P


0->O


48->A


60->B


0->T


ClrHome


GridOff


AxesOff


PlotsOff 





0->Xmin


0->Ymin


96->Xmax


64->Ymax


ClrDraw





Line(28,0,28,64


Line(68,0,68,64


Line(28,0,68,0


Line(28,64,68,64


Line(28,60,32,56:Line(32,56,28,52:Line(28,52,32,48:Line(32,48,28,44:Line(28,44,32,40:Line(32,40,28,36:Line(28,36,32,32:Line(32,32,28,28:Line(28,28,32,24:Line(32,24,28,20:Line(28,20,32,16:Line(32,16,28,12:Line(28,12,32,8:Line(32,8,28,4





Line(68,60,64,56:Line(64,56,68,52:Line(68,52,64,48:Line(64,48,68,44:Line(68,44,64,40:Line(64,40,68,36:Line(68,36,64,32:Line(64,32,68,28:Line(68,28,64,24:Line(64,24,68,20:Line(68,20,64,16:Line(64,16,68,12:Line(68,12,64,8:Line(64,8,68,4





Line(36,0,36,4


Line(44,0,44,4


Line(52,0,52,4


Line(60,0,60,4





Pt-On(40,56


Pt-On(48,56


Pt-On(56,56


Pt-On(40,48


Pt-On(48,48


Pt-On(56,48


Pt-On(40,40


Pt-On(48,40


Pt-On(56,40


Pt-On(40,32


Pt-On(48,32


Pt-On(56,32


Pt-On(40,24


Pt-On(48,24


Pt-On(56,24


Pt-On(40,16


Pt-On(48,16


Pt-On(56,16


Pt-On(40,8


Pt-On(48,8


Pt-On(56,8


Pt-On(36,52


Pt-On(44,52


Pt-On(52,52


Pt-On(60,52


Pt-On(36,44


Pt-On(44,44


Pt-On(52,44


Pt-On(60,44


Pt-On(36,36


Pt-On(44,36


Pt-On(52,36


Pt-On(60,36


Pt-On(36,28


Pt-On(44,28


Pt-On(52,28


Pt-On(60,28


Pt-On(36,20


Pt-On(44,20


Pt-On(52,20


Pt-On(60,20


Pt-On(36,12


Pt-On(44,12


Pt-On(52,12


Pt-On(60,12


Text(56,30,"4"


Text(56,38,"0"


Text(56,46,"6"


Text(56,54,"1"


Text(56,62,"2"


Text(1,1,"Score:")


Text(1,70,"Tries:")


StorePic 1


Goto Q





Lbl Q


T+1->T


Pause 


Menu("CHOOSE","FAR LEFT",FL,"LEFT",L,"MIDDLE",M,"RIGHT",R,"FAR RIGHT",FR,"QUIT",Z)


Lbl FL:32->A:Goto C


Lbl L:40->A:Goto C


Lbl M:48->A:Goto C


Lbl R:56->A:Goto C


Lbl FR:64->A:Goto C


Lbl S:Stop





Lbl K


ClrDraw


RecallPic 1


Pt-On(A,B,2)


If A=32:O+4->O


If A=40:O+0->O


If A=48:O+6->O


If A=56:O+1->O


If A=64:O+2->O


Text(10,1,O)


Text(10,70,T)


If T=5:Goto Y


Goto Q





Lbl C


60->B


Goto J





Lbl J


If B<=4:Goto K


randInt(0,1)->R


ClrDraw


RecallPic 1


Pt-On(A,B,2)


Text(10,1,O)


If R=0:A+4->A


If R=1:A-4->A


If A<=28:A+8->A


If A>=68:A-8->A


B-4->B


Goto J





Lbl Y


ClrDraw


Text(32,1,"Your score was:")


Text(32,54,O)


Pause 


Goto Z





Lbl 2


ClrDraw


ClrHome


AxesOn


ZStandard


Disp "Bye!"


Stop