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

MAP
LLLLLLLLFFFFFFFLLLLLLWL
LLLLLLLLLFFFFFFLLLLWWWLL
LLHLLLWWWWWFFFLLLLWLLLL
LLLLLWWLLFFWWWWWWWWLLLLL
LLLLWLLLFFFFFFLLLLWWWLL
LLLLWLLLLFFFFFFLLLLLLWLL
LLLLWLLLFFFFFFFLLLLLLWL
LLLLLWLFFFFFFFFFFLLLLLWW
LLLLWLFFFFMMFFFFFFLLLLL
LLLWWLFFFFFMMFFFFFFFLLLL
LLWLLFFFFFMMMMMFFFFFFFL
LLWLFFFFFMMMMMMMFFFFFFFF
LWLLFFFFMMMMMMMMMMMMFFF
LLWLFFFFMMMMMMMMMMMMMMMF
LLWLFFFFMMMMMMMMMMMMMMM
#===MAPEND===

#       
CONSTANTS
StepNewMonster:3

OBJECTS
Food:i=3,j=2,size=min,tag=foods
Food:i=3,j=3,size=min,tag=foods
Pony:i=2,j=12,"name=",code=rarity
Pony:i=1,j=13,"name=",code=applejack
Neutral:i=20,j=8,"name=",code=teleport,targeted=true

INITIAL
Stone:0
Food:50
Task:    
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=SetFocus,i=2,j=12,immediate=true
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=1
Action:Type=SetFocus,i=3,j=3
Action:Type=Message,icon=applejack_ico,"text=      , ==>
,   .  ."
Action:Type=SetBattleTask,isreq=false,code=foods,"Task=   ."

SCRIPT
Event:TagCount=0,TagName=foods
Action:Type=CompBattleTask,code=foods

SCRIPT
Event:Step=@StepNewMonster@
Action:Type=SetFocus,i=15,j=4
Action:Type=NewObject,Object=Monster,Code=woodwolf,"Name= ",i=15,j=4
Action:Type=NewObject,Object=Monster,Code=woodwolf,"Name= ",i=17,j=2
Action:Type=Message,icon=rarity_ico,"text= ? ==> 
   ?"
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=  :  ==>
  ."
Action:Type=SetBattleTask,isreq=false,code=woodwolf,"Task=  "
Action:Type=SetFlag,FlagName=woodwolf

SCRIPT
Event:Flag=woodwolf
Event1:MonsterCount=0
Action:Type=CompBattleTask,code=woodwolf

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

VICTORY
#ByStep:StepNeed=1
ByObjectPos:Object=rarity,i=20,j=8,IncludeLinked=true
->ByObjectPos:Object=applejack,i=20,j=8,AddType=And,IncludeLinked=true
