449290445
2012-03-16 09:10:56
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
yes
Were you Referred to SRL?
What is your general programming knowledge?
java;c: ;c/++
Are you a member of any other communities?
no
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
yes
Were you Referred to SRL?
What is your general programming knowledge?
java;c: ;c/++
Are you a member of any other communities?
no
Tell us about yourself…
From: 449290445
my name is yaotian, I am a student, in Foluolida . i need 99+ skill.
Please show us one (or multiple) of your scripts.
my scripts is green dragon kill,
program grenndrag;
{------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------------------------------------Script Info-------------------------------------|
| ScriptName = Green DragonScriptNameFight style (str, att, def, crush etc. anything in your weapon infoFight style (str, att, def, crush etc. anything in your weapon infoFight style (str, att, def, crush etc. anything in your weapon infoFight style (str, att, def, crush etc. anything in your weapon infoFight style (str, att, def, crush etc. anything in your weapon infoFight style (str, att, def, crush etc. anything in your weapon infoFight style (str, att, def, crush etc. anything in your weapon infoFight style (str, att, def, crush etc. anything in your weapon info
| Author = smoke |
| Description = Fights any monster, food eating and HP regen. Fight style (str, att, def, crush etc. anything in your weapon infoating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen.Description = Fights any monster, food eating and HP regen. |
|==============================================================================
| <<<<<21>>>>>
|==============================================================================
|
| Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) Setup with Form: (Reccommended) |
| 1a. Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread.Read FAQ on first}{$i srl/srl/misc/smart.Simba}{ post of Fast Fighter thread.Read FAQ on first post of Fast Fighter thread. |
| 1b. OR Hit play now the form is pretty easy to use.OR Hit play now the form is pretty easy to use.OR Hit play now the form is pretty easy to use.OR Hit play now the form is pretty easy to use.OR Hit play now the form is pretty easy to use. |
| Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors.Click 'Help' in Form if you don't know how to grab/set colors. |
|
| Setup with Declare Players:
| 1. Make sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colors |
| from monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayers. |
| 2. Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |
| 3. Setup RuneScape (unless your using SMART)
| 4. Push play!
____________________________________________________________________________}
{$DEFINE SMART}
{$i SRL\SRL.Simba}
{------------------------------Script Info-------------------------------------|
| 1. Make sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colors |Make sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colors |Make sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colors |Make sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colors |Make sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and select 3 colors |
| from monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayers. |from monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayers. |from monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayers. |from monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayersfrom monster, and place them accordingly in DeclarePlayers. |
| 2. Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup play}{$i SRL/SRL/skill/slayer.simba}{ers in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |
| 3. Setup RuneScape (unless your using SMART)ayers in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Se}{$i SRL/SRL/skill/fighting.simba}{tup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |
| 4. Push play!ayers inMake sure you use the Color picker and select 3 colorsMake sure you use the Color picker and selecayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup p}{$i SRL/SRL/skill/ranging.simba}{layers in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |Setup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayersSetup players in DeclarePlayers |
|______________________________________________________________________________}
const
FishNumber ='20';//
DisableSMARTPaint = False; //false
procedure DeclarePlayers;
begin
Fish := 8;//7-tuna 8-salmon
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Member := True;
Players[0].Active := True;
StupSRL;
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
procedure FrDTM;
begin
FreeDTM(Q[0]);
FreeDTM(Q[1]);
FreeDTM(Q[2]);
FreeDTM(Q[3]);
FreeDTM(Q[4]);
FreeDTM(Q[5]);
FreeDTM(Q[6]);
FreeDTM(Q[7]);
FreeDTM(Q[8]);
FreeDTM(Q[9]);
FreeDTM(Q[10]);
FreeDTM(Q[11]);
FreeDTM(Q[12]);
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
Procedure SetupBackGround;
var
TPA: TPointArray;
B: TBox;
begin
if DisableSMARTPaint then
Exit;
B := IntToBox(0, 345, 515, 379);
TPA := TPAFromBox(B);
SMART_DrawDotsEx(True, TPA, 725267);
B := IntToBox(0, 378, 515, 378);
TPA := TPAFromBox(B);
SMART_DrawDotsEx(false, TPA, 2570567);
SMART_DrawTextEx(False, 44, 345, BigChars, tag, 2570567);
SMART_DrawTextEx(False, 250, 344+10, UpCharsEx, tag2, 2570567);
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
procedure Setup;
begin Runs;
wait(2000);
Smart_Server := 10; fisher;
Smart_Members := True;
Smart_Signed := True;
MouseSpeed := 18;
ClearDebug;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
ObjDTM_Setup;
ObjDTM_Debug := True;
SetupBackGround;
KeyDown(112);
wait(50);
KeyUp(112);
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
Function findchuanfu(number:integer): Boolean;
var
i, ii,L, P: integer;
T: TPoint;
NPCs, TPA: TPointArray;
ATPA: T2DPointArray;
BoxArr: TBoxArray;
Colors : TIntegerArray;
begin
if not (LoggedIn) then LoginPlayer;
if number =1 then
begin
Colors :=[1846322,3754342,5263181];
end else if number=2 then
begin
Colors :=[6513768,1649465,6250340];
end else if number=3 then
Colors :=[3284002,5256765,4745088];
P := GetSystemTime;
NPCs := GetMMDotsOnMS('npc');
L := Length(NPCs);
if L < 1 then
Exit;
SetLength(BoxArr, L);
for i := 0 to L-1 do
begin
T := MMtoMS(NPCs[i]);
BoxArr[i] := IntToBox(Max(T.x-40, MSX1), Max(T.y-40, MSY1), Min(T.x+40, MSX2), Min(T.y+40, MSY2));
end;
With Players[0] do
for i := 0 to L-1 do
with BoxArr[i] do
begin
SetLength(ATPA, Length(Colors));
For ii := 0 to High(Colors) do //Color array
FindColorsTolerance(ATPA[ii], Colors[ii], X1, Y1, X2, Y2, 4);
TPA := MergeATPA(ATPA);
if Length(TPA) > 0 then
begin
ATPA := SplitTPA(TPA, 6);
SortATPASize(ATPA, True);
T := MiddleTPA(ATPA[0]);
if IsFightAt(T.x, T.y) then
Continue;
if not DisableSMARTPaint then
begin
SMART_ClearCanvasArea(IntToBox(0, 0, MSX2, MSY2));
SMART_DrawBoxEx(False, BoxArr[i], clBlue);
SMART_DrawDotsEx(False, ATPA[0], clRed);
end;
MMouse(T.x, T.y, 3, 3);
if WaitUpTextMulti(['Talk'], random(100)) then
begin
ClickMouse2(False);
if number =1 then
begin
Result := ChooseOption('Sail');
end else
begin
Result := ChooseOption('Bank Banker');
end;
if Result then
begin
FFlag(0);
Exit;
end Else Continue;
end;
end;
end;
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
function FindLoot: Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2,n,m: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
Result :=false;
if not (LoggedIn) then LoginPlayer;
if InvFull then
begin
Wait(250);
if FindDTM(Q[Fish],m, n, MIX1,MIY1,MIX2,MIY2) then
begin
CMove(m, n, 0, 0, true);
CMove(m, n, 0, 0, true);
wait(500)
end else exit;
end;
SetColorSpeed2Modifiers(0.21, 0.89);
if FindColorsTolerance(arP, 2117400, MSX1, MSY1, MSX2, MSY2, 25) then
begin
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 1.22) and (X <= 15.22) and (Y >= 1.22) and (Y <= 15.93) and (Z >= 1.05) and (Z <= 15.90) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if WaitUpTextMulti(['ake','Take'],50) then
begin
GetMousePos(p.x, p.y);
CMove(p.x, p.y, 2, 2, false);
if WaitOptionMulti(Drags, 200) then Result :=true;
WaitOptionMulti(Drags, 200);
Wait(RandomRange(500, 700));
while IsMoving do
begin
Wait(250);
end;
if InvFull then
begin
Wait(250);
if FindDTM(Q[Fish],m, n, MIX1,MIY1,MIX2,MIY2) then
begin
CMove(m, n, 0, 0, true);
CMove(m, n, 0, 0, true);
wait(500)
end else exit;
end;
end;
end;
end;
if FindColorsTolerance(arP, 14343396, MSX1, MSY1, MSX2, MSY2, 20) then
begin
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 50.22) and (X <= 85.22) and (Y >= 52.22) and (Y <= 85.93) and (Z >= 55.05) and (Z <= 90.90) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if WaitUpTextMulti(['ake','Take'],50) then
begin
GetMousePos(p.x, p.y);
CMove(p.x, p.y, 2, 2, false);
if WaitOptionMulti(Drags, 200) then Result :=true;
WaitOptionMulti(Drags, 200);
Wait(RandomRange(500, 700));
while IsMoving do
begin
Wait(250);
end;
if InvFull then
begin
Wait(250);
if FindDTM(Q[Fish],m, n, MIX1,MIY1,MIX2,MIY2) then
begin
CMove(m, n, 0, 0, true);
CMove(m, n, 0, 0, true);
wait(500)
end else exit;
end;
end;
end;
end;
Result :=false;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
Function HpCheck(): boolean;
var
x, y:Integer;
begin
if not (LoggedIn) then LoginPlayer;
KeyDown(112);
wait(50);
KeyUp(112);
if not(FindColorTolerance(x, y, 65280, 718, 18, 744, 43,10)) and LoggedIn then
begin
while not(FindColorTolerance(x, y, 65280, 718, 18, 744, 43,10)) do
begin
if FindDTM(Q[Fish],x, y, MIX1,MIY1,MIX2,MIY2) then
begin
CMove(x, y, 0, 0, true);
CMove(x, y, 0, 0, true);
wait(800);
end else
begin
Result := true;
exit;
end;
end;
end;
if not(FindDTM(Q[Fish],x, y, MIX1,MIY1,MIX2,MIY2)) then
begin
Result := true;
exit;
end;
if InvFull and LoggedIn then
begin
if FindDTM(Q[Fish],x, y, MIX1,MIY1,MIX2,MIY2) then
begin
CMove(x, y, 0, 0, true);
CMove(x, y, 0, 0, true);
wait(800)
end;
end;
Result := false;
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
Procedure Dead();
var
x,y:integer;
BEGIN
if not (LoggedIn) then exit;
SymbolAccuracy := 0.5;
if FindSymbol(x, y, 'bank') then
begin
CMove(x+5, y+5, 0, 0, true);
KeyDown(112);
wait(100);
KeyUp(112);
CMove(656, 185, 0, 0,true);
wait(300);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
wait(2000);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
wait(2000);
CMove(660, 225, 0, 0,true);
CMove(660, 225, 0, 0,true);
CMove(660, 225, 0, 0,true);
CMove(660, 225, 0, 0,true);
wait(1000);
repeat
findchuanfu(3);
until BankScreen;
wait(1000);
CMove(96, 108, 0, 0,true);
wait(1000);
CMove(140, 108, 0, 0,true);
closebank;
wait(1500);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
wait(500);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
exit;
end;
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
procedure isbank;
var
x,y,anti,ring:integer;
begin
ring :=1;
anti :=1;
CMove(687, 184, 0, 0,true);
wait(300);
if not(findzb(Q[3])) then
begin
CMove(656, 185, 0, 0,true);
wait(300);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
wait(500);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
wait(500);
CMove(660, 225, 0, 0,true);
CMove(660, 225, 0, 0,true);
anti :=0;
end else
begin
if not(findzb(Q[4])) then
begin
ring :=0;
end;
end;
wait(500);
repeat
findchuanfu(2);
until BankScreen;
wait(500);
DepositAll;
wait(1000);
if anti=0 then
begin
CMove(96, 108, 0, 0,true);
wait(500);
CMove(140, 108, 0, 0,true);
end else if ring = 0 then
CMove(140, 108, 0, 0,true);
repeat
CMove(52, 108, 0, 0,false);
wait(500);
writeln(ChooseOption('X'));
wait(2500);
SendKeys(FishNumber,200);
KeyDown(13);
wait(100);
KeyUp(13);
wait(3000);
until FindDTM(Q[Fish],x, y, MIX1,MIY1,MIX2,MIY2);
closebank;
CMove(656, 185, 0, 0,true);
wait(300);
if anti = 0 then
begin
wait(1000);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
wait(1000);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
CMove(620, 225, 0, 0,true);
end else if ring = 0 then
begin
wait(1000);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
CMove(579, 225, 0, 0,true);
end;
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
procedure tobank;
begin
if AreTalking then TerminateScript; fisher;
CMove(687, 184, 0, 0,true);Runs;
wait(500);
if not(findzb(Q[3])) then
begin
Dead();
tobank;
exit;
end;
CMove(699, 382, 0, 0,false);
wait(200);
while not(ChooseOption('Duel')) do
begin
CMove(699, 382, 0, 0,false);
KeyDown(113);
wait(50);
KeyUp(113);
if not(findzb(Q[3])) then
begin
Randomevent;
tobank;
exit;
end;
end;Runs;
wait(5000);
setrun(true);
RunRest(90);
if not(ObjeDtm(Path[0])) then
begin
CMove(627, 154, 4, 4, true);Runs;
wait(5000);
tobank;
end;
if not(ObjeDtm(Path[1])) then tobank;
if not(ObjeDtm(Path[2])) then tobank;
if not (LoggedIn) then tobank;
CMove(597, 121, 0, 0,true);
FFlag(6);
CMove(587, 110, 0, 0,true);
FFlag(6);
CMove(595, 131, 0, 0,true);
FFlag(6);
if not (LoggedIn) then tobank;
if not(ObjeDtm(Path[8])) then tobank;
Randomevent;
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
procedure smokedg;
var
x,y,num,t3:integer;
begin
MarkTime(t3);
num :=1;
repeat
KeyDown(112);
wait(50);
KeyUp(112);
if not LoggedIn then Loginplayer;
FightIt(Colors1);
FightIt(Colors2);
FightIt(Colors3);
while InFight or IsMoving do
begin
SetupBackGround;
setrun(true);
wait(5000);
while InFight or IsMoving do
begin
if not (LoggedIn) then LoginPlayer;
if HpCheck() then
begin
FindLoot;
FindLoot;
exit;
end;
FindLoot;
MarkTime(t3);
num :=1;
end;
end;
if(TimeFromMark(t3)>60000)then
begin
if FindColorTolerance(x, y, 515035, 541, 2, 703, 71,20) then
begin
CMove(x, y, 0, 0,true);
MarkTime(t3);
end;
end;
if num = 1 then
if not(FindLoot) then num := 2;
until (HpCheck());
FindLoot;
FindLoot;
end;
(*
InFight
~~~~~~~~~~~
.. code-block:: pascal
procedure FrDTM;
Returns as True if player is in a fight.
See "srl_FindFight;" in /core/Globals.scar for more info.
.. note::
by Narcle
Example:
.. code-block:: pascal
while InFight do
begin
CheckHP;
EatFood;
end;
*)
procedure GoHome;
var
i,x,y,num,t3,p:integer;
begin
tobank;
isbank();
if not(ObjeDtm(Path[9])) then GoHome;
wait(10000);
FFlag(6);
repeat
if not (LoggedIn) then GoHome;
until findchuanfu(1);
wait(6000);
//**************1*****************
if not(ObjeDtm(Path[6])) then GoHome;
if not(ObjeDtm(Path[7])) then GoHome;
RunRest(90);
CMove(565, 115, 0, 0,true);
wait(4000);
FFlag(6);
num :=0;
repeat
if not (LoggedIn) then LoginPlayer;
Mouse(582, 141, 0, 0,true);
wait(5000-num*500);
if num*500<4000 then Inc(num);
until AreTalking;
Mouse(600, 89, 0, 0,true);
while AreTalking or FindFlag(x,y) do
begin
if not (LoggedIn) then LoginPlayer;
Mouse(260, 468, 0, 0,true);
wait(100);
Mouse(257, 405, 0, 0,true);
wait(500);
end;
CMove(183, 271, 0, 0,true);
wait(3000);
if not(FindColorTolerance(x, y, 1939681, 454, 20, 509, 133,10)) then TerminateScript;
RunRest(60);
CMove(563, 116, 0, 0,true);
FFlag(6);
CMove(587, 112, 0, 0,true);
FFlag(6);
wait(1000);
if not(ObjeDtm(Path[5])) then GoHome;
FFlag(6);
CMove(605, 30, 0, 0,true);
wait(5000);
FFlag(6);
CMove(643, 20, 0, 0,true);
wait(4000);
FFlag(6);
for p:=0 to 3 do
begin
CMove(628, 18, 0, 0,true);
wait(4000);
FFlag(6);
end;
if not (LoggedIn) then LoginPlayer;
smokedg;
end;