Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 he was a dragon-man,or maybe he was just a dragonman/trogdor
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Rudiger




PostPosted: 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
Sponsor
Sponsor
Sponsor
sponsor
recneps




PostPosted: Mon Dec 29, 2003 1:45 pm   Post subject: (No subject)

your missing end if is right here....

code:


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..."

[b]end if[/b] % right here.... ------------------------------------------------------------

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
Tony




PostPosted: Mon Dec 29, 2003 2:39 pm   Post subject: (No subject)

hah, its soo funny how you can "die" in the game and if you just wait long enough, the game will continue Laughing

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.
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
Mazer




PostPosted: Mon Dec 29, 2003 3:42 pm   Post subject: (No 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? Razz
Rudiger




PostPosted: Mon Dec 29, 2003 9:04 pm   Post subject: (No subject)

yeah ok thanx for the help...
yeah i do indent my work that the website change it sooooo. its not my flat
Rudiger




PostPosted: Mon Dec 29, 2003 11:21 pm   Post subject: (No subject)

nop that dosnt work, anymore suggestions?
recneps




PostPosted: Tue Dec 30, 2003 5:09 pm   Post subject: (No subject)

o.O oshawa? im from whitby Smile
Rudiger




PostPosted: Tue Dec 30, 2003 9:27 pm   Post subject: (No subject)

sweet i have a freaind who lives in whitby what school do you go to?
recneps




PostPosted: Wed Dec 31, 2003 10:38 am   Post subject: (No subject)

Henry
Rudiger




PostPosted: Wed Dec 31, 2003 12:42 pm   Post subject: (No subject)

damn my freaind goes to anderson
Rudiger




PostPosted: Wed Dec 31, 2003 12:42 pm   Post subject: (No subject)

ok can anyone help me wiht my program
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 11 Posts ]
Jump to:   


Style:  
Search: