I'm trying to get InvEmpty to work. I can get DropItem to work. Help is very much appreciated. I //'d out what I wanted it to type initially to try CloseBank like in the example used in the function's description. Here is my code:
Code:program inven; {$DEFINE SMART8} {$I SRL-OSR/SRL.Simba} {$I SRL-OSR/SRL/misc/al_functions.simba} {$I SRL-OSR/SRL/Reflection/Reflection.simba} {$I SRL-OSR/SRL/misc/SmartGraphics.simba} Procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name :='no'; Players[0].Pass :='no'; Players[0].Nick :='no'; Players[0].Active:=True; end; procedure typeStuff; begin if InvEmpty then CloseBank; //TypeSendEx('I have no items', true); end; begin SetupSRL; SetupReflection; ActivateClient; DeclarePlayers; SMART_ClearCanvas; LoginPlayer; typeStuff; end.


Reply With Quote




