Unohdus
2008-09-04 07:37:34
<!– BEGIN TEMPLATE: formanswers –>
Unohdus - SRL Member Application Form
Unohdus
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Some C++
Other Communitys
RuneAnarchy
How Long have You Played Runescape
form 2003
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Okay I'm learned scripting with SCAR and have made scripts. First I made soem simple like, autotalkers etc, but i got finished my PowerMiner, wich I find great. And i would like to get member so when I make new scripts, i could share them with amazing scripters.
I come from Finland, 17 years old. Like to drink beer and have fun at weekend. Like most of Finns :D
And Now if I made double post remove other, forum is so laggyz so I am not sure.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Unohdus - SRL Member Application Form
Unohdus
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Some C++
Other Communitys
RuneAnarchy
How Long have You Played Runescape
form 2003
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Okay I'm learned scripting with SCAR and have made scripts. First I made soem simple like, autotalkers etc, but i got finished my PowerMiner, wich I find great. And i would like to get member so when I make new scripts, i could share them with amazing scripters.
I come from Finland, 17 years old. Like to drink beer and have fun at weekend. Like most of Finns :D
And Now if I made double post remove other, forum is so laggyz so I am not sure.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Unohduses powerminer;
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xAutoTalk.scar}
{.include SRL/SRL/extended/xInventory.scar}
{.include SRL/SRL/extended/xAntiBan.scar}
{.include SRL/SRL/skill/Mining.scar}
var
RockColor1, RockColor2, RockColor3, TimesToCheck, LoadsMined,
FindOreFailed, OresMined, TotalOresMined: Integer;
const
TotalOresToMine = 100; //How many ores mine before stop script.
Running = 'N'; //Where to run in a fight.
IronColor1 = 2766939;
IronColor2 = 2832993;
IronColor3 = 2964837;
CopperColor1 = 5476071;
CopperColor2 = 5673190;
CopperColor3 = 5080536;
TinColor1 = 10526892;
TinColor2 = 10000805;
TinColor3 = 10921649;
GoldColor1 = 1950961;
GoldColor2 = 1883625;
GoldColor3 = 1685988;
SilverColor1 = 10138557;
SilverColor2 = 8164252;
SilverColor3 = 8559268;
CoalColor1 = 2768960;
CoalColor2 = 2966339;
CoalColor3 = 3098439;
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
//Setup your players
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'Nick';
Players[0].String1 := 'What it mines'
Players[0].Integer1 := 1; //Loads
Players[0].Active := True;
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'Nick';
Players[1].String1 := 'What it mines'
Players[1].Integer1 := 1; //Loads
Players[1].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure MyAntiBan;
begin
case Random(7) of
0: begin
case random(3) of
0: TypeSend('Minin lvls?');
1: TypeSend('Hello');
2: TypeSend('How are you?');
3: TypeSend('Erhhhmmm');
4: TypeSend('Str lvls??');
5: TypeSend('hihiz');
6: TypeSend('bio brake');
7: TypeSend('I am stupid...');
8: TypeSend('Are you happy now while ninjaing my ores?');
9: TypeSend('Im s0 l337');
end;
end;
1: HoverEvery(15+random(10),'mining');
2: PickUpMouseEvery(5+random(3));
3: LeaveScreenEvery(5+random(5));
4: begin
RotateEvery(7+random(5));
MakeCompass('N');
end;
5: HoverEvery(15 + Random(5), 'Attack');
6: RandomRClickEvery(2 + Random(13));
end;
end;
procedure SetRockSpecs;
begin
Case Lowercase(Players[CurrentPlayer].String1) of
'iron':
begin
RockColor1 := IronColor1;
RockColor2 := IronColor2;
RockColor3 := IronColor3;
TimesToCheck := 50;
end;
'copper':
begin
RockColor1 := CopperColor1;
RockColor2 := CopperColor2;
RockColor3 := CopperColor3;
TimesToCheck := 25;
end;
'gold':
begin
RockColor1 := GoldColor1;
RockColor2 := GoldColor2;
RockColor3 := GoldColor3;
TimesToCheck := 125;
end;
'tin':
begin
RockColor1 := TinColor1;
RockColor2 := TinColor2;
RockColor3 := TinColor3;
TimesToCheck := 25;
end;
'coal':
begin
RockColor1 := CoalColor1;
RockColor2 := CoalColor2;
RockColor3 := CoalColor3;
TimesToCheck := 110;
end;
'silver':
begin
RockColor1 := SilverColor1;
RockColor2 := SilverColor2;
RockColor3 := SilverColor3;
TimesToCheck := 65;
end;
end;
end;
{----Proggress Report----}
procedure Progress;
begin
WriteLn('|-------------------------------------------|');
WriteLn('|--------------ProgressReport---------------|');
WriteLn('|-------------------------------------------|');
WriteLn('| Current Account: '+Players[CurrentPlayer].Name);
WriteLn('| Loads Mined & Dropped: '+IntToStr(LoadsMined));
WriteLn('| Total '+IntToStr(TotalOresMined)+' Ores Were Mined');
WriteLn('|-------------------------------------------|');
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure AntiRandomness;
begin
FindPick;
FindNormalRandoms;
FindFastRandoms;
FindLamp('mining');
if (FindFight = true) then
begin
RunAwayDirection(Running);
wait(10000 + random(5000));
RunBack;
end;
end;
procedure MineRock;
var x,y, Checks: Integer;
begin
FindPickHeadColor;
repeat
repeat
Progress;
Status('Looking For Ore...');
repeat
if ((FindObj3(x,y,'ine',RockColor1,5)) or
(FindObj3(x,y,'ine',RockColor2,5)) or
(FindObj3(x,y,'ine',RockColor3,5))) then
begin
Status('Ore Found! Mining Ore...')
FindOreFailed := 0;
GetMousePos(x,y);
FindGas(x,y);
Mouse(x,y,2,2,true);
FindGas(x,y);
MyAntiBan;
Checks := 0;
repeat
wait(200);
AntiRandomness;
Checks := Checks + 1;
until (Checks = TimesToCheck) or
FindBlackChatMessage('manage') or
FindBlackChatMessage('mine some')
if FindBlackChatMessage('manage') or
FindBlackChatMessage('mine some') then
begin
OresMined := OresMined + 1;
end;
end else
begin
Status('Trouble Finding Ore, Trying Again... ');
FindOreFailed := FindOreFailed + 1;
end;
until((InvFull = True) or
(FindOreFailed = 20))
if(InvFull = True) then
begin
DropAll;
MyAntiBan;
LoadsMined := LoadsMined + 1;
end;
until((LoadsMined = Players[CurrentPlayer].Integer1) or
(FindOreFailed = 20))
if(FindOreFailed = 20) then
begin
Progress;
WriteLn('Specified Ore Not Found...');
WriteLn('Conclusion-> I Dont Know How, But Your Lost');
WriteLn('Logging Account Out');
WriteLn('Next Player');
NextPlayer(false);
TotalOresMined := TotalOresMined + OresMined;
OresMined := 0;
end else
begin
WriteLn('Loads Finished. Switching Players.')
NextPlayer(true);
TotalOresMined := TotalOresMined + OresMined;
OresMined := 0;
LoadsMined :=0;
end;
until(TotalOresMined = TotalOresToMine)
end;
begin
SetUpSrl;
DeclarePlayers;
LoginPlayer;
HighestAngle;
SetRockSpecs;
MineRock;
end.
——————————————————
<!– END TEMPLATE: formanswers –>
