Agamon.

gde kupitj mozna tolll stobi delatj magik items!!

u menja v dome posle reddeda propali vse ves4i s doma!
ja postavil zanogo dom i ne4ego nepojavilosj !!
sto delatj???

1. pomogie v scripte stobi on sam lozil v Safe chest
2. stobi on kogda atak elment odeval Vse vidi oruzeja a ne 1 vid!

set %puha KPH

set %elem ED

set %ves 650

set %box BUD  ;(tip jashika)

set %lut POF_IJG_FZH_SJG_CUD_DWJ_GWJ_TVJ_EWJ



  Treeez :



*************

  

  goto treeez



move 1875 1030

 



  SUB LJING

  move %1 %2 1

  finditem NPF_QPF;KIRKA

  set #lobjectid #findid

  wait 5

  event macro 17 0

  event macro 25 0

  set #ltargetx %1

  set #ltargety %2

  set #ltargetkind 3

  set #ltargettile %3

  wait 10

  event macro 22 0

  wait 5

  set #scnt 0

  GOSUB PROVERKA





  SUB PROVERKA

  proverka:

		for %i 1 3

		{

			   SCANJOURNAL %i

					if #hits < #str || #JCOLOR = 34 || attacking_you in #journal

					   {

						gosub enemydown

						goto ret

					   }

		}



  

	  if #targcurs = 1

	  {

	 goto ret

	  }

	  SCANJOURNAL 1

	  if THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg

	  {

	 goto ret

	   }

	

	  SCANJOURNAL 1

	  if There_is_nothing in #sysmsg

		  {

			   goto ret

		  }

		  

	  SCANJOURNAL 1

	  if line_of_sight in #sysmsg

		  {

			  goto ret

		  }

		  

	   SCANJOURNAL 1

	  if so_close_to in #sysmsg

		  {

			   goto ret

	  

		   }

		  

		   if #scnt > 30

				{

				goto ret

				}

				

				scanjournal 1

				if world_save in #journal

				{

				wait 15s

				}





				if #weight > %ves

				{

				GOSUB VIGRUZKA

				goto ret

				}

				

				if you_stop_mining in #sysmsg

				{

				goto ret

				}



			goto proverka



	   ret:

	   return



sub enemydown

				set #lobjectid %puha

				event macro 17



				 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

				  }



				 finditem #enemyID

				  while #FINDCNT = 1

				  {



					  finditem #enemyID

					  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

				  }





				  while #str > #hits

			   {

				finditem ZLF

			   set #lobjectid #FINDID

			   event macro 17

			   wait 5

			   event macro 23

				wait 3s

			   }

			   msg stop

					   finditem YFM G_4



if #findcnt > 0

{

set #lobjectid #findid

event macro 17

wait 2s

set %idishka #findid

  finditem %lut C_ , %idishka

if #findcnt > 0

{

WHILE #FINDCNT > 0

  {

	finditem %lut C_ , %idishka

	exevent drag #FINDID #findstack

	wait 10

	exevent dropc #BACKPACKID

   wait 10

	}

   }



	  ignoreitem %idishka



return









		 SUB VIGRUZKA

			********

move 1808 1031

move 1884 1024

move 1875 1012



	FINDITEM %lut C_ , #BACKPACKID

	  while #FINDCNT > 0

	  {

	  FINDITEM %lut C_ , #BACKPACKID

	  exevent Drag #findid #findstack

	  wait 1

	  exevent Dropc %box

	  wait 1

	  FINDITEM %lut C_ , #BACKPACKID

	  }

	  



		   return



return