By my knowledge, this script should find all loot piles on minimap, then walk to the first one it lists, correct?
It logs in, catalogs all loot piles, then prints debug without walking anywhere.
EDIT: Fixed
Code:Program BasicScriptTutorial; {$DEFINE SMART8} {$i srl/srl.simba} {$i sps/sps.simba} const Debug= 'True'; SRLStats_Username = ''; // ***Leave blank if you don't have a stats account*** SRLStats_Password = ''; {==========Smart Setup==========} World = 0; // Input the runescape world number right here for it to select. You may leave it as 0 if you would like it to select a random world. MEMBERS = False; // Select False if you are not a member. Select True if you are a member. SIGNED = True; // Select True if you are using single account. Select False if not. {===============================} procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; //Your Runescape username goes right here. Players[0].Pass := ''; //Your Runescape password goes right here. Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player. Players[0].Pin := ''; //Put your Bank PIN here. Leave blank if you don't have a Bank PIN. end; procedure LootMap; var MyLoc:Tpoint; PileLoc:TpointArray; i:integer; begin SPS_Setup(RUNESCAPE_SURFACE,['11_9','10_9','12_9','11_10','11_11']); PileLoc:= GetMiniMapDots('item'); for i:=0 to length(PileLoc)-1 do begin MyLoc:= SPS_GetMyPos(); PileLoc[i].x:=(MyLoc.x+PileLoc[i].x-MMCX); PileLoc[i].y:=(MyLoc.y+PileLoc[i].y-MMCY); end; if Debug='True' then begin Writeln(tostr(MyLoc)); Writeln(tostr(PileLoc)); SPS_WalktoPos(PileLoc[0]); end; end; begin {$IFDEF SIMBAMAJOR980} SMART_SERVER := 10; SMART_MEMBERS := TRUE; SMART_SIGNED := TRUE; SMART_SUPERDETAIL := FALSE; {$ELSE} SRL_SIXHOURFIX := TRUE; SMART_FIXSPEED := TRUE; {$ENDIF} SetupSRL; If (SRLStats_Username = '') Then SetupSRLStats(944, 'Anonymous', 'anon1337') Else SetupSRLStats(944, SRLStats_Username, SRLStats_Password); DeclarePlayers; LoginPlayer; LootMap; end.


Reply With Quote