Game Help

Forum Attachments

Summary:

i need help correcting my store function and also on creating a movement function so i can enter buildings instead of using a menu.

Game Help

aaronb525 08 Feb 2010 22:28

ok so here is the code for my store function

:Menu("Store","Salad(5:10)",F1,"Chicken(10:20)",F2,"Burger(15:30)",F3,"Steak(25:50)",F4,"Ribs(50:100)",F5,"Buffet(200:200)",F6,"Back",MM)
:Lbl F1
:If M__>__5
:5->Q
:10->V
:Pause
:Goto BY
:If M<5
:Pause
:Goto NE
:Lbl F2
:If M__>__10
:10->Q
:20->V
:Pause
:Goto BY
:If M<10
:Pause
:Goto NE
:Lbl F3
:If M__>__ 15
:15->Q
:30->V
:Pause
:Goto BY
:If M<15
:Pause
:Go to NE
:Lbl F4
:If M__>__25
:25->Q
:50->V
:Pause
:Goto BY
:If M<25
:Pause
:Goto NE
:Lbl F5
:If M__>__50
:50->Q
:100->V
:Pause
:Goto BY
:If M<50
:Pause
:Goto NE
:Lbl F6
:If M__>__300
:200->Q
:200->V
:Pause
:Goto BY
:If M<200
:Pause
:Goto NE
:Lbl BY
:M-Q->M
:A+V->A
:Goto MM
:Lbl NE
:A+0->A
:M+0->M
:Goto MM

What happens is that it lets the user get it even if they don't have the money for it

so any help would be great

Re: Game Help

samweiss 09 Feb 2010 02:51

Well, first off, it looks like on some of your choices, you do not subtract money from your M (i'm assuming is money), and out of context, I cannot tell what is wrong because the gotos and variables are so cryptic, but try printing out your money total inside each if statement to see if M is actually greater than the cost.

Re: Game Help

calccrypto 09 Feb 2010 03:36

this code is causing problems because its lacking a lot of if-then-end codes.

according to your code, if F1 is selected, 5->Q will run, only if M>5. however, 10->V will always run because in TIBASIC, that particular line is not encompassed within the condition. then, the code will always send you to lbl NE

to do this properly, you will need codes such as

:Lbl F1
:If M__>__5
:Then
:5->Q
:10->V
:Pause
:Goto BY
:End
:If M<5
:Pause                \\ why is there a pause here? if it is not necessary, you can skip the "then" and "end"
:Goto NE                \\ dont do this (if "goto NE" is part of the condition). it apparently causes problems with the memory

to do multi-line conditions with if, you must use if, then, 'stuff', end
to do 1 thing after the if, you can do "if statement:do this " (including the colon, or on 2 different lines right after one another)

---

Visit Calccrypto for info on crypto
KC2ZOF

Re: Game Help

aaronb525 12 Feb 2010 23:43

now when M< whatever it ends program but it doesn't goto the goto

Re: Game Help

calccrypto 13 Feb 2010 05:25

what's your new code?

---

Visit Calccrypto for info on crypto
KC2ZOF

Re: Game Help

aaronb525 16 Feb 2010 21:41

:Menu("Store","Salad(5:10)",F1,"Chicken(10:20)",F2,"Burger(15:30)",F3,"Steak(25:50)",F4,"Ribs(50:100)",F5,"Buffet(200:200)",F6,"Back",MM)
:Lbl F1
:If M__>__5
:Then
:5->Q
:10->V
:Disp "you bought salad"
:Pause
:Goto BY
:If M<5
:Then
:Disp "not enough"
:Pause
:Goto NE
:Lbl F2
:If M__>__10
:Then
:10->Q
:20->V
:Disp "You bought chicken"
:Pause
:Goto BY
:If M<10
:Then
:Disp "not enough"
:Pause
:Goto NE
:Lbl F3
:If M__>__ 15
:Then
:15->Q
:30->V
:Disp "you bought a burger"
:Pause
:Goto BY
:If M<15
:then
:Disp "not enough"
:Pause
:Go to NE
:Lbl F4
:If M__>__25
:Then
:25->Q
:50->V
:Disp "you bought steak"
:Pause
:Goto BY
:If M<25
:Then
:Disp "not enough"
:Pause
:Goto NE
:Lbl F5
:If M__>__50
:Then
:50->Q
:100->V
:Disp :you bought ribs"
:Pause
:Goto BY
:If M<50
:Then
:Disp "not enough"
:Pause
:Goto NE
:Lbl F6
:If M__>__300
:Then
:200->Q
:200->V
:Disp "you bought a buffet"
:Pause
:Goto BY
:If M<200
:Then
:Disp "not enough"
:Pause
:Goto NE
:Lbl BY
:M-Q->M
:A+V->A
:Goto MM
:Lbl NE
:A+0->A
:M+0->M
:Goto MM

Re: Game Help

calccrypto 16 Feb 2010 21:51

you didnt put "end" at the end of each if

:Lbl F1
:If M>5
:Then
:5->Q
:10->V
:Disp "you bought salad"
:Pause
:Goto BY \\ and dont do this (goto within an if); find some way to circumvent this
:End

:If M<5
:Then
:Disp "not enough"
:Pause
:Goto NE
:End

---

Visit Calccrypto for info on crypto
KC2ZOF

Re: Game Help

ztrumpet 16 Feb 2010 22:27

You could use the Gotos there, but then you'd need somethingl like this:

:While 0
:Lbl BY
:End \\It now hits an End, and repeated use of this code will not cause a memory leak.

---

Find more info about my projects on Omnimaga:
http://www.omnimaga.org/index.php

Re: Game Help

Edward H 16 Feb 2010 23:55

Putting an End after the :Goto BY is actually useless because the program will never get to the :End. Of course, the real problem here is trying to Goto out of a code block.

Re: Game Help

Weregoose 17 Feb 2010 01:01

You wrote "Buffet(200:200)" and you also wrote "M≥300". Which one is correct? Following the pattern, it should really be one of 100:200, 150:300, or 200:400, and changing the code to reflect that would effectively shorten the code that I'm trying to give you. Make your selection.

Re: Game Help

Weregoose 18 Feb 2010 03:40

I picked 100:200. Here's the new code:

5:Menu("Store","Salad(5:10)",F1,"Chicken(10:20)",F2,…,"Buffet(100:200)",F6,"Back",MM
Lbl F6:2Ans
Lbl F5:2Ans
Lbl F4:5Ans/3
Lbl F3:3Ans/2
Lbl F2:2Ans
Lbl F1:Ans→Q
If M≥Ans
Then
M-Ans→M
A+2Q→A
End
Lbl MM