grazie sei un geniooooooo
DDDDDDDDDDDDDDDDD

initEvents set #lpc 100 set %bendata 7000 ;7000=7secondi di intervallo bendata, 8000=8secondi ecc ecc set %wait_bendata 0 main: if ( %wait_bendata < ( #systime - %bendata ) ) { gosub greater wait 10 gosub heal } onhotkey F11 gosub lesser onhotkey F12 gosub greater goto main sub lesser finditem NUF C_ while #findindex <= #findcnt { event property #findid if lesser in #property { gosub bevi return } else set #findindex #findindex + 1 } set #findindex 1 gosub bevi return sub greater finditem NUF C_ while #findindex <= #findcnt { event property #findid if greater in #property { gosub bevi return } else set #findindex #findindex + 1 } set #findindex 1 gosub bevi return sub bevi set #LOBJECTid #FINDid event macro 17 return sub heal finditem ZLF C if #findkind = -1 { msg Non , #spc , hai , #spc , bende$ halt } set #lobjectid #findid event macro 17 0 target 10 event macro 23 0 set %wait_bendata #systime return
Commenta