So this will be my first script in quite a long time. So far I have the login function all set up and think that i have it set up so it will go with one preset look but the mouse doesn't appear to move, it just stops and waits.
Do i have any problems with the code that should be corrected to make it work?Code:program Barbarianl3tNewTutorialRunner; {.include srl/srl/misc/smart.scar} {.include SRL/SRL.scar} var x,y: Integer; step, world: Integer; username, password: String; const presetTopX = 295; presetTopY = 120; presetBotX = 362; presetBotY = 180; procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; Players[0].Pass := ''; Players[0].Nick := 'kill'; Players[0].Active := True; {Players[1].Name := ''; Players[1].Pass := ''; Players[1].Nick := ''; Players[1].Active := True;} step := 0; //don't change MouseSpeed := 12; World := 94; end; procedure Step0; begin Wait(5000+random(400)) Mouse(presetTopX, presetTopY, random(presetBotX - presetTopX), random(presetBotY - presetTopY), true); Wait(300 + random(200)); Mouse(322,398,80, 15, True); end; procedure Step1; begin KeyDown(39); Wait(2000 + random(1000)); KeyUp(39); Wait(500 + random(1000)); Mouse(859,291,random(880-859),random(310-291),true); KeyDown(40); Wait(2000 + random(500)); KeyUp(40); end; begin {$IFDEF SRL_SMART} Smart_Server := World; Smart_Members := False; Smart_Signed := True; Smart_SuperDetail := False; {$ENDIF} SetupSRL; DeclarePlayers; LoginPlayer; Step0; Step1; end.
+I did leave my pass in there it's a level 3 with no experience and no clothes so no point in stealing him.
(If this changes anything I have been compiling then running the script because it SMART seems to like that more)


Reply With Quote







