procedure stats
put "Strength ",strength
put "Agility ",agility
put "Vitality ",vitality
put "Luck ",luck
put "Charisma ",charisma
put "Intelligence ",intelligence
put "Wisdom ",wisdom
draw:= GUI.CreateButtonFull (5, 10, 0, "Strength",
strength2, 0, '^D', true)
draw:= GUI.CreateButtonFull (85, 10, 0, "Agility",
agility2, 0, '^D', true)
draw:= GUI.CreateButtonFull (155, 10, 0, "Vitality",
vitality2, 0, '^D', true)
draw:= GUI.CreateButtonFull (230, 10, 0, "Luck",
luck2, 0, '^D', true)
draw:= GUI.CreateButtonFull (290, 10, 0, "Charisma",
charisma2, 0, '^D', true)
draw:= GUI.CreateButtonFull (375, 10, 0, "Intelligence",
intelligence2, 0, '^D', true)
draw:= GUI.CreateButtonFull (470, 10, 0, "Wisdom",
wisdom2, 0, '^D', true)
stat:=strength+agility+vitality+luck+charisma+intelligence+wisdom
if stat<=70 then
cls
stats
else
end if
end stats |