[EasyUO - REQ] Script per Macrare poisoning

[Ospite]

Ne esiste ? è possibile farlo ? qualcuno lo puopostare se lo ha ?

thx in anticipo

[kahkvael]

; Poisoning.txt

; This is Cheffe\'s Poisoning Script Edited by Merrik Re-Edited by Fryguy.
; The original script can be found at the following address
; http://195.211.181.34/tforum2/viewtopic.php?TopicID=202

; Revision notes 16/04/2002 (Fryguy)
; Reformatted script to make it easier to read and follow.
; Added check for blades at script startup.
; Do ignoreitem reset when all blades have been used instead of exit.
; Added most types small blades to the target string.
; If you have blades on your char that you do not wish to be used,
; Place them in a bag in you backpack or just don\'t open your main pack,
; so that they are NOT shown on screen. This script will use any blade
; show on screen that\'s not on the ground.
; Minor speed improvements. (Between poisoning and bottle fill. And Hiding after
; Cure/Heal)
; Added config option to turn off re-posioning on gain.

; Revision notes 11/04/2002 (Fryguy)
; Moved hiding routine so that it re-hides after casting cure.
; Added checks to re-poison if gain detected (Seems to work very well for me),
; Changes located in the poisonit routine.
; Attempt to find another keg once one is used up.

; revision notes 23/11/2001
; made it so you dont need to reconfigure your UO macroes
; added option to change what you poison
; added other things also but too sleepy and cant remember hehe

; Open secures with as many bladed weapons (atleast 100 is revomended)
; and poison kegs as you like. This script with cycle through all
; bladed weapons and poison kegs on screen.

;comprate 3 bag,mettete in una 50 dagger,in un'altra altrettanti e nella terza bag i keg che volete usare.lokkate le 3 bag,tenetele aperte e premete play

INITEVENTS

; ### Start of config section.

; Item types to be poisoned.
SET %PTarget WSF

; Please set hitpoints here (script will start healing below this number)
SET %Hits 75

; Do you want the script to hide you? (1 = yes / 0 = no)
SET %Hide 0

; Do you want to attempt to re-poison the same blade again on gain?
; At higher skill levels (90+) re-poisoning gains only happen about 10-20%
; of the time from my experiance, please correct me if I am wrong.
; (1 = yes / 0 = no)
SET %RePoison = 0

; ### End of config section.

; ### Do not edit past this line.
; ### Unless of course you know what you are doing
; Init for gain checks (This is not a config option, it initializes the re-posion on gain marker)
SET %Gain 0

EVENT SYSMESSAGE This Script will start shortly.
CHOOSESKILL POIS REAL

CheckBlades
FINDITEM %PTarget
IGNOREITEM #FINDID
IF #FINDKIND = -1
{
EVENT SYSMESSAGE Sorry, I could not find any blades to be poisoned.
EVENT SYSMESSAGE Please open a secure with blades and restart.
EVENT SYSMESSAGE Thank you.
HALT
}
IF #FINDKIND = 1
{
GOTO CheckBlades
}
IGNOREITEM RESET

FindKeg:
FINDITEM QMJ
IGNOREITEM #FINDID
SET %Kegid #FINDID
IF #FINDKIND = -1
{
EVENT SYSMESSAGE Sorry, I could not find a keg of poison.
EVENT SYSMESSAGE Please get a keg of poison and restart.
EVENT SYSMESSAGE Thank you.
HALT
}
IF #FINDKIND = 1
{
GOTO FindKeg
}

Begin:
SET %Skill #SKILL
SET %Hidden 0

Hide:
IF %Hide = 1
{
IF H NOTIN #CHARSTATUS
{
EVENT MACRO 13 21
WAIT 2s 20
SET %Hidden 1
GOTO Hide
}
IF %Hidden <> 0
{
WAIT 6s 20
}
}

SET #LOBJECTID %Kegid
TARGET
EVENT MACRO 17
WAIT 10
SCANJOURNAL 1
IF is_empty IN #JOURNAL
{
GOTO FindKeg
}

FindBottle:
FINDITEM WUF
IF #FINDKIND = 1
{
IGNOREITEM #FINDID
GOTO FindBottle
}

FillBottle:
SET #LTARGETID #FINDID
SET #LTARGETKIND 1
EVENT MACRO 22
WAIT 30 20

PoisonIt:
EVENT MACRO 13 30
TARGET

FindPotion:
FINDITEM AVF
IF #FINDKIND = 1
{
IGNOREITEM #FINDID
GOTO FindPotion
}

TargetPotion:
SET #LTARGETID #FINDID
SET #LTARGETKIND 1
EVENT MACRO 22
WAIT 20
TARGET

FindBlade:
IF %Gain < 1
{
FINDITEM %PTarget
SET %PrevBlade #FINDID
IF #FINDKIND = 1
{
IGNOREITEM #FINDID
GOTO FindBlade
}
IF #FINDKIND = -1
{
IGNOREITEM RESET
GOTO FindBlade
}
}

TargetBlade:
IF %Gain > 0
{
SET #LTARGETID %PrevBlade
}
IF %Gain < 1
{
SET #LTARGETID #FINDID
}
SET #LTARGETKIND 1
EVENT MACRO 22
WAIT 20
IF %RePoison = 0
{
IGNOREITEM %PrevBlade
SET %Gain 0
GOTO Cure
}

IF %Skill < #SKILL
{
SET %Gain %Gain + 1
}
IF %Skill = #SKILL
{
IGNOREITEM %PrevBlade
SET %Gain 0
}

WAIT 6s 25
GOTO Begin

; EOF

Prego lynx

[Ospite]

Prego lynx

tvb :*

[kahkvael]

tvb :*

se non funziona puoi chiamarmi su icq o mandarmi un pm, qui non leggerò più