:" "→Str1
:Str1→Str2
:Str1→Str3
:Str1→Str4
:Str1→Str5
:Str1→Str6
:Str1→Str7
:Str1→Str8
:
:
:
:ClrHome
:Output(1,1,"RUSSIAN ROULETTE PRESS ENTER TO FIRE
:For(A,0,1750
:End
:Lbl AA
:ClrHome
:Output(2,1,"HOW MANY PEOPLE?(1≤X≤8)
:Input "=",X
:If X<1:Goto AA
:If X>8:Goto AA
:Lbl AB
:ClrHome
:Output(2,1,"HOW MANY CHAMBERS? (>0)
:Input "=",Y
:If Y<1:Goto AB
:
:ClrHome
:Output(1,1,"PLAYER NAMES
:For(θ,0,750
:End
:ClrHome
:Input "1=",Str1
:If X>1:Input "2=",Str2
:If X>2:Input "3=",Str3
:If X>3:Input "4=",Str4
:If X>4:Input "5=",Str5
:If X>5:Input "6=",Str6
:If X>6:Input "7=",Str7
:If X>7:Input "8=",Str8
:
:ClrHome
:Output(1,3,Str1
:Output(2,3,Str2
:Output(3,3,Str3
:Output(4,3,Str4
:Output(5,3,Str5
:Output(6,3,Str6
:Output(7,3,Str7
:Output(8,3,Str8
:DelVar ∟ALIVE
:8→dim(∟ALIVE
:For(θ,1,X
:¦ 1→∟ALIVE(θ)
:End
:
:
:While 1
:¦ For(θ,1,X
:¦ ¦ If ∟ALIVE(θ)=0:End
:¦ Output(θ,1,"*
:¦ Pause
:¦ randInt(1,Y)→Q
:¦
:¦ :If Q=1:Then
:¦ ¦ ClrDraw:RecallPic 2:For(W,0,1750):End:Output(θ,1," ":Output(θ,11,"(DEAD)":0→∟ALIVE(θ):
:¦ ¦
:¦ ¦ :If ∟ALIVE(1)+∟ALIVE(2)+∟ALIVE(3)+∟ALIVE(4)+∟ALIVE(5)+∟ALIVE(6)+∟ALIVE(7)+∟ALIVE(8)=1:Goto H:End
:¦
:¦
:¦ If Q≠1:Then:Output(θ,11,"(MIS)":For(W,0,1750):End:Output(θ,1," ":Output(θ,11," "
:¦ End
:End
:End
:
:Lbl H
:
:For(θ,1,8
:¦ If ∟ALIVE(θ)=1:Goto G
:End
:
:
:Lbl G
:ClrHome
:If θ=1:Output(1,1,Str1
:If θ=2:Output(1,1,Str2
:If θ=3:Output(1,1,Str3
:If θ=4:Output(1,1,Str4
:If θ=5:Output(1,1,Str5
:If θ=6:Output(1,1,Str6
:If θ=7:Output(1,1,Str7
:If θ=8:Output(1,1,Str2
:Output(2,1,"WINS
:Pause
(or attached file)
and btw: I know the code is all over the place :)
(the error is line 61)