Mettere Altre Cose Sullo Script Taming Ke Ho

[wowo]

;=========================================
; 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 50
target 4s
event macro 22 0
wait 2s
}

return



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 1s
event macro 23 0
wait 1s
goto HealLoop
}

return



sub ReturnToStart

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

return


ok lo script funziona c'è solo una cosa che vorrei aggiungere ma non so come fare, ovvero che quando si mette ad inseguire un animale ed esco da una determinata zona impostabile, il pg smettadi inseguirlo e torni indietro"..mi aiutate? grazie mille!