Sub Scan
Scanjournal 1
If [201] in #JOURNAL || %s in #JOURNAL
GoSub Next
Scanjournal 2
If [201] in #JOURNAL || %s in #JOURNAL
GoSub Next
Scanjournal 3
If [201] in #JOURNAL || %s in #JOURNAL
GoSub Next
Scanjournal 4
If [201] in #JOURNAL || %s in #JOURNAL
GoSub Next
Scanjournal 5
If [201] in #JOURNAL || %s in #JOURNAL
GoSub Next
Return

Sub Next
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Set %square %square + 1
If %square = 1
{
Set %position s
Goto Begin
}
If %square = 2
{
Set %position sw
Goto Begin
}
If %square = 3
{
Set %position w
Goto Begin
}
If %square = 4
{
Set %position n
Goto Begin
}
If %square = 5
{
Set %position ne
Goto Begin
}
If %square = 6
{
Set %position e
Goto Begin
}
If %square = 7
{
Set %position se
Goto Begin
}
If %square = 8
{
Set %position center
Goto Begin
}
Return

Sub NewPoint
Set %square 0
Set %point %point + 1
If %point > 8
Set %point 1
If %point = 1
{
Set %x 2560
Set %y 490
}
If %point = 2
{
Set %x 2562
Set %y 493
}
If %point = 3
{
Set %x 2564
Set %y 490
}
If %point = 4
{
Set %x 2562
Set %y 487
}
If %point = 5
{
Set %x 2565
Set %y 486
}
If %point = 6
{
Set %x 2570
Set %y 488
}
If %point = 7
{
Set %x 2573
Set %y 482
}
If %point = 8
{
Set %x 2568
Set %y 480
}

Event SysMessage Передвижение в точку %point at %x %y
Move %x %y 0 60s
Wait 2s
Gosub Next
Return

Sub Smelt
Event SysMessage А теперь выложим руду ыыы.
p1:
Event SysMessage Руду на базу!!!
event macro 32 0
wait 1s
ignoreitem reset
Move 2566 485 0 10s
Move 2558 497 0 15s
Move 2558 502 0 10s
Move 2525 502 0 25s
Move 2525 515 0 15s
Move 2501 515 0 10s
Move 2500 541 0 10s

Drag:
Finditem ENK_SZF_POF
If #Findkind = -1
{
Event SysMessage Сказано сделано.
Event SysMessage Обратно в шахту!!! твоё дело копать
Move 2502 516 0 60s
Move 2525 514 0 60s
Move 2525 501 0 60s
Move 2552 501 0 10s
Move 2557 501 0 25s
Move 2557 497 0 25s
Move 2569 486 0 10s
event macro 32 0
wait 1s
Move %x %y 0 10s
Goto Begin
Return
}
If #Findkind = 1
{
Ignoreitem #FindId
Goto Drag
}
gosub Ipat
Goto Drag

sub Ipat
nextcpos 640 400
msg bank $
wait 2s
loot:
finditem ENK_SZF_POF_JUF_JZF_WZF_MZF_RZF_BFF_ZTL_RTL_WRH_TVF_VVF_CUL_KUF_KZF
wait 1
if #FINDKIND = -1
return
if #FINDBAGID = YOERCZD
{
ignoreitem #FINDID
goto loot
}
event drag #FINDID
wait 5
msg $
wait 5
click 700 524 p
wait 1s
ignoreitem #FINDID
goto loot
Lich:
Finditem WD_WE_YD
If #FINDKIND = -1
{
Event SysMessage ВРАГ МЕРТВ!
Move %x %y 0 60s
Goto Begin
}
if #HITS < 100
gosub hell
Event Macro 27
Move #FINDX #FINDY 0 9s
Goto Lich

Sub Findlich
Finditem WD_WE_YD
If #FINDY => 500
{
Event SysMessage ВРАГ ВНЕ ШАХТЫ...
return
}

If #FINDKIND <> -1
{
if #FINDDIST <= 8
{
Set #LTARGETID #FINDID
Event SysMessage WARNING!!! Опана а вот и наши товарищи!
Goto Lich
}
Event SysMessage ВРАГ РЯДОМ...
}
Return

sub plavka
move 2573 475 0 10s
wait 10
pl:
finditem DWJ C
if #FINDKIND = -1
{
event sysmessage ВСЕ ПОПЛАВИЛИ МЛЯ!
wait 10
gosub Findlich
gosub loot2
Move %x %y 0 60s
if #WEIGHT > %MinWeight
{
event sysmessage пора домой
wait 15
gosub loot2
return
}
Wait 1s
Msg 'pc mine %position $
Set %timer 1
return
}
set #LOBJECTID #FINDID
finditem JBG G_2
if #FINDKIND = -1
{
event sysmessage ДАЛЕКО СТОИШЬ!
wait 1s
goto pl
}
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 17 0
target 3s
event macro 22 0
wait 58
goto pl
return

sub loot2
loot2:
finditem POF_BFF G_11
wait 3
if #FINDKIND = -1
return
if #FINDBAGID = QMGLDAE
{
ignoreitem #FINDID
goto loot2
}
if #FINDY => 500
{
ignoreitem #FINDID
goto loot2
}

move #FINDX #FINDY 1 8s
wait 15
loot3:
finditem ENK_SZF_POF_JUF_JZF_WZF_MZF_RZF_BFF_WRH_ZTL_RTL_TVF_VVF_CUL_KUF_KZF G_2
wait 1
if #FINDKIND = -1
goto loot2
event drag #FINDID
wait 5
msg $
wait 5
msg $
wait 5
click 400 267 p
wait 1s
if %kurs in #CONTKIND
{
event sysmessage задержка!
click 848 530 p
wait 1s
}
ignoreitem #FINDID
goto loot3

sub hell
if #hits < 100
{
msg 'pc heal self $
wait 84
return
}

;Set %point 1
;If %point = 1
;{
;Set %x 2564
;Set %y 484
;}
;If %point = 2
;{
;Set %x 2566
;Set %y 486
;}
;If %point = 3
;{
;Set %x 2570
;Set %y 486
;}
;If %point = 4
;{
;Set %x 2573
;Set %y 485
;}

;