Hi this is my first script and I've created it by following tutorials.
Sadly it doesn't seem to do what i want it to, and I'm not sure why.
It loads SMART and logs in fine. But it doesn't do anything after that even though i (think i) told look for the grimy herbs and left click them.Code:program DeclarePlayers; {$DEFINE SMART} {$i srl/srl.simba} {$IFDEF SMART} {$i srl/srl/misc/paintsmart.simba} {$ENDIF} procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; // Username Players[0].Pass := ''; // Password Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection Players[0].Active := True; // Set to true if you want to use Player 0 Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin end; procedure FindAndClean(); var DTM, x, y : Integer; begin DTM := DTMFromString('mlwAAAHicY2dgYAgB4iAgTgDiaCD2B2IXIPYBYjUglgJiBSDWgWJVIJYFYmsDKQYuLx4gi4nBy0aRgS9RgIEngg8qhhsw4sFQAAB+FwYo'); // Grimy guam if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then begin Mouse(x, y, 5, 5, mouse_Left); Wait(RandomRange(20, 100)); end; FreeDTM(DTM); end; begin {$IFDEF SMART} Smart_Server := 0; Smart_Members := True; Smart_Signed := True; Smart_SuperDetail := False; {$ENDIF} SetupSRL(); ClearDebug(); DeclarePlayers(); LoginPlayer(); end.
Can anyone see where i went wrong?


Reply With Quote

hopes these help you I like the effort that you gave in trying to learn code. Best of luck.
I read it all first of course and thought i had the idea, but i didn't seem to catch the part about calling my procedure into action. 
