#befriend.cmd
if_1 goto start
goto end
start:
counter set 1

first1:
  save ""
  goto checkcrit
first2:
  save "second "
  goto checkcrit  
first3:
  save "third "
  goto checkcrit
first4:
  save "fourth "
  goto checkcrit    
first5:
  save "fifth "
  goto checkcrit
first6:
  save "sixth "
  goto checkcrit  
first7:
  save "seventh "
  goto checkcrit
first8:
  counter set 1
  goto second%c
second1:
  save ""
  goto checkseccrit
second2:
  save "second "
  goto checkseccrit  
second3:
  save "third "
  goto checkseccrit
second4:
  save "fourth "
  goto checkseccrit    
second5:
  save "fifth "
  goto checkseccrit
second6:
  save "sixth "
  goto checkseccrit  
second7:
  save "seventh "
  goto checkseccrit
second8:
  goto checkdead
 
checkcrit:  
  pause
    match first8 I could not find
    match behind You see a
    put look %s %1
  matchwait
checkseccrit:  
  pause
    match second8 I could not find
    match secbehind You see a
    put look %s %2
  matchwait


nextcrit:
  pause
  pause
  counter add 1
  goto first%c
secnextcrit:
  pause
  pause
  counter add 1
  goto second%c


behind:
   pause
     match manipulate %1 (%c: incredibly balanced) is behind you
     match manipulate %1 (%c: nimbly balanced) is behind you
     match manipulate %1 (%c: solidly balanced) is behind you
     match manipulate %1 (%c: slightly off balance) is behind you  
     match manipulate %1 (%c: somewhat off balance) is behind you
     match manipulate %1 (%c: off balance) is behind you
     match manipulate %1 (%c: badly balanced) is behind you
     match manipulate %1 (%c: very badly balanced) is behind you  
     match manipulate %1 (%c: extremely imbalanced) is behind you  
     match manipulate %1 (%c: prone) is behind you     
     match flanking at you
     match flanking at a
     match flanking idle
     put ass
   matchwait
secbehind:
   pause
     match secmanipulate %2 (%c: incredibly balanced) is behind you
     match secmanipulate %2 (%c: nimbly balanced) is behind you
     match secmanipulate %2 (%c: solidly balanced) is behind you
     match secmanipulate %2 (%c: slightly off balance) is behind you  
     match secmanipulate %2 (%c: somewhat off balance) is behind you
     match secmanipulate %2 (%c: off balance) is behind you
     match secmanipulate %2 (%c: badly balanced) is behind you
     match secmanipulate %2 (%c: very badly balanced) is behind you  
     match secmanipulate %2 (%c: extremely imbalanced) is behind you  
     match secmanipulate %2 (%c: prone) is behind you     
     match secflanking at you
     match secflanking at a
     match secflanking idle
     put ass
   matchwait
   
 flanking:
   pause
     match manipulate %1 (%c: incredibly balanced) is flanking you
     match manipulate %1 (%c: nimbly balanced) is flanking you
     match manipulate %1 (%c: solidly balanced) is flanking you
     match manipulate %1 (%c: slightly off balance) is flanking you  
     match manipulate %1 (%c: somewhat off balance) is flanking you
     match manipulate %1 (%c: off balance) is flanking you
     match manipulate %1 (%c: badly balanced) is flanking you
     match manipulate %1 (%c: very badly balanced) is flanking you  
     match manipulate %1 (%c: extremely imbalanced) is flanking you  
     match manipulate %1 (%c: prone) is flanking you     
     match facing at you
     match facing at a
     match facing idle
     put ass
   matchwait
 secflanking:
   pause
     match secmanipulate %2 (%c: incredibly balanced) is flanking you
     match secmanipulate %2 (%c: nimbly balanced) is flanking you
     match secmanipulate %2 (%c: solidly balanced) is flanking you
     match secmanipulate %2 (%c: slightly off balance) is flanking you  
     match secmanipulate %2 (%c: somewhat off balance) is flanking you
     match secmanipulate %2 (%c: off balance) is flanking you
     match secmanipulate %2 (%c: badly balanced) is flanking you
     match secmanipulate %2 (%c: very badly balanced) is flanking you  
     match secmanipulate %2 (%c: extremely imbalanced) is flanking you  
     match secmanipulate %2 (%c: prone) is flanking you     
     match secfacing at you
     match secfacing at a
     match secfacing idle
     put ass
   matchwait
   
  facing:
   pause
     match manipulate %1 (%c: incredibly balanced) is facing you
     match manipulate %1 (%c: nimbly balanced) is facing you
     match manipulate %1 (%c: solidly balanced) is facing you
     match manipulate %1 (%c: slightly off balance) is facing you  
     match manipulate %1 (%c: somewhat off balance) is facing you
     match manipulate %1 (%c: off balance) is facing you
     match manipulate %1 (%c: badly balanced) is facing you
     match manipulate %1 (%c: very badly balanced) is facing you  
     match manipulate %1 (%c: extremely imbalanced) is facing you  
     match manipulate %1 (%c: prone) is facing you     
     match nextcrit at you
     match nextcrit at a
     match nextcrit idle
     put ass
  matchwait

secfacing:
   pause
     match secmanipulate %2 (%c: incredibly balanced) is facing you
     match secmanipulate %2 (%c: nimbly balanced) is facing you
     match secmanipulate %2 (%c: solidly balanced) is facing you
     match secmanipulate %2 (%c: slightly off balance) is facing you  
     match secmanipulate %2 (%c: somewhat off balance) is facing you
     match secmanipulate %2 (%c: off balance) is facing you
     match secmanipulate %2 (%c: badly balanced) is facing you
     match secmanipulate %2 (%c: very badly balanced) is facing you  
     match secmanipulate %2 (%c: extremely imbalanced) is facing you  
     match secmanipulate %2 (%c: prone) is facing you     
     match secnextcrit at you
     match secnextcrit at a
     match secnextcrit idle
     put ass
  matchwait
  
manipulate:
  put manipulate friend %s %1
  pause
  pause
  goto nextcrit
  
secmanipulate:
  put manipulate friend %s %2
  pause
  pause
  goto secnextcrit
  
checkdead: 
  pause
  pause
    match skin appears dead
    match mind Obvious
    match mind IDLE
    put look
  matchwait
   
skin:
  pause
  put get my %weapon2
  pause
  put swap
  pause
  put put %weapon in my %sheath
  pause
  put skin
  pause
  put bund
  pause
  put drop skin
  pause
  put drop hoof
  pause
  put sear %1
  pause
  put sear %2
  pause
  put get %weapon
  pause
  put swap
  pause
  put put my %weapon2 in my %sheath
  pause
  goto checkdead
  
mind:
  pause
    match mindrest exp help
    match awaken clear
    put mind
  matchwait

mindrest:
  pause
  put sleep
  goto start

awaken:
  pause
  put awaken
  goto start

  end: