Stealth Client Forum

Code: Select all

program heal;

procedure Hungry(NeededLevel : Integer); 
var HArray : array [0..10] of String; 
    CurrentLevel : Integer; 
    HasError : Boolean; 
    TimeSayHungry : TDateTime; 
    FoodID : Cardinal; 
    i,c,difference : Integer; 
begin 
if (NeededLevel < 0) or (NeededLevel > 10) then Exit; 
   HArray[0] := 'You are absolutely stuffed!'; 
   HArray[1] := 'You are stuffed'; 
   HArray[2] := 'hungry at all'; 
   HArray[3] := 'You are a little hungry'; 
   HArray[4] := 'You are somewhat hungry'; 
   HArray[5] := 'You are REALLY hungry'; 
   HArray[6] := 'Your stomash hurts'; 
   HArray[7] := 'Your stomash hurts and you feel dizzy'; 
   HArray[8] := 'You are starving'; 
   HArray[9] := 'You are almost dying of hunger'; 
   HArray[10] := 'You are DYING of hunger...'; 
HasError := true; 
TimeSayHungry := Now; 
UOSay('.hungry'); 
wait(100); 
i:=0; 
while i < 100 do 
   begin 
	   for c := 0 to 10 do 
	   if InJournalBetweenTimes(HArray[c],TimeSayHungry,Now) >= 0 then 
	   begin 
		   CurrentLevel := c; 
		   HasError := false; 
		   i := 100; 
	   end; 
	   wait(100); 
	   i := i + 1; 
   end; 
if HasError then 
   begin 
	   AddToSystemJournal('Error with Hungry: Lag? Conection error? Something else?'); 
	   Exit; 
   end; 
difference := CurrentLevel - NeededLevel; 
if difference > 0 then for i := 1 to difference do 
   begin 
	   FoodID := FindType($097B,$FFFFFFFF); 
	   if FoodID <> $00 then UseObject(FoodID) 
	   else AddToSystemJournal('No Food'); 
	   wait(200); 
   end; 
end;


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,0,0,0,1000)
	else DropHere(PackItem);
end; 


procedure Dropscrolls(scroll:Word);
begin
	findtype(scroll,backpack);
	IF FindFullQuantity > 2000 then
	begin
		Stack(scroll,$FFFF)
		Wait(300)  
	end;
end;

Begin  // Main program start!!!
while true do
begin
	Hungry(1);
	wait(500);
	for i:=1 to 50 do
	begin
                WaitTarget(Self);
                UseObject(findtype($E21,backpack);
                wait(2000);        //2с, задержку под свой шард ставить
	end;
end;

End.

Code: Select all

Begin

while true do 
begin 

WaitTarget(Self); 
UseObject(findtype($E21,backpack); 
wait(3000);

end; 

End.