Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- debuglevel 5
- include base.cmd
- # CUSTOM VARIABLES
- var CHEST.ARMOR leathers
- var HEAD.ARMOR cowl
- var HAND.ARMOR Gloves
- var SHIELD Buckler
- action if $hidden = 1 then put cough when ^.+ just arrived\.
- #######################
- ## MAIN SCRIPT ENGINE #
- ## START OF SCRIPT #
- #######################
- GOSUB room.check
- EXP.CHECK:
- put exp all
- echo ...assessing experience....
- if $Shield_Usage.LearningRate > 22 && $Parry_Ability.LearningRate > 22 && $Evasion.LearninRate < 5 then goto COMBAT.SET
- if $Shield_Usage.LearningRate > 20 && $Mechanical_Lore.LearningRate < 4 then goto COMBAT.SET
- if $Climbing.LearningRage > 5 then goto CLIMB.SET
- if $HEALING_LOOP > 100 then goto STEALING.SET
- if $Medium_Edged.LearningRate < 5 then goto COMBAT.SET
- if $Shield_Usage.LearningRate < 5 then goto COMBAT.SET
- if $Evasion.LearningRate < 5 then goto COMBAT.SET
- goto COMBAT.SET
- COMBAT.SET:
- echo *** COMBAT! ***
- var TRAINING COMBAT
- goto LOOK.CHECK
- STEALING.SET:
- echo *** STEALING
- var TRAINING STEALING
- if "$zoneid" = "1" then goto STEALING
- goto LOOK.CHECK
- CLIMB.SET:
- echo *** CLIMBING
- var TRAINING CLIMBING
- goto LOOK.CHECK
- LOCATION.CHECK:
- LOOK.CHECK:
- var LAST LOOK.CHECK
- echo .....assessing location.....
- #if contains("$roomname", "Rolling Hills, Trickling Stream") then goto AT.COMBAT.ZONE
- if "$zoneid" = "0" then GOSUB moveRandomDirection
- if "$roomid" = "0" then GOSUB moveRandomDirection
- pause .1
- pause .1
- if "$zoneid" = "TF1" then goto MAZE
- if "$zoneid" = "1" then goto CROSSING.LOCATION
- if "$zoneid" = "90" then goto RATHA.LOCATION
- if "$zoneid" = "0" then GOSUB moveRandomDirection
- if "$roomid" = "0" then GOSUB moveRandomDirection
- echo UNKNOWN LOCATION!
- put #parse >Log Fuschia error - Unkown Starting Location!!
- goto LOOK.CHECK
- CROSS.LOCATION:
- CROSSING.LOCATION:
- gosub move 42
- pause .5
- if "%TRAINING" = "STEALING" then goto STEALING
- if "%TRAINING" = "CLIMBING" then goto CLIMB.CROSS
- if "%TRAINING" = "COMBAT" then goto GOING.HUNTING.CROSS
- if "%TRAINING" = "DISARM" then goto DISARM.CROSS.MOVE
- goto GOING.HUNTING.CROSS
- RATHA.LOCATION:
- if "%TRAINING" = "COMBAT" then goto GOING.HUNTING.RATHA
- if "%TRAINING" = "STEALING" then goto STEALING.RATHA
- if "%TRAINING" = "CLIMBING" then goto CLIMB.RATHA
- if "%TRAINING" = "DISARM" then goto DISARM.RATHA.MOVE
- ####################
- ## COMBAT SECTION ##
- ####################
- AT.COMBAT.ZONE:
- pause .1
- goto COMBAT
- COMBAT:
- echo ***** COMBAT! *****
- put #echo >Log Lime ******** COMBAT! ********
- put stance evasion
- echo ***** STARTING ****
- put #echo >Log Lime ****** STARTING ******
- gosub ARMOR.SETUP.1
- gosub WEAR.ARMOR
- put remove lockpick ring
- pause .3
- put put lockpick ring in my bag
- pause .4
- put get my collector case
- pause .4
- put wear my collector case
- wait .3
- put health
- if $health < 80 then goto CROSS.HEAL
- if $bleeding = 1 then goto CROSS.HEAL
- pause .1
- echo **** READY TO FIGHT ****
- put #echo >Log Lime **** READY TO FIGHT ****
- put .geniehunter multi 6
- wait 15000
- put #script abort geniehunter
- wait .3
- gosub CROSS.RUN
- gosub ARCH.MOVE.FROM.BANK
- goto DISARM
- #################################
- ## DISARMING & PICKING SECTION ##
- #################################
- DISARM:
- gosub ARMOR.SETUP.1
- gosub REMOVE.ARMOR
- put .disarm
- waitfor DONE PICKING
- put #script abort disarm
- wait .3
- gosub ARMOR.SETUP.1
- gosub WEAR.ARMOR
- put #echo >Log Lime **** DISARM & PICK BOXES FINISHED ****
- gosub BANK.MOVE.FROM.ARCH
- goto GEM.SELL.STOW
- ###############################
- ## GEM SELLING/STOWING SEC ##
- ###############################
- GEM.SELL.STOW:
- gosub move 395
- pause .5
- gosub GEM.SELLING
- gosub move 233
- waitfor YOU HAVE ARRIVED
- gosub BANK.DEPOSIT
- gosub MOVE.HUNTING.AFTER.HEAL
- goto COMBAT
- ######################
- ## SCRAPING SECTION ##
- ######################
- SCRAPE:
- put .scrape
- waitforre ^SCRAPING DONE
- put #script abort scrape
- ######################
- ## CLIMBING SECTION ##
- ######################
- CLIMBING.CROSS:
- put .climbing
- waitforre ^DONE CLIMBING
- put #script abort climbing
- ######################
- ## STEALING SECTION ##
- ######################
- STEALING.RATHA:
- gosub ARMOR.SETUP.1
- gosub REMOVE.ARMOR
- put .progsteal
- waitforre ^DONE STEALING
- put #script abort progsteal
- wait .3
- gosub WEAR.ARMOR
- put #echo >Log Lime **** STEALING FINISHED ****
- goto START
- STEALING:
- gosub move 42
- gosub ARMOR.SETUP.1
- gosub REMOVE.ARMOR
- put .progsteal
- waitforre ^DONE STEALING
- put #script abort progsteal
- wait .3
- gosub WEAR.ARMOR
- put #echo >Log Lime **** STEALING FINISHED ****
- goto START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement