Mar 212009
 

Achaea script to auto rat, deposit money and eat, randomly talk and more.
My alt character got to level 70 and collected over 400000 gold with this.

It is reliant on a ZMud Map

#CLASS {Aliases|aSystem|AutoRatA}
#ALIAS _AutoRat {
#IF (@AutoRat.Enabled) {
#CASE (@AutoRat.Stage) {
;Stage 1
#EXEC _Debug {_AutoRat Starting at %time}
#IF  (@Personal.Hunting) {#BUTTON bHunt}
#EXEC _SendCommandonPrompt  "stat"
#WAIT
#ADDKEY AutoRat Stage 2
#EXEC  _AutoRat
} {
;Stage 2
#IF (@Personal.FoodLevel <  4) {
#EXEC _Debug "_AutoRat Getting Food"
#EXEC  _ARWalkStep 182 1
#TRIGGER TrigAutoRat (%roomnum = 182) {
#T- TrigAutoRat
#EXEC _SendCommandonPrompt "Take  300 gold from pack"
#EXEC _SendCommandonPrompt "buy roast  from Amadeo"
#EXEC _SendCommandonPrompt "eat roast"
#EXEC _SendCommandonPrompt "buy moussaka from Amadeo"
#EXEC _SendCommandonPrompt "eat moussaka"
#EXEC  _SendCommandonPrompt "stat"
#EXEC _SendCommandonPrompt "buy  couscous from Amadeo"
#EXEC _SendCommandonPrompt "eat  couscous"
#EXEC _SendCommandonPrompt "put gold in pack"
#ADDKEY AutoRat Stage 3
#EXEC _AutoRat
} AutoRatA
} {
#ADDKEY AutoRat Stage 3
#EXEC _AutoRat
}
} {
;Stage 3
#IF  (@Personal.SleepLevel < 6) {
#EXEC _Debug "_AutoRat  Sleeping"
#EXEC _SendCommandOnPrompt sleep
#TRIGGER TrigAutoRat (@Personal.SleepLevel > 5) {
#T-  TrigAutoRat
#ALARM AlAutoRat +5 {
#ADDKEY  AutoRat Stage 4
#EXEC _AutoRat
} AutoRatA
} AutoRatA
} {
#ADDKEY AutoRat Stage 4
#EXEC _AutoRat
}
} {
;Stage 4
#EXEC _Debug "_AutoRat Walking to Target"
#EXEC _ARWalkStep  %case( %random( 1, 4), 4053, 4177, 4399, 4524) 1
#TRIGGER  TrigAutoRat (%ismember( %roomnum, {4053|4177|4399|4524})) {
#T- TrigAutoRat
#ADDKEY AutoRat Stage 5
#EXEC  _AutoRat
} AutoRatA
} {
;Stage 5
#EXEC  _Debug "_AutoRat Starting Hunt"
#IF (not @Personal.RatsSeen)  {#EXEC _SendCommandOnPrompt rats}
#IF (not @Personal.Hunting)  {#BUTTON bHunt}
#IF (not @Personal.RandomWalk) {#BUTTON  bRandomWalk}
#ALARM AlAutoRat +1200 {
#ADDKEY  AutoRat Stage 6
#EXEC _AutoRat
} AutoRatA
} {
;Stage 6
#EXEC _Debug "_AutoRat Walking To Jorj"
#IF (@Personal.RatsSeen) {#EXEC _SendCommandOnPrompt rats}
#IF (@Personal.Hunting) {#BUTTON bHunt}
#IF  (@Personal.RandomWalk) {#BUTTON bRandomWalk}
#ALARM AlAutoRat  +10 {
#EXEC _ARWalkStep 387 0
#TRIGGER TrigAutoRat  (%roomnum=387) {
#T- TrigAutoRat
#ADDKEY  AutoRat Stage 7
#EXEC _AutoRat
} AutoRatA
} AutoRatA
} {
;Stage 7
#ALARM AlAutoRat +10  {
#ADDKEY AutoRat Stage 1
#EXEC _AutoRat
} AutoRatA
}
}
}
#ALIAS _ARWalkStep {
#IF (%numparam <> 2) {#ECHO _ARWalkStep 0/1 (Hard/Soft) ROOM} {
;   #IF (%2 = 0) {#EXEC _SyncMapHard} {#EXEC _SyncMap}
#SLOW %walk(  %1)
;  #WHILE (%inwalk( ) and @AutoRat.Enabled) {#WAIT 1000}
}
}
#ALIAS _TelMeRat {
#VAR SQLString "" _nodef MapA
#VAR  TelMeFound 0 _nodef MapA
#IF (%null( @sRoomWWH)) {SQLString =  {[Name] = '@sRoomName'}} {SQLString = {[Name] = '@sRoomName' AND  [UserStr] = '@sRoomWWH'}}
#VAR TelMeFoundRooms %mapquery(  @SQLString) _nodef MapA
#IF (%numitems( @TelMeFoundRooms) = 1)  {#TELEPORT @TelMeFoundRooms} {#EXEC _Debug "Couldn't Find You"}
}
#ALIAS  _ARReset {
#ADDKEY AutoRat Stage 1
#IF (@Personal.Hunting)  {#BUTTON bHunt}
#IF (@Personal.RandomWalk) {#BUTTON bRandomWalk}
#IF (@Personal.RatsSeen) {_SendCommandOnPrompt rats}
#T-  TrigAutoRat
#T- AlAutoRat
#T+ AutoRatAT
_AutoRat
}
#VAR  AutoRat {Enabled0Stage5}
#TRIGGER "TrigAutoRat" (%ismember(  %roomnum, {4053|4177|4399|4524})) {
#T- TrigAutoRat
#ADDKEY  AutoRat Stage 5
#EXEC _AutoRat
} "" {notrig|disable}
#ALARM  "AlAutoRat" {+1200} {
#ADDKEY AutoRat Stage 6
#EXEC _AutoRat
} "" {disable}
#CLASS 0
#CLASS  {Aliases|aSystem|AutoRatA|AutoRatAT}
#TRIGGER {^There's water ahead  of you. You'll have to SWIM %w to make it through.$} {_TelMeRat}
#TRIGGER  {^You may not do that here.$} {_TelMeRat}
#TRIGGER {^You will  TIMEOUT in 1 minute unless you do something.$} {_TelMeRat}
#TRIGGER  {*} {} "" {disable}
#CLASS 0
Share

 Leave a Reply

CAPTCHA Image

*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

WP-SpamFree by Pole Position Marketing