Computer Science Canada

ISU due tomorrow morning... my procedures arent working :(
Author:  fluxflashor [ Wed Jun 13, 2007 10:56 pm ]
Post subject:  ISU due tomorrow morning... my procedures arent working :(
Ok so I am under a very bad time limit right now, but I am having problems with procedures.

Here is an examle of the code, and the error that it outputs. I have used search, but cannot find something relative to fixing the issue.

code:

procedure PLAYERONEDEATH
   put"Sorry ", P1NAME, "But you lose since your HP has gone to zero."
   put"Press 1 to play again with the same names and mages, 2 to restart, or 3 to end the game"
      get continue
         if (continue = 1) then
              BEGINTEXT
                 elsif (continue = 2) then
                     CHARACTERSELECT
                         elsif (continue = 3) then
         end if
end PLAYERONEDEATH


now the error is get is, and i get this 8 times with a bunch of different procedures, is:

code:

'procedure's' may only be declared at the program, module, or monitor level


I do not understand it Sad

Help quickly would be appreciated. Will be up all night. I hope I do not have to rewrite my entire program. For now I guess I will finish up my code. then wait on these procedures.
Author:  HeavenAgain [ Wed Jun 13, 2007 11:29 pm ]
Post subject:  Re: ISU due tomorrow morning... my procedures arent working :(
i'm guess your problem would be

Quote:
if (continue = 1) then
BEGINTEXT
elsif (continue = 2) then
CHARACTERSELECT
elsif (continue = 3) then
end if


check to see if those 2 procedures are delceared above this one?
if thats not the problem post back your code, and i'll have a looky
Author:  fluxflashor [ Wed Jun 13, 2007 11:34 pm ]
Post subject:  Re: ISU due tomorrow morning... my procedures arent working :(
well actually, it isnt those that are the problem, I have declared those fine. I get the error from the beginning of the procedure

PLAYERONEDEATH

well here is some more code. Sorry for the bad coding practices, I am not good with all the organization.


code:

procedure CHARACTERSELECT
put"Ok ", P1NAME, " You now must select your mage"
color (1)put"**********************************************"
color (1)put"* .::Blue Mage                               *"
color (1)put"*   !For Purchase Press 1!                   *"
color (1)put"* Attributes:                                *"
color (1)put"*            ~ HP       = 125                *"
color (1)put"*            ~ Armor    = 30                 *"
color (1)put"*            ~ Strength = Water Spells       *"
color (1)put"*            ~ Weakness = Electric Spells    *"
color (1)put"**********************************************"
color (4)put"**********************************************"
color (4)put"* .::Red Mage                                *"
color (4)put"*   !For Purchase Press 2!                   *"
color (4)put"* Attributes:                                *"
color (4)put"*            ~ HP       = 90                 *"
color (4)put"*            ~ Armor    = 40                 *"
color (4)put"*            ~ Strenght = Fire Spells        *"
color (4)put"*            ~ Weakness = Water Spells       *"
color (4)put"**********************************************"
color (6)put"**********************************************"
color (6)put"* .::Yellow Mage                             *"
color (6)put"*   !For Purchase Press 3!                   *"
color (6)put"* Attributes:                                *"
color (6)put"*            ~ HP       = 50                 *"
color (6)put"*            ~ Armor    = 70                 *"
color (6)put"*            ~ Strength = Lightning Spells   *"
color (6)put"*            ~ Weakness = Fire Spells        *"
color (6)put"**********************************************"
color (7)put"So what is your choice? 1, 2, or 3?"
get P1CHOICE
delay(500)
Text.Cls

put"Ok ", P2NAME, " You now must select your mage"
color (1)put"**********************************************"
color (1)put"* .::Blue Mage                               *"
color (1)put"*   !For Purchase Press 1!                   *"
color (1)put"* Attributes:                                *"
color (1)put"*            ~ HP       = 125                *"
color (1)put"*            ~ Armor    = 30                 *"
color (1)put"*            ~ Strength = Water Spells       *"
color (1)put"*            ~ Weakness = Electric Spells    *"
color (1)put"**********************************************"
color (4)put"**********************************************"
color (4)put"* .::Red Mage                                *"
color (4)put"*   !For Purchase Press 2!                   *"
color (4)put"* Attributes:                                *"
color (4)put"*            ~ HP       = 90                 *"
color (4)put"*            ~ Armor    = 40                 *"
color (4)put"*            ~ Strength = Fire Spells        *"
color (4)put"*            ~ Weakness = Water Spells       *"
color (4)put"**********************************************"
color (6)put"**********************************************"
color (6)put"* .::Yellow Mage                             *"
color (6)put"*   !For Purchase Press 3!                   *"
color (6)put"* Attributes:                                *"
color (6)put"*            ~ HP       = 50                 *"
color (6)put"*            ~ Armor    = 70                 *"
color (6)put"*            ~ Strength = Lightning Spells   *"
color (6)put"*            ~ Weakness = Fire Spells        *"
color (6)put"**********************************************" %All put statements have "Color (i)"
color (7)put"So what is your choice? 1, 2, or 3?"            %to make lines match up in code
get P2CHOICE

/* Players Now Have Their Mages */

if (P1CHOICE = 1) then      %The following determines Health and Armor Attributes For Player One
  P1HP := 125
  P1DEFENCE := 30
  P1MAGECLASS :=  "WaterMage"
     elsif (P1CHOICE = 2) then
       P1HP := 90
       P1DEFENCE := 40
       P1MAGECLASS :=  "FireMage"
          elsif (P1CHOICE = 3) then
            P1HP := 50
            P1DEFENCE := 70
            P1MAGECLASS :=  "LightningMage"
end if

if (P2CHOICE = 1) then     %The following determines Health and Armor Attributes For Player Two
  P2HP := 125
  P2DEFENCE := 30
  P2MAGECLASS := "IceMage"
  P2WEAKATK := Blizzard
  P2MEDATK := BlizzardSpike
  P2STRONGATK := BlizzardBlast
     elsif (P2CHOICE = 2) then
       P2HP := 90
       P2DEFENCE := 40
       P2MAGECLASS := "FireMage"
          elsif (P2CHOICE = 3) then
            P2HP := 50
            P2DEFENCE := 70
            P2MAGECLASS := "LightningMage"
end if

Text.Cls
end CHARACTERSELECT
/*===============================================================================================*/


/*===================================================*/
procedure CONFIRMATION
put"FOR TESTING DISPLAY ATTRIBUTES"
put"PLAYER ONE HEALTH: ",P1HP     
put"PLAYER ONE ARMOR: ",P1DEFENCE
put"PLAYER ONE MAGE CLASS: ", P1MAGECLASS
put"PLAYER TWO HEALTH: ",P2HP     
put"PLAYER TWO ARMOR: ",P2DEFENCE 
put"PLAYER TWO MAGE CLASS: ",P2MAGECLASS
put"END TESTING OF VARAIABLES"
end CONFIRMATION
/*====================================================*/


put"Are you ready to duel? [yes or no]"
get duelanswer
if (duelanswer = "yes") then


/*============================================================================================================*/
procedure BEGINTEXT
Text.Cls
put" ______              _ "       
put"(____  |            (_) "     
put" ____)  )_____  ____ _ ____" 
put"|  __  (| ___ |/ _  | |  _ | "
put"| |__)  ) ____( (_| | | | | | "
put"|______/|_____)|___ |_|_| |_| "
put"              (_____| "   
delay (750)
Text.Cls
end BEGINTEXT
/*=============================================================================================================*/

% PROCEDURES NEEDED FOR PLAYERTURNS
/*-----------------------------------------*/
procedure PLAYERONEDEATH
   put"Sorry ", P1NAME, "But you lose since your HP has gone to zero."
   put"Press 1 to play again with the same names and mages, 2 to restart, or 3 to end the game"
      get continue
         if (continue = 1) then
              BEGINTEXT
                 elsif (continue = 2) then
                     CHARACTERSELECT
                         elsif (continue = 3) then
         end if
end PLAYERONEDEATH
/*-----------------------------------------*/
/*-----------------------------------------*/
procedure  PLAYERTWODEATH
   put"Sorry", P2NAME, "But you lose since your HP has gone to zero."
   put"Press 1 to play again with the same names and mages, 2 to restart, or 3 to end the game"
      get continue
         if (continue = 1) then
              BEGINTEXT
                 elsif (continue = 2) then
                     CHARACTERSELECT
                         elsif (continue = 3) then
                           
         end if
end PLAYERTWODEATH
/*-----------------------------------------*/
/*-----------------------------------------*/
procedure PLAYERONETURN
  put P1NAME, " It is now your turn." delay (200)
  put"What would you like to do?" delay (200)
  put" "
  put" "
  put" "
end PLAYERONETURN
/*-----------------------------------------*/

/*-----------------------------------------*/
procedure PLAYERTWOTURN

end PLAYERTWOTURN
/*-----------------------------------------*/




/*=============================================================================================================*/
procedure PLAYERTURNS
   loop
     /*-----*/
       if (P1HP = 0) then             % Checks to see if player one is dead.
              PLAYERONEDEATH          % If he/she is, Player Two Wins
         else
              PLAYERONETURN           % If he isn't, the program will let playerone have his turn
           end if

           if (P2HP = 0) then         % Checks to see of player two is dead
              PLAYERTWODEATH          % If he/she is, Player One Wins
         else
              PLAYERTWOTURN           % If he/she isn't, the program will let playertwo have his turn
       end if
     /*-----*/
   end loop
end PLAYERTURNS
/*==============================================================================================================*/

procedure END

end END
/* This is The Program's Structure {NOT TO BE MODIFIED} */

/**/
INSTRUCTIONS
/**/
NAMEINPUT
/**/
CHARACTERSELECT
/**/
CONFIRMATION
/**/
BEGINTEXT
/**/
PLAYERTURNS
/**/
END
/**/

/* This is the end of the Program's Structure */


Thats the enitre program, no variables though edited those out. Yes its a little incomplete. but most procedures DO work. Thank you for the reply.
Author:  HeavenAgain [ Wed Jun 13, 2007 11:44 pm ]
Post subject:  RE:ISU due tomorrow morning... my procedures arent working :(
i dont see any problem with the code you just pasted there, all i see is delcearation problem (because your program is incompleete) can you post the full one in a zip?

edit : well its pretty late, and i got an exam tomorrow so good luck, and i took another look at your program, you see when (duelanswer = "yes" ) then ..... you have a bunch a procedure after that, try moving the procedures after CHARACTERSELECT procedure, and then instead of wirting the procedure, you just call to its name Smile i think that was the problem Wink good luck on your ISU, and looking forward to see this on the submission forum Laughing
Author:  fluxflashor [ Thu Jun 14, 2007 5:45 am ]
Post subject:  RE:ISU due tomorrow morning... my procedures arent working :(
Ok I will try that. I fell asleep at my computer gotta hurry up with this thing now.

Thanks alot for the help, I will be posting it maybe a little later on today.
Author:  fluxflashor [ Thu Jun 14, 2007 7:55 am ]
Post subject:  RE:ISU due tomorrow morning... my procedures arent working :(
Well ISU is finised. It worked perfectly. Once again thanks. Have some bits Very Happy

I will post exe later. FULL SOURCE when the year is over. [couple days]

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy