----------------------------------- xBalmungx Wed Jan 13, 2010 5:54 pm 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 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 Please specify what version of Turing you are using Turing 4.1.1 ----------------------------------- Ktomislav Wed Jan 13, 2010 6:07 pm 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. ----------------------------------- xBalmungx Wed Jan 13, 2010 6:16 pm 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..... ----------------------------------- Ktomislav Wed Jan 13, 2010 6:19 pm 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.. ----------------------------------- xBalmungx Wed Jan 13, 2010 6:25 pm Re: How are Battle phases done? Especially more Compilicated ones? ----------------------------------- Oh, okay, my bad, im really sorry, not gonna do it again :oops: ----------------------------------- Turing_Gamer Wed Jan 13, 2010 10:26 pm Re: How are Battle phases done? Especially more Compilicated ones? ----------------------------------- Either way, Ill help. Try to have variables and resets for them. var health := 100 if hit := true then health := health - 5 if health