mikevskater
2008-03-27 21:26:55
<!– BEGIN TEMPLATE: formanswers –>
mikevskater - SRL Member Application Form
mikevskater
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB, Learning Java
Other Communitys
none
How Long have You Played Runescape
1-2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
My name's Alex, im 16, and ive been using scar for about 5 months now and ive only been scripting/helping others with their script problems for 2-3 months…. I also hate leechers if thats anything to you whom be reading :P
Thanks for the yeses (those who give :P)
~MikeVSkater
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is my 2nd script, my (unf) Potion maker.
——————————————————
<!– END TEMPLATE: formanswers –>
mikevskater - SRL Member Application Form
mikevskater
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB, Learning Java
Other Communitys
none
How Long have You Played Runescape
1-2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
My name's Alex, im 16, and ive been using scar for about 5 months now and ive only been scripting/helping others with their script problems for 2-3 months…. I also hate leechers if thats anything to you whom be reading :P
Thanks for the yeses (those who give :P)
~MikeVSkater
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is my 2nd script, my (unf) Potion maker.
{=========================================================================]<--Credit to WT-Fakawi For this layout.
[ NAME : (unf) Potion Maker ]
[ WRITER : Mikevskater ]
[ CATEGORY : Herblore ]
[ DESCRIPTION : Makes any (unf) potion that involves a herb ]
[ USAGE : To Raise Your Herblore Level ]
[ CONTACT : Pm Mikevskater On Srl ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape With Low Detail, Very Bright. ]
[ 2. Set your Screen To 32 bit TRUE color. ]
[ 3. Position Players In Bank ]
[ 4. Set Playernames And Passwords / SRL Id And Pass in Player Setup ]
[ 5. Start with either 14 herbs and vials of water in inv or it will bank ]
[ 6. Have Herbs in first bank spot and vials of water in secound ]
[ 7. Please Post Proggies/Bugs ]
[=========================================================================]
[Valid banks are: ]
[ 'akb': 'al kharid'/\ 'lb': 'lumbridge'/\ 'veb': 'varrock east' ]
[ 'vwb': 'varrock west'/\ 'feb': 'falador east'/\ 'fwb': 'falador west']
[ 'db': 'draynor' /\ 'eb': 'edgeville bank' ]
[=========================================================================}
program Mikevskaters_unf_Pot_Maker;
{.include srl/srl.scar}
var
x, y, Herbs, HerbU, Vials, NumofHerbs, NumofVials, NumofPots, Anti :integer;
Potting :Boolean;
const
Bank = 'veb'; //What Bank To Use (look at "Valid Banks" above for letters)
Dir = 'N'; //Run Away Direction (N, S, W, E)
////////////////////////////////////////////////////////////////////////////////
procedure PlayerSetup;
begin
SRLID := '';
SRLPassword := '';
CurrentPlayer := 0;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; //UserName
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //NickName
Players[0].Strings[0] := ''; //BankPin, Leave blank if you don't have one.
Players[0].Active := True;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Dtms(which :string);
begin
case which of
'herb': Herbs := DTMFromString('78DA638C676060F0634001C1B13C609A11CA6' +
'74C03125E0C688011554D0E907023A006644E1001355120071050' +
'1300247CF1AB0100924204DF');
'herb used': HerbU := DTMFromString('78DA637461626078CA800222EB0418B880342' +
'310FF070246534C35406130CD08E5333A02D5BC21A0C60BA8E635' +
'0135FE40354F88507397801A6BA09A3BF8D500001B6F1F13');
'vial': Vials := DTMFromString('78DA63EC666060086240012BD71E01D38C503' +
'E633390086540038CA86A3A814434013593814414013553804420' +
'01351380840711EE21A0060051520843');
'both': begin
Herbs := DTMFromString('78DA638C676060F0634001C1B13C609A11CA6' +
'74C03125E0C688011554D0E907023A006644E1001355120071050' +
'1300247CF1AB0100924204DF');
Vials := DTMFromString('78DA63EC666060086240012BD71E01D38C503' +
'E633390086540038CA86A3A814434013593814414013553804420' +
'01351380840711EE21A0060051520843');
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Free(which :string);
begin
case which of
'herb': freedtm(herbs);
'herb used': freedtm(HerbU);
'vial': freedtm(vials);
'both': begin
freedtm(herbs);
freedtm(vials);
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure BankError;
begin
Writeln('We have had an error in the bank,');
Writeln('you might not have any more herbs or vials of water...');
Writeln('Post Proggy');
Status('ERROR! Post Proggy');
TerminateScript;
end;
////////////////////////////////////////////////////////////////////////////////
procedure RandomFind;
begin
FindNormalRandoms;
if FindFight then
RunAway(Dir, true, 1, 1000);
end;
////////////////////////////////////////////////////////////////////////////////
procedure AntiBan;
begin
if not LoggedIn then
Exit;
b := Random(15);
case b of
0,6,8,12,13: begin
MMouse(MSX1, MSY1, MSX2, MSY2);
Anti := Anti + 1;
end;
1,14: begin
case random(20) of
1, 2, 3: begin
SetAngle(false);
Wait(random(1000));
SetAngle(true);
Wait(500 + random(1000));
Anti := Anti + 1;
end;
6, 7, 8: begin
MakeCompass('E');
Wait(random(1000));
MakeCompass('N');
Wait(random(1000));
Anti := Anti + 1;
end;
10, 11, 12: begin
MakeCompass('E');
Wait(random(1000));
MakeCompass('W');
Wait(random(1000));
MakeCompass('N');
Anti := Anti + 1;
end;
15, 16, 17: begin
SetAngle(false);
MakeCompass('E');
Wait(random(1000));
SetAngle(true);
Wait(random(800));
SetAngle(true);
Anti := Anti + 1;
end;
end;
2,3,5,7,10: begin
HoverSkill('random',False);
Anti := Anti + 1;
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Bankopen;
begin
OpenBankFast(Lowercase(bank));
if PinScreen Then
InPin(Players[CurrentPlayer].Strings[1]);
FixBank;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Firstthing;
begin
ClearDebug;
Writeln('Unfinished Potion Maker By MikeVSkater');
end;
////////////////////////////////////////////////////////////////////////////////
procedure FirstBank;
begin
Bankopen;
Depositall;
FixBank;
wait(1000);
if FindDtm(Herbs, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(x,y,0,0);
wait(500);
if IsUpText('lean') then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('X');
wait(1000);
typesend('14');
end;
end else
BankError;
if FindDtm(Vials, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(x,y,0,0);
wait(500);
if IsUpText('ial of water') then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('All');
end;
end else
begin
BankError;
end;
CloseBank;
end;
////////////////////////////////////////////////////////////////////////////////
function Count(which : string) : integer;
var
Thedtm, i :integer;
Points :TBox;
begin
Dtms(which);
case which of
'vial': Thedtm := Vials;
'herb': Thedtm := Herbs;
end;
for i := 1 to 28 do
begin
if ExistsItem(i) then
Points := InvBox(i);
if FindDTM(Thedtm, x, y, Points.x1, Points.y1, Points.x2, Points.y2) then
Result := Result + 1;
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure UseFirst;
begin
Dtms('herb');
if FindDtm(Herbs, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(x, y, 0, 0);
wait(250 + random(250));
if IsUpText('Clean') then
begin
wait(250 + random(250));
Mouse(x, y, 0, 0, false);
repeat
wait(250 + random(250));
until(ChooseOption('Use'));
end;
end;
Free('herb');
end;
////////////////////////////////////////////////////////////////////////////////
procedure UseSecound;
begin
Dtms('herb used');
if not(findDtm(herbu, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
UseFirst;
Free('herb used');
exit;
end;
Dtms('vial');
if FindDtm(Vials, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(x, y, 0, 0);
wait(250 + random(250));
if IsUpText('Vial of water') then
begin
wait(250 + random(250));
Mouse(x, y, 0, 0, false);
repeat
wait(250 + random(250));
until(ChooseOption('Use'));
end;
end;
Free('vial');
end;
////////////////////////////////////////////////////////////////////////////////
procedure Clickonpot;
begin
MMouse(240, 400, 20, 20);
wait(200+random(100));
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
if ChooseOption('All') then
Potting := true;
end;
////////////////////////////////////////////////////////////////////////////////
procedure WaitWhilstPotting;
begin
if Potting = true then
begin
Dtms('herb');
repeat
wait(250);
RandomFind;
until(not(FindDtm(Herbs, x, y, MIX1, MIY1, MIX2, MIY2)));
Free('herb');
Potting := False;
end;
end;
////////////////////////////////////////////////////////////////////////////////
Function Randoms :Boolean;
begin
if FindBox then
begin
CloseBank;
SolveBox;
FirstBank;
Result := true;
end;
if not(InvCount = 14) then
begin
FirstBank;
Result := true;
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure BankNormal;
begin
Dtms('both');
NumofHerbs := Count('herb');
NumofVials := Count('vial');
if (NumofHerbs = 14) and (NumofVials = 14)then
begin
exit;
end;
fixbank;
if FindDtm(Herbs, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(x,y,0,0);
wait(500);
if IsUpText('lean') then
begin
Mouse(x, y, 0, 0, false);
wait(250 + random(250));
ChooseOption('All');
end;
end else
begin
BankError;
end;
fixbank;
wait(500 + random(250));
MouseItem(1, False);
ChooseOption('All');
fixbank;
if FindDtm(Vials, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(x,y,0,0);
wait(500);
if IsUpText('ial of water') then
begin
Mouse(x, y, 0, 0, false);
wait(250 + random(250));
ChooseOption('All');
end;
end else
begin
BankError;
end;
NumofPots := NumofPots + 14;
ReportVars[0] := ReportVars[0] + 14;
wait(500);
CloseBank;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Proggy;
begin
ClearDebug;
Writeln('/-----------------------------------\');
Writeln('| (unf) Pot Maker by MikeVSkater |');
Writeln('\-----------------------------------/');
Writeln('/-----------------------------------\');
Writeln('Pots Made: ' + inttostr(NumofPots));
Writeln('Time: ' + TimeRunning);
if Anti > 0 then
Writeln('Did Anti Ban: ' + inttostr(Anti) + ' time(s)');
Writeln('\-----------------------------------/');
end;
////////////////////////////////////////////////////////////////////////////////
procedure mainloop;
begin
if not LoggedIn then
begin
LoginPlayer;
MakeCompass('N');
SetAngle(True);
end;
Dtms('both');
NumofHerbs := Count('herb');
NumofVials := Count('vial');
if not(NumofHerbs = 14) and not(NumofVials = 14)then
begin
firstbank;
free('both');
end;
repeat
UseFirst;
wait(750 + random(500));
UseSecound;
RandomFind;
wait(750 + random(500));
ClickOnPot;
WaitWhilstPotting;
AntiBan;
BankOpen;
if (not(randoms)) then
begin
BankNormal;
end;
RandomFind;
AntiBan;
Proggy;
SRLRandomsReport;
until(false)
end;
////////////////////////////////////////////////////////////////////////////////
begin
FirstThing
Playersetup;
setupsrl;
ScriptId := '701';
activateclient;
wait(1000);
mainloop;
end.——————————————————
<!– END TEMPLATE: formanswers –>