Event SysMessage "Do roboty"
set #LTARGETKIND 3
set %postac #CHARID

narzedzie:
Menu Clear
Menu HideEUO
Menu Window size 200 100
Menu Font Name tahoma
Menu Window Title Wybierz narzedzie
menu list create narzedzie_list 10 10 175 40
Menu list add narzedzie_list Kilof
Menu list add narzedzie_list Łopata
menu list select narzedzie_list 1
Menu Button narzedzie_btn 20 65 160 22 OK

narzedzie_loop:
if #MENUBUTTON = narzedzie_btn
{
set #MENUBUTTON null
menu get narzedzie_list
if #MENURES = 1
{
set %tool NPF
set %sur DWJ
}
if #MENURES = 2
{
set %tool TWF
set %sur POF
set %equip #false
}
goto surowce
}
goto narzedzie_loop

surowce:
Menu Clear
Menu HideEUO
Menu Window size 200 100
Menu Font Name tahoma
Menu Window Title Co robić z surowcami?
menu list create sur_list 10 10 175 40
Menu list add sur_list Do juczniaka
Menu list add sur_list Na ziemie
menu list select sur_list 1
Menu Button sur_btn 20 65 160 22 OK

sur_loop:
if #MENUBUTTON = sur_btn
{
menu hide
set #MENUBUTTON null
menu get sur_list
if #MENURES = 1
{
set %sur_juczn #true
set %sur_ziemia #false
}
if #MENURES = 2
{
set %sur_ziemia #true
set %sur_juczn #false
}
goto juczniaki
}
goto sur_loop

juczniaki:
if %sur_juczn = #false
goto zaczynaj

Menu Clear
Menu HideEUO
Menu Window size 400 100
Menu Font Name tahoma
Menu Window Title Ile masz juczniakow? (domyslnie 1)
menu Edit iloscjuczn_pole 10 10 350 Wpisz ilosc juczniakow...
Menu Button iloscjuczn_btn 20 65 160 22 OK

while #MENUBUTTON <> iloscjuczn_btn
{
}

set #MENUBUTTON null
menu getNum iloscjuczn_pole 1
set %iloscjuczn #MENURES

for %licz1 1 %iloscjuczn
{
event sysmessage Wskaz juczniaka %licz1
set #TARGCURS 1
repeat
until #TARGCURS = 0

set %juczniak . %licz1 #LTARGETID
}
set %licz3 1


zaczynaj:
gosub kilof
gosub zbierz_ziola
gosub przenies
set %celx #CHARPOSX + 3
event pathfind %celx #CHARPOSY
wait 2s
gosub zbierz_ziola
gosub przenies
set %cely #CHARPOSY + 3
event pathfind #CHARPOSX %cely
wait 2s
gosub zbierz_ziola
gosub przenies
set %celx #CHARPOSX - 3
event pathfind %celx #CHARPOSY
wait 2s
gosub zbierz_ziola
gosub przenies
set %cely #CHARPOSY - 3
event pathfind #CHARPOSX %cely
wait 2s
goto zaczynaj
event SysMessage Koniec zbierania...
halt
;---------------------------------------------------------------------
sub zbierz_ziola
; set %my_x #charposx
; set %my_y #charposy
;--gora zbieraj----
np1:
Event sysmessage szukam rudy miejscu nr 1
set #ltargetx #charposx
set #ltargety #charposy - 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat1:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat1
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np2
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np1

;---gora prawo , na prawo maleje (moje)
np2:
Event sysmessage szukam rudy w innym miejscu...(2)
set #ltargetx #charposx - 1
set #ltargety #charposy - 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat2:
set %ms #SYSMSG
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat2
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np3
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np2

np3:
Event sysmessage szukam rudy w innym miejscu...(3)
set #ltargetx #charposx - 1
set #ltargety #charposy
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat3:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      wait 1s
      event macro 17
      target
      event macro 22
      goto komunikat3
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np4
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np3

np4:
Event sysmessage szukam rudy w innym miejscu...(4)
set #ltargetx #charposx - 1
set #ltargety #charposy + 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat4:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat4
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np5
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np4

np5:
Event sysmessage szukam rudy w innym miejscu...(5)
set #ltargetx #charposx
set #ltargety #charposy + 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat5:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat5
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np6
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np5

np6:
Event sysmessage szukam rudy w innym miejscu...(6)
set #ltargetx #charposx + 1
set #ltargety #charposy + 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat6:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat6
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np7
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np6

np7:
Event sysmessage szukam rudy w innym miejscu...(7)
set #ltargetx #charposx + 1
set #ltargety #charposy
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat7:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat7
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np8
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np7

np8:
Event sysmessage szukam rudy w innym miejscu...(8)
set #ltargetx #charposx + 1
set #ltargety #charposy - 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat8:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat8
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np9
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np8

np9:
Event sysmessage szukam rudy w innym miejscu...(9)
set #ltargetx #charposx
set #ltargety #charposy
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat9:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat9
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np10
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np9

np10:
sound cratepickup.wav
;--------wyjscie z funkcji zbierania sie.....
return

sub kilof
FindItem %tool C_ , %postac
if #FINDID = x
{
FindItem %tool C_ , #BACKPACKID
if #FINDID = x
{
display ok Nie masz kilofow! Zatrzymuje!
halt
}
}
set #LOBJECTID #findid
set %kilof #FINDID
if %equip = #false
return
exevent drag #FINDID
wait 1s
exevent droppd
wait 2s
return

sub przenies
if %sur_ziemia = #true
{
   finditem %sur C_ , #BACKPACKID
   while #FINDID <> x
   {
      exevent drag #FINDID #FINDSTACK
      wait 10
      exevent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
      wait 10
      finditem %sur C_ , #BACKPACKID
   }
   return
}

otworz_juki:
set #LOBJECTID %juczniak . %licz3
event macro 17
szukaj:
finditem %sur C_ , #BACKPACKID
set %ruda #FINDID
if #FINDID = x
{
for %11 1 %iloscjuczn
{
finditem QQD C
exevent drag #FINDID 2
wait 10
exevent dropc %juczniak . %11
wait 10
}
set #LOBJECTID %kilof
return
}
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc #CONTID
wait 10
set %licz2 %licz2 + #FINDSTACK
if %licz2 > 3000 || too_heavy in #SYSMSG
{
event sysmessage Zmieniam juczniaka!
set %licz3 %licz3 + 1
set %licz2 0
if %licz3 > %iloscjuczn
{
display ok Juczniaki pelne! Zatrzymuje
halt
}
goto otworz_juki
}
goto szukaj