mi servirebbe un qualsiasi script di bende ke nn sia vashhealer(dato ke nn mi funziona nessuna versione)a patto ke funzioni + o - bene
;===========================
;
;
;
;
;
;===========================
Initevents
;----------------------
set %CurePoison no ; si / no
set %TastoGCure -
set %TastieraGCure
;----------------------
set %IDBende ZLF
;----------------------
set %BendaInCorso no
set %LastCure #scnt
;----------------------
Mainloop:
finditem %IDBende
if #findkind = -1
{
event ExMsg #charid 3 39 Hai finito le bende
wait 20
goto mainloop
}
if %BlockMortal > #scnt
goto mainloop
gosub Mortal
if C in #charstatus || #hits < #maxhits
gosub Benda
gosub display
goto mainloop
;============================
Sub Mortal
if %MortalDetettato = si && D notin #charstatus
{
event ExMsg #charid 3 49 Fine Mortal
set %MortalDetettato no
}
if D notin #charstatus
return
if %MortalDetettato = si
return
set %MortalDetettato si
event ExMsg #charid 3 49 MORTAL!
if %BendaInCorso = si
{
set %FineMortal #scnt + 6 ; Non 6, ma 7 tanto per andare sul sicuro
if %ProssimaBenda > %Finemortal
return
}
set %TempoBenda ( 11 - ( #dex / 20 ) )
if %TempoBenda => 6
{
set %BendaInCorso no
gosub benda
}
if %TempoBenda < 6
set %BlockMortal ( #scnt + 6 ) - %TempoBenda
return
;----------------------
Sub Benda
if %BendaInCorso = si && %ProssimaBenda < #scnt
{
set %BendaInCorso no
}
if %BendaInCorso = si
return
if #targcurs <> 0
{
event ExMsg #charid 3 39 Target attivo
wait 20
return
}
Benda:
if #hits = #maxhits && C notin #charstatus
return
if ( H in #charstatus )
return
finditem %IDBende C_ , #BACKPACKID
set #lobjectid #findid
set %JStart #jindex
event macro 17 0
target 2s
if #targcurs = 0
goto Benda
event macro 23 0
wait 5
for %JRead %JStart #JIndex
{
scanjournal %JRead
if You_begin_applying in #journal
{
set %TempoBenda ( 11 - ( #dex / 20 ) )
event ExMsg #charid 3 89 %TempoBenda , s
set %BendaInCorso si
set %ProssimaBenda #scnt + %TempoBenda
set %ProssimoDisplay #scnt
gosub display
return
}
}
goto Benda
;----------------------
Sub Display
if %BendaInCorso = si && %ProssimoDisplay < #scnt
{
set %SecondiRimasti %ProssimaBenda - #scnt
if - in %SecondiRimasti
{
set %BendaInCorso no
return
}
if %SecondiRimasti <> %OldDisplay
{
if %CurePoison = si && %SecondiRimasti = 1 && C in #charstatus && %LastCure < #scnt
{
key %TastoGCure %TastieraGCure
set %LastCure #scnt + 1
}
if %SecondiRimasti <> 0
event ExMsg #charid 3 89 %SecondiRimasti , s
if %SecondiRimasti = 0
event ExMsg #charid 3 59 Cura !
}
set %ProssimoDisplay #scnt
set %OldDisplay %SecondiRimasti
}
return
;----------------------


Commenta