King of Knives
2007-09-18 13:19:48
<!– BEGIN TEMPLATE: formanswers –>
King of Knives - SRL Member Application Form
King of Knives
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I only know SCAR
Other Communitys
Freddy1990.com
How Long have You Played Runescape
I played it 1 year. That is about 8 months ago. Now I've stopped
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I've been scripting SCAR for some time now. Mostly without SRL. I've been developing a few functions and procedures. Amongst them is a very human writer (Miss-clicks at keys, neighbour to the right one).
I've been helping on Freddy1990.com for a while, when I decided to check out the SRL-forums. Even more people to help (I consider that good)!
I mostly made small scripts for requests (Auto-alchers for first inv spot, and small things like that), until now. I'm considering making some bigger scripts, since they involve more difficulty.
-Knives
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
King of Knives - SRL Member Application Form
King of Knives
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I only know SCAR
Other Communitys
Freddy1990.com
How Long have You Played Runescape
I played it 1 year. That is about 8 months ago. Now I've stopped
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I've been scripting SCAR for some time now. Mostly without SRL. I've been developing a few functions and procedures. Amongst them is a very human writer (Miss-clicks at keys, neighbour to the right one).
I've been helping on Freddy1990.com for a while, when I decided to check out the SRL-forums. Even more people to help (I consider that good)!
I mostly made small scripts for requests (Auto-alchers for first inv spot, and small things like that), until now. I'm considering making some bigger scripts, since they involve more difficulty.
-Knives
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{ Script Information: }
{ }
{ Author: King of Knives }
{ }
{ Do not post this anywhere }
{ without my permission. }
{ }
{ Description: Fishes with net near the }
{ willow trees in Draynor Village. }
{ It fishes a full inventory, then it drops }
{ and repeats. }
{==============================================}
{ ===== S E T U P ===== }
{ Start logged in, minimap facing north and with the highest angle,
{ near a net fishing spot.
{ Have no valuables with you. Only, and ONLY, a small fishing net;
{ Money will be dropped, to make more space for fish.
{
{ Drag the crosshairs over RuneScape and run the script :D
{=========================}
Program Draynor_Netter;
{.include SRL/SRL.scar}
var
Timer,Drops: Integer;
Const
YourNick= 'ndy'; // 3-4 letters of your name. No capitals!
InvTimer= 300; // Max seconds, that one full inventory can take.
function HasGotNet: Boolean;
var
a,b,Net: Integer;
begin
Net := DTMFromString('78DA8DD1C10A40501005D0191F25E225ABB7A' +
'2AC7CBB44440AE517B87658B8736B6636A7667A4F5D20D2C92BB5' +
'4FE5C454D489680533CA27FAE898054C4F8C876989C9611A62129' +
'88198D8707308331393C1ECC444309361D762B87925C61976DDEF' +
'7C18FE8B991266FB37172F461872');
Result:= FindDTM(Net,a,b,0,0,750,500)
FreeDTM(Net)
end;
function CountItemDtm(dtm: Integer): Integer; // Had to take this
// directly from xInventory, because I have some problems
// with that file.
// based of PPLSUQBAWLZ's InventoryCount
var
used, i, e,x,y: Integer;
begin
GameTab(4);
while (i < 6) do
begin
if (i = 5) and (e < 8) then
begin
i := 0;
e := e + 1;
end;
if (FindDTM(dtm, x, y, (570 + 39 * i), (214 + 35 * e), (609 + 39 * i), (249
+ 35 * e))) then
used := used + 1;
if (i = 4) and (e = 7) then
Break;
i := i + 1;
end;
Result := used;
end;
function FindFastRandoms: Boolean; //By WT-Fakawi, modified by TheGuyWhoGotOn, re-modified by me.
var i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
begin
status('You died. Logging out.');
Result := True;
LogOut;
end;
2: if FindMod then
begin
Result := True;
status('Found MOD, waited');
end;
3: if FindMime then
begin
status('Stupid mime, logging out');
Result := True;
end;
4: if FindMaze then
begin
status('In maze, logging out');
Result := True;
end;
5: if FindQuiz then
begin
status('Being quized, logging out');
Result := True;
end;
6: if FindDemon then
Result := True;
7: begin
if InBlack then
begin
Result := True;
status('In dark area, logigng out');
writeln('You are in a dark area, random? Logging out...');
Logout;
Exit;
end;
end;
8: begin
if FindFight then
begin
Result:= True;
Status('Found fight, escaping.')
Writeln('Found fight')
RunTo('W',false)
end;
end;
end;
wait(1);
end;
end;
Procedure HandleRandomsCustom;
var a,b: Integer;
begin
GameTab(4)
NickNameBMP := CreateBitmapMaskFromText(YourNick,UpChars)
FindNormalRandoms;
FindFastRandoms;
if(HasGotNet = False)then
begin
Writeln('You lost your net. Logging out.')
LogOut;
TerminateScript;
end;
if(FindColorTolerance(a,b,1281712,547,193,750,500,5))then
begin
Mouse(a,b,5,5,False)
ChooseOption('Drop')
end;
end;
function FindSpot(Tol: Integer): Boolean;
var
a,b: Integer;
begin
if(FindColorTolerance(a,b,14796717,0,0,750,500,Tol))then
begin
Mouse(a,b,2,2,False)
FTWait(2)
if(ChooseOption('Net'))then
begin
Result:= True;
Flag;
end;
end;
end;
Procedure GetSpot;
var
I,Tol: Integer;
B: Boolean;
begin
I:= 0;
Tol:= 5;
repeat
I:= I + 1;
If(FindSpot(Tol+I) = False)then
begin
Wait(2500+random(2500))
end else
begin
B:= True;
Wait(5000+random(5000))
end;
until(I = 10) or (B)
if(B = False)then
begin
Wait(20000+random(10000))
end;
end;
function WhatSkill: String;
begin
Case Random(5) of
0: Result:= 'Fishing'
1: Result:= 'Cooking'
2: Result:= 'Woodcutting'
3: Result:= 'Firemaking'
4: Result:= 'Smithing'
end;
end;
procedure WaitTimeWhileFishing;
var
I: Integer;
begin
case random(4) of
0: Begin
I:= 100+random(100)
SendArrowWait(1,I)
SendArrowWait(3,I+random(10))
end;
1: begin
HoverSkill(WhatSkill,False)
GameTab(4)
end;
2: begin
GameTab(1+random(10))
Wait(2000+random(5000))
GameTab(4)
end;
3: Wait(2000+random(5000))
end;
end;
Procedure SomeTimesWait;
begin
Case Random(4) of
0: Wait(2000+random(2000))
1: Wait(5000+random(1000))
2: Wait(500+random(1000))
3: WaitTimeWhileFishing;
end;
end;
Function IsNewFish: Boolean;
var
I,T,ShrimpAnchovie: Integer;
begin
ShrimpAnchovie := DTMFromString('78DA634C606260606364400639391D0CFF813' +
'448F43F10306601D5B0A3AA81C8C248209D0F54F39F01BF9A2222' +
'D45401D5B012B0AB8C098987434D05500D232361BB08F90BE4664' +
'1026A32816A4409A84905AA1121A0269B087372895003728F0001' +
'350584DD030043920FD1');
I:= CountItemDTM(ShrimpAnchovie)
MarkTime(T)
repeat
Wait(10+random(10))
until(CountItemDTM(ShrimpAnchovie) > I) or (TimeFromMark(T) >= 10000)
if(CountItemDTM(ShrimpAnchovie) > I)then
begin
Result:= True;
end;
FreeDTM(ShrimpAnchovie)
end;
function FullFishCustom: Boolean;
var
ShrimpAnchovie,a,b: Integer;
begin
ShrimpAnchovie := DTMFromString('78DA634C606260606364400639391D0CFF813' +
'448F43F10306601D5B0A3AA81C8C248209D0F54F39F01BF9A2222' +
'D45401D5B012B0AB8C098987434D05500D232361BB08F90BE4664' +
'1026A32816A4409A84905AA1121A0269B087372895003728F0001' +
'350584DD030043920FD1');
if(FindDTM(ShrimpAnchovie,a,b,679,408,750,500))Then
begin
Result:= True;
end;
if(Result = False)then
begin
if(CountItemDTM(ShrimpAnchovie) = 27)then
begin
Result:= True;
end;
end;
FreeDTM(ShrimpAnchovie)
end;
Procedure DropAllFish;
var
ShrimpAnchovie,a,b: Integer;
begin
ShrimpAnchovie := DTMFromString('78DA634C606260606364400639391D0CFF813' +
'448F43F10306601D5B0A3AA81C8C248209D0F54F39F01BF9A2222' +
'D45401D5B012B0AB8C098987434D05500D232361BB08F90BE4664' +
'1026A32816A4409A84905AA1121A0269B087372895003728F0001' +
'350584DD030043920FD1');
repeat
if(FindDTM(ShrimpAnchovie,a,b,0,0,750,500))then
begin
Mouse(a,b,10,10,false)
Wait(500+random(500))
ChooseOption('Drop')
Wait(200+random(500))
Drops:= Drops + 1;
if(Drops mod 3 = 0)then
begin
HandleRandomsCustom;
end;
end;
until(Not(FindDTM(ShrimpAnchovie,a,b,0,0,750,500)))
FreeDTM(ShrimpAnchovie)
Wait(1000+random(1000))
end;
Procedure Proggy;
var H,M,S: Integer;
begin
ClearReport;
ConvertTime(GetTimeRunning,H,M,S)
AddToReport('///---------Draynor-Netter---------\\\')
AddToReport('||----------------------------------||')
AddToReport('> Has run for: '+IntToStr(H)+':'+IntToStr(M)+':'+IntToStr(S))
AddToReport('> Has dropped: '+IntToStr(Drops)+' anchovies/shrimps')
AddToReport('--------------------------------------')
end;
begin
SetupSRL;
GameTab(4)
if(HasGotNet = False)then
begin
Writeln('You do not have any Small Fishing Net. Terminating...')
TerminateScript;
end;
ClearDebug;
ClearReport;
ChangeReportWidth(350)
ActivateClient;
if(FullFishCustom)then
begin
DropAllFish;
end;
GetSpot;
SomeTimesWait;
HandleRandomsCustom;
repeat
repeat
MarkTime(Timer);
If(IsNewFish = False)then
begin
GetSpot;
SomeTimesWait;
HandleRandomsCustom;
end;
HandleRandomsCustom;
Proggy;
until(FullFishCustom) or (TimeFromMark(Timer) >= InvTimer*1000)
DropAllFish;
Proggy;
MarkTime(Timer)
until(false)
end.——————————————————
<!– END TEMPLATE: formanswers –>