Good 'Ol progress topic
This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's Your Projects subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. Final Fantasy => Your Projects
Good 'Ol progress topic
United-TI Archives -> Final Fantasy
 
    »
» View previous topic :: View next topic  
Author Message
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499
Posted: 20 Nov 2005 11:13:47 am    Post subject:
Final Fantasy

here is the new, it has another map off to the left of the town map, jsut walk off the left of the screen. i will look into more of it if the little animated thing goes over well on the fountain.


EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE Good Idea
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499
Posted: 05 Jan 2006 10:45:29 pm    Post subject:

Code:
ClrDraw
Text(1,20,"WHAT DO YOU NEED?"
Text(9,30,"BUY
Text(19,30,"SELL
Text(29,30,"NOTHING"

0->B
51->A
49->C
50->D


For(Z,5,9
While Z

Text(1,1,D
Line(20,A,25,D
Line(20,C,25,D
Line(20,A,20,C
Line(16,D,20,D
sin(9
Line(20,A,20,C,0
Line(20,A,25,D,0
Line(20,C,25,D,0
Line(16,D,20,D,0

If B=1
Then
A+1->A
C-1->C
End
If B=0
Then
C+1->C
A-1->A
End
If A=D+2
0->B
If A=D-2
1->B

getKey
If Ans=25
Then
D+10->D
A+10->A
C+10->C
End
If Ans=34
Then
D-10->D
A-10->A
C-10->C
End

If D=20
Then
50->D
49->C
51->A
End
If D=60
Then
31->A
29->C
30->D
End

If Ans=21
Then

If D=30
Goto QQ
(((((((((((HERE2)))))))))))))))))
If D=50
Then
Text(1,20,"BUY WHAT? "
Text(9,30,"KITTY
Text(19,30,"GREAVESES
Text(29,30,"NOTHING"

0->B
51->A
49->C
50->D


For(Z,5,9
While Z

Text(1,1,D
Line(20,A,25,D
Line(20,C,25,D
Line(20,A,20,C
Line(16,D,20,D
sin(9
Line(20,A,20,C,0
Line(20,A,25,D,0
Line(20,C,25,D,0
Line(16,D,20,D,0

If B=1
Then
A+1->A
C-1->C
End
If B=0
Then
C+1->C
A-1->A
End
If A=D+2
0->B
If A=D-2
1->B

getKey
If Ans=25
Then
D+10->D
A+10->A
C+10->C
End
If Ans=34
Then
D-10->D
A-10->A
C-10->C
End

If D=20
Then
50->D
49->C
51->A
End
If D=60
Then
31->A
29->C
30->D
End

If Ans=21
Then

If D=30
Then
((((((((HERE1))))))))))
End


End
End
End
End
End
End




hello, i cant think of a way to get from HERE1 to HERE2
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976
Posted: 05 Jan 2006 11:10:24 pm    Post subject:
[font="courier new"]
Lbl XX
…
If D=30
Goto XX ?
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499
Posted: 06 Jan 2006 02:34:06 pm    Post subject:
i have been told that when someone uses a lbl and goto an angel sodomises a kitten
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500
Posted: 06 Jan 2006 02:50:02 pm    Post subject:
......anyway

I will test this tonight when I get home. TTYT
Back to top
Display posts from previous:   
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Good 'Ol progress topic
    »
» View previous topic :: View next topic  
Page 1 of 1 » All times are UTC - 5 Hours

 

Advertisement