Threaded Mode | Linear Mode

daemon778 · 01-11-2015 01:43 AM

Не могу понять, что с этим скриптом не так, но он даже не запускается. Я в этих делах новичек, но хотелось бы понять.

Code:

SCONFIG = L2TConfig.GetConfig();

SCONFIG_FILE = GetDir() .. '\\scripts\\cdr.l2b';

L2TConfig.SaveConfig(SCONFIG_FILE);

babylist = {18873,18880,18887,18894};

younglist = {18874,18875,18881,18882,18888,18889,18895,18896};

adultlist = {18876,18877,18883,18884,18890,18891,18897,18898};

bl = true; 

stage = 2; -- 0: not feed, 1: feed til young, 2:feed til adult, 3: feed til full grown

displayinfo = false; -- false: dont show info to client, true: show info to client

function getItemByName(name)

invList = GetInventory();

for item in invList.list do

if item.Name == name then

return item.displayId;

end;

end;

end;

function useAvailableFood()

cs = 15474;

gs = 15475;

if(cs ~= nil) then

UseItem(cs);

else UseItem(gs);

end;

end;

function isFoodAvailable()

cs = 15474;

gs = 15475;

if ( cs == nil and gs == nil) then

return false;

end;

return true;

end;

function feed(stage)

local bb = GetTarget():GetNpcId();

local wb = 2000; -- тут пауза между кормлениями одного пета, я просто хз сколько нужно ждать до того, как корм можно использовать еще раз

if(stage >= 1) then

for k,w in pairs(babylist) do

if GetTarget():GetNpcId() == w then

if(displayinfo) then ShowToClient(">>>Info", "Feeding " .. GetTarget():GetName()); end;

repeat 

 useAvailableFood(); 

 Sleep(wb);

until bb ~= GetTarget():GetNpcId();

return;

end;

end;

end;

if(stage >= 2) then

for k,w in pairs(younglist) do

if GetTarget():GetNpcId() == w then

if(displayinfo) then ShowToClient(">>>Info", "Feeding " .. GetTarget():GetName()); end;

repeat 

 useAvailableFood(); 

 Sleep(wb);

until bb ~= GetTarget():GetNpcId();

return;

end;

end;

end;

if(stage == 3) then

for k,w in pairs(adultlist) do

if GetTarget():GetNpcId() == w then

if(displayinfo) then ShowToClient(">>>Info", "Feeding " .. GetTarget():GetName()); end;

repeat 

 useAvailableFood(); 

 Sleep(wb);

until bb ~= GetTarget():GetNpcId();

return;

end;

end;

end;

end;

while bl do

Sleep(2000);

if ( not isFoodAvailable()) then

ShowToClient(">>>Info", "Food is over");

bl = false;

end

if(GetTarget() ~= nil) then

feed(stage);

end;

end;

L2TConfig.LoadConfig(SCONFIG_FILE);

Заранее спасибо.

Possibly Related Threads...
Thread:		Author	Replies:	Views:	Last Post
	Скрипт на квест A Special Order	DeSilvia	0	4,337	01-13-2017 22:31 PM Last Post: DeSilvia
	Помогите составить скрипт	AloneMODE	2	4,972	12-16-2015 22:01 PM Last Post: TheQQmaster
	Не берет в таргет мобов	h0pper	6	9,026	11-28-2015 18:54 PM Last Post: snapit
	Как привести мобов в зону фарма?	mqnna	1	3,922	11-03-2015 20:58 PM Last Post: TheQQmaster
	Скрипт на заточку.	CreonMaltese	18	22,133	08-02-2015 21:17 PM Last Post: TheQQmaster
	Проблема со скриптом. Останавливается скрипт после скила.	immortal89	0	1,924	06-25-2015 03:13 AM Last Post: immortal89
	Скрипт на ТТ	set899ful	8	15,197	06-22-2015 20:04 PM Last Post: adterorist1
	помогите найти скрипт или разобраться	adterorist1	0	3,098	06-12-2015 00:41 AM Last Post: adterorist1
	Скрипт для Хилера.	Yoxo	0	2,250	04-19-2015 18:20 PM Last Post: Yoxo
	Бот не видит новых мобов	pl17kv23	2	5,016	03-25-2015 09:03 AM Last Post: pl17kv23

Threaded Mode \| Linear Mode Нужен скрипт на выращивание мобов на ферме
Author	Message