  
# F - Forest
# L - Land
# M - Mountain
# R - Ruines
# H - Home
# T - Tower

MAP
LLLLLLLLLLHLLLLLLLL
LLLLLLLLLELLLHLLLLLL
LLLLLLLLLLLLLLLLLLL
LLLLLLLLLHLLLELLLLLL
LLLLLLLLLLLELLLLLLL
LLLLLLLLLLLLLLLLLLLL
LLLLLLLLLLLLLLLLLLL
LLLLLLLFLLLLLLLFLLLL
LLLLLFFFFFLLLFFFFFL
LLLLLFFFFLFFFFFFFFMM
LFFFFFFFFFFFFFFMMMM
FFFFFFFFFFFFFFMMMMMM
FFFFFFFFFFFMMMMMMMM
#===MAPEND===

#       
CONSTANTS
StepNewMonster:3
StepNew2Monster:5
StepNew3Monster:7
FoodNeed:150
StoneNeed:100

OBJECTS
Stone:i=2,j=9,size=medium
Stone:i=4,j=8,size=max
Stone:i=5,j=7,size=medium
Stone:i=6,j=7,size=min
Stone:i=11,j=8,size=min
Stone:i=8,j=7,size=medium
Stone:i=10,j=8,size=max
Pony:i=1,j=4,"name=",code=rarity
Pony:i=2,j=2,"name=",code=applejack

INITIAL
Stone:0
Food:50
Task: @FoodNeed@   @StoneNeed@ 
Permits:action=deny,code=all
Permits:action=allow,code=BuildFarmFood
Permits:action=allow,code=Harvest
Permits:action=allow,code=Repair
Permits:action=allow,code=MagicRepair

SCRIPT
Event:Step=0
Action:Type=Message,icon=applejack_ico,"text=    .==>
- -   ,   , ==>
  .    ==>
,        ".
Action:Type=Message,icon=rarity_ico,"text=    ==>
  ?   ."
Action:Type=Message,icon=applejack_ico,"text=     ==>
 ,  ,   ,     ==>
."
Action:Type=Message,icon=rarity_ico,"text=   ==>
   ?"
Action:Type=ShowBattleTask

SCRIPT
Event:Step=@StepNewMonster@
Action:Type=SetFocus,i=10,j=10
Action:Type=NewObject,Object=Monster,Code=woodwolf,"Name= ",i=10,j=10
Action:Type=Message,icon=applejack_ico,"text=   ,   !"
Action:Type=SetPermits,action=allow,code=AttackNear
Action:Type=SetPermits,action=allow,code=AttackLong
Action:Type=Message,icon=help_ico,"text=  :  ==>
  ."

SCRIPT
Event:Step=@StepNew2Monster@
Action:Type=SetFocus,i=14,j=11
Action:Type=NewObject,Object=Monster,Code=woodwolf,"Name= ",i=14,j=11
Action:Type=Message,icon=rarity_ico,"text=   . ,     ."


SCRIPT
Event:Step=@StepNew3Monster@
Action:Type=SetFocus,i=14,j=6
Action:Type=NewObject,Object=Monster,Code=ameba,"Name=",i=18,j=4
Action:Type=NewObject,Object=Monster,Code=ameba,"Name=",i=17,j=2
Action:Type=Message,icon=rarity_ico,"text=  !   ? ==> 
     !"
Action:Type=Message,icon=applejack_ico,"text= , .   ==>
   ,    ."

SCRIPT
Event:Victory=True
Action:Type=Message,icon=applejack_ico,"text= , .  ,     ==>
    ."

VICTORY
ByStone:StoneNeed=@StoneNeed@
->ByFood:FoodNeed=@FoodNeed@,AddType=And
