;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
;======================================

gosub sztaluga
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
set #ltargetid %sztaluga
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


sub sztaluga
set #targcurs 1
set #sysmsgcol 1080
event sysmessage wskaz mie sztaluge
repeat
onhotkey ESC
goto wcis_esc
until #targcurs = 0
onhotkey ESC
{
wcis_esc:
set #sysmsgcol 1080
event sysmessage kliknales esc i poszlo sie jebac
halt
}
set %sztaluga #ltargetid