Thursday, December 30, 2010

Quest MIMIC ALBERTA MACRO

This is a macro code for doing the Mimic Quest.
___________________________________________________________________

######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
}

Paste this in the macro.txt located in "openkoredirectory/control/macros.txt"

No comments:

Post a Comment