SRL Archive - OSR Help

program new;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}

Var
  x, y: Integer;

Procedure DeclarePlayer;

 Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;

 End;

Procedure Coaltobag;

 Begin
  Mouse(620, 232, 7, 7, True);
  MMouse(577, 228, 2, 2);
  Wait(200+random(100));
  Mouse(x, y, 0, 0,True);

   End;


Begin
  Smart_Server := 8;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  ClearDebug;
  SetupSrl;
  DeclarePlayer;
  LoginPlayer;
  Coaltobag;
end.                     

After Running it Clicks The Coal And Moves To Coal Bag And then Goes Of to top Corner ?

You need to use bitmaps or DTM's. No one else will ever be able to use this unless they have everything in their bank in the same spots as you. At least as far as I know.

Iv moved on from that This is for Space 1 and space 2 in the inventory ?

http://villavu.com/forum/showthread.php?t=58935
http://villavu.com/forum/showthread.php?t=564
http://villavu.com/forum/showthread.php?t=19162
http://villavu.com/forum/showthread.php?t=372
http://villavu.com/forum/showthread.php?t=47374

Look at those tutorials, in that order. It should tell you everything you need to know to script.

Mouse(x, y, 0, 0,True);<— you have never defined a value for x and y, so they are at the default values 0 (which would mean it will click the topleft corner of your screen)

Haha :P fixed now thanks i guess i was thinking of something else