+CREDITS
Althagar

Story by Darangen
Art by Darangen, Lord Michel, Sol, and Jasmin
Music selections by Darangen, made possible by http://www.vgmusic.com and other various sites

Tiles for most maps were donated by Lord Michel

Thank You to all the truthful players that tell me when things aren't going the way they should.

And many thanks to him who has made this all possible:

Dan Samuel
-CREDITS
#include story.txt
#include terrains.txt
#include equip.txt
#include maps.txt
#include tokens.txt
#include elements.txt
#include hands.txt
#include Tokens.txt
+ITEMS
#include items.txt
-ITEMS
+SPELLS
#include spells.txt
-SPELLS
+MONSTERS
#include monsters.txt
-MONSTERS
+GROUPS
1,		1,1,2,2
2,		2,2,3,1
3,		1,3,4,6
4,		7,1,9,5
5,		1,7,6,6
6,		4,6,7,8
7,		6,1,8,4
8,		1,3,8,4
9,		9,4,3,7
10,		3,4,5,6
11,		4,5,6,7
12,		5,6,7,8
13,		6,7,8,9
-GROUPS
+LEVELS
#include levels.txt
-LEVELS
+SCENES
#include Scene1.txt
#include scene2.txt
#include sanctuary.txt
#include ForestMaze.txt
#include Towns.txt
#include Training.txt
#include Housing.txt
#include QuestScenes.txt
#include QuestScenes2.txt
#include Cut.txt
SCENE 5678, SCENE,, "Taming Development Scene"

ACTOR 1, "Tame Me!", josh59, 1, 30, 70
N: You see a creature in the distance..
WAIT 1
N: It doesn't seem to be hostile..
SET monsterresistance, %R50
ADD monsterresistance, 30
END

@eventActorClick1
N: What will you do?
WAIT 1
MENU "Attempt to tame the animal.=@tame","Speak to the animal.=@lore","Do nothing.=@end","Set Taming Skill=@setskill"
END
@tame
IF R7, @angered
SET tamechance, #<tameskill>
ADD tamechance, #<loreskill>
COMPARE #<monsterresistance>, #<tamechance>
IF<, @successfultame
N: You fail to tame the creature.
SET movecreature1, 30
ADD movecreature1, %R10
SUB movecreature1, %R20
SET movecreature2, 70
ADD movecreature2, %R10
SUB movecreature2, %R20
MOVE 1,#<movecreature1>,#<movecreature2>
IF R#<tameprobability>, @nogaintame
ADD tameskill2, 1
SET tameprobability, 70
ADD tameprobability, %r30
N: Your Animal Taming skill has increased!  It is now #<tameskill>.#<tameskill2>%!
END
@successfultame
N: It seems to accept you as its master.
IF R#<tameprobability>, @nogaintame
SET tameprobability, 70
ADD tameprobability, %r30
ADD tameskill2, 1
COMPARE #<tameskill2>, 10
IF=, @resettameskill2
@gaintame
N: Your Animal Taming skill has increased!  It is now #<tameskill>.#<tameskill2>%!
@nogaintame
SUB tameprobability, 1
N: Tame Probability is now #<tameprobability>.
END
@resettameskill2
SET tameskill2, 0
ADD tameskill, 1
GOTO @gaintame
@angered
N: The creature becomes angered and attacks you.
1: Raah!  I'm mad and attacking you! rawrr!
; FIGHT2 monster
END
@lore
SET lorechance, #<loreskill>
ADD lorechance, 50
IF R#<lorechance>, @successfullore
SET movecreature1, 30
ADD movecreature1, %R10
SUB movecreature1, %R20
SET movecreature2, 70
ADD movecreature2, %R10
SUB movecreature2, %R20
MOVE 1,#<movecreature1>,#<movecreature2>
N: You fail to say anything to influence the creature.
END
@successfullore
COMPARE #<loreskill>, 30
IF>, @nogainlore
IF=, @nogainlore
IF R#<loreprobability>, @nogainlore
ADD loreskill, 1
SET loreprobability, 100
SUB loreprobability, %R30
N: Your Animal Lore skill has increased! It is now #<loreskill>%!
@nogainlore
SUB loreprobability, 1
N: Lore Probability is now #<loreprobability>.
GOTO @%R4
END
@1
H: Good boy..
END
@2
H: Nice..
END
@3
H: I've always wanted a pet like you..
END
@4
H: Would you like to come with me?
END
@setskill
SET tameskill, 80
SET loreskill, 80
SET tameskill2, 0
@end
END

@eventActorSpell1
GOTO @angered
@eventActorAttack1
GOTO @angered
END


-SCENES

;THE GREEN BUNNY HAS PINK EARS