Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program AutoType;
- //{$DEFINE SMART}
- //{$i srl/srl/misc/smart.simba}
- {$i SRL-OSR/srl.simba}
- Const
- Message0=('insert message here');
- {Procedure DeclarePlayers;
- begin
- HowManyPlayers := 1;
- NumberOfPlayers(HowManyPlayers);
- CurrentPlayer := 0;
- with Players[0] do
- begin
- Name := 'sa';
- Pass := 'ar';
- BoxRewards := ['XP','xp','lamp'];
- //LampSkill := 'Fishing';
- Active := True;
- end;
- end; }
- procedure Autotyping;
- begin
- repeat
- Wait(510000+Random(300000)); //increase number to slow down. decrease to speed up
- Case Random(5) Of
- 0: TypeByte(VK_LEFT);
- 1: TypeByte(VK_RIGHT);
- 2: TypeByte(VK_UP);
- 3: TypeByte(VK_DOWN);
- 4: TypeByte(VK_ENTER);
- 5: TypeByte(VK_ENTER);
- end;
- Until(False)
- end;
- begin
- SetupSRL;
- ActivateClient;
- Disguise('S2i');
- // DeclarePlayers;
- repeat Autotyping
- until(false);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement