-----------------------------------

Rudiger

Mon Dec 29, 2003 1:29 pm


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


-----------------------------------

recneps

Mon Dec 29, 2003 1:45 pm



-----------------------------------

your missing end if is right here....



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

Mon Dec 29, 2003 2:39 pm



-----------------------------------

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


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.


-----------------------------------

Mazer

Mon Dec 29, 2003 3:42 pm



-----------------------------------

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?  :P


-----------------------------------

Rudiger

Mon Dec 29, 2003 9:04 pm



-----------------------------------

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


-----------------------------------

Rudiger

Mon Dec 29, 2003 11:21 pm



-----------------------------------

nop that dosnt work, anymore suggestions?


-----------------------------------

recneps

Tue Dec 30, 2003 5:09 pm



-----------------------------------

o.O oshawa? im from whitby :)


-----------------------------------

Rudiger

Tue Dec 30, 2003 9:27 pm



-----------------------------------

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


-----------------------------------

recneps

Wed Dec 31, 2003 10:38 am



-----------------------------------

Henry


-----------------------------------

Rudiger

Wed Dec 31, 2003 12:42 pm



-----------------------------------

damn my freaind goes to anderson


-----------------------------------

Rudiger

Wed Dec 31, 2003 12:42 pm



-----------------------------------

ok can anyone help me wiht my program