[S]paz
2007-11-04 11:51:47
<!– BEGIN TEMPLATE: formanswers –>
spaztaz666 - SRL Member Application Form
spaztaz666
What is the meaning to life? 42?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
vb ,c
Other Communitys
scar scripts, kyab
How Long have You Played Runescape
2+ years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
im back and changed some stuff nd learnt lots :D:D
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
sry cut the to off… lol
and someng different
thx
——————————————————
<!– END TEMPLATE: formanswers –>
spaztaz666 - SRL Member Application Form
spaztaz666
What is the meaning to life? 42?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
vb ,c
Other Communitys
scar scripts, kyab
How Long have You Played Runescape
2+ years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
im back and changed some stuff nd learnt lots :D:D
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
sry cut the to off… lol
{------------------------------------------------------------------------------]
[---------------READ IF YOU WANT TO MANUALLY SET WAT ORE TO MINE---------------]
[------------------------------------------------------------------------------]
[ If U have a high level but still want to mine iron ]
[ Then Set the higher ore level to a level that is higher ]
[ Than you minin level... i know its confusing but its now ]
[ Aka If you minin level is 54 but u still want to mine Iron ]
[ Then in Line236 Set the level to mine coal hgher than your ]
[ Minin level so set it to anything higher than 54 ]
[------------------------------------------------------------------------------}
program powerminer;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include SRL\SRL\Skill\Magic.scar}
{.include SRL\SRL\Misc\Trade.scar}
////////////////////////////////////////////
//If you get an error like Mining.scar //
//Doesnt exist the change the includes to //
//SRL\Skill\Mining.scar}<- Take out an SRL//
////////////////////////////////////////////
Const
StartPlayer = 0; // Starting Player.
NumberOfUsers = 6; // How many players .
YourSRLStatsID = '1234'; //Your SRLID..
YourSRLStatsPass = '1234'; // You SRL PASS .. Get one
RunDir = 'S'; // Run In Which Direction
InGuild = true; // Are you in the dwarven mines? [-Jesus-] idea
//don't touch these
VersionNumber = '2.5';
CopperRockColor = 4286610;
TinRockColor = 9277080;
IronRockColor = 2370383;
CoalRockColor = 2834753;
var
x, level, Tloads, Copper, OreMask:integer;
y, SearchColor, Iron, Coal, Tin:integer;
Procedure DeclarePlayers;
var
p:integer;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :=''; //RS Username
Players[0].Pass :=''; //RS Password
Players[0].Nick :=''; //3-4 Letters from the middle of you username, NO CAPS
Players[0].Active:=True; // Use this char??
Players[0].Booleans[0] := true //If Lost Tele To Lumby??
Players[0].Integers[0] := 2 //Total Loads
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=False;
Players[1].Booleans[0] := true
Players[1].Integers[0] := 2 //Total Loads
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=False;
Players[2].Booleans[0] := true
Players[2].Integers[0] := 2 //Total Loads
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=False;
Players[3].Booleans[0] := true
Players[3].Integers[0] := 2 //Total Loads
for p:= 0 to HowManyPlayers - 1 do
begin
Players[p].Strings[0] := 'Blank';
end;
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
procedure Siggy;
begin
Cleardebug;
WriteLn('[]=================================[]');
WriteLn('[]-------- Welcome To Spaz --------[]');
WriteLn('[]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[]');
WriteLn('[]------ Special Powerminer -------[]');
WriteLn('[]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[]');
WriteLn('[]-------- My First Script --------[]');
WriteLn('[]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[]');
WriteLn('[]--------- By Spaztaz6666 --------[]');
WriteLn('[]=================================[]');
wait(1000);
WriteLn('');
end;
Procedure Report;
Begin
ClearDebug;
WriteLn('[]----------------------------------------------[]')
WriteLn('')
WriteLn('Powerminer created by Spaztaz666.')
WriteLn('Version: '+VersionNumber+'.')
WriteLn('')
WriteLn('Copper Mined and Dropped : ' +IntToStr(Copper)+ 'ores');
WriteLn('Tin Mined and Dropped : ' +IntToStr(Tin)+ 'ores');
WriteLn('Iron Mined and Dropped : ' +IntToStr(Iron)+ 'ores');
WriteLn('Coal Mined and Dropped : ' +IntToStr(Coal)+ 'ores');
Writeln('Worked for '+ TimeRunning);
WriteLn('')
WriteLn('[]----------------------------------------------[]')
WriteLn('')
SRLRandomsReport;
WriteLn('')
WriteLn('[]----------------------------------------------[]')
End;
Procedure Masks;
{<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=->
procedure OreMask;
By: Spaz
Description: Declares the Ore Mask
<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-> }
var
OreMask: Integer;
begin
OreMask := BitmapFromString(35, 3, 'beNpjYEADArycMmK8rmbKnp' +
'YqvjYa/vaaYc66QBKuQIKXU1dCiAEHAGoMdtBO8zetirevT3YCoqZ' +
'UZ6wqgRah2RLpqgck4QrkBLiBFhnJiJrJiWJqB2oBqi+MsK5NdABa' +
'gccWJSkBZFtiPfQTvAyAJFyNsigv0CKgLUAEtA7NBKDKjECz0igbd' +
'L8AADyZJRg=');
end;
Procedure FreeMask;
begin
FreeBitmap(OreMask);
end;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 12 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;
8 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo(RunDir, True);
End;
10: If FindTalk Then
Result := True;
11: If HandleTrade Then
Result := True;
12: If not InGuild then // Creds to [-Jesus-] for the idea
begin
if InBlack then
begin
Result :=true;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
end;
End;
Wait(1);
End;
Procedure AntiBran;
begin
if(not(LoggedIn)) then exit;
case random(7) of
0: PickUpMouse;
1:begin
HoverSkill('Mining',false)
wait(354 + random(823))
GameTab(4);
end;
2: SleepAndMoveMouse(2000+random(2000))
3: Typesend('Minin lvls?')
4: begin
MakeCompass('E')
MakeCompass('N')
end;
5: Typesend('Minin 4 life lol woot')
6: begin
case random(3) of
0: MakeCompass('W')
1: MakeCompass('E')
2: MakeCompass('S')
end;
MakeCompass('N')
end;
end;
end;
procedure WhatOre; //Adapted from Tails111 wc script
var p:integer;
Begin
Status('Getting Mining Level');
GameTab(2);
level := GetSkillLevel('Mining');
GetAllLevels;
If(level >= 38) then
Players[p].Strings[0] := 'Coal';
If(level >= 17) then
Players[p].Strings[0] := 'Iron';
If(level >= 7) Then
Players[p].Strings[0] := 'Tin';
If(level >= 1) Then
Players[p].Strings[0] := 'copper';
writeln('Mining Lvl ' +IntToStr(level)+ '.')
Gametab(4);
TLoads := Players[CurrentPlayer].Integers[0]
WriteLn(Players[CurrentPlayer].Name + ' will mine ' + Players[p].Strings[0] + '.');
end;
Function FindGass: Boolean;
var rx ,ry ,GasTime:Integer;
begin
If(Not Loggedin)Then Exit;
begin
Result := FindGas(rx, ry - 20);
if(Result)then
begin
Writeln('Gas found!');
Mouse(250, 170, 100, 100, True);
MarkTime(GasTime);
while(TimeFromMark(GasTime) < 35000)do
Wait(RandomRange(500, 1000));
end;
end;
end;
procedure Relocating;
var
WX, WY:integer;
begin
if (not (FindColorTolerance(x, y, SearchColor, 0, 0, 700, 500, 4))) then
begin
if FindSymbol(Wx, WY, 'mining site') then
begin
Mmouse(x, y, 3, 3)
Mouse(x, y, 2, 2, true)
end;
end;
end;
procedure LumbyTele;
begin
if Players[CurrentPlayer].Booleans[0] = true then
begin
cast('Home Teleport');
wait(22000+Random(1000));
if (FindBlackChatMessage('You need to wait another'))then
begin
LogOut;
NextPlayer(False);
end;
if Players[CurrentPlayer].Booleans[0] = false then
Logout;
NextPlayer(False);
end;
end;
procedure Lost;
var
WX, WY:integer;
begin
if (not (FindSymbol(Wx, WY, 'mining site'))) then
case Random(4) of
0: RunTo('N', false);
1: RunTo('S', false);
2: RunTo('E', false);
3: RunTo('W', false);
end;
wait(1000+Random(500));
if (not (FindSymbol(Wx, WY, 'mining site'))) then
Runback;
LumbyTele;
writeln('Lost Loggin Out')
end;
//Mining\\
procedure MineOre;
var
StartOre: integer;
begin
if not LoggedIn then Exit;
case Players[CurrentPlayer].Strings[0] of
'Copper': SearchColor := CopperRockColor;
'Tin': SearchColor := TinRockColor;
'Iron':SearchColor := IronRockcolor;
'Coal':SearchColor := CoalRockColor;
end;
repeat
if(FindColorTolerance(x, y, SearchColor, 0, 0, 700, 500, 4))then
begin
if(isUpText('ine roc'))then
Status('Mining Rocks Now')
FindGass;
Mouse(x, y, 0, 0, true);
MarkTime(StartOre);
repeat
wait(1000)
FindGass;
FindFastRandoms;
wait(1000)
AntiBran;
FindGass;
FindFastRandoms;
until(FindBlackChatMessage('You manage to mine'))or(TimeFromMark(StartOre) > 15000) //credit to RMagican
end
Wait(200);
until(InvFull)
TLoads := TLoads + 1;
if (not (FindColorTolerance(x, y, SearchColor, 0, 0, 700, 500, 4))) then
relocating;
end;
Procedure DropOre;
{<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=->
procedure DropOre;
By: Spaz
Description: Drops Ores
<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-> }
begin
ClickAllItemsBmpMaskTolWait(OreMask, 'Drop', 5, 5, 300);
end;
//Main Loop\\
begin
SetupSRL;
SRLID := YourSRLSTATSID;
SRLPassword:= YOURSRLSTATSPASS;
Siggy;
ActivateClient;
wait(200);
DeclarePlayers;
LoginPlayer;
repeat
WhatOre;
MineOre;
DropOre;
Report;
if (Players[CurrentPlayer].Integers[0] = TLoads) Then
TLoads:= 0;
NextPlayer(True);
until(False);
FreeMask;
end.and someng different
program ChickenClearer;
{.include SRL/SRL.scar}
var
RawChick, Bones, feathers, ChickensBurnt, BonesBurried :Integer;
ChickensCooked, BurntChicken, ChickensDropped, pot :Integer;
CookedChicken, x, y, x1, y1, tx, ty :Integer;
const
Version = '2.0';
Procedure DTM;
begin
RawChick := BitmapFromString(8, 4, 'beNpLTppaUQZHpQlxKYH+EI' +
'Qs3paTXRwbA0ETS4uBqLu1sbG6ItjfNyc8LNHPD4hWdXYA0ezaaiB' +
'qyc6sSk4CIQAaqSrj');
Bones := BitmapFromString(14, 6, 'beNqzlPSwlDxx8OCsCf1AxrbV' +
'q4Bo9YL5QDYQzZ00CYggbAjavmZNf2srkHHv5s1dG9YDEUQcohGI4' +
'CrXLVoERBD2hVOn4GYC0cp5c4GoNDcXiIDcpTNnABGyLRB08fTpw7' +
't3ARHEqP3btgEdCXEnGnp8/x4QbV6+HMIFug2Inj56hFUxAgEAvcF' +
'r6A==');
feathers:=DTMFromString('78DA639464606010614001DBD7AC61E002D28' +
'C40FC1F081845810C5E0634C08844026921202148400D485E8C08' +
'73A409A8E107124A04D480FC2443408D3CA6DF31D448000949FC6' +
'A00153F07BB');
Pot := DTMFromString('78DA633CC9C0C020C6800258EEDE65D000D28' +
'C40FC1F0818416A7821728C58D480C5F720CC61C1A5E62690E0C2' +
'AF0600F2140F10');
CookedChicken := BitmapFromString(20, 6, 'beNpNkLEKwjAURdPx' +
'LfmGfkJBKyilaFGsFCro4uLi4OKgVCjUQcHB7/aUK6lwCcl997yXx' +
'EVlnlbFTNrMU+RcdJxas/aPyl+X/jAxnCSO5e/H1t1vr65lv8pGiA' +
'6IKjrnBiWQQAA50rAt+5UMjkBW9owgAKVAAMUKpPrPatwpM0oSVY7' +
'yw2UEPuuBRTzhsrAwjtGA3AFRqpM+RgDqvf2xuo++RZRAesLiw+pz' +
'wPEBP7uBdV/jlUXH');
BurntChicken := BitmapFromString(11, 8, 'beNpjYGRgYGyrrwGio' +
'txsINtAQQGIgIzu1sb6yjIgw9HGxsvNzc7S0sTAAKIASALRpO5OiA' +
'J3Z2c0WXMjIz0dncriAqACIBtoArIskOvi4ADUBSSBGiHqka2GyAI' +
'thStARtZmZhBZZAVA84EIaCmQDRQBSvl5eEAUQEwGygJtgagBOgAo' +
'G+jtBVfAAACFSTGE');
end;
procedure FreeBit;
begin
FreeBitmap(RawChick);
FreeBitmap(Bones);
FreeBitmap(CookedChicken);
FreeBitmap(BurntChicken);
end;
Procedure FreeDTMs;
begin
FreeDTM(feathers);
FreeDTM(pot);
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
if (not(LoggedIn)) then LogInPlayer;
for i := 1 to 9 do
begin
Status('Finding fast randoms');
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;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
wait(1);
end;
end;
procedure AntiBan;
begin
if (not(LoggedIn)) then LogInPlayer;
Status('Peforming antiban');
case Random(7) of
0: RandomRClick;
1: HoverSkill('random', false);
2: HoverSkill('random', true);
3: PickUpMouse;
4: AlmostLogout;
5: RandomMovement;
6: BoredHuman;
end;
end;
Procedure Report;
Begin
ClearDebug;
WriteLn('[]=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=[]');
Wait(1);
WriteLn('[]=~=~= Chicken Clearer by Spaztaz666 =~=~=[]');
Wait(1);
WriteLn('[]Time Running: ' + timerunning + ' []');
Wait(1);
WriteLn('[]Version Number: ' + Version + ' []');
WriteLn('[]=========================================[]');
WriteLn('[]Chickens Dropped ' +IntToStr(ChickensDropped) + ' Times');
WriteLn('[]Chickens Cooked ' +IntToStr(ChickensCooked) + 'Times');
WriteLn('[]Chickens Burnt ' +IntToStr(ChickensBurnt) + 'Times');
WriteLn('[]Bones Burried ' +IntToStr(BonesBurried) + 'Times');
WriteLn('[]Feathers Collected ' +IntToStr(Feathers) + ' ');
WriteLn('[]=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=[]');
End;
procedure Take;
begin
If (FindBitmapIn(RawChick, x, y, 1, 1, 200, 20)) then
mmouse(x, y, 2, 2);
if IsUpTextMulti('Take','aw','hicken') then
begin
if (InvCount<28) then
GetMousePos(x,y);
Mouse(x, y, 2, 2, true);
FindFastRandoms;
AntiBan;
FTWait(1);
Flag;
end;
if (FindBitmapIn(Bones, x, y, 1, 1, 200, 20)) then
MMouse(x, y, 2, 2);
if IsUpText('ones') then
begin
if (InvCount<28) then
GetMousePos(x,y);
Mouse(x,y,2,2,true);
FindFastRandoms;
AntiBan;
FTWait(1);
Flag;
end;
if (FindDTM(feathers, x, y, 1, 1, 200, 20)) then
MMouse(x, y, 2, 2);
if IsUpText('eathers') then
begin
if (InvCount<28) then
GetMousePos(x,y);
Mouse(x,y,2,2,true);
FindFastRandoms;
AntiBan;
FTWait(1);
Flag;
Feathers := Feathers + 1;
end;
end;
Procedure BuryBones;
begin
if (FindBitmapIn(Bones, x ,y ,555 ,205 ,740 ,465)) then
repeat
MMouse(x, y, 2, 2);
if IsUpText('ury') then
begin
GetMousePos(x,y);
Mouse(x, y, 2, 2, true);
FindFastRandoms;
AntiBan;
FTWait(1);
BonesBurried := BonesBurried + 1
end;
until not (FindBitmapIn(Bones, x ,y ,555 ,205 ,740 ,465))
end;
Procedure CookChick;
begin
If (FindSymbol(x, y,'churn')) then
begin
MMouse(x, y, 2, 2);
GetMousePos(x, y);
Mouse(x, y, 2, 2,true);
FindFastRandoms;
AntiBan;
end;
MakeCompass('W')
LowestAngle;
FindBitmapIn(RawChick, x, y ,555 ,205 ,740 ,465)
MMouse(x, y, 2, 2);
if IsUpTextMulti('se', 'aw', 'hicken') then
begin
Mouse(x, y, 2, 2, true);
if FindDTM(Pot, x1 ,y1 , 1, 1, 400, 25) then // Creds to Tarajunky
begin
Status('Found Pot .. Clicking');
Mouse(x, y, 2, 2,false);
ChooseOption('ooking');
if (findcolorspiraltolerance(x,y,10264255,240,400,270,420,10)) then
begin
mouse(x,y,3,3,false);
FindFastRandoms;
AntiBan;
ChooseOption('All')
end;
Wait(15000 + random(1000));
end;
begin
if (FindBlackChatMessage('You manage to cook')) then
ChickensCooked := ChickensCooked + 1;
if (FindBlackChatMessage('You accidentally burnt')) then
ChickensBurnt := ChickensBurnt + 1;
end;
end;
end;
procedure Full;
begin
if (InvCount>27) then
case Random(2) of
0: BuryBones;
1: If (FindBitmapIn(RawChick,x ,y ,555 ,205 ,740 ,465)) then
CookChick;
end;
end;
Procedure DropChickens;
begin
if (FindBitmapIn(CookedChicken,x ,y ,555 ,205 ,740 ,465)) or (FindBitmapIn(BurntChicken,x ,y ,555 ,205 ,740 ,465)) then
repeat
begin
Mouse(tx, ty, 5, 5, False);
FindFastRandoms;
AntiBan;
ChooseOption('rop');
wait(250+Random(250));;
ChickensDropped := ChickensDropped + 1;
end;
until not (FindBitmapIn(CookedChicken,x ,y ,555 ,205 ,740 ,465));
end;
begin
SetUpSRL;
DTM;
Take;
Full;
Report;
end.
thx
——————————————————
<!– END TEMPLATE: formanswers –>