(Note- I know I have lots of status variables, but I will need lots of conditions in order to make my battle system work. This is the way I like to do it, and it works.)

' "Game Name"
' Created with QDK 3.03

define game <My Game>
asl-version <300>
start <test>
game author <Nick Greenlee>
game version <1.0>
game copyright <�2001>
game info <Created with QDK 3.03; Please view README and CREDITS text for additional credits>
beforeturn if ( %status% = 1 ) then {
msg <|n|b#player#|xb is |cg|b|iPOISONED|xi|xb|cb! |cr-1 HP|cb>
set numeric <hp; %hp%; -1>
}
nodebug
define variable <status>
type numeric
value <0>
end define
define variable <hp>
type numeric
value <30>
display nozero <HP - !>
onchange if ( %hp% <= 0 ) then do <death>
end define
define variable <mp>
type numeric
value <0>
display nozero <MP - !>
end define
define variable <sp>
type numeric
value <0>
display nozero <SP - !>
end define
define variable <enemy1hp>
type numeric
value <0>
end define
define variable <enemy2hp>
type numeric
value <0>
end define
define variable <enemy3hp>
type numeric
value <0>
end define
define variable <enemy4hp>
type numeric
value <0>
end define
define variable <gp>
type numeric
value <0>
end define
define variable <str>
type numeric
value <0>
end define
define variable <def>
type numeric
value <0>
end define
define variable <turn>
type numeric
value <0>
end define
define variable <defense>
type numeric
value <0>
end define
define variable <exp>
type numeric
value <0>
end define
define variable <lvl>
type numeric
value <0>
end define
define variable <enemyweakness>
type numeric
value <0>
end define
define variable <runaway>
type numeric
value <0>
end define
define variable <progress>
type numeric
value <0>
end define
define variable <gpearnings>
type numeric
value <0>
end define
define variable <expearnings>
type numeric
value <0>
end define
define variable <hours>
type numeric
value <0>
end define
define variable <minutes>
type numeric
value <0>
onchange if ( %minutes% = 60 ) then {
set numeric <hours; %hours%; +1>
set numeric <minutes; %minutes%; =0>
}
end define
end define

define synonyms
end define

define room <test>
script do <battleproc>
end define

define room <death>
alias <The Dead Side>
end define

define procedure <battleproc>
{
msg <|c>
pause <600>
if ( %turn% = 0 ) then {
msg <|c>
choose <battlemenu>
}
else {
msg <|c>
msg <Enemy's Turn>
}
}
end define

define procedure <death>
{
goto <death>
msg <|c>
playmidi <>
pause <700>
playmidi <death.mid>
msg <|s20|cr|bGame Over|xb|cb|s00>
msg <|n|ibla bla bla you have died|xi>
}
end define

define timer <gametime>
interval <60>
action {
set numeric <minutes; %minutes%; +1>
timeron <gametime>
}
enabled
end define

define text <intro>

end define

define text <win>

end define

define text <lose>

end define

define selection <battlemenu>
info <BATTLE!! Choose what to do!>
choice <Run Away> if ( %runaway% = 1 ) then {
msg <You can't run from this battle!>
pause <1200>
set numeric <turn; 1>
msg <|c>
do <battleproc>
}
else {
set numeric <runchance; $rand(1;2)$>
if ( %runchance% = 1 ) then {
msg <You attempt to run away, but fail to do so!>
pause <1300>
set numeric <turn; 1>
msg <|c>
do <battleproc>
}
else {
msg <|c>
playmidi <>
msg <You have successfully run away from the battle! Because of this, you have gained absolutely nothing from it.>
if not ( %status% = 1 ) then set numeric <status; 0>
set numeric <enemy1hp; 0>
set numeric <enemy2hp; 0>
set numeric <enemy3hp; 0>
set numeric <enemy4hp; 0>
set numeric <turn; 0>
set numeric <defense; 0>
set numeric <enemyweakness; 0>
set numeric <runaway; 0>
set numeric <gpearnings; 0>
set numeric <expearnings; 0>
wait <|n|bPress Any Key|xb>
msg <|c>
exec <look; normal>
}
}
choice <Quit Game> if ask <Are you sure you want to quit this game?> then do <death> else choose <battlemenu>
end define

When the contents of %runchance% become either 1 or 2, the variable %sp% has the same contents. To test this problem, I added runchance to the list of variables, and made it's initial value a number, such as 7. When I played the game, the SP variable showed up with 7 as it's value. What's wrong?

FROM:

define variable <minutes>
type numeric
value <0>
onchange if ( %minutes% = 60 ) then {
set numeric <hours; %hours%; +1>
set numeric <minutes; %minutes%; =0>
}
end define

TO:

define variable <minutes>
type numeric
value <0>
onchange if ( %minutes% = 60 ) then {
set numeric <hours; +1>
set numeric <minutes; 0>
}
end define

AND FROM:

define timer <gametime>
interval <60>
action {
set numeric <minutes; %minutes%; +1>
timeron <gametime>
}
enabled
end define

TO:

define timer <gametime>
interval <60>
action {
set numeric <minutes; +1>
timeron <gametime>
}
enabled
end define

set numeric <runchance; $rand(1;2)$>
if ( %runchance% = 1 ) then {
msg <You attempt to run away, but fail to do so!>
pause <1300>
set numeric <turn; 1>
msg <|c>
do <battleproc>
}

should be:

set numeric <runchance; $rand(1; 2)$>
if ( %runchance% = 1 ) then {
msg <You attempt to run away, but fail to do so!>
pause <1300>
set numeric <turn; 1>
msg <|c>
do <battleproc>
}

There should be a space after the ; in the $rand

I'll have a look into the code for you.... and will LOOK as if I'm doing something - but am really waiting for MaDbRiT to reply!
;)

Just thought I'd point that out first...

On to the problem.

It is somehow connected to you saying this:
set numeric <turn; 1>
after you check to see if the player can/can't run away. I set this to 3 and guess what, SP didn't change - but the status window DID!
I had the debug window open with the numeric variables and they didn't change, it was just the status window. So I think this is a quest bug to do with reading, or displaying the status / general variables!
I have no clue at all really - Alex, Al?

0 = Nothing wrong
1 = Poisoned (Lose HP after doing something)
2 = Injury (Can't physically attack)
3 = Mind Trauma (Can't cast spells)
4 = Sickness (Can't defend)

Injury, mind trauma, and sickness only affect you while in battle, therefore you are cured after battle. When you are poisoned, however, you continue to lose HP while simply walking around and doing actions, which is the reason why Quest sets status to 0 if the player isn't poisoned (aka- if status is NOT equal to 1).

HOWEVER, after carefully thinking about it, I feel I should change it. The player should continue to have any status effects after battle, then those could carry over to the next battle if you haven't cured it yet.

I've been a bit too busy lately to get seriously 'stuck in' to the problem - but it seems at first impression it is likely to be more a Quest 'bug' than a coding issue.

While I'm more than happy to stick my oar in on coding issues, I'm powerless where bugs are concerned. :-(

If however he is fighting a monster that incurs a DIFFERENT status effect (let's say sickness) then the variable is RESET to 5 (or whatever number it is) and so the player is CURED of poison. And again if the player get's any different effect put on him!

What you should do is have 5/6 different status variables, or have one variable like this: "1,0,0,0,0,1" so that it checks to see if one of the numbers are positive and so does THAT status effect - or who knows, you COULD have it so that you use string's and have it SAY "POIS,MIND,SICK" and have it check for the WORDS!

I'll probably go with the string one - but I see no way for the one variable in your demo to work!!

MaDbRiT - yup, it sure looks that way... I'm sure Tyrant will be waiting with baited breath for Quest 3.04 to come out (god damn it - another 1 meg download!!).

Alex - well, if you could look into this further then we'll ALL be a bit happier.

Computer Whizz - stop writing rediculous stuff.... you need to get drunk out of this galaxy before you perform a speech tomorrow >>>> NOW GO!!!

http://www.axeuk.com/quest/quest304patch.zip .

It's the current build of Quest 3.04 (build 3.0.107) which fixes this status variable confusion. Let me know if it works.

I've already downloaded quest upgrade to 3.02, then 3.03, now that 3.04 replacement (I like that a bit better then the CONTINUOUS installing program as an upgrade - perhaps you could release a self expanding zip file or something!).

Anyway, I think I'll wait until you release quest 3.2 or something before totally upgrading ;)

I think they are very easy already..... maybe you could do it somewhat like VB like :
%objectname.objectproperty% or something like that.... just a thought!

It's that "property <object;property = whatever>" .... I forgot that for a moment there!!

I guess I'm going to be a bit lacking in the ASL language since my brains full of ideas on how to do my VB coursework!!
So just ignore any really stupid questions or coments I make about ASL.