Computer Science Canada

How are Battle phases done? Especially more Compilicated ones?
Author:  xBalmungx [ Wed Jan 13, 2010 5:54 pm ]
Post subject:  How are Battle phases done? Especially more Compilicated ones?
What is it you are trying to achieve?
I am trying to achieve a battle phase in my code, where the enemy monster has health, you have health, and that the damage is calculated turn based.
Also, if its not too much, if there could be a skipped battle phase, where it just displays whether or not you won the battle, or you can see what happened each round sort of thing.
Also, when the battle is over, you have full health again

What is the problem you are having?
That I have no clue whatsoever how to do this


Describe what you have tried to solve this problem
Absolutely nothing


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
Unfortunately for some reason, I cannot attach the zipped file, so Im gonna have to give you the code it self, sorry
Turing:




import GUI
setscreen ("graphics:800,600,nobuttonbar,msdos")
colorback (255)
cls
color (12)


var command : string
var key : string (1)
const PIC_ID := Pic.FileNew ("mentalroom.jpg")
const PIC_ID2 := Pic.FileNew ("headset.jpg")
const PIC_ID3 := Pic.FileNew ("bloodstains.jpg")
const PIC_ID4 := Pic.FileNew ("paper_ball.jpg")
const PIC_ID5 := Pic.FileNew ("knife.jpg")
const PIC_ID6 := Pic.FileNew ("Zombie.jpg")
var font : int
font := Font.New ("Cambria:50")
var keyboardinput : int
var Health : int := 100
var username : string
var knife_answer : string
var menu_choice : int
var chars : array char of boolean
var death : int
var battle : int

process BackgroundMusic
   
        Music.PlayFile ("Guns N' Roses - Shackler's Revenge.mp3")
   
end BackgroundMusic



procedure StartGame
    setscreen ("graphics:max;max,nobuttonbar,msdos")
    colorback (255)
    cls
    color (12)
    cls
   
    fork BackgroundMusic
    locate (1, 1)
    put "Welcome!"
    put "PLEASE ENTER YOUR USERNAME"
    get username
    cls
    if username = "Pablo" then
        loop
            color (1)
            put "PABLO IS A TREEE!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (2)
            put "PABLO IS A TREEE!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (3)
            put "PABLO IS A TREEE!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (4)
            put "PABLO IS A TREEE!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (5)
            put "PABLO IS A TREEE!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (6)
            put "PABLO IS A TREEE!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (7)
            put "PABLO IS A TREEE!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (8)
            put "PABLO IS A TREEE!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (9)
            put "PABLO IS A TREEE!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (10)
            put "PABLO IS A TREEE!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (11)
            put "PABLO IS A TREEE!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (12)
            put "PABLO IS A TREEE!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (13)
            put "PABLO IS A TREEE!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (14)
            put "PABLO IS A TREEE!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (15)
            put "PABLO IS A TREEE!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (1)
            put "PABLO IS A TREEE!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (2)
            put "PABLO IS A TREEE!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (3)
            put "PABLO IS A TREEE!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (4)
            put "PABLO IS A TREEE!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (5)
            put "PABLO IS A TREEE!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (6)
            put "PABLO IS A TREEE!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (7)
            put "PABLO IS A TREEE!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (8)
            put "PABLO IS A TREEE!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (9)
            put "PABLO IS A TREEE!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (10)
            put "PABLO IS A TREEE!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (11)
            put "PABLO IS A TREEE!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (12)
            put "PABLO IS A TREEE!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (13)
            put "PABLO IS A TREEE!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
            color (14)
            put "PABLO IS A TREEE!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
        end loop
    end if
   

    locate (25, 65)
    put "*Where am I?*"
    put " "
    put " "

    put "PRESS ANY KEY TO CONTINUE"

    getch (key)
    cls
    locate (25, 65)
    put "*I can't see anything?*"
    put " "
    put " "

    put "PRESS ANY KEY TO CONTINUE"

    getch (key)
    cls
    locate (25, 65)
    put "Welcome?" ..
    locate (25, 65)
    put "My name is Friend."
    put " "
    put " "

    put "PRESS ANY KEY TO CONTINUE"

    getch (key)
    cls
    locate (25, 65)
    put "*What am I doing here?Friend?*"
    put " "
    put " "

    put "PRESS ANY KEY TO CONTINUE"

    getch (key)
    cls
    locate (25, 65)
    put "How about you reach upwards, there should be a string"
    locate (26, 65)
    put "**You reach and find the string**"
    locate (27, 65)
    put "Pull it?now"
    put " "
    put " "

    put "PRESS ANY KEY TO CONTINUE"

    getch (key)
    cls
    locate (22, 65)
    put "The following commands for this situation are..."
    locate (23, 65)
    put "Pull the string?PULL"
    locate (24, 65)
    put "Don't trust this *friend* guy, you can manage on your own?LEAVE"
    locate (25, 65)
    get command
    case command of
        label "PULL" :
            cls
            colorback (0)
            cls
            put "**A light flickers on, and you realize that the string was attached to the light**"
            put "Well that wasn't so hard now was it?"
            put "Why don't you have a look around where you are right now..."
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            Pic.Draw (PIC_ID, 0, 0, picCopy)
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put ""
            put "You see, right now, in this situation, I'm the best hope you have of surviving."
            put "Look on the table, there should be a headset there...pick it up..."
            put "**You go to pick it up, and find a note underneath**"
            Pic.Draw (PIC_ID3, 0, 0, picCopy)
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put "The commands for this situation are..."
            put "Read the note...Read"
            put "Leave the note alone...Leave"
            get command
            cls
            loop
                if command = "Read" then
                    put ""
                    put "**It reads...'IF SOMEONE FINDS THIS NOTE, DO NOT TRUST THE PERSON NAMED 'FRIEND'..."
                    put "**It looks like the note goes on, but the rest is covered by blood**"
                    put " "
                    put " "

                    put "PRESS ANY KEY TO CONTINUE"

                    getch (key)
                    cls
                    exit when command = "Read"
                elsif command = "Leave" then
                    put ""
                    put "**You crumple the paper and throw it into a corner, your hand is briefly stained with fresh blood from the note**"
                    Pic.Draw (PIC_ID4, 0, 0, picCopy)
                    put " "
                    put " "

                    put "PRESS ANY KEY TO CONTINUE"

                    getch (key)
                    cls
                    exit when command = "Leave"
                else
                    put "INVALID COMMAND"


                end if
            end loop
            put ""
            put "Alright, there should be a door, to get out, go to it"
            put "*Fine but you better tell me whats going on here, and what is happening?*"
            put "**You hear laughing, all in good time ", username, "."
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put ""
            put "**As you approach the door, you stumble upon something, when you look closer you see its a knife**"
            put "**Would you like to pick it up?**"
            put "The commands for this situation are...."
            put "Pick it up....................Yes"
            put "Leave it......................Leave"
            Pic.Draw (PIC_ID5, 0, 0, picCopy)
            get command
            cls

            if command = "Yes" then
                put ""
                put "You pick up the knife..."

                put "PRESS ANY KEY TO CONTINUE"

                getch (key)
                cls
                put ""
                put "YOU HAVE JUST FOUND THE KNIFE!!!"
                put "Stats!"
                put "This weapon gives you 5 attack and 1 defense"
                put "The code for this weapon is knife1"
                put "Write it down somewhere!!!!!!!!!!!"

                put "PRESS ANY KEY TO CONTINUE"

                getch (key)
                cls
            elsif command = "No" then
                put ""
                put "You decide to leave the knife thinking you are in no need of a knife whatsoever..."

                put "PRESS ANY KEY TO CONTINUE"

                getch (key)
                cls
            else
                colorback (255)
                cls
                loop
                    color (0)
                    put " EEEEEEEEEEEEEEEEEE   RRRRRRRRRRRRR    RRRRRRRRRRRRR   OOOOOOOOOOOOOO  RRRRRRRRRRRRR"
                    put " EEEEEEEEEEEEEEEEEE   RRRRRRRRRR RR    RRRRRRRRRR RR   OOOOOOOOOOOOOO  RRRRRRRRRR RR"
                    put " EE                   RR        RRR    RR        RRR   OO          OO  RR        RRR"
                    put " EE                   RR        RRR    RR        RRR   OO          OO  RR        RRR"
                    put " EE                   RR       RRR     RR       RRR    OO          OO  RR       RRR "
                    put " EEEEEEEEEE           RRRRRRRRRR       RRRRRRRRRR      OO          OO  RRRRRRRRRR   "
                    put " EEEEEEEEEE           RRRRRRR          RRRRRRR         OO          OO  RRRRRRR      "
                    put " EE                   RRRRRRRR         RRRRRRRR        OO          OO  RRRRRRRR     "
                    put " EE                   RR     RRR       RR     RRR      OO          OO  RR     RRR   "
                    put " EE                   RR      RRR      RR      RRR     OO          OO  RR      RRR  "
                    put " EEEEEEEEEEEEEEEEEE   RR       RRR     RR       RRR    OOOOOOOOOOOOOO  RR       RRR "
                    put " EEEEEEEEEEEEEEEEEE   RR        RRR    RR        RRR   OOOOOOOOOOOOOO  RR        RRR"
                    put "                                                                                      "
                    put "                                                                                      "
                end loop

            end if
            put ""
            put "Alright now ", username, " now go outside the door, you should find yourself in a hallway"
            put "**As you step out the door, you try to get your bearings...**"

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            colorback (255)
            cls
            Pic.Draw (PIC_ID6, 0, 0, picCopy)

            put "YOU HAVE JUST ENCOUNTERED YOUR FIRST MONSTER!!!!!!"
            put "NOW YOU MUST BATTLE TO SURVIVE!!!!!!!!!!!!!"

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put "The stats for the 'zombie' is...."
            put "Attack...........................2"
            put "Defense..........................1"
            put "Would you like to battle this monster, or would you rather run away?"
            put "You may gain some items from battling this monster, but if you run"
            put "you may sustain damage..!"

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put "The commands for this situation are........"
            put "Battle.............................Attack"
            put "Run away like a coward.............Run"
            get command
            loop
                if command = "Attack" then
                    put "Now that you have chosen to attack the monster, you must select a weapon..."
                    put "When you picked up the knife from earlier on, you should have gotten a code..."
                    put "USE THAT CODE NOW!!!!"

                    put "PRESS ANY KEY TO CONTINUE"

                    getch (key)
                    cls
                    put "....Wait....You did pick up the knife didn't you?"
                    put "Well if you didn't I will give you the code...REMEMBER IT..."

                    put "PRESS ANY KEY TO CONTINUE"

                    getch (key)
                    cls
                    put "The code for the knife was knife1, REMEMBER IT!, I will not tell you again..."
                    put "Alright, are you ready for this, just remember the good ol' one two!"
                    getch (key)
                    cls
                   
                   
                   
                elsif command = "Run" then
                    put "You attempt to run away from the zombie, but you trip and fall"
                    put "You feel a sharp pain in your leg, and cannot get up again..."
                    put "You manage to drag yourself back into the room, but..."
                    put "Because you cannot close the door, you are trapped in the room with the zombie..."
                    put "All you feel is a sharp pain on your neck, and you are given...Escape...."
                    put "GAME OVER....YOUR INABILITY TO FIGHT HAS LED TO YOUR DEATH"

                else
                    put "Invalid Command!"

                end if
            end loop












        label "LEAVE" :
            cls
            put "What an unfortuanate desicion"
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put "**You hear a huge crackle, and hear a spark.**"
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put "**You stumble backwards and fall**"
            put "**Unable to find the string again, you are forced to wander"
            put "around the room aimlessly**"
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put "**Because there is no food or water, you die of malnutrition in a few days"
            put "atleast, you think its a few days...**"
            put " "
            put " "

            put "PRESS ANY KEY TO CONTINUE"

            getch (key)
            cls
            put "GAME OVER....YOUR INABILITY TO TRUST HAS LED TO YOUR DEATH"

            put "PRESS THE ESC KEY TO EXIT!"

            getch (key)
            if chars (KEY_ESC) then

                Window.Close (death)
            end if
            cls
    end case
end StartGame

procedure Instruction
    setscreen ("graphics:max;max,nobuttonbar,msdos")
    colorback (255)
    cls
    color (12)
    cls
    locate (1, 1)

    put "_________________________INSTRUCTIONS__________________________"
    put skip
    put "Basically this game is text based, and requires you to type things in."
    put "The program will give you situations in which you need to enter a command..."
    put "These commands are limited to the situation, such as picking something up"
    put "Will have the option of leaving the object, or picking it up."
    put "Read each line carefully, because it may have some useful information."
    put "Follow the story and have fun!! XD"
end Instruction

procedure Extra
    setscreen ("graphics:max,max,nobuttonbar,msdos")
    colorback (255)
    cls
    color (12)

    var fname : string
    var lname : string
    var age : string
    var answer : string
    var yorno : string
    var answers : int
    var yesorno : string
    var yes : string
    var command : string
    var commands : string
    var command1 : string
    put "Hello, please enter your first and last name."
    delay (2500)
    cls
    put "First name..."
    get fname : *
    delay (2500)
    cls
    put "Last name..."
    get lname : *
    delay (2500)
    cls
    put "Hello ", fname, "! How are you doing today? Now I am just going to"
    put "ask a few questions."
    put "Press any key to continue"
    get answer : *
    delay (2500)
    cls
    put "Now that we have your name, how old are you?"
    get age : *
    delay (2500)
    cls
    put "Just to confirm, you are ", age, " years old?"
    get answer : *
    delay (2500)
    cls
    put "Well, if it's wrong you have to start the program over...if its right,"
    put "then wait please."
    put "Press any key to continue"
    get answer : *
    delay (3500)
    cls
    put "Great! Now that we have all of your info, we can start!"
    delay (2500)
    put "Ready?"
    get answer : *
    delay (2500)
    cls
    put "Well even if you said no, too bad >:D"
    delay (2500)
    cls
    put "Loading Screen.."
    delay (250)
    cls
    put "Loading Screen."
    delay (250)
    cls
    put "Loading Screen.."
    delay (250)
    cls
    put "Loading Screen..."
    delay (250)
    cls
    put "Loading Screen...."
    delay (250)
    cls
    put "Loading Screen....."
    delay (250)
    cls
    put "Loading Screen...."
    delay (250)
    cls
    put "Loading Screen..."
    delay (250)
    cls
    put "Loading Screen.."
    delay (250)
    cls
    put "Loading Screen."
    delay (250)
    cls
    put "Loading Screen.."
    delay (250)
    cls
    put "Loading Screen."
    delay (250)
    cls
    put "Loading Screen.."
    delay (250)
    cls
    put "Loading Screen..."
    delay (250)
    cls
    put "Loading Screen...."
    delay (250)
    cls
    put "Loading Screen....."
    delay (250)
    cls
    put "Loading Screen...."
    delay (250)
    cls
    put "Loading Screen..."
    delay (250)
    cls
    put "Loading Screen.."
    delay (250)
    cls
    put "Loading Screen."
    delay (250)
    cls
    put "Loading Successful..."
    delay (1000)
    cls
    put "Error 1337"
    put "Please press y to continue, if you would like to exit "
    put "please press n."
    get yorno : *
    cls
    put "You have selected to ", yorno, " correct?"
    get answer : *
    delay (250)
    cls
    put "We have unfortunatly run into an error, and we have found illegal programs."
    put "Now dialing the Federal Bureau of Investigations..."
    delay (2500)
    put "9" ..
    delay (200)
    put "0" ..
    delay (200)
    put "5" ..
    delay (200)
    put "-" ..
    delay (200)
    put "6" ..
    delay (200)
    put "1" ..
    delay (200)
    put "9" ..
    delay (200)
    put "-" ..
    delay (200)
    put "1" ..
    delay (200)
    put "3" ..
    delay (200)
    put "3" ..
    delay (200)
    put "7" ..
    delay (200)
    cls
    put "Prepare for total crash of computer, " ..
    put "the Federal Bureau of Investigations " ..
    put "have now taken control of your computer. All files will be erased..."
    delay (2500)
    cls
    put "The Federal Bureau of Investigations wishes you a Merry Christmas " ..
    put " Thank you and have a nice day!"
    delay (2500)
    var numFrames : int := Pic.Frames ("%oot/Support/Help/Examples/Data Files/bones.gif")
    var pics : array 1 .. numFrames of int
    var delayTime : int
    Pic.FileNewFrames ("%oot/Support/Help/Examples/Data Files/bones.gif", pics, delayTime)
    Draw.FillBox (0, 0, maxx, maxy, black)
    var sprite : int
    sprite := Sprite.New (pics (1))
    Sprite.SetPosition (sprite, 0, 100, false)
    Sprite.Show (sprite)
    for x : 8 .. maxx by 8
        Sprite.Animate (sprite, pics ((x div 8) mod numFrames + 1), x, 100, false)
        delay (40)
    end for
    Sprite.Free (sprite)
    cls
    put "ERROR ILLEGAL PROGRAMS FOUND"
    delay (1000)
    put "ALL FILES ARE NOW BEING DELETED"
    delay (1000)
    put "HARD DRIVE IS NOW BEING WIPED"
    delay (1000)
    put "THE PROPER AUTHORITIES HAVE BEEN NOTIFIED " ..
    delay (1000)
    put "OF THIS COMPUTER'S ILLEGAL ACTIVITIES"
    delay (1000)
    put "."
    delay (100)
    put ".."
    delay (100)
    put "..."
    delay (100)
    put "...."
    delay (100)
    put "....."
    delay (100)
    put "......"
    delay (100)
    put "......."
    delay (100)
    put "........"
    delay (100)
    put "........."
    delay (100)
    put ".........."
    delay (100)
    put "..........."
    delay (100)
    put "............"
    delay (100)
    put "............."
    delay (100)
    put ".............."
    delay (100)
    put "..............."
    delay (100)
    put "................"
    delay (100)
    put "................."
    delay (100)
    put ".................."
    delay (100)
    put "..................."
    delay (100)
    put "...................."
    delay (100)
    put "....................."
    delay (100)
    put "......................"
    delay (100)
    put "......................."
    delay (100)
    put "........................"
    delay (100)
    put "........................."
    delay (100)
    put ".........................."
    delay (100)
    put "..........................."
    delay (100)
    put "............................"
    delay (2000)
    loop
        put "Enter ID# 1337"
        get answers
        if answers = 1337 then
            cls
            put "Welcome User 1337..."
            exit when answers = 1337
        else
            put "INVALID ID..."
        end if
    end loop
    loop
        put "Would you like to access our commands before you begin?"
        get yesorno : *
        if yesorno = "yes" then
            cls
            put "The following commands are..."
            put "COMMAND..........................................CODE"
            put "Access Network...................................net"
            put "Access Command Prompt............................cmd"
            put "Access C Drive...................................cdrv"
            exit when yesorno = "yes"
        else
            put "Fatal Error, Please Restart Program"
            delay (1000)
            cls
        end if
    end loop
    get command
    case command of
        label "net" :
            put "You have accessed the network command..."
            put "To continue, we must scan the network..."
            put "Press any key to continue..." ..
            get answer
            cls
            put "Loading Screen."
            delay (250)
            cls
            put "Loading Screen.."
            delay (250)
            cls
            put "Loading Screen..."
            delay (250)
            cls
            put "Loading Screen...."
            delay (250)
            cls
            put "Loading Screen....."
            delay (250)
            cls
            put "Loading Screen...."
            delay (250)
            cls
            put "Loading Screen..."
            delay (250)
            cls
            put "Loading Screen.."
            delay (250)
            cls
            put "Loading Screen."
            delay (250)
            cls
            put "Loading Screen.."
            delay (250)
            cls
            put "Loading Screen..."
            delay (250)
            cls
            put "Loading Screen...."
            delay (250)
            cls
            put "Loading Screen....."
            delay (250)
            cls
            put "Loading Screen...."
            delay (250)
            cls
            put "Loading Screen..."
            delay (250)
            cls
            put "Loading Screen.."
            delay (250)
            cls
            put "Loading Screen."
            delay (250)
            cls
            put "Network Found..."
            put "TLC School Connect 5 Found..."
            put "Network Connection by Ethernet..."
            put "Connection..."
            put "Excellent..."
        label "cmd" :
            put "You have accessed command prompt..."
            put "Please press any key to continue..." ..
            get answer
            cls
            color (0)
            put "Microsoft Windows XP [Version 5.00.2600]"
            put "<C> Copyright 1985-2001 Microsoft Corp."
            put ""
            put "C:" ..
            put chr (92) ..
            put "Documents and Settings" ..
            put chr (92) ..
            put "localuser" ..
            put chr (92) ..
            get commands
            cls
            if commands = "cls" then
                put "C:" ..
                put chr (92) ..
                get command1
                cls
                loop
                    put "OMG PABLO IS A BEAST!!!!!"
                end loop
            end if
            if commands = "tree" then
                loop
                    color (1)
                    put "PABLO IS A TREEE!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (2)
                    put "PABLO IS A TREEE!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (3)
                    put "PABLO IS A TREEE!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (4)
                    put "PABLO IS A TREEE!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (5)
                    put "PABLO IS A TREEE!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (6)
                    put "PABLO IS A TREEE!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (7)
                    put "PABLO IS A TREEE!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (8)
                    put "PABLO IS A TREEE!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (9)
                    put "PABLO IS A TREEE!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (10)
                    put "PABLO IS A TREEE!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (11)
                    put "PABLO IS A TREEE!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (12)
                    put "PABLO IS A TREEE!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (13)
                    put "PABLO IS A TREEE!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (14)
                    put "PABLO IS A TREEE!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (15)
                    put "PABLO IS A TREEE!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (1)
                    put "PABLO IS A TREEE!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (2)
                    put "PABLO IS A TREEE!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (3)
                    put "PABLO IS A TREEE!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (4)
                    put "PABLO IS A TREEE!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (5)
                    put "PABLO IS A TREEE!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (6)
                    put "PABLO IS A TREEE!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (7)
                    put "PABLO IS A TREEE!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (8)
                    put "PABLO IS A TREEE!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (9)
                    put "PABLO IS A TREEE!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (10)
                    put "PABLO IS A TREEE!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (11)
                    put "PABLO IS A TREEE!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (12)
                    put "PABLO IS A TREEE!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (13)
                    put "PABLO IS A TREEE!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                    color (14)
                    put "PABLO IS A TREEE!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!              !!!!!!!!!!!!!!!!"
                end loop
            end if

            if commands = "error" then
                loop
                    color (0)
                    put " EEEEEEEEEEEEEEEEEE   RRRRRRRRRRRRR    RRRRRRRRRRRRR   OOOOOOOOOOOOOO  RRRRRRRRRRRRR"
                    put " EEEEEEEEEEEEEEEEEE   RRRRRRRRRR RR    RRRRRRRRRR RR   OOOOOOOOOOOOOO  RRRRRRRRRR RR"
                    put " EE                   RR        RRR    RR        RRR   OO          OO  RR        RRR"
                    put " EE                   RR        RRR    RR        RRR   OO          OO  RR        RRR"
                    put " EE                   RR       RRR     RR       RRR    OO          OO  RR       RRR "
                    put " EEEEEEEEEE           RRRRRRRRRR       RRRRRRRRRR      OO          OO  RRRRRRRRRR   "
                    put " EEEEEEEEEE           RRRRRRR          RRRRRRR         OO          OO  RRRRRRR      "
                    put " EE                   RRRRRRRR         RRRRRRRR        OO          OO  RRRRRRRR     "
                    put " EE                   RR     RRR       RR     RRR      OO          OO  RR     RRR   "
                    put " EE                   RR      RRR      RR      RRR     OO          OO  RR      RRR  "
                    put " EEEEEEEEEEEEEEEEEE   RR       RRR     RR       RRR    OOOOOOOOOOOOOO  RR       RRR "
                    put " EEEEEEEEEEEEEEEEEE   RR        RRR    RR        RRR   OOOOOOOOOOOOOO  RR        RRR"
                    put "                                                                                      "
                    put "                                                                                      "
                end loop
            end if



    end case
end Extra

Draw.Text ("ESCAPE! the game", 150, 550, font, 12)
var button1 : int := GUI.CreateButton (350, 400, 0, "Start Game", StartGame)
var button2 : int := GUI.CreateButton (350, 350, 0, "Instructions", Instruction)
var button3 : int := GUI.CreateButton (350, 300, 0, "Extra!", Extra)

loop
    exit when GUI.ProcessEvent
end loop









Please specify what version of Turing you are using
Turing 4.1.1
Author:  Ktomislav [ Wed Jan 13, 2010 6:07 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Double thread again.. or maybe triple.. I'm not counting anymore. I'm sick of this. Dan, Tony, mods please help.
Author:  xBalmungx [ Wed Jan 13, 2010 6:16 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Oh, umm, wellit is sorta my third time posting this code, but it is different everytime, and Im having different issues about it, the problem is that my zipped file just won't load onto the site, and I thought I was supposed to make a different thread everytime I had an issue, so your saying I should just continue the same thing on my original thread? Because my original was on the wrong topic, and was supposed to be in the help section where I reposted.....
Author:  Ktomislav [ Wed Jan 13, 2010 6:19 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
If it is the same program you are having problems with then post it in the one thread. If it is in the wrong section then mods will put it in the right one..
Author:  xBalmungx [ Wed Jan 13, 2010 6:25 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Oh, okay, my bad, im really sorry, not gonna do it again Embarassed
Author:  Turing_Gamer [ Wed Jan 13, 2010 10:26 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Either way, Ill help.
Try to have variables and resets for them.
Turing:
var health := 100

if hit := true then
    health := health - 5
    if health <= 0 then
        put "You are dead..."
        put "Retry?"
        get answer
        if answer = 'y' then
            health := 100
        end if
    end if
end if

*Phew*
Author:  xBalmungx [ Thu Jan 14, 2010 10:04 am ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Alright so this is what I have so far, I have to go to sleep now, but, I think it's a good start. Didn't get a chance to test it though...

if command = "Attack" then
loop
z_health := z_maxhealth + z_defense - knife1_att
health := maxHealth + knife1_def - z_attack

put "Your sucessfully hit the enemy, and reduce his health to ",z_health,"."
put "The enemy has made a counter hit! and has reduced your health to ",health,"."
exit when z_health <=0
exit when health <=0
end loop
else
if command = "Rest" then
put "Rest"
end if
end if
Author:  Turing_Gamer [ Thu Jan 14, 2010 11:49 am ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
First move the loop to the top so it cycles through a variety of commands instead of constantly attacking.
And have a loop around all that code
Author:  xBalmungx [ Thu Jan 14, 2010 5:06 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Alright, so I updated the code, and did as you said, but unfortuanalty it keeps looping Sad I also need to know how to use buttons to return to the menu, if thats possible...
Author:  Turing_Gamer [ Thu Jan 14, 2010 6:24 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
If you want, you can add a boolean set to false then in your program, say if leave then this boolean = true.
Then have an exit when boolean = true.
In menu, if you say start game then have boolean = false.
Just a thought, I haven't worked with GUI.
Author:  xBalmungx [ Thu Jan 14, 2010 6:48 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Well I have not worked with Boolean before, so could you explain?
Author:  xBalmungx [ Thu Jan 14, 2010 6:53 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Btw this assignment is due tomorrow, and all I need to know is how to finish/make the battle sequence according to the code I provided ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
and how to get back to the menu in ANY way whatsoever Razz
Author:  Turing_Gamer [ Thu Jan 14, 2010 6:59 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Boolean is basically a true or a false statement.
It is similar to binary, if true then put power or 1, if false then leave no power or 0.
Boolean is a very useful tool to determine when to run or not. For example...
Turing:
var activate : boolean

put "Would you like to play music during the game? (y/n)"
get answer
if answer = 'y' then
    activate := true
elsif answer = 'n' then
    activate := false
end if
%Random Game Code
if activate := true and victory := true then
    fork MUSIC
end if
Author:  xBalmungx [ Thu Jan 14, 2010 7:07 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Oh okay I get it, so how could I incorporate that into my coding, because im not sure how to anchor the menu, so that I can exit to the menu when boolean = true?
Author:  Turing_Gamer [ Thu Jan 14, 2010 7:47 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Somewhere in the game where you either die or quit and near the beginning of the main code thats looped have an exit when
Author:  xBalmungx [ Thu Jan 14, 2010 7:51 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Please please please, give me an example man, I really don't know how to do this based on my code, I have like 5000 loops in there...
Author:  xBalmungx [ Thu Jan 14, 2010 7:54 pm ]
Post subject:  Re: How are Battle phases done? Especially more Compilicated ones?
Draw.Text ("ESCAPE! the game", 150, 550, font, 12)
Draw.Text ("****This is just a trial demo version****", 100, 500, fontdemo, 12)
var button1 : int := GUI.CreateButton (1, 400, 0, "Start Game", StartGame)
var button2 : int := GUI.CreateButton (1, 350, 0, "Instructions", Instruction)
var button3 : int := GUI.CreateButton (1, 300, 0, "Extra!", Extra)
var button4 : int := GUI.CreateButton (1, 250, 0, "Credits", Credits)
var button5 : int := GUI.CreateButton (1, 200, 0, "About the Program", About)
var button6 : int := GUI.CreateButton (1, 150, 0, "Buy Full Version", FullVersion)
Draw.Text ("****************Version 1.0 Beta***********************", 1, 1, fontVersion, 12)

thats my menu

label "LEAVE" :
cls
fork BackgroundMusic1
put "What an unfortuanate desicion"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "**You hear a huge crackle, and hear a spark.**"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "**You stumble backwards and fall**"
put "**Unable to find the string again, you are forced to wander"
put "around the room aimlessly**"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "**Because there is no food or water, you die of malnutrition in a few days"
put "atleast, you think its a few days...**"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "GAME OVER....YOUR INABILITY TO TRUST HAS LED TO YOUR DEATH"

end StartGame
this is where I would like the exit back to the menu...how would I do this?

:


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

Terms of Use | Privacy Policy