Computer Science Canada he was a dragon-man,or maybe he was just a dragonman/trogdor |
Author: | Rudiger [ Mon Dec 29, 2003 1:29 pm ] |
Post subject: | he was a dragon-man,or maybe he was just a dragonman/trogdor |
ok i need some help with my trogdor game. i haev this huge fight scene. but every time it starts it says it has no "end if". can you help me. heres my program. setscreen ("graphics") setscreen ( "graphics:767;487" ) Pic.ScreenLoad ("Trogdorpic.bmp",0,0,picCopy) delay (10000) cls colourback(black) cls color(yellow) var name : string var answer :string var points :real:=0 put "What is your name, Boy?" get name put "That name is gay" delay (2000) put "Who cares, but i have a quest for you?" delay (2000) put "Do you want to do the quest?" put "agree" put "disagree" get answer if answer = "agree" then put "0k, heres the quest" elsif answer = "disagree"then put "good bye" delay (1000) cls put "YOU MUST EXIT OUT OF THE GAME.THIS PROGRAM DOESN'T DO THIS." delay (999999) cls end if delay (2000) put "Theres this dragon out there." delay (2000) put "He always comes around the night and destorys our farm." delay (2000) put "The legend is that he was a man once was a man..." delay (2000) put "no...he was a dragon-man..." delay (2000) put "or maybe he was just a dragon." delay (2000) put "That not the point, but we want you to go and kill trogdor..." delay (2000) Pic.ScreenLoad ("game1.jpg",0,0,picCopy) delay (5000) cls put "You are going to need some weapons" delay (2000) put "lets see you are going to need a sword" delay (2000) put "You are going to need a shield and some amour" delay (2000) put "There you go, your ready so go out there and fight Trogdor" delay (5000) cls var answer2:string delay (2000) put "You walk out of the town," delay (2000) put "Into the countryside, where there's rats and 'Trogdor The burninater'" delay (2000) put name," hears a noise in the bush" delay (2000) put "what should ", name," do?" delay (2000) put "A-Run over there and kill that thing." delay (2000) put "B-Run like a girl" delay (2000) put "C-Put the whole forest on fire" delay (2000) put "D-check it out" get answer2 if answer2="A" then put "You killed a evil monkey(+10 points)" delay (1000) points:= 10+ points elsif answer2="b" then put "Trogdor poped out and burninated you.(death)" delay (1000) cls Pic.ScreenLoad ("Gameover.bmp",0,0,picCopy) put points elsif answer2="c" then put "You die in the fire, Good work.(+100)" points:=100+points delay (5000) cls put points Pic.ScreenLoad ("Gameover.bmp",0,0,picCopy) delay (99999) elsif answer2="d" then put "You almost die, but kill that rabbit(no points given)" end if put "So you walk into the Dark Forest" delay (2000) put "You see alittle imp, next thinf you relose his a demon. His one of the 'Evil Three of Darkness'" delay (3000) put "He pulls out his Axe and he looks at you...." delay (2000) put "1- You pulled your sword out." delay (2000) put "2- Stab him in the eye." delay (2000) put "3- block and defend." delay (2000) put "4- run away." delay (2000) put "(This is going to be a Random)" delay (5000) var p1 :int randint (p1, 1,4) put "You roled, ", p1 if p1=1 then put"You killed the imp two more to go.(+10)" delay (2000) points:= 10+ points elsif p1=2 then put "You killed the imp two more to go.(+100)" delay (2000) points:= 100+ points elsif p1=3 then put "You killed the imp two more to go.(+10)" delay (2000) elsif p1=4 then put "You die" delay (1000) cls Pic.ScreenLoad ("Gameover.bmp",0,0,picCopy) put points end if delay (1000) var answer3,answer4 :string var dwarf :int :=100 var dwarfA :int var character : int :=100 var characterA :int put " You walk on to the 'Cave of the Damned'" put name, " looks around and sees a dwarf siting in the corner smoking his pipe" put "What should you do?" put "A- Try to walk around him and not make a sound" put "B- Run up to him and stab him in the back" get answer3 if answer3 = "A" then put "You trepped and fell on a rock and cracked your haed open." delay (1000) put "-black out-" delay (1000) points := points-5 put "-You gut up. To your sapprouse you see the dwarf with his big axe and smiling.-" put "You get up and pull out you sowrd..." loop put "What should i do?" put "A- Run up and stab him" put "B- Through a rock at him" put "C- Defend" put "D- Run" get answer4 if answer4 = "A" then put "You stabed him." randint (character, 0,50) put "You done ",characterA," damage" dwarf := character-dwarf put "The Dwarf has ",dwarf," HP left" points:= points +character randint (dwarfA,1,50) character := dwarfA-character put "The dwarf done, ", dwarfA," damage" elsif answer4 = "B" then put "The rock missed" delay (1000) put "You can't through nothing, remeber." randint (dwarfA,1,50) character := dwarfA-character put "The charcter done, ", dwarfA," damage" elsif answer4 = "C" then put " you defend successfully" elsif answer4 = "D" then put "No one can run form a short guy." delay (2000) cls Pic.ScreenLoad ("Gameover.bmp",0,0,picCopy) put points end if end loop elsif answer4 = "B" then put "WOW, You killed the dwarf" points := points + 100 end if can you help me |
Author: | recneps [ Mon Dec 29, 2003 1:45 pm ] | ||
Post subject: | |||
your missing end if is right here....
|
Author: | Tony [ Mon Dec 29, 2003 2:39 pm ] |
Post subject: | |
hah, its soo funny how you can "die" in the game and if you just wait long enough, the game will continue Quote: put "you have died. Please exit the game before it continues on as if you haven't died, because you did. So now you must exit" Also - if you source code is long - please attach it as a file. |
Author: | Mazer [ Mon Dec 29, 2003 3:42 pm ] |
Post subject: | |
yes, and please for all that is good and readable in the world, indent your code! it's just a simple key (F2) away, OK? |
Author: | Rudiger [ Mon Dec 29, 2003 9:04 pm ] |
Post subject: | |
yeah ok thanx for the help... yeah i do indent my work that the website change it sooooo. its not my flat |
Author: | Rudiger [ Mon Dec 29, 2003 11:21 pm ] |
Post subject: | |
nop that dosnt work, anymore suggestions? |
Author: | recneps [ Tue Dec 30, 2003 5:09 pm ] |
Post subject: | |
o.O oshawa? im from whitby |
Author: | Rudiger [ Tue Dec 30, 2003 9:27 pm ] |
Post subject: | |
sweet i have a freaind who lives in whitby what school do you go to? |
Author: | recneps [ Wed Dec 31, 2003 10:38 am ] |
Post subject: | |
Henry |
Author: | Rudiger [ Wed Dec 31, 2003 12:42 pm ] |
Post subject: | |
damn my freaind goes to anderson |
Author: | Rudiger [ Wed Dec 31, 2003 12:42 pm ] |
Post subject: | |
ok can anyone help me wiht my program |