Log in

View Full Version : Script Problems.



P1nky
01-04-2011, 04:48 AM
Hey guys im actually trying to come back to scripting a bit, and i am probably making a obvious mistake but can somebody tell me why i can't get ChooseOption('rade'); to work...

Begin
begin
C[0] := 2503218;
C[1] := 2503218;
C[2] := 10857901;
C[3] := 10857901;
If (FindColorSpiralTolerance(x, y, C[i], MSX1, MSY1,
MSX2, MSY2, 3)) Then
Mouse(x, y, 1, 1, False);
wait(2000 + (200));
ChooseOption('Trade');
end;
end;


it finds the NPC but doesn't choose the trade option :(?




New Question(jan/4/11):

Can someone please post the script where you press a key and it'll record the Tile..?



and i am going to post more problems as i move on with the script <3

Wanted
01-04-2011, 04:52 AM
wait(2000 + (200));
ChooseOption('Trade');

->


WaitOptionMulti(['Tra', 'rad', 'ade'], RandomRange(2000, 2200));

P1nky
01-04-2011, 04:53 AM
wait(2000 + (200));
ChooseOption('Trade');

->


WaitOptionMulti(['Tra', 'rad', 'ade'], RandomRange(2000, 2200));

<3 you

So we're done with ChooseOption or not compatible with SIMBA </3 :(

Wanted
01-04-2011, 04:57 AM
<3 you

So we're done with ChooseOption or not compatible with SIMBA </3 :(

No? What.

It's just better to use wait option usually.

**BANNED The Man
01-04-2011, 05:29 PM
Also, I think you version should work if you do:
ChooseOption('rad');
I don't think Smart/SRL/Simba like capital letters :)
But yeah, IceFire's option is much better :)

-Boom

P1nky
01-04-2011, 06:13 PM
Posted New Question
and Thanks Dynamite <3

**BANNED The Man
01-04-2011, 06:22 PM
<3

Here:

program MyPositionFinder;
{$i SRL/SRL/Misc/SMART.scar}
{$i SRL/SRL.scar}
{$i reflection\reflection.simba}

// I copied this from somewhere, forget where though :(
procedure DeclarePlayers;
begin
NumberOfPlayers(1); // How many players? 1 account = "1', 5 accounts = "5"...
CurrentPlayer := 0; // Start at player "zero" (aka player 1)
Players[0].Name := '';//Your RuneScape UserName
Players[0].Pass := '';//Your RuneScape PassWord
Players[0].Nick := ''; //3-4 letters from name
Players[0].Active:= True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;

procedure SetUpSmartStuff;
begin
Smart_Server := 9;
Smart_Members:= False;
Smart_Signed := True;
Smart_SuperDetail := False;
end;

var mt : TTile; // Tile
begin
SetUpSmartStuff;
SetupSRL;
SetupReflectionEx(true);
DeclarePlayers;
LogInPlayer;
MakeCompass ('n');
SetAngle (true);
SetRun (true);
writeln ('2000');
wait (2000);
repeat
cleardebug;
mt := GetMyPos; // Get your global position
writeln (inttostr(mt.x) + '/'+ inttostr(mt.y)); // Output it
wait (1000);
until (false)
end.