AskChopper.com :: Public Bug Section Go To: Public Bugs
"Automated Doom Rare Stealing Script " submitted on 9/ 17 / 2003 IP: 54.198.205.153

Thanks to _messy_ for submitting this bug.
; Doom rare stealing script
; Written 100% by _messy_ v.1.0 June 4th, 2003
; Credit goes to JPM for doom itemtypes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Damaged books = QRE
; Bottle = IMF
; Rock = VGH
; Skull Candle = SDJ
; Brazier = PMF
; Stretched Hide = PDG
; Books = KNL JNL NNL
; Lamp Post = IIE
; Reversed Backpack = KUD
; Tarot Cards = GEH
; Gruesom Standard = WRB
; Egg Sac = VHG
; Skinned Goat = ORL
; Bloody Water = BMF
; Hanging Studded Leggings = KLH
; Cocoon = XHG
; Hanging Studded Tunic = JLH SLH
; Skinned Dear = VRL
; Saddle = UWF
; Hanging Leather Tunic = WKH
; Titans Hammer = ZTH
; Ruined Painting = MSE



; This script will sit and wait as long as it takes for any given rare.
; After the rare spawns, it will keep trying to steal the item until either
; the item is stolen, or someone else steals it. If you have successfully
; stolen the item, it will use your personal bless deed on the stolen item
; in case a monster kills you before you can hide or recall out.
; After that, it will try to hide you either successfully or unsuccessfully
; one time. If you do not successfully hide, it will recall you out.
; Note: The script only recalls you out with magery, not with charges.




; Change %steal_item to whatever you are going to steal.
; ie. set %steal_item KNL_JNL_NNL for the books
; ie. set %steal_item VHG for the egg casing
set %steal_item KLH


; Change %runebook_escape to the ID of the runebook you want
; Make sure the default rune in your runebook is a place almost guaranteed to be not blocked
set %runebook_escape UDSQKRD

; Do -not- use the itemid of your personal bless deed, they change when you re-deed
; The script will determine the ID at the beginning to efficiently use speed
set %personal_bless TVH


; Set %use_magery to 0 if you do not have enough magery to recall. This will just keep making
; the script re-hide
set %use_magery 1



initevents
ignoreitem reset


finditem %personal_bless
if #findkind = -1
{
msg Where is my personal bless deed? $
halt
}
set %personal_bless #findid


find_loop:

; Use below two lines if you want to test the script on a packhorse
;
; finditem %steal_item
; if #findkind = 0

finditem %steal_item G_2
if #findkind = 1
{
goto steal_loop
}
goto find_loop


steal_loop:
set #ltargetid #findid
set #ltargetkind 1
event macro 13 33
target 1s
if You_must_wait_a_few_moments_to_use_another_skill. in #sysmsg
goto steal_loop
event macro 22 0
wait 1s
if You_fail_to_steal_the_item. in #sysmsg
goto steal_loop

finditem %steal_item
if #findbagid = YNWBOOD
{
set #lobjectid %personal_bless
event macro 17 0
wait 1s
click 133 360
target 5s
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
goto hide_loop
}
if #findkind = -1
{
goto hide_loop
}
wait 9s
goto steal_loop



hide_loop:
wait 2s
re_hide:
deletejournal
event macro 13 21
wait 1s
scanjournal 1
if You_can't_seem_to_hide_here in #journal
{
recall_escape:
if %use_magery = 0
goto re_hide
wait 5s
event macro 15 31
set #ltargetid %runebook_escape
target 6s
deletejournal
event macro 22 0
wait 1s
scanjournal 1
if more_reagents_are_needed in #journal
goto hide_loop
if the_spell_fizzles. in #journal 1
goto recall_escape
if you_are_already_casting_a_spell. in #journal
{
set #ltargetid %runebook_escape
target 6s
event macro 22 0
}
wait 1s
}
if You_must_wait_a_few_moments_to_use_another_skill. in #journal
goto re_hide

halt


All Programs (c) 2001 are property of Luth. For technical assistance, or to report errors, email Luth@AskChopper.com