Dovrei modificarlo per farle esplodere al contatto, solo che non ho idea di come modificarlo
settato cosi esplodono troppo presto, come posso fare? tnx
settato cosi esplodono troppo presto, come posso fare? tnx
codice:
;==================================
; Script Name: Tri-pot chunker (explode on contact)
; Author: Aahz
; Version: 1.2
; Client Tested with: 4.0.2.a
; EUO version tested with: 1.42.0082
; Shard OSI / FS: OSI
; Revision Date: June 1, 2004
; Public Release: May 31, 2004
; Purpose: Throws three explosion potions at a target, set to explode on contact,
; after you hit a designated hotkey
;==================================
;set this to the hotkey that you want to trigger the booms
set %hotkey F12
;set this to the message you want your character to say, to alert you to target your victim
set %msg ""
;probably shouldn't mess with this, set to 4 will make them explode on you, 2 will not wait long enough
set %wait1 3
;At first, this was 10-12, but after further testing, 4 seems to work perfectly on my machine.
set %wait2 4
;LinesPerCycle
set %lpc 100
;==================================
initevents
tile init
display ok Press %hotkey when ready.
LinesPerCycle %lpc
loop:
gosub findboom
gosub hotkey
gosub boom
gosub setwait
gosub throw
goto loop:
sub findboom
findloop:
for %a 1 3
{
finditem TUF
set %pot , %a #findid
ignoreitem #findid
}
if %pot1 = x
goto findloop
return
sub hotkey
hotkeyloop:
onhotkey %hotkey
goto startthrow
goto hotkeyloop
startthrow:
msg $ %msg $
set #targcurs 1
targetloop:
if #targcurs = 1
goto targetloop
set %target #ltargetid
return
sub boom
set %charposx #charposx
set %charposy #charposy
for %b 1 3
{
wait %wait1
set #lobjectid %pot . %b
event macro 17
target
key esc
}
return
sub setwait
finditem %target
if #finddist > 9
{
set %wait3 %wait2 - 2
goto setwait
}
if #finddist > 7
set %wait3 %wait2 - 1
setwait:
set %movewait %wait2 - 4
return
sub throw
if #charposx <> %charposx || #charposy <> %charposy
wait %movewait
else
wait %wait3
for %c 1 3
{
wait %wait1
set #lobjectid %pot . %c
event macro 17
finditem %target
if #finddist > 12 || #findkind = -1 || #finddist = N/A
gosub abort
set #ltargetid %target
target
event macro 22
}
return
sub abort
set %tx #charposx + 3
set %ty #charposy + 3
set #lTargetX %tx
set #lTargetY %ty
set #lTargetZ #charposz
set #lTargetKind 2
return





Commenta