WsCreationS

Kox magii,resa[DM2]

Skrypt do koxu magi/resa!
;—-
;Prosty skrypt do koxu magii na corpach, by urug
;—-

; Czas po jakim skrypt bedzie ponawial proby.
set %timeout_cast 7
set %timeout_medyta 12

;!!!!!!!!!!!!!!!
;!!! SKRYPT !!!!
;!!!!!!!!!!!!!!!

; Wybierz cel
sub wybierz_cel
{
event sysmessage Wybierz swoj cel… magu…

set #targcurs 1
while ( #targcurs = 1 )
wait

set %cel_id #ltargetid
set %cel_kind #ltargetkind

return
}

; Medytacja
sub medytuj
{
wait 20
event macro 13 46

set %seconds 0
while ( %seconds <= %timeout_medyta )
{
set %journal #jindex
set %seconds %seconds + 1
wait 1s

while ( %journal < #jindex + 1 )
{
set %journal %journal + 1
scanjournal %journal
if ( konczysz_medytacje in #journal || #mana = #maxmana )
return
}
}

event sysmessage PODCZAS MEDYTACJI TIMEOUT
return
}

; Rzucaj czar
sub castuj
{
event macro 15 52

set %seconds 0
while ( %seconds <= %timeout_cast )
{
set %journal #jindex
set %seconds %seconds + 1
wait 1s

if ( #targcurs = 1 )
{
set #ltargetid %cel_id
set #ltargetkind %cel_kind
event macro 22
return
}

while ( %journal < #jindex + 1 ) { set %journal %journal + 1 scanjournal %journal if ( brakuje_ci_many in #journal || czar_sie_nie_udal in #journal ) return if ( brakuje_ci_skladnikow in #journal ) { event sysmessage KONCZE, BRAK SKLADNIKOW halt } } } event sysmessage PODCZAS CASTOWANIA TIMEOUT return } ; Glowna petla sub main { while ( 1 > 0 )
{
gosub castuj
gosub medytuj
}

return
}

; Zacznij skrypt
gosub wybierz_cel
gosub main
halt

************************************************************************

Skyrpt wylapuje “zglodnienie”

set %Sciezka_do_wava F:\dontfail.wav
scanjournal %journal
if   Odrobine_zglodniales in #journal
sound %Sciezka_do_wava