help taming

[elcocas]

Ho un piccolo problema con questa macro.Una volta che tamo il pet per ucciderlo il pg casta solo un mind blast e non riesco ad uccider l'animale,mi servirebbe che ne castasse almeno 2 ;|
Ho provato più volte a modificar questa cosa ma purtroppo sempre con scarisssimi risultati,ho provato a metter piu spell ma molte volte una magia viene castata su un animale da tamare e lo script si impalla e il miopg muore ;|
Datemi una mano plz a sistemarlo;|

;=========================================
; Script Name: SuperCaliFragilistiCheSpiraliTamer
; Author: Giorno Giovanna
; Version: 1.2
; Client Tested with: 4.0.8b
; EUO version tested with: 1.42.00A0
; Shard OSI / FS: FS Tested Only
; Revision Date: 2/28/2005
; Public Release:
; Global Variables Used: 3
; Purpose: Finds Ridegbacks in Ilshenar Compassion in Savage camp
;and tame'em.
;=========================================

initevents

set %StartX #charposx
set %StartY #charposy
set %StartZ #charposz

Loop:
if #charposx <> %StartX || #charposy <> %StartY || #charposz <> %StartZ
gosub ReturnToStart
findItem BK G_16
if #findKind = 1
gosub Tame
call reset
goto Loop

sub Tame

set #lTargetID #findID
set #lTargetKind 1
set %IdTame #findID
TamingLoop:
set %tamejournal #jindex + 1
if #findDist > 3
{
event pathfind #findx #findy #findz
wait 10
}
event macro 13 35
target 5
event macro 22 0
gosub TamingMonitor

return



sub TamingMonitor
set %movetimer 0
set %tametimer #systime + 15000
TamingMonitorLoop:
if #jindex >= %tamejournal
{
scanjournal %tamejournal
set %tamejournal %tamejournal + 1

if is_too_far_away in #journal
goto TamingLoop
if fail_to_tame in #journal
goto TamingLoop
if Someone_else_is in #journal
{
ignoreitem %IdTame 1
gosub ReturnToStart
}
if seems_to_accept in #journal
{
gosub Kill
gosub Heal
gosub ReturnToStart
}
if cannot_be_tamed in #journal
{
gosub KillParagon
ignoreitem %IdTame 1
event pathfind %StartX %StartY %StartZ
gosub ReturnToStart
}
if clear_path in #journal
goto TamingLoop
if can't_see_that in #journal
goto TamingLoop
if tame_already in #journal
{
ignoreitem #findID
gosub ReturnToStart
}
if even_challenging in #journal
{
gosub Kill
gosub ReturnToStart
}
}
if #systime > %tametimer
goto TamingLoop
findItem%IdTame G_16
if #finddist > 3 && #systime > %movetimer
{
event pathfind #findx #findy #findz
set %movetimer #systime + 1500
}
findItem %IdTame G_16
if #findKind <> 1
{
gosub Heal
gosub ReturnToStart
}


goto TamingMonitorLoop

return



sub Kill

event macro 1 0 All Guard
wait 10
TameKillingLoop:
findItem %IdTame G_16
if #findKind = 1
{
event macro 1 0 All Stay
wait 1s
event macro 15 36
target 4s
event macro 22 0
wait 2s
}




sub KillParagon

EarthElementalLoop:
wait 4s
event macro 15 61
wait 4s
finditem ED G_10
if #findKind <> 1
goto EarthElementalLoop
event macro 1 0 All Kill
target
event macro 22 0
wait 3s
event macro 15 19
wait 3s
event macro 22 0
wait 3s
event macro 15 42
wait 3s
event macro 22 0
wait 3s
event macro 15 42
wait 3s
event macro 22 0

gosub Heal

return



sub Heal
HealLoop:
if #hits < #MaxHits
{
event macro 15 3
target 2s
event macro 23 0
wait 3s
goto HealLoop
}

return



sub ReturnToStart

event pathfind %StartX %StartY %StartZ
wait 20
goto Loop

[Eltazor]

hmmm se hai delle spade in mano nn ti serve modificare lo script
io uso le swords of prosperity e dopo mindblast il pg attacca automaticamente il pet infliggendo gli ultimi danni