Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
I fail to see why you would want to disco a RC? Why would you not use one of the trainers that uses the bard spells? It's faster and can be done anywhere...
Code: [Select]set %timerMove #scnt2
set #lpc 10
repeat
finditem GXV_KIG G_12
if #findCnt > 3
{
set #lobjectID #findID
set %crap #lobjectID
gosub walkTo
; event macro 17
}
wait 5
until #CLICNT = 0
sub walkTo
finditem %crap
if #findDist > 0 ;&& ( %timerMove < #scnt2 )
event pathfind #findX #findY
set %timerMove ( #sCnt2 + 20 )
event macro 17
wait 5
return
For the truly lazy. :>
Glad you enjoyed it and found it useful!
Cheers!
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
If you're planning on releasing it anyways, just post it here so people can help. Simple.
http://www.scriptuo.com/index.php?topic=2379.msg17911#new