• Profile Info
  • Summary
  • Show Stats
  • Show Posts...
    • Messages
    • Topics
    • Attachments

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

4471

TI Z80 / Re: Fall

« on: December 10, 2009, 07:48:09 pm »

lol, yeah
ok here is the most recent code

Code: [Select]

ClrHome
"0000
Ans+Ans+Ans+Ans->Str1
For(B,8,1,-1)
Output(B,10,"*
rand10
Output(B,1,Str1
End
For(A,0,2)
Output(4+A,6,"_six spaces_
End
Output(5,6," FALL "
getKey
Repeat getKey
randInt(1,3,5
Output(8,2,"<PRESS A KEY>
randInt(1,3,5
Output(8,2,Str1
End
ClrHome
Repeat not(I
Disp "0=QUIT","1=RAND","2=LVLS
Input ":",I
IF I=1
Then
Input "TYPE: ",A
Input "ROWS: ",L
If A=1
Then
"O->Str1
ClrHome
FOr(A,1,16L)
Output(1,1,int(((A+1)/(16L))100
Str1+sub(" O ",randInt(1,3),1->Str1
End
End
---alternate types of random level generators---
End
If I=2
Then
1->A
ClrHome
Disp "Level?
Repeat K=105
Output(2,1,A
Repeat K
getkey->K
End
A-(K=34 and A!=1)+(K=25->A
Output(2,1,"_three spaces_
End
If A=1
"_level data_->Str1
If A=2
"_level data_->Str1
End
If I=1 or I=2
Then
1->_theta_
4->X
3->Y
20->R
int(length(Str1)/16)-6->L
Repeat _theta_=L or not(Y
Output(1,1,subStr1,16_theta_-15,128
Delvar M
Repeat K=34 or M=int(R
getkey->K
Output(Y,X,"_space_
If _theta_!=L
Then
16(_theta_+Y-1)-16+X->Z
J-(J!=0)+2(K=25 and not(J) and "0"=sub(Str1,Z+16,1->J
Output(1,15+(int(R)-M<10),int(R-M
If 10>int(R-M
Then
Output(1,15,"`
End
Y+(not(J) and Y!=8 and "0"!=sub(Str1,Z+16,1))-(J and Y!=1 and "0"!=sub(Str1,Z-16,1->Y
End
16(_theta_+Y-1)-16+X->Z
X+(K=26 and "0"!=sub(Str1,Z+1,1) and x!=16)-(K=24 and X!=1 and "O"!=sub(Str1,Z-1,1->X
Output(Y,X,"*
rand10
M+1->M
End
Y-1->Y
R-.5(3!=int(R->R
_theta_+(_theta_!=L->_theta_
End
CLrHome
If not(Y
Then
Output(1,3,"YOU LOSE
Else
Output(1,3,"YOU WIN
End
getKey
Repeat getKey
End
End
End