Page 1 of 1

Text Based game...

Posted: Thu Jun 16, 2005 4:22 pm
by Shmack
hmm for my final project due in a few days i dont got much done only got this so far :s

var choice : int
put "Pick your Race."
put " "
put "1-Human (Str: 15 Agi:15 Vit:15 Wiz:15)"
put " "
put "2-Night elf (Str: 15 Agi:20 Vit:10 Wiz:15)"
put " "
put "3-Orc (Str: 20 Agi:10 Vit:20 Wiz:10)"
put " "
put "4-Undead (Str: 10 Agi:10 Vit:20 Wiz:20)"
get choice
if choice = 1 then
race := "Human"
str := 15
agi := 15
vit := 15
wiz := 15
elsif choice = 2 then
race := "Human"
str := 15
agi := 20
vit := 10
wiz := 15
elsif choice = 3 then
race := "Human"
str := 20
agi := 10
vit := 20
wiz := 10
elsif choice = 4 then
race := "Human"
str := 10
agi := 10
vit := 20
wiz := 20
end if
end charRace
charRace
put race, str, agi, vit, wiz

::keep getting error::

left side of assignment is not a variable and hence cannot be assigned to

that even has errors in it im used to useing turing 4.0.0 ^^;; but ya if any one could give me some help with how i would make it so i can add status and buttuns that would really help gah im gonna fail XD :dosgonebad:

Archived topic from Iceteks, old topic ID:3410, old post ID:27454

Text Based game...

Posted: Thu Jun 16, 2005 6:05 pm
by Shmack
woot woot fixed it now to finsh the other 99% D:


var race : string
var str, agi, vit, wiz : int
procedure charRace (var str, agi, vit, wiz : int)
var choice : int
put "Pick your Race."
put " "
put "1-Human (Str: 15 Agi:15 Vit:15 Wiz:15)"
put " "
put "2-Night elf (Str: 15 Agi:20 Vit:10 Wiz:15)"
put " "
put "3-Orc (Str: 20 Agi:10 Vit:20 Wiz:10)"
put " "
put "4-Undead (Str: 10 Agi:10 Vit:20 Wiz:20)"
get choice
if choice = 1 then
race := "Human"
str := 15
agi := 15
vit := 15
wiz := 15
elsif choice = 2 then
race := "Night Elf"
str := 15
agi := 20
vit := 10
wiz := 15
elsif choice = 3 then
race := "Orc"
str := 20
agi := 10
vit := 20
wiz := 10
elsif choice = 4 then
race := "Undead"
str := 10
agi := 10
vit := 20
wiz := 20
end if
end charRace

procedure atkBox
setscreen ("graphics:600;600")
drawline (300, 0, 300, 600, 3)
end atkBox

charRace (str, agi, vit, wiz)
put race, str, agi, vit, wiz

Archived topic from Iceteks, old topic ID:3410, old post ID:27457