1 Wykrywanie 2 Anatomia 3 Ukrywanie
set %skill 3
set %wyrzucaj 1

tile init
linespercycle 100
set %str 100
set %dex 100
set %straznik 1
set %zasieg 1
set %pause
0set %dTime
0set %sTime
0set %Kolor 1546,2130,1118,1720,1420,1541,1548,1637
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 C:\WINDOWS\Media\notify.wav
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 C:\WINDOWS\Media\notify.wav
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