27 replies to this topic

[keidzhii]

nu poprobui. naverno budut trabli, nahaljavu pisal

set %tool;id toola

set %chest;id chest

set %item;tip jara

set %milk;tip milka

set %becon;tip bekona

set %amounttotake 500;skoljko copera berem

set %contsize;contsize toola, 2x na tool, otkrivaetsja menu, skopirui to chto pokazivaetsja pri #contsize

set %c1;x coorda clicka na make last

set %c2;y coorda clicka na make last

set %amounttoplace;tut postavj naprimer 5

set %resource;tip ingov

set %amounttostop 500



loop:

gosub take

gosub make

gosub place

gosub eat

goto loop



sub take

finditem %chest G_2

 repeat

  {

   set #lobjectid #findid

   event macro 17 0

   wait 1s

  }

 until #contid = %chest

wait 1s

finditem %resource C_ , %chest

 if #findstack < %amounttostop

  halt

exevent drag #findid %amounttotake

wait 5

exevent dropc #backpackid

wait 5

return



sub make

set %success #false

 repeat

  {

   finditem %item C_ , #backpackid

   set %amount #findstack

   finditem %tool C_ , #backpackid

   set #lobjectid #findid

   event macro 17 0

   repeat

   {

	wait 1

	}

	until #contsize = %contsize

   wait 5

   click %c1 %c2

   set %overtime #scnt + 30

   repeat

	{

	 wait 1

	 finditem %item C_ , #backpackid

	 set %stack2 #findstack

	}

   until #scnt > %overtime || %amount + 1 = %stack2

gosub check

}

until %success = #true

return



sub check

finditem %resource C_ , #backpackid

if #findstack < %amounttoplace

 set %success #true

return



sub place

finditem %resource C_ , #backpackid

if #findstack > 0

 {

  exevent drag #findid #findstack

  wait 5

  exevent dropc %chest

  wait 5

 }

finditem %item C_ , #backpackid

if #findstack > 0

 {

  exevent drag #findid #findstack

  wait 5

  exevent dropc %chest

  wait 5

 }

return



sub eat

finditem %milk C_ , %chest

exevent drag #findid 1

wait 5

exevent dropc #backpackid

wait 5

finditem %milk C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 2s

finditem %becon C_ , %chest

exevent drag #findid 1

wait 5

exevent dropc #backpackid

wait 5

finditem %becon C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 2s

return

[polymorph]

Спасибо, сейчас попробую

[polymorph]

Берёт инги, делает 1 вещь и всё (

[keidzhii]

eshje raz skopirui scp iz moego posta i probui

[polymorph]

всё тот же прикол... Попробуй исправить мой скрипт в 1 посте, он просто не хочет кушать у меня... У моего друга кушает, а у меня нет. Хотя скрипты одинаковые, не знаю вот в чём там прикол...

[GREF]

А ты еду сам делаешь или покупаешь???

[polymorph]

покупаю... У меня у одного скрипт не работает, не знаю даже чего

[polymorph]

Всем спасибо кто помог, настроил теперь кушает