Set %Pickaxe TWF_QPF_NPF_WWF_NPF
Set %IngotType RMK_ENK
Set %OreType TVJ_GWJ_EWJ_DWJ
Set %KasaType SPF
Set %ForgeX 1508
Set %ForgeY 2828
set %Ingot ENK
set %sayac 1

MiningSpots:
if %sayac = 1
Move 1495 2830 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1494 2833
}
if %sayac = 2
Move 1493 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1493 2833
}
if %sayac = 3
Move 1492 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1492 2833
}
if %sayac = 4
Move 1491 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1491 2833
}
if %sayac = 5
Move 1490 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1490 2833
}
if %sayac = 6
Move 1489 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1489 2833
}
if %sayac = 7
Move 1488 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1488 2833
}
if %sayac = 8
Move 1487 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1487 2833
}
if %sayac = 9
Move 1486 2833 a 120s
{
set %sayac %sayac + 1
gosub MiningSpots 1486 2833
}
goto MiningSpots

Sub MiningSpots
finditem %Pickaxe c_ , %backpackid
FindItem %Pickaxe
Set #LObjectID #FindID
Move %1 %2 a 120s
GoSub MineLocation -1 -1
GoSub MineLocation 0 -1
GoSub MineLocation +1 -1
GoSub MineLocation +1 0
GoSub MineLocation +1 +1
GoSub MineLocation 0 +1
GoSub MineLocation -1 +1
GoSub MineLocation -1 0
GoSub MineLocation -2 -2
GoSub MineLocation -1 -2
GoSub MineLocation 0 -2
GoSub MineLocation +1 -2
GoSub MineLocation +2 -2
GoSub MineLocation +2 -1
GoSub MineLocation +2 0
GoSub MineLocation +2 +1
GoSub MineLocation +2 +2
GoSub MineLocation +1 +2
GoSub MineLocation 0 +2
GoSub MineLocation -1 +2
GoSub MineLocation -2 +2
GoSub MineLocation -2 +1
GoSub MineLocation -2 0
Return

Sub Pick
FindItem %Pickaxe
Set #LObjectID #FindID
Return

Sub MineLocation
MineLoc:
GoSub Pick
Again:
if #Weight > 350
goto Smelt
Set %SpotX #CharPosX + %1
Set %SpotY #CharPosY + %2
Set #LTargetX %SpotX
Set #LTargetY %SpotY
Set #LTargetKind 3
Event Macro 17
Target 1s
Event Macro 22
Set %TimeOut #SCNT + 2
Check:
ScanJournal
If too_far In #Journal
Return
If mine_so In #Journal
Return
If MINE_FOR In #Journal
Return
If try_mining In #Journal
Return
If You_put In #Journal
Goto Again
If Yarar_bir In #Journal
Goto Again
If Your_skill In #Journal
Goto Again
If CAN'T_USE In #Journal
Return
If #SCNT > %TimeOut
Return
Goto Check

Smelt:
Wait 1s
Set %MoveBackX #CharPosX
Set %MoveBackY #CharPosY
Move 1495 2830 a 120s
Move 1508 2830 a 120s
Move %ForgeX %ForgeY a 120s
SmeltIt:
FindItem %OreType c_ , #backpackid
if #FindKind = -1
goto DoneSmelt
Set #LObjectID #FindID
Event Macro 17
Goto SmeltIt
DoneSmelt:
Wait 10
if #Weight > 300
gosub banka
Move 1495 2830 a 120s
Move %MoveBackX %MoveBackY a 120s
Wait 1s
Return

sub banka
Move 1508 2828 a 120s
msg Bank$
wait 5
Set %banka #CONTID
gosub bosalt
Move 1508 2828 a 120s
Move %ForgeX %ForgeY a 120s
return

sub bosalt
doldur:
finditem %IngotType C_ , #backpackid , %KasaType C_ , #backpackid
if #FINDSTACK < 1
{
return
}
finditem %IngotType C_ , #backpackid , %KasaType C_ , #backpackid
wait 1s
exevent Drag #findid #findstack
exevent Dropc %banka
Event Sysmessage #lLiftedID Idli item aktarildi
wait 1s
goto doldur
}