Im fkn rare
2013-03-04 11:38:41
I get this error:
Exception in Script: Unknown procedure
When my script runs. (I wrote it myself)
Script:
Exception in Script: Unknown procedure
When my script runs. (I wrote it myself)
Script:
program RareAIOThiever; //Written by Im Fkn Rare (Credits to PowerChop & WordPocket for Snippets!)
{$i srl/srl.simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$i P07Include.simba}
var
ManColor1, ManColor, FarmerColor, FarmerColor1, x, y, XPPH, noTimes, pickPH: Integer; PBox: TBox; xz: Integer; xyz, xzy : Integer; lol : String; woMan: Integer;
DsgnForm:TForm;
StartTime:Integer;
NPCCombo,AxeCombo: TComboBox;
TLabel0,TLabel1,TLabel3,TLabel4,TLabel2: TLabel;
TButton10: TButton;
Username,Password: TEdit;
const
default = 'Times new roman';
FONT = 9;
Version = '1.0';
procedure DTM;
begin
ManColor := 5982280;
ManColor1 := 4545382;
FarmerColor := 8564671;
FarmerColor1 := 6132646;
end;
Function AntiBan: Boolean;
begin
case random(300) of
0: P07_HoverSkill('thieving', random(5000));
end;
End;
//woman is: 5572950.
procedure Progress;
begin
pickPH := Round((noTimes * 3600) / (GetTimeRunning / 1000));
XPPH := Round(((noTimes * 8) * 3600) / (GetTimeRunning / 1000));
ClearDebug;
Writeln('Pickpocketed: ' + IntToStr(noTimes) + ' (' + IntToStr(pickPH) + ' per hour)');
Writeln('Experience earned: ' + IntToStr(noTimes * 8)+ ' (' + IntToStr(XPPH) + ' per hour)');
Writeln('Total time running: ' + TimeRunning);
end;
Function arewePocketing: Boolean;
var
PBox: TBox;
Begin
PBox := IntToBox(240, 158, 285, 198);
Result := (AveragePixelShift(PBox, 250, 350) > 90);
End;
procedure Thieve;
var x, y: integer;
begin
P07_MakeCameraAngleHigh;
P07_MakeCompassNorth;
PBox := IntToBox(240, 158, 285, 198);
If AveragePixelShift(PBox, 250, 350) < 100 then
If FindColorSpiralTolerance(x, y, 5982280, P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 7) then
MMouse(x, y, 1, 0);
ClickMouse2(mouse_Right);
wait(randomRange(200, 300));
P07_ChooseOptionMulti(['ickpocket']);
repeat
wait(randomRange(200, 300));
until AveragePixelShift(PBox, 250, 350) < 100;
noTimes := noTimes + 1;
end;
procedure Thieve1;
var x, y: integer;
begin
P07_MakeCameraAngleHigh;
P07_MakeCompassNorth;
PBox := IntToBox(240, 158, 285, 198);
If AveragePixelShift(PBox, 250, 350) < 100 then
If FindColorSpiralTolerance(x, y, 8564671, P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 7) then
MMouse(x, y, 1, 0);
ClickMouse2(mouse_Right);
wait(randomRange(200, 300));
P07_ChooseOptionMulti(['ickpocket']);
repeat
wait(randomRange(200, 300));
until AveragePixelShift(PBox, 250, 350) < 100;
noTimes := noTimes + 1;
end;
procedure ThieveNPC;
var x, y: integer;
begin
case NPCCombo.ITEMINDEX of
0:
Begin
Thieve;
End;
1:
Begin
Thieve1;
End;
End;
End;
procedure SaveFormInfo(Sender: TObject);
begin
DsgnForm.ModalResult := mrOk;
StartTime := GetSystemTime;
P07_PlayerName := Username.TEXT
P07_PlayerPass := Password.TEXT // Saving the text, before we close the form
DsgnForm.CLOSE;
end;
procedure InitForm;
begin
DsgnForm:=TForm.Create(nil);
with DsgnForm do
begin
Caption:='AIO Thiever from Im Fkn Rare';
Left:=346;
Top:=419;
Width:=350;
Height:=140;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=9;
end;
TLabel0:=TLabel.Create(DsgnForm);
with TLabel0 do
begin
Parent:=DsgnForm;
Caption:='AIO Thiever v1.0';
Left:=50;
Top:=10;
Width:=41;
Height:=14;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=13;
end;
TLabel1:=TLabel.Create(DsgnForm);
with TLabel1 do
begin
Parent:=DsgnForm;
Caption:='NPC';
Left:=40;
Top:=40;
Width:=41;
Height:=14;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=9;
end;
TLabel3:=TLabel.Create(DsgnForm);
with TLabel3 do
begin
Parent:=DsgnForm;
Caption:='Username';
Left:=206;
Top:=51;
Width:=49;
Height:=14;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=9;
end;
TLabel4:=TLabel.Create(DsgnForm);
with TLabel4 do
begin
Parent:=DsgnForm;
Caption:='Password';
Left:=206;
Top:=80;
Width:=47;
Height:=14;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=9;
end;
Username:=TEdit.Create(DsgnForm);
with Username do
begin
Parent:=DsgnForm;
Text:='Username';
Left:=257;
Top:=48;
Width:=80;
Height:=21;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=9;
Username.MaxLength:=25;
end;
Password:=TEdit.Create(DsgnForm);
with Password do
begin
Parent:=DsgnForm;
Text:='Password';
Left:=257;
Top:=80;
Width:=80;
Height:=21;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=9;
Password.MaxLength:=25;
Password.PasswordChar:=#;
end;
TButton10:=TButton.Create(DsgnForm);
with TButton10 do
begin
Parent:=DsgnForm;
Caption:='Start';
Left:=50;
Top:=110;
Width:=75;
Height:=25;
OnClick:=@SaveFormInfo;
end;
NPCCombo:=TComboBox.Create(DsgnForm);
with NPCCombo do
begin
Parent:=DsgnForm;
Left:=100;
Top:=40;
Width:=80;
Height:=21;
Items.Add('Man');
Items.Add('Farmer');
Text := Items[0];
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=9;
end;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
DsgnForm.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
SetupP07Include;
ActivateClient;
Wait(100);
If (Not P07_LoggedIn) Then
begin
P07_LogInPlayer;
end;
begin
P07_MakeCameraAngleHigh;
P07_MakeCompassNorth;
DTM;
AddOnTerminate('FreeDTMss')
AntiBan;
TerminateScript;
end;
End.