SCAR Code:
///////////////////////////////////////////////////////////
{||.....................................................||}
{||..............Sp4nks vial wank.......................||}
{||.....................................................||}
{||.....................................................||}
{||.............Release Date Feb. 3, 2007...............||}
///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//////////////////////INSTRUCTIONS/////////////////////////
///////////////////////////////////////////////////////////
// SRL 3.6 Reuquired //
// Start in Falador East Bank //
// Have vials in first bank slot //
// Fill out Forms //
// Enjoy //
///////////////////////////////////////////////////////////
////////////////////////POLICY/////////////////////////////
// You Dont Have permission to distribute this script //
///////////////////////////////////////////////////////////
////////////////////Features///////////////////////////////
//Auto Responder //
//Anti Ban //
//Anti Randoms by SRL:) //
//Find Mod //
///////////////////////////////////////////////////////////
program Vial_Wanker;
{.include SRL/SRL.scar}
var
LoadsToFinish : integer;
Vialsfilled : integer;
unvial,ex, ey : Integer;
FountainColor : Integer;
FountainColor1 : Integer;
FountainColor2 : Integer;
User,Pass,Nick:String;
{********************************FROM VARIABLES*********************************}
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Button1 : TButton;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
{*******************************************************************************}
procedure SetupAll;
begin
FountainColor :=StrToInt(Edit3.text);
FountainColor1 :=StrToInt(Edit3.text);
FountainColor2 :=StrToInt(Edit3.text);
end;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := 0; // CurrentPlayer = Array Index
Players[0].Name := Edit2.Text; //Username
Players[0].Pass := Edit3.Text; //Password
Players[0].Nick := Edit4.Text; //3 or 4 letters username
Players[0].Loc := ''; //Leave as blank
Players[0].Skill := ''; //The skill for when you get a lamp
Players[0].Active := True;
Writeln(inttostr(HowManyPlayers) + ' Players');
End;
{ $$$$$$$$$$$$$$$$$$$ END OF SETUP $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$}
procedure ButtonClick(sender: TObject);//dont get why button click wont work and how do u save settings?
begin
SaveSetting('TestForm','User',Edit2.Text);
SaveSetting('TestForm','Pass',Edit3.Text);
SaveSetting('TestForm','Nick',Edit4.Text);
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
procedure Loadsettings;
begin
User:=LoadSetting('TestForm','User')
Pass:=LoadSetting('TestForm','Pass')
Nick:=LoadSetting('TestForm','Nick')
end;
Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 309;
frmDesign.Height := 419;
frmDesign.Caption := 'Sp4nk'#39's Vial Wank';
frmDesign.Color := clRed;
frmDesign.Font.Color := clAqua;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 60;
Label1.Top := 15;
Label1.Width := 124;
Label1.Height := 24;
Label1.Caption := 'Vial Wanker';
Label1.Font.Color := clPurple;
Label1.Font.Height := -19;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [fsBold, fsItalic];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 8;
Label2.Top := 43;
Label2.Width := 259;
Label2.Height := 29;
Label2.Caption := 'Made by: Wtf I Sp4nk';
Label2.Font.Color := clPurple;
Label2.Font.Height := -24;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [fsBold, fsItalic];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 14;
Label3.Top := 101;
Label3.Width := 91;
Label3.Height := 16;
Label3.Caption := 'Loads To Do';
Label3.Font.Color := clBlue;
Label3.Font.Height := -13;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [fsBold];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 8;
Label4.Top := 264;
Label4.Width := 75;
Label4.Height := 16;
Label4.Caption := 'UserName';
Label4.Font.Color := clBlue;
Label4.Font.Height := -13;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [fsBold];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 8;
Label5.Top := 293;
Label5.Width := 73;
Label5.Height := 16;
Label5.Caption := 'PassWord';
Label5.Font.Color := clBlue;
Label5.Font.Height := -13;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [fsBold];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 8;
Label6.Top := 322;
Label6.Width := 73;
Label6.Height := 16;
Label6.Caption := 'NickName';
Label6.Font.Color := clBlue;
Label6.Font.Height := -13;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [fsBold];
Label6.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 10;
Label7.Top := 152;
Label7.Width := 101;
Label7.Height := 16;
Label7.Caption := 'Fountain Color';
Label7.Font.Color := clBlue;
Label7.Font.Height := -13;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [fsBold];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 9;
Label8.Top := 181;
Label8.Width := 110;
Label8.Height := 16;
Label8.Caption := 'Founrain Color1';
Label8.Font.Color := clBlue;
Label8.Font.Height := -13;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [fsBold];
Label8.ParentFont := False;
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 14;
Label9.Top := 212;
Label9.Width := 109;
Label9.Height := 16;
Label9.Caption := 'Fountain Color2';
Label9.Font.Color := clBlue;
Label9.Font.Height := -13;
Label9.Font.Name := 'MS Sans Serif';
Label9.Font.Style := [fsBold];
Label9.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 120;
Edit1.Top := 98;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := '';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 88;
Edit2.Top := 265;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := User;
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 88;
Edit3.Top := 292;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 10;
Edit3.Text := Pass;
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 88;
Edit4.Top := 320;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 11;
Edit4.Text := Nick;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 77;
Button1.Top := 350;
Button1.Width := 70;
Button1.Height := 25;
Button1.Caption := 'START';
Button1.Font.Color := clWindowText;
Button1.Font.Height := -13;
Button1.Font.Name := 'MS Sans Serif';
Button1.Font.Style := [fsBold];
Button1.ParentFont := False;
Button1.TabOrder := 12;
Button1.OnClick:= @ButtonClick //When pressed it does procedure "ButtonClick"
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 118;
Edit5.Top := 152;
Edit5.Width := 121;
Edit5.Height := 21;
Edit5.TabOrder := 13;
Edit5.Text := 'Edit5';
Edit6 := TEdit.Create(frmDesign);
Edit6.Parent := frmDesign;
Edit6.Left := 125;
Edit6.Top := 181;
Edit6.Width := 121;
Edit6.Height := 21;
Edit6.TabOrder := 14;
Edit6.Text := 'Edit6';
Edit7 := TEdit.Create(frmDesign);
Edit7.Parent := frmDesign;
Edit7.Left := 130;
Edit7.Top := 211;
Edit7.Width := 121;
Edit7.Height := 21;
Edit7.TabOrder := 15;
Edit7.Text := 'Edit7';
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure LoadDTM;
begin
unvial := DTMFromString('78DA63EC636260D8C500065C108AE1FDD60A0' +
'61120CD08C4FF8180D103A8E606030AD8B62C044C3342F9603577' +
'50D54C98300D558D3B50CD6DFCE600006FEA100B');
end;
procedure ProgressReport;
begin
Writeln('<>---------------------------------------------<>');
Writeln('<>---------------------------------------------<>');
Writeln('WTF I SP4NK');
Writeln('Vial Wanke');
Writeln('Worked For: '+ScriptTime2(2));
Writeln('Banked: '+IntToStr(LoadsToFinish)+'Loads of wfvials');
Writeln('Filled: '+IntToStr(Vialsfilled)+'vials')
Writeln('<>---------------------------------------------<>')
Writeln('<>---------------------------------------------<>');
SRLRandomsReport;
end;
Procedure Responder;
begin
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
Inchat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
end;
if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
end;
if (InChat('Fish lvls') or
InChat('Fish lvls?') or
InChat('Fishin lvls') or
InChat('Fishin lvls?') or
InChat('Fishing lvls') or
InChat('Fishing lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fishing')))
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
end;
if (InChat('Strengh lvls') or
InChat('Strengh lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Strengh')))
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
end;
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
end;
end;
function IsWelcomeScreen: Boolean;
begin
if(GetColor(271, 292) = 8356779)and
(GetColor(499, 292) = 8356779)and
(GetColor(271, 381) = 8356779)then
Result := True;
end;
procedure WelcomeScreen;
begin
if(not(IsWelcomeScreen))then Exit;
MouseBox(275, 296, 495, 377, 1);
end;
Procedure beginscript;
Begin
cleardebug
DisguiseScar('Limewire:Enabling Walk It Out');
Writeln(' /==\ /==\ /| | | | / ')
Writeln('/ | | / | |\ | | / ')
Writeln('\===\ |__/ |__| | \ | |< ')
Writeln(' / | | | \| | \ ')
Writeln('\==/ | | | | | \ ')
Writeln('--->Version 1.0')
Writeln('--->Vial Wanker')
Writeln('--->Contact Me At <a href="mailto:crazyirishman84@hotmail.com">crazyirishman84@hotmail.com</a>')
End;
Procedure Setup;
begin
SetupSRL;
ActivateClient;
If (LoggedIn) then
begin
HighestAngle;
MakeCompass('n');
end;
If (not(LoggedIn)) then
LoginPlayer;
WelcomeScreen;
HighestAngle;
MakeCompass('n');
end;
procedure FindRandoms;
begin
If (FindFight) Then
begin
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;
FindNormalRandoms;
ClickToContinue;
CloseWindow;
FindDead;
FindMod;
FindMime;
FindMaze;
FindQuiz;
FindDemon;
DwarfItem;
DetectFrogCave;
LeaveScreenEvery(5+random(5))
HoverEvery(10+random(10),'woodcutting')
PickUpMouseEvery(10+random(5));
end;
Procedure Ban;
var
NoBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
NoBan:=Random(120)
case NoBan of
1: RandomRClickEvery(2 + Random(30));
2: hoverskill('woodcutting', false);
3: hoverskill('random', false);
4: DoEmote(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(10 + Random(5));
8: RotateEvery(20 + Random(5));
end;
end;
procedure GetVials;
begin
OpenBank;
wait(200+Random(100));
Withdraw(1,1,28);
wait(200+Random(100));
CloseBank;
end;
Procedure WalktoWater;
begin
FindRandoms;
If (FindSymbol(x,y, 'water source')) then
begin
SetRun(true)
Mouse(x,y,1,1,true)
wait(10000)
end
end;
procedure clickfountain;
begin
FindRandoms;
SRLRandomsReport;
Ban;
If (FindFight) Then
begin
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;
If(FindColorSpiralTolerance(x,y,FountainColor,msx1,msy1,msx2,msy2,15))Or
(FindColorSpiralTolerance(x,y,FountainColor1,msx1,msy1,msx2,msy2,15))Or
(FindColorSpiralTolerance(x,y,FountainColor2,msx1,msy1,msx2,msy2,15))Then
mmouse(x,y,3,3)
begin
GetMousePos(x,y)
mouse(x,y,1,1,true)
end;
end;
function CoordsToInvSpot(gx,gy:integer):integer;
var col,row:integer;
begin
if ((gx>569) and(gx<600)) then col:=1;
if ((gx>611) and(gx<642)) then col:=2;
if ((gx>653) and(gx<684)) then col:=3;
if ((gx>695) and(gx<723)) then col:=4;
if ((gy>213) and(gy<244)) then row:=1;
if ((gy>249) and(gy<280)) then row:=2;
if ((gy>285) and(gy<316)) then row:=3;
if ((gy>322) and(gy<352)) then row:=4;
if ((gy>357) and(gy<387)) then row:=5;
if ((gy>393) and(gy<424)) then row:=6;
if ((gy>429) and(gy<459)) then row:=7;
result:=((row-1)*4)+col;
end;
procedure FillWater;
begin
FindRandoms;
SRLRandomsReport;
Ban;
Responder;
If (FindFight) Then
begin
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;
begin
repeat
finddtm(unvial,ex,ey,554, 205, 743, 465);
useitem(coordstoinvspot(ex,ey+10));
wait(500+random(100));
clickfountain;
until countitemdtm(unvial)=0;
Vialsfilled:= Vialsfilled+ 28;
end;
end;
procedure walktobank;
begin
Responder;
FindRandoms;
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
end;
procedure bankvials;
begin
FindRandoms;
OpenBank;
DepositAll;
LoadsToFinish:= LoadsToFinish + 1;
Withdraw(1,1,28);
wait(200+Random(100));
CloseBank;
end;
begin
Loadsettings;
beginscript;
SafeInitForm;
SafeShowFormModal;
DeclarePlayers;
Setup;
repeat
ProgressReport;
GetVials;
WalktoWater;
FillWater;
walktobank;
bankvials;
until (LoadsToFinish >=strtoint(Edit1.text))
end.
You needed LoadSetting to load your settings.