Project Design and Programming by
Jacob Gribbon
The Lakeview School | Denville NJ 07834-3419
Copyright 2004 All rights reserved

to setup
sethunger 20
setfun 25
sethappiness 25
end

to hour
sethunger hunger + 1
sethappiness happiness - 1
setfun fun - 1
if hunger > 40 [announce[ Your pet died from hunger!] page1]
if fun = 0 [announce[ Your pet died from being bored!] page1]
if fun < 1 [announce[ WARNING! YOUR PET IS GETTING BORED]stop]
if happiness < 1[announce[WAHHHH! I'M SAD!]stop]
if happiness = 0[announce[ Your pet died from lonliness!] page 1]
if happiness > 100 [announce[ GOOD!!!] hidetext text3]
if fun > 100 [announce[ GOOD!!!] hidetext text3]
end

to Play
wait 20
page2
showtext text3
page3
showtext text3
page4
showtext text3
page5
showtext text3
page8
showtext text3
end

to hug
sethappiness happiness + 5
end

to water
sethunger hunger - 3
end

to food
sethunger hunger - 4
end

to treat
setfun fun + 5
end

to seed
sethunger hunger - 5
end

to heluim
sethappiness happiness + 10
sethunger hunger - 1
end

to hydrogen
setfun fun + 10
sethunger hunger - 1
end

to toy
sethappiness happiness + 5
setfun fun + 5
sethunger hunger - 2
end

to live
setup
showtext
forever [if timer > 60 [ resett HOUR ]]
end

to credits
page9
end

to PrintCertificate
page6
end

to picture
page10
end