FANDOM


I made a little Russian Roulette program for TI-84+ calculators (actually, it might work on other models, but I have only tested it on TI-84+). It is written in TI-BASIC, so it's pretty easy to use.


Controls Edit

The controls are pretty simple and are listed on the screen.

Download Edit

You can download the program at RapidShare here: http://rapidshare.com/files/402147285/RR.8XP.

Code Edit

Here's the code in case you can't connect your calculator to your computer and transfer the file.

:ClrHome
:Output(1,1,"Russian Roulette")
:Output(3,2,"Made by Abcorn")
:Output(5,6,"Visit")
:Output(6,2,"www.abcorn.tk")
:Output(8,1,"Press any key...")
:0→K
:While K=0
:getKey→K
:End
:ClrHome
:Output(1,1,"Russian Roulette")
:Output(3,1,"Press number of")
:Output(4,1,"bullets to load")
:Output(5,6,"(1-6)")
:Output(7,2,"Press Clear at")
:Output(8,1,"any time to quit")
:0→K
:While K≠92 and K≠93 and K≠94 and K≠82 and K≠83 and K≠84 and K≠45
:getKey→K
:End
:If K=45:Then
:ClrHome
:Stop
:End
:If K=92
:1→B
:If K=93
:2→B
:If K=94
:3→B
:If K=82
:4→B
:If K=83
:5→B
:If K=84
:6→B
:ClrHome
:Output(1,1,B)
:Output(1,3,"bullets loaded")
:Output(3,2,"Press Clear at")
:Output(4,1,"any time to quit")
:Output(6,1,"Press any key to")
:Output(7,1,"pull the trigger")
:Lbl 1
:0→K
:While K=0
:getKey→K
:End
:If K=45:Then
:ClrHome
:Stop
:End
:ClrHome
:randInt(B,6)→A
:If A=6:Then
:B-1→B
:Output(1,6,"BANG!")
:If B=0:Then
:Output(3,4,"Press Enter")
:Output(4,6,"to end")
:Output(8,2,B)
:Output(8,4,"bullets left")
:Pause 
:ClrHome
:Stop
:Else
:Output(3,1,"Press any key to")
:Output(4,1,"pull the trigger")
:Output(6,1,"Push CLR to quit")
:End
:Output(8,2,B)
:Output(8,4,"bullets left")
:Goto 1
:End
:Output(1,6,"Click")
:Output(3,1,"Press any key to")
:Output(4,1,"pull the trigger")
:Output(6,1,"Push CLR to quit")
:Output(8,2,B)
:Output(8,4,"bullets left")
:Goto 1

Credits Edit

The opening screen of the program has credits to my website. I shamelessly ask that you leave the credits intact.

This program was made by Abcorn. Visit http://www.abcorn.tk

Enjoy!

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.