######AUTOMACROS#########

automacro MOVEtoALBERTA {

   location not alberta

   call {

      do move alberta

   }

   timeout 60

}

#START THE QUEST

automacro STARTQUEST {

   console /Your Coordinates:/

   location alberta

   call PORTNPC

   timeout 5

}

#END TALKING TO MIMIC

automacro ENDmimic1 {   

   console /before it changes its mind/

   call PORTNPC

   timeout 5

}

automacro ENDmimic2 {   

   console /have already moved/

   call PORTNPC

   timeout 5

}

# TALK TO MIMIC AGAIN

automacro RETALKmimic {

   location alberta

   console /Deadly Cargo (.*) That/

   call retalkMIMIC

   timeout 0

}

#go to mimic

automacro MIMIC1-a {

   console /recognize the first crate/

   call {

      $mimic = first

      call talkMIMIC

   }

   timeout 5

}

automacro MIMIC1-b {

   console /get me the first crate/

   call {

      $mimic = first

      call talkMIMIC

   }

   timeout 5

}

automacro MIMIC2-a {

   console /retrieve the second crate/   

   call {

      $mimic = second

      call talkMIMIC

   }   

   timeout 5

}

automacro MIMIC2-b {

   console /get me the second crate/

   call {

      $mimic = second

      call talkMIMIC

   }

   timeout 5

}

automacro MIMIC3-a {

   console /third crate should be with/

   call {

      $mimic = third

      call talkMIMIC

   }

   timeout 5

}

automacro MIMIC4-a {

   console /get me the fourth crate/

   call {

      $mimic = fourth

      call talkMIMIC

   }

   

   timeout 5

}

automacro MIMIC5-a {

   console /find the fifth crate/

   call {

      $mimic = fifth

      call talkMIMIC

   }   

   

   timeout 5

}

automacro MIMIC6-a {

   console /sixth create has been found/

   call {

      $mimic = sixth

      call talkMIMIC

   }

   timeout 5

}

automacro MIMIC6-b {

   console /our wounded scouts have reported/

   call {

      $mimic = sixth

      call talkMIMIC

   }

   timeout 5

}

#QUEST FINISH CHANGING CONFIG

automacro FINISHa {

   console /already did work for today/

   call changeCHAR

   timeout 5

}

automacro FINISHb {

   console /come back 20 hours/

   call changeCHAR

   timeout 5

}

#######MACROS###########

macro PORTNPC {

   $x = @random ("94","95","96","97","98")

   $y = @random ("60","61","62","63","64")

   do move alberta $x $y

   do talknpc 90 62 c r0 n   

}

macro talkMIMIC {   

   if ($mimic == first) goto mimic1

   if ($mimic == second) goto mimic2

   if ($mimic == third) goto mimic3

   if ($mimic == fourth) goto mimic4

   if ($mimic == fifth) goto mimic5

   if ($mimic == sixth) goto mimic6

   stop

   :mimic1

   $x = @random ("187","188","189","190","191")

   $y = @random ("164","165","166","167","168")

   do move $x $y

   do talknpc 188 173 c n

   stop

   :mimic2

   $x = @random ("224","225","226","227","228")

   $y = @random ("102","103","104","105","106")

   do move $x $y

   do talknpc 232 104 c n

   stop

   :mimic3

   $x = @random ("238","239","240","241","242")

   $y = @random ("88","89","90","91","92")

   do move $x $y

   do talknpc 246 87 c n   

   stop   

   :mimic4

   $x = @random ("238","239","240","241","242")

   $y = @random ("64","65","66","67","68")

   do move $x $y

   do talknpc 245 67 c n

   stop

   :mimic5

   $x = @random ("235","236","237","238","239")

   $y = @random ("40","41","42","43","44")

   do move $x $y

   do talknpc 243 43 c n

   stop

   :mimic6

   $x = @random ("114","115","116","117","118")

   $y = @random ("215","216","217","218","219")

   do move $x $y

   do talknpc 123 221 c n

   stop

}

macro retalkMIMIC {

   $num = $.lastMatch1   

   goto mimic

   stop

   :mimic   

   if ($num == [1]#:) goto retalk1

   if ($num == [2]#:) goto retalk2

   if ($num == [3]#:) goto retalk3

   if ($num == [4]#:) goto retalk4

   if ($num == [5]#:) goto retalk5

   stop

   :retalk1

   do talknpc 188 173 c n

   stop

   :retalk2

   do talknpc 232 104 c n

   stop

   :retalk3

   do talknpc 246 87 c n

   stop

   :retalk4

   do talknpc 245 67 c n

   stop

   :retalk5

   do talknpc 243 43 c n

   stop

   :retalk6

   do talknpc 123 221 c n

   stop

}

macro changeCHAR {

   $uname1 = yourusername

   $pword1 = yourpassword

   $slot1 = yourcharslot#

   $uname2 = yourusername

   $pword2 = yourpassword

   $slot2 = yourcharslot#

   $uname3 = yourusername

   $pword3 = yourpassword

   $slot3 = yourcharslot#

   $uname4 = yourusername

   $pword4 = yourpassword

   $slot4 = yourcharslot#

   $uname5 = yourusername

   $pword5 = yourpassword

   $slot5 = yourcharslot#

   goto char

   stop

   :char

   if (($uname1 == @config(username)) && ($pword1 == @config(password)) && ($slot1 == @config(char))) goto secondchar

   if (($uname2 == @config(username)) && ($pword2 == @config(password)) && ($slot2 == @config(char))) goto thirdchar

   if (($uname3 == @config(username)) && ($pword3 == @config(password)) && ($slot3 == @config(char))) goto fourthchar

   if (($uname4 == @config(username)) && ($pword4 == @config(password)) && ($slot4 == @config(char))) goto fifthchar

   if (($uname5 == @config(username)) && ($pword5 == @config(password)) && ($slot5 == @config(char))) goto firstchar   

   stop

   :secondchar

   do conf username $uname2

   do conf password $pword2

   do conf char $slot2

   do relog 5

   stop

   :thirdchar

   do conf username $uname3

   do conf password $pword3

   do conf char $slot3

   do relog 5

   stop

   :fourthchar

   do conf username $uname4

   do conf password $pword4

   do conf char $slot4

   do relog 5

   stop

   :fifthchar

   do conf username $uname5

   do conf password $pword5

   do conf char $slot5

   do relog 5

   stop

   :firstchar

   do conf username $uname1

   do conf password $pword1

   do conf char $slot1

   do relog 5

   stop

}