Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- deletejournal
- gosub SCAN
- sub SCAN
- set %_jindex #jindex
- SCANLOOP:
- if #jindex >= %_jindex
- {
- scanjournal %_jindex
- if YOU_START_TO_TAME in #journal || TOO_FAR_AWAY in #journal
- gosub TAMING
- if THAT_ANIMAL_LOOKS_TAME in #journal
- gosub RELEASE
- }
- return
- sub TAMING
- gosub ACQUIRE
- FOLLOWLOOP:
- onhotkey F11
- goto TAMINGRETURN
- set %Cnt %Cnt + 1
- finditem %TameTarget
- if #findX > #charPosX + 1 || #findX < #charPosX - 1 || #findY > #charPosY + 1 || #findY < #charPosY - 1
- {
- event pathfind #findX #findY #findZ
- sleep 20
- }
- scanjournal 1
- if YOU_FAIL_TO_TAME in #journal || TOO_FAR_AWAY in #journal || %Cnt > 350
- gosub TAME
- if SEEMS_TO_ACCEPT_YOU in #journal || THAT_WASN'T_EVEN in #journal || THAT_ANIMAL_LOOKS_TAME in #journal
- {
- set %Cnt 0
- gosub RELEASE
- goto TAMINGRETURN
- }
- goto FOLLOWLOOP:
- TAMINGRETURN:
- return
- sub TAME
- event macro 13 35
- target
- event macro 22 0
- set %Cnt 0
- return
- sub RELEASE
- gosub ACQUIRE
- exevent RenamePet #ltargetid Boss
- wait 10
- exevent popup %TameTarget 10
- wait 5
- if #contkind = OXHD
- {
- set #contposx 0
- set #contposy 0
- click 30 90 dmc
- }
- return
- sub ACQUIRE
- set %TameTarget #ltargetid
- set #ltargetkind 1
- set #ltargetid %TameTarget
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement