SRL Archive - OSR Help

Help me with my first script -- Simple fisher

Falmar

2013-02-26 12:16:56

program LazyFlyFisherman;

{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}


var
x,y: Integer;
Text: TStringArray;

procedure FindFish;
begin
 repeat
If P07_FindObjCustom(x, y, ['spot', 'Fishing'], [14597535, 14597268, 15123625, 14398100, 15058085], 5) Then
      ClickMouse2(mouse_left);
Wait(RandomRange(8000,10000))
 until(P07_InvFull)
end;

procedure DropFish;
begin
 If P07_InvFull Then
  P07_DropAllExcept([1,2]);
 Wait(200 + Random(100))
end;

begin
SetupP07Include
 repeat
 FindFish;
 DropFish;
 until(false);
end.

still getting error when i try to run script (it moves mouse to fishing spot then 07include pops up)

Error: Exception: Font [P07UpChars] not found. at line 108
The following DTMs were not freed: [0, 1]

line 108

WhiteT:=GetTextAtExWrap(8, 8, 80, 21, 0, 5, 1, 14541281, 55, 'P07UpChars');

I've got 07include extracted at fonts & includes

Ashaman88

2013-02-26 12:26:27

From: Falmar
program LazyFlyFisherman;

{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}


var
x,y: Integer;
Text: TStringArray;

procedure FindFish;
begin
 repeat
If P07_FindObjCustom(x, y, ['spot', 'Fishing'], [14597535, 14597268, 15123625, 14398100, 15058085], 5) Then
      ClickMouse2(mouse_left);
Wait(RandomRange(8000,10000))
 until(P07_InvFull)
end;

procedure DropFish;
begin
 If P07_InvFull Then
  P07_DropAllExcept([1,2]);
 Wait(200 + Random(100))
end;

begin
SetupP07Include
 repeat
 FindFish;
 DropFish;
 until(false);
end.
still getting error when i try to run script (it moves mouse to fishing spot then 07include pops up)

Error: Exception: Font [P07UpChars] not found. at line 108
The following DTMs were not freed: [0, 1]

line 108

WhiteT:=GetTextAtExWrap(8, 8, 80, 21, 0, 5, 1, 14541281, 55, 'P07UpChars');

I've got 07include extracted at fonts & includes

Did you make sure to restart simba after you extracted the fonts and are you sure you extracted the folder to the fonts folder?

Falmar

2013-02-26 12:27:31

I think yes, doing it right now again just in case. will edit in 2mins
@edit
still same problem :(

I'll paste a screen of my simba/fonts folder in a min

by the way, where to place P07include? Just in Simba/Includes OR includes/srl\plugins etc

Ashaman88

2013-02-26 12:50:40

From: Falmar
I think yes, doing it right now again just in case. will edit in 2mins
@edit
still same problem :(

I'll paste a screen of my simba/fonts folder in a min

by the way, where to place P07include? Just in Simba/Includes OR includes/srl\plugins etc

I think it's just simba/includes. Did you make sure to restart simba after you put the fonts there? Also are there actual files within the p07fonts folder?

Falmar

2013-02-26 12:55:03

Yes. Restarted twice. Everything is actual, got everything updated.

@edit

Dany just updated his 07include. It's working now