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.
22:13:24: Compiling
22:13:24: Compiler: [Error] (Spirit.sc at 13:67): Type mismatch
22:13:24: Compiling failed
22:13:24: Script Spirit.sc stoped successfuly