ottimi! bella li!

initevents
linespercycle 200
ignoreitem reset
set %humantype HS_IS
set %autoscan #false
set %props1 physical , #spc , resist
set %props2 fire , #spc , resist
set %props3 cold , #spc , resist
set %props4 poison , #spc , resist
set %props5 energy , #spc , resist
set %props6 hit , #spc , chance , #spc , increase
set %props7 defense , #spc , chance , #spc , increase
set %props8 spell , #spc , damage , #spc , increase
set %props9 reflect , #spc , phisical , #spc , damage
set %props10 lower , #spc , mana , #spc , cost
set %props11 lower , #spc , reagent , #spc , cost
set %props12 $damage , #spc , increase
set %maxprops 12
menu clear
menu window size 180 200
menu show 700 200
menu HideEUO
menu button scan 0 0 75 25 Scan
menu button autoscan 75 0 75 25 Autoscan
set #menubutton N/A
menu window title Ready
gosub writemenu
mainloop:
wait 5
if %autoscan
{
if #enemyid <> N/A && #enemyid <> %lscanned
{
finditem #enemyid
if #findkind <> -1
{
set %lscanned #findid
if #findtype in %humantype
gosub scanpg #findid
}
}
}
gosub readmenu
goto mainloop
sub scanpg
if %0 = 0
{
menu window title Target player
set #targcurs 1
waitfortarg:
wait 1
if #targcurs = 1
goto waitfortarg
finditem #ltargetid
if #findtype notin %humantype
{
event sysmessage not a pg
return
}
set %pgid #findid
}
if %0 = 1
set %pgid %1
set #lobjectid %pgid
event macro 17
waitforpaperdoll:
finditem * c_ , %pgid
if #findkind = -1
{
wait 1
goto waitforpaperdoll
}
for %i 1 %maxprops
{
set %value . %i 0
str len %props . %i
set %propslen . %i #strres
}
menu window title Scanning...
scanloop:
finditem * c_ , %pgid
if #findkind <> -1
{
set %itemid #findid
gosub scanprops %itemid
ignoreitem %itemid pglist
wait 1
goto scanloop
}
ignoreitem reset pglist
sound
gosub writemenu
menu window title Ready
return
sub scanprops
event property 0
retry:
event property %1
if #property = 25 || #property = N/A
goto retry
set %itemprops #property
for %i 1 %maxprops
{
str pos %itemprops %props . %i
if #strres > 0
{
set %dove1 #strres
set %dove2 %dove1 + %propslen . %i
str mid %itemprops %dove2 3
if % in #strres
str del #strres 3 1
set %value . %i %value . %i + #strres
str del %itemprops %dove1 %propslen . %i
}
}
return
sub readmenu
if #menubutton = scan
{
set #menubutton N/A
gosub scanpg
return
}
if #menubutton = autoscan
{
set #menubutton N/A
set %autoscan ! %autoscan
if %autoscan
menu font bgcolor red
if ! %autoscan
menu font bgcolor btnface
menu delete autoscan
menu button autoscan 75 0 75 25 Autoscan
menu font bgcolor btnface
return
}
if #menubutton = CLOSED
{
set #menubutton N/A
halt
return
}
return
sub writemenu
menu font size 8
set %y 30
for %i 1 %maxprops
{
set %textname value , %i
menu delete %textname
menu text %textname 10 %y %props . %i , #spc , %value . %i
set %y %y + 12
}
return

![]() |
Who is Kaiser Souze? He is supposed to be Turkish. Some say his father was German. Nobody believed he was real. Nobody ever saw him or knew anybody that ever worked directly for him, but to hear Kobayashi tell it, anybody could have worked for Souze. You never knew. That was his power. The greatest trick the Devil ever pulled was convincing the world he didn't exist. And like that, poof. He's gone. |


Aribeth





Aribeth

Commenta