set %skill 3    ; 1 Wykrywanie 2 Anatomia 3 Ukrywanie
set %wyrzucaj 1 ; wyrzucac badz nie??
set %sound C:\WINDOWS\Media\notify.wav ;sciezka do dzwieku

tile init
set #lpc 100

set %str 100
set %dex 100
set %straznik 1
set %zasieg 1
set %pause 0
set %dTime 0
set %sTime 0
set %Kolor 1247,1320,2001,1121,1309,1424,1109,1301,1024
           ;agapit 1024, zelazo 0, srebro 1301, black 1109, veryt 1424, azuryt 1247
           ;royal 1209, blood 1309, zloto 1121, myth 1320, valoryt 2001
wait 1s
start:
scanjournal 1
if Trzasnal in #journal
   wait 15s
onhotkey f9
         gosub ruda
onhotkey f11
         gosub pause
onhotkey f12
         gosub backpacks
if #enemyid N/A && %pause 1 && %sTime < #scnt
   {
   set %sTime #scnt + 4
   sound %sound
   gosub pomoc
   }
if %pause = 1
   goto start
if #str < %str
   {
   finditem XUF C
   if #findkind = 0 {
      set #lobjectid #findid
      event macro 17
      wait 1s
      set %str #str - 10
      }
   }
if #dex < %dex
   {
   finditem YUF C
      if #findkind = 0 {
         set #lobjectid #findid
      event macro 17
      wait 1s
      set %dex #dex - 10
      }
   }
if %dTime < #scnt && %skill = 1
   {
   event macro 13 14
   set %dTime #scnt + 9
   }
if %dTime < #scnt && %skill = 2
   {
   ignoreitem reset
   finditem BO_WN G_6
   if #findkind = 1
       {
       event macro 13 1
       target
       set #ltargetid #findid
       set #ltargetkind 1
       event macro 22
       set %dTime #scnt + 9
       }
   }
if %dTime < #scnt && %skill = 3
   {
   event macro 13 21
   set %dTime #scnt + 9
   }
if #weight > #maxweight
   gosub ruda
if %wyrzucaj = 1
   gosub wyrzucaj

gosub findCrystal

if %CrystalTType = N/A
   {
   set %zasieg %zasieg + 1
   if %zasieg = 15
      {
      event sysmessage Makro zatrzymane.
      sound %sound
      event sysmessage Nie widzisz wiecej krysztalow!
      set %pause 1
      }
   }
   else
   {
   if %zasieg %CrystalX
      set %distX #charposx - %CrystalX
   else
   set %distX %CrystalX - #charposx
   if #charposy > %CrystalY
      set %distY #charposy - %CrystalY
   else
       set %distY %CrystalY - #charposy
   if #scnt > %StopTime
      return
   if %distX > 1 || %distY > 1
      goto wait
   }
return

sub zapisz
ignoreitem reset
deleteVar ruda*
deleteVar rudaIle*
szukaj:
finditem DWJ C_ , #backpackid
if #findkind = -1
   return
set %ruda . #findcol #findid
set %rudaIle . #findcol #findstack
ignoreitem #findid
goto szukaj

sub przenies
ignoreitem reset
juki:
finditem BO_WN G_1
if #findkind 1
   return
set %p #contid
set #lobjectid #findid
event macro 17
set %czas #scnt + 2
cont:
if ( #contname container_gump || #contsize 230_204 || #contid = %p ) && %czas > #scnt
   goto cont
set %p #contid
ignoreitem #findid
ruda:
finditem DWJ C_ , %p
if #findkind 0
   goto juki
if %ruda . #findcol 0 && %ruda . #findcol N/A
   {
   exevent drag %ruda . #findcol %rudaIle . #findcol
   exevent dropc #findbagid
   set %ruda , #findcol 0
   }
ignoreitem #findid
goto ruda
return

sub backpacks
ignoreitem reset
set %X 440
set %Y 580
szukaj:
set %X %x + 30
set %Y %y + 20
finditem BO_WN G_1
if #findkind = -1
   return
set #lobjectid #findid
event macro 17
set %ContID #contid
set %CTime #scnt2
wait1:
set %Czas #scnt2 - %CTime
if #contid = %ContID && %Czas < 10
   goto wait1
contpos %X %Y
ignoreitem #findid
set %waga 0
waga:
finditem DWJ_ENK C_ , #contid
if #findkind = 0 {
   ignoreitem #findid
   if #findtype = DWJ
      set %waga %waga + ( #findstack * 2 )
   if #findtype = ENK
      set %waga %waga + #findstack
   goto waga
   }
   else
       {
       set %procent %waga * 100 / 4000
       event sysmessage Zapelniles %procent , % plecaka.
       }
goto szukaj

sub ruda
event macro 1 0 podejdzcie
wait 1s
gosub zapisz
gosub przenies
gosub backpacks
return

sub pomoc
event macro 1 0 wszyscy stop
wait 1
if %straznik = 1
   event macro 1 0 STRAZNIKU!
return

sub pomoc2
ignoreitem reset
set %cX #charposx
set %cY #charposy
straz:
finditem IS_HS_XU_AV_FH G_14
if #findkind = 1
   {
   ignoreitem #findid
   event property #findid
   if straz notin #property
      goto straz
   set %x #findx
   set %y #findy
   event macro 1 0 wszyscy stop!
   event pathfind %x %y #findz
   gosub wait
   event macro 1 0 STRAZNIKU!
   event pathfind %cX %cY
   }
return

sub straz
set %stop #scnt + 2
wait:
if %stop < #scnt
   return
if ( #charposx %X || #charposy %Y )
   goto wait
return

sub wyrzucaj
ignoreitem reset
wyrzucaj:
finditem DWJ C_ , #backpackid
if #findkind = 0
   {
   if #findcol in %Kolor && #findcol 0
      {
      exevent drag #findid #findstack
      exevent dropg #charposx #charposy
      }
   ignoreitem #findid
   goto wyrzucaj
   }
return