This topic is locked
proshu ... ktonibud perevodite konfiguraciju na ruskom.
;==================================
; Version: 1.0
; Client Tested with: 2.0.3
; Afftar: Shroomz aka Asgard`
; EUO version tested with:
; Shard: Old Paradise
; Purpose: Mining
;==================================
//Configuration
//============================================================
Set %HomePosX XXXX // Position in the world next to the container
Set %HomePosY XXXX // Position Y in the world next to the container
Set %AxeType NPF // Item Type of Pickaxe
Set %Save 30s // World Save Lenght
Set %weight 900 // Set the max weight...
SET %Ore DWJ
Set %Safe XXXXXXX
Goto Inicio
Locations:
If %Spot = 1
Move XXXX XXXX a // Location 1
If %Spot = 2
Move XXXX XXXX a // Location 2
If %Spot = 3
Move XXXX XXXX a // Location 3
If %Spot = 4
Move XXXX XXXX a // Location 4
If %Spot = 5
Move 1800 1059 a // Location 5
Goto Mining
//Way to the mine (If youre using runebook dont change)
Sub Pathway
Move XXXX XXXX a
Move XXXX XXXX a
Move XXXX XXXX a
Return
//Way to the house (If youre using runebook dont change)
Sub Pathway2
Move XXXX XXXX a
Move XXXX XXXX a
Move XXXX XXXX a
Return
//Variables Reset
//------------------------------------------------------------
Inicio:
INITEVENTS
Event SysMessage Start the macro in front of your house!!!
wait 1s
SetUoTitle Asgard`s Mining Macro v1.0
Display Go Go Go
Set %Spot 1
GoSub Pathway
Goto Locations
//------------------------------------------------------------
Mining:
If #WEIGHT > %weight
goto bank
DeleteJournal
FindItem %AxeType
Set #LObjectID #FindID
Set #LTargetX #CharPosX + %AddX
Set #LTargetY #CharPosY + %AddY
Set #LTargetZ #CharPosZ
Set #LTargetKind 3
Set #TargCurs 0
Event Macro 17
Target 7s
Event Macro 22
GoSub Count
Set %TimeOut #SCNT + 18
Set #TargCurs 0
Goto Scan
//------------------------------------------------------------
Scan:
ScanJournal 1
If you_fail in #journal
Goto Mining
If there_is_nothing in #journal
Goto NextTarget
If you_cant_mine in #journal
Goto NextTarget
If world_save in #Journal
Goto Save
If You_put_the_lead in #Journal
Goto Mining
If You_put_the_bronze in #Journal
Goto Mining
ScanJournal 2
If targeting in #Journal
Goto Mining
If %TimeOut < #SCNT
Goto Mining
Goto Scan
//------------------------------------------------------------
Bank:
GoSub Pathway2
GoSub MoveHome
Goto Unload
//------------------------------------------------------------
Unload:
finditem %Ore C_ , #BackpackID
for #findindex 1 #findcnt
{
exevent drag #findid #findstack
wait 5
exevent dropc %Safe
wait 16
}
//------------------------------------------------------------
Back:
GoSub Pathway
Goto Locations
//------------------------------------------------------------
NextTarget:
Set %AddX %AddX + 1
If %AddX > 2
{
Set %AddX -2
Set %AddY %AddY - 1
If %AddY < -2
Goto Change
}
Set %ClickTarget %ClickTarget + 1
Goto Mining
//------------------------------------------------------------
Change:
Set %ClickTarget 1
Set %AddX -2
Set %AddY +2
Set %Spot %Spot + 1
If %Spot = 6
Set %Spot 1
Goto Locations
//------------------------------------------------------------
Save:
Wait %Save
Goto Mining
//---------------------------------------
Zal' 4to u menja pohozij , tak bi vilozil , dabi ne povtorjatsa , prosto budu sledit' za sobitijami 
