Here is my final script for Ridgeback taming and auto searching in the Ridgeback Pen in Ilsh. It has been a while and I think I forgot to post it back when it was made so here it is. Be sure to follow all of the directions as outlined at the top of the script. It generally works very well I have found and rarely fails or gets hung up. Enjoy.
http://uploading.com/files/9694151c/Ridgeback%2BTamer%2Bwith%2BAuto%2BSearch%2Bver%2B1.0.txt/
;Ridgeback Tamer for Savage Camp Training Pen w Search
;Author Dreamzcaster (I borrowed a lot of it, so I dunno if I am considered the author)
;Release v 1.0
;*********************************************************************************************************************
;***** **READ THIS BEFORE PROCEEDING. FAILURE TO DO SO MAY RESULT IN DISASTEROUS EFFECTS********
;******** WHAT YOU NEED **************************
;********1. An LRC SUIT - You can use regs but it does not count them so don't blame me ***********
;********2. Enough Magery to cast Ebolt and Explosion **************************
;********3. Enough EVAL to do some damage **************************
;********4. Cast Protection on yourself so you won't fizzle when hit **************************
;********5. Cast Reactive armor on yourself to get as much Physical Resist as Possible ************
;********6. Enoungh Taming and Lore to be successful at taming ridgebacks (I think it is 83.1)*****
;********7. You must be at the Ridgeback Pen in the Savage Camp in Ilsh **************************
;********8. Wear Savage Skin Paint **************************
;**********************************************************************************************************************
;Variables
set %tametype wj_ ; to Tame Ridgebacks and Savage Ridgebacks
set %spot1x 1276
set %spot1y 774
set %spot2x 1263
set %spot2y 774
set %spot3x 1254
set %spot3y 774
set %spot4x 1244
set %spot4y 767
set %spot5x 1244
set %spot5y 755
set %spot6x 1255
set %spot6y 744
set %spot7x 1272
set %spot7y 744
set %spot8x 1287
set %spot8y 744
set %spot9x 1300
set %spot9y 744
set %spot10x 1300
set %spot10y 764
set %spot11x 1281
set %spot11y 764
set %spot 1
set #lpc 100
initevents
top:
; find ridgebacks
finditem %tametype G_15
if #findkind = -1 2
{
gosub NextSpot
}
set %taming #findid
gosub taming #findid
event property #findid
if paragon in #property
{
gosub paragon
}
if #result = fail 2
ignoreitem #findid
goto top
if #result = sucess
gosub kill #findid
goto top
;paragon kill
sub paragon
set #ltargetid %1
;msg all kill $ ; pet kill
repeat
event macro 15 42
target 6s
event macro 22 0
wait 2s
event macro 15 41
target 6s
event macro 22 0
wait 2s
if #hits < #maxhits - 10
{
gosub healPara
}
finditem %1 G
until #FINDCNT = 0
return
;kill for regular ridgebacks
sub kill
msg all follow me $ ; allows for savages not to destroy your savage paint
msg all follow me $
wait 5
set #ltargetid %1
;msg all kill $ ; pet kill
event macro 15 42
target 6s
event macro 22 0
wait 2s
event macro 15 41
target 6s
event macro 22 0
wait 2s ; 2s magery, 8s pet kill
;msg all follow me $ ; pet kill
if #hits < #maxhits - 10
{
gosub healReg
}
finditem %1 G
until #FINDCNT = 0
goto top
return
;auto healing paragon
sub healPara
wait 1s
event Macro 15 28
wait 4s
event Macro 23 0
gosub paragon
;auto heal regular
sub healReg
wait 1s
event Macro 15 28
wait 4s
event Macro 23 0
goto top
;taming
sub taming
deletejournal 1
w:
finditem %1
if #finddist > 3 3
event pathfind #findx #findy #findz
wait 10
goto w
set #ltargetid %1
event macro 13 35
target 6s
event macro 22 0
set %timer #scnt + 20
s:
for %i 1 5
{
;journal scans
scanjournal %i
if master in #journal 2
deletejournal
return Sucess
if cannot_be_tamed in #journal 2
deletejournal
return Sucess
if without_a_master in #journal 2
deletejournal
return Sucess
if fail in #journal 2
deletejournal
goto w
if looks_tame in #journal 2
deletejournal
return fail
if far_away in #journal 2
deletejournal
goto w
if to_many_owners in #journal 2
deletejournal
return Sucess
if Can't_get_there in #journal 2
deletejournal
return fail
if has_been_distracted in #journal 2
deletejournal
goto top
if see_that in #journal 2
deletejournal
goto w
if no_chance in #journal 2
deletejournal
return Sucess
}
if %timer < #scnt
goto top
finditem %1
if #finddist > 3 2
event pathfind #findx #findy #findz
wait 10
goto s
;search
sub search
findItem %tamingtypes G_15
;If not found, move to next spot
if #findCnt < 1
{
gosub NextSpot
return
;next spot
sub NextSpot
if %spot = 1
{
move %spot2x %spot2y 3 10s
set %spot 2
goto top
}
if %spot = 2
{
move %spot3x %spot3y 3 10s
set %spot 3
goto top
}
if %spot = 3
{
move %spot4x %spot4y 3 10s
set %spot 4
goto top
}
if %spot = 4
{
move %spot5x %spot5y 3 10s
set %spot 5
goto top
}
if %spot = 5
{
move %spot6x %spot6y 3 10s
set %spot 6
goto top
}
if %spot = 6
{
move %spot7x %spot7y 3 10s
set %spot 7
goto top
}
if %spot = 7
{
move %spot8x %spot8y 3 10s
set %spot 8
goto top
}
if %spot = 8
{
move %spot9x %spot9y 3 10s
set %spot 9
goto top
}
if %spot = 9
{
move %spot10x %spot10y 3 10s
set %spot 10
goto top
}
if %spot = 10
{
move %spot11x %spot11y 3 10s
set %spot 11
goto top
}
if %spot = 11
{
move %spot1x %spot1y 3 10s
set %spot 1
goto top