;skrypt na malowanie - autor dev
;ogolnie to trzeba miec plotno i palete w plecak oraz stac przy sztaludze.
;jesli chcesz zeby gralo dzwiek jak czegos braknie to ustaw ponizsza zmienna
;======================================
set %glos X:\a.wav   ;sciezka do dzwieku
;======================================


start:
if *STOP = 1
{
   repeat
   until *STOP = 0
}

finditem zti
if #findkind = -1
{
event sysmessage nie masz plotna, zatrzymuje
sound %glos
halt
}
wait 3
set #lobjectid #findid
event macro 17
wait 3
finditem ftf
if #findkind = -1
{
event sysmessage nie ma sztalugi? :o
sound %glos
halt
}
wait 3
set #ltargetid #findid
wait 3
event macro 22
wait 3
finditem bxf
if #findkind = -1
{
event sysmessage nie masz palety, zatrzymuje
sound %glos
halt
}
wait 3
set #lobjectid #findid
event macro 17
wait 3
click 509 57
set %czasik #SCNT + 8
repeat
scanjournal 1
until nie_udalo in #journal || namalowales in #journal || #SCNT > %czasik
goto start