Stealth Client Forum

Code: Select all

Program Spirit; 
{$Include 'checksave.inc'}  //CheckSave 
{$Include 'hungry.inc'}     //Hungry(1,backpack); 
Begin 
SetARStatus(true); 
while not Dead do
 begin 
  if connected then
   begin 
    CheckSave;
    UseSkill('Spirit Speak');
    Wait(2000);
    if InJournal('You fail to communicate with the netherworld.') then
    begin
    CheckSave;
    UseSkill('Spirit Speak');
    Wait(2000);
    end
    Checksave; 
    Hungry;
    Wait(2000); 
    CheckSave;    
    DisConnect;
    Wait(3000); 
   end
   else 
    begin 
    connect; 
    wait(3000); 
   end; 
end; 
End.