Yourik

Помогите исправить скрипт. Я не профессор в этом деле... не могу найти, где увеличить задержку, когда находится руда и он ее копает. Тут получается, что он сразуже останавливается и переходит на след.место.

set %tool TWF_NPF_QPF

set %drink YBM_TYF_VTD

set %food HND_HQD_ZPD_FUD_YRD_WLI_ACG_EGI_QSD_RGG_QQD

set %startposx #charposx



main:



for %a 1 7

{



if ( %a <> 1 )

{

set %ix #charposx + 1

event pathfind %ix #charposy

}



for %count 1 4

{



gosub fome

gosub sede



if %count = 1

{

   set %x #charposx - 1

   set #ltargetx %x

   set #ltargety #charposy

   set #ltargetkind 2

}

if %count = 2

  {

	set %y #charposy + 1

	set #ltargetx #charposx

	set #ltargety %y

	set #ltargetkind 2

  }

if %count = 3

{

   set %x #charposx + 1

   set #ltargetx %x

   set #ltargety #charposy

   set #ltargetkind 2

}

if %count = 4

{

   set %y #charposy - 1

   set #ltargetx #charposx

   set #ltargety %y

   set #ltargetkind 2

}

gosub mine

}

}

event pathfind %startposx #charposy

goto main



sub mine



set %stop 0

finditem %tool C

set #lobjectid #findid

set #lobjecttype #findtype

  if ( #findkind <> -1 )

   {

	event macro 17 0

	target 5s

	event macro 22

	 set %timeout 0

	 while ( ( %stop <> 1 ) && ( %timeout < 2000 ) )

	 {

	  set %timeout %timeout + 1

	  scanjournal 1

	  if cannot_mine_on in #journal

	   {

		set %stop 1

	   }

	  if no_ore_here in #journal

	  {

		set %stop 1

	  }

	  if no_clay_here in #journal

	  {

		set %stop 1

	  }

	  if no_sand_here in #journal

	  {

		set %stop 1

	  }

	  if worldsave_in_30_seconds in #journal

	  {

		wait 40s

	  }

	  if a_slime in #journal

	  {

	   wait 10s

	   return

	  }

	  if bit_of_fossilized in #journal

	  {

		wait 3s

		return

	  }



	}

   wait 1s

   return

   }



sub fome

for %scan 1 20

{

scanjournal %scan

if ( ( could_use_a_bite in #journal ) || ( hungry in #journal ) )

{

  finditem %food C

  set #lobjectid #findid

  set #lobjecttype #findtype

  for %i 1 4

  {

  event macro 17 0

  wait 2s

	if %i = 4

	{

	 deletejournal

	}

  }

}

}

return



sub sede

set %semsede 0

for %scan 1 20

{

scanjournal %scan

if thirsty in #journal

{

  while %semsede <> 1

  {

  finditem %drink C

  set #lobjectid #findid

  set #lobjecttype #findtype

  event macro 17 0

  wait 2s

  scanjournal 1

  if not_thirsty in #journal

  {

	set %semsede 1

  }

  }

  deletejournal

}

}

return

Нубовский вопрос. Транспорт красить можно ? ))) Если да то как, если нет, где его купить можно (если на рынке нету такого который нужен)?
П.с. нужен OLDP цвет )