Royal

Prodaju Warriora 5level skilli max, nuwbie transport,+3stama earings,ring +40nuwbie mining items , 30 cargo,depth rudi gdeto 100rp,Vendor,dom! Predlozhenija pishite v private!

U menja takoj vopros , esli moj drug kupit nuwbie transport i srazu zhe peredast ego mne , nesadjasj na nego , ja smogu na nego sestj?

Mozhete vpisatj v etot script , chtobi pri elemente pereodeval mining shmotki! Zaranie spasibo

;==================================

; Version: 1.0

; Client Tested with: 2.0.3

; Afftar:  Royal

; EUO version tested with:

; Shard: Old Paradise II

; Purpose: Mining

;==================================

//Configuration

//============================================================

Set %HomePosX 4560 3171  //	Position in the world next to the container

Set %HomePosY 4560 3171  //	Position Y in the world next to the container

Set %AxeType NPF  //	Item Type of Pickaxe

Set %Save 10s //	World Save Lenght

Set %weight 600 //	Set the max weight...

SET %Ore DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_XVH

Set %Safe QOQALMD; ID jawika

set %elem ED

set %lut POF_FWL_DCI_NZH_IJG_FZH_SJG_CUD_RVH





Goto Inicio

Locations:

If %Spot = 1

Move 1917 373 a // Location 1

If %Spot = 2

Move 1912 372 a // Location 2

If %Spot = 3

Move 1907 369 a // Location 3

If %Spot = 4

Move 1902 369 a // Location 4

If %Spot = 5

Move 1897 368 a // Location 5

Goto Mining



//Way to the mine (If youre using runebook dont change)

Sub Pathway

Move 1923 374 a

Move 1918 373 a



Return



//Way to the house (If youre using runebook dont change)

Sub Pathway2

Move 1909 369 a

Move 1916 374 a

Move 1923 374 a

Move 1922 366 a



Return







//Variables Reset

//------------------------------------------------------------

Inicio:

INITEVENTS

  Event SysMessage Start the macro in front of your house!!!

  wait 1s

  SetUoTitle Mining Macro v1.0

  Display Go Mine ?

  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 + 28

  Set #TargCurs 0

  Goto Scan

	scan:

  scanjournal %cnt

  if #hits < 200; max hits

  msg .arm $

  if #hits < 190; hits posle kotorih kidatj kamp

  msg .camp heal$

  if  #str > #hits

			   {

			   finditem ZLF

			   set #lobjectid #FINDID

			   event macro 17

			   wait 5

			   event macro 23

			   wait 1s

			   }

  

	finditem %elem

				while #FINDCNT = 1

				  {



					  finditem %elem

					  finditem %puha

					  set #lobjectid #findid

					  event macro 17

					  finditem %elem

					  set %a #FINDX

					  set %b #FINDY

					  set #LTARGETID #FINDID

					  event macro 27 0

					  event PathFind %a %b

					  wait 1s

					  msg .arm$

				  }



				 finditem #enemyID

				  while #FINDCNT = 1

				  {

					  kill:

					  finditem %puha

					  set #lobjectid #findid

					  event macro 17

					  finditem #enemyID

					  set %a #FINDX

					  set %b #FINDY

					  set #LTARGETID #FINDID

					  event macro 27 0

					  event PathFind %a %b

					  wait 1s

				  }





					  finditem YFM G_4



						finditem %lut C_ , %idishka

	exevent drag #FINDID #findstack

	wait 15

	exevent dropc #BACKPACKID

	wait 15



if #findcnt > 0

{

 set #lobjectid #findid

 event macro 17

 wait 2s

 set %idishka #findid

  finditem %lut C_ , %idishka

  wait 10

 if #findcnt > 0

 {

 WHILE #FINDCNT > 0

  {

	finditem %lut C_ , %idishka

	exevent drag #FINDID #findstack

	wait 15

	exevent dropc #BACKPACKID

	wait 15

  }

  }

 }

 wait 1s



//------------------------------------------------------------

Scan:

  ScanJournal 1

  If you_fail in #journal

  Goto Mining

  If You_have_no_line_of_sight_to in #sysmsg

  Goto NextTarget

  If Try_mining in #sysmsg

  Goto NextTarget

  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_cannot_mine in #Journal

  Goto NextTarget



  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 5

  }



//------------------------------------------------------------

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



//---------------------------------------------------

--

Za chto zabanili chara OLDP2 login Royal , Nick Mexicanka

Kto mozhet skazatj , kak kochajetsja necromancery i esli estj u kogo skriptik dlja easyUO dlja Necromancery , budu blogadaren!