ПЛЗ помогите исправить скрипт

[trylala]

Code: Select all

program pesok;



const

Shovel = $0F39; 



procedure stack(ObjType, Color : word);

var PackItem, GroundItem : Cardinal;

begin

PackItem := 0;

GroundItem := 0;

Findtype(ObjType,backpack);                   

IF FindFullQuantity > 0 then PackItem := finditem;

	Findtype(ObjType,ground);                   

	IF FindFullQuantity > 0 then IgnoreReset;

		repeat

			FindtypeEx(ObjType,Color,ground,false);

			IF FindCount > 0 then

				if FindQuantity > 55000 then Ignore(finditem)

				else GroundItem := finditem;

					FindtypeEx(ObjType,Color,ground,false);

				until (FindCount = 0) or (GroundItem <> 0);

				if (PackItem <> 0) and (GroundItem <> 0) then MoveItems(backpack,ObjType,Color,GroundItem,1,1,0,1000)

				else DropHere(PackItem);

					end;

					

				      procedure Mine;

					var sTime : TDateTime;

					begin

					UseType(Shovel,-1);

					WaitForTarget(1000);     

					WaitTargetTile( 0,( GetX( Self )),( GetY( Self )),GetZ( Self )); 

					sTime := Now;

					wait(1000);

					WaitJournalLine( sTime, 'Вы добыли',30000);

					wait(3790);

                                      end;

					

					Begin

					repeat 

						Mine; 

						CheckLag(10000);

						if Weight>=750 then 

						begin

						 stack($19B7,$00FA); 

						 stack($19B8,$00F8);  

                                                 end; 

						until Dead

						End.

в нем есть процедура скидывания песка и глины
что нужно поменять чтобы скидывал не на пол а в сундук рядом???

[shinma]

function DropHere(ItemID: Cardinal): Boolean; // Бросить объект на землю под ноги
function MoveItems(Container: Cardinal; ItemsType: Word; ItemsColor: Word; MoveIntoID: Cardinal; X,Y,Z: Integer; DelayMS: Integer): Boolean; //
Всех айтимы в контейнере Container, которые удовлетворяют фильтру поиска, - перемещает с одного места в другое.
ItemsType - тип айтимов. $FFFF - любой тип
ItemsColor - цвет айтимов. $FFFF - любой цвет
DelayMS - пауза между перемещением каждого айтима (Время задается в милисекундах)

Пример:
Код:
MoveItems(BackPack,Resurs,$FFFF,Box,0,0,0,500);


http://stealth.od.ua/forum/viewtopic.php?f=6&t=1220


function MoveItems(ИД сумки где взять итем , какой у итема тип, какой у итема цвет,ИД сумки куда положить итем , 0,0,0, задержка Мс);

[drabadan]

Code: Select all

program pesok;



const

Shovel = $0F39; 



procedure stack(ObjType, Color : word);

var PackItem, GroundItem : Cardinal;

begin

PackItem := 0;

GroundItem := 0;

Findtype(ObjType,backpack);                   

IF FindFullQuantity > 0 then PackItem := finditem;

	Findtype(ObjType,ground);                   

	IF FindFullQuantity > 0 then IgnoreReset;

		repeat

			FindtypeEx(ObjType,Color,ground,false);

			IF FindCount > 0 then

				if FindQuantity > 55000 then Ignore(finditem)

				else GroundItem := finditem;

					FindtypeEx(ObjType,Color,ground,false);

				until (FindCount = 0) or (GroundItem <> 0);

				if (PackItem <> 0) and (GroundItem <> 0) then MoveItems(backpack,ObjType,Color,GroundItem,1,1,0,1000)

				else DropHere(PackItem);

					end;

					

				      procedure Mine;

					var sTime : TDateTime;

					begin

					UseType(Shovel,-1);

					WaitForTarget(1000);     

					WaitTargetTile( 0,( GetX( Self )),( GetY( Self )),GetZ( Self )); 

					sTime := Now;

					wait(1000);

					WaitJournalLine( sTime, 'Вы добыли',30000);

					wait(3790);

                                      end;

					

					Begin

					repeat 

						Mine; 

						CheckLag(10000);

						if Weight>=750 then 

						begin

						 stack($19B7,$00FA); 

						 stack($19B8,$00F8);  

                                                 end; 

						until Dead

						End.

в нем есть процедура скидывания песка и глины
что нужно поменять чтобы скидывал не на пол а в сундук рядом???

Для начала, если ты просишь о помощи - ты бы мог отредактировать код. Хотя бы для удобства чтения - поверь, это пол дела в отладке скрипта!
Начни с малого и дело пойдет...

[trylala]

2shinma
спасибо огромное

function MoveItems(ИД сумки где взять итем , какой у итема тип, какой у итема цвет,ИД сумки куда положить итем , 0,0,0, задержка Мс);

[Vizit0r]

а редакторе в меню есть пункт Format Code.
стоило бы пожалеть чужие глаза.

Я такие скрипты принципиально пропускаю мимо.