m3gaman3g3nd
2012-01-15 16:31:59
How Long have You Played Runescape?
7 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
no
What is your general programming knowledge?
pascal
Are you a member of any other communities?
no
Tell us about yourself…
Please show us one (or multiple) of your scripts.
7 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
no
What is your general programming knowledge?
pascal
Are you a member of any other communities?
no
Tell us about yourself…
From: m3gaman3g3nd
its fun sharing creativity and scripting is an art
Please show us one (or multiple) of your scripts.
program ShiloVlillageGemCrafter;
//{$DEFINE SMART}
{$I srl/srl.simba}
var
x ,y ,GemShapeOutline, Cut_GemShapeOutline, CrushedGem :Integer ;
NumOfSpecificGem: TPointArray;
Procedure DeclarePlayers;//////////////////////////////////////////////////////////////
begin //////////////////////////////////////////////////////////////
HowManyPlayers := 1; ////////////////////////////////////////////////////////////////
NumberOfPlayers(HowManyPlayers);////////////////////////////////////////////////////
CurrentPlayer := 0; /////////////////////////////////////////////////////////////////
with players[0] do /////////////////////////////////////////////////////////////////
begin ////////////////////////////////////////////////////////////////////////////
Name := '';// user name //////////////////////////////////
Pass := '';// password //////////////////////////////////
Active := True;/////////////////////////////////////////////////////////////////
end;/////////////////////////////////////////////////////////////////////////////
end;///////////////////////
procedure SSMouse ( mousex , mousey , ranx , rany : Integer ; button : variant ) ;
begin
case Random ( 12 ) of
0 : begin
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 100 + Random ( 100 ) ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
PickUpMouse ;
end ;
1 : begin
Mouse ( mousex , mousey , ranx , rany , Button ) ;
PickUpMouse ;
end ;
2 : begin
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 50 + Random ( 50 ) ) ;
MissMouse ( mousex , mousey ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
PickUpMouse ;
end ;
3 : begin
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 100 + Random ( 100 ) ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
end ;
4 : begin
Mouse ( mousex , mousey , ranx , rany , button ) ;
end;
5 : begin
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 50 + Random ( 50 ) ) ;
MissMouse ( mousex , mousey ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
end ;
6 : begin
Wait ( 50 + Random ( 50 ) ) ;
PickUpMouse ;
Wait ( 50 + Random ( 50 ) ) ;
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 100 + Random ( 100 ) ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
end ;
7 : begin
Wait ( 50 + Random ( 50 ) ) ;
PickUpMouse ;
Mouse ( mousex , mousey , ranx , rany , button ) ;
end ;
8 : begin
Wait ( 50 + Random ( 50) ) ;
PickUpMouse ;
Wait ( 50 + Random ( 50 ) ) ;
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 50 + Random ( 50 ) ) ;
MissMouse ( mousex , mousey ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
end ;
9 : begin
Wait ( 50 + Random ( 50 ) ) ;
PickUpMouse ;
Wait ( 50 + Random ( 50 ) ) ;
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 100 + Random ( 100 ) ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
PickUpMouse ;
end ;
10 : begin
Wait ( 50 + Random ( 50 ) ) ;
PickUpMouse ;
Mouse ( mousex , mousey , ranx , rany , button ) ;
PickUpMouse ;
end ;
11 : begin
Wait ( 50 + Random ( 50 ) ) ;
PickUpMouse ;
Wait ( 50 + Random ( 50 ) ) ;
MMouse ( mousex , mousey , ranx , rany ) ;
GetMousePos ( mousex , mousey ) ;
Wait ( 50 + Random ( 50 ) ) ;
MissMouse ( mousex , mousey ) ;
Mouse ( mousex , mousey , 1 , 1 , Button ) ;
PickUpMouse ;
end ;
end ;
end;
Function FindObjEx_F(ColorA, ColorB, Tol, Bounds, sX, sY: Integer; UpText: TStringArray; Var X, Y: Integer; Debug: Boolean): Boolean;
var
B: TBox;
TPA: TPointArray;
L,i,CTS: Integer;
ATPA,ATPA2: T2DPointArray;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(sX, sY, TPA, ColorA, MSX1, MSY1, MSX2, MSY2, Tol)
ColorToleranceSpeed(CTS);
if Length(TPA) < 1 then
Exit;
ATPA := TPAtoATPAEx(TPA, Bounds, Bounds);
L := High(ATPA);
SetArrayLength(ATPA2, L+1);
for i := 0 to L do
begin
B := GetTPABounds(ATPA[i]);
with B do
begin
FindColorsSpiralTolerance(sX, sY, ATPA2[i], ColorB, B.X1, B.Y1, B.X2, B.Y2, Tol)
if Length(ATPA2[i]) > 0 then
begin
MiddleTPAEx(ATPA2[i], X, Y);
MMouse(X, Y, 5, 5);
if WaitUpTextMulti(UpText, 800) then
begin
Result := True;
if DeBug then
GetMousePos(X, Y);
Exit;
end;
end;
end;
end;
end;
procedure AntiBan ;
var
ThingsToSay: Array [0..32] of string;
begin
ThingsToSay[0]:='Holey Moley Guaccamoly';
ThingsToSay[1]:='Do Re Mi Fa So La Ta Ti La Do';
ThingsToSay[2]:='Do you have monry saved on your car insurance?';
ThingsToSay[3]:='Har Har Har';
ThingsToSay[4]:='What?';
ThingsToSay[5]:='Dude I think we just ran over a really small bus!';
ThingsToSay[6]:='Are those pickles?';
ThingsToSay[7]:='No! Theres Penutbutter in my Jelly!';
ThingsToSay[8]:='Ive been playing soo long, I like to make public announcements';
ThingsToSay[9]:='GE prices are dropping...';
ThingsToSay[10]:='sigh...';
ThingsToSay[11]:='No Way Trix are for kids...';
ThingsToSay[12]:='I am running out of things to say...';
ThingsToSay[13]:='Hello Sir!';
ThingsToSay[14]:='Y Hello Sir!';
ThingsToSay[15]:='Do you want some Grey Poupon?';
ThingsToSay[16]:='I think that... NO WAY!!!';
ThingsToSay[17]:='123';
ThingsToSay[18]:='456';
ThingsToSay[19]:='789';
ThingsToSay[20]:='I am legendary';
ThingsToSay[21]:='Yea';
ThingsToSay[22]:='I think so';
ThingsToSay[23]:='No';
ThingsToSay[24]:='Yes';
ThingsToSay[25]:='Maybe';
ThingsToSay[26]:='Right...';
ThingsToSay[27]:='Unh Huh, Unh Huh...';
ThingsToSay[28]:='soo...';
ThingsToSay[29]:='soo... watchya doin huh?';
ThingsToSay[30]:='Raar I am ZOLTON!!!!';
ThingsToSay[31]:='Dude are you drunk?';
ThingsToSay[32]:='He He He';
case Random ( 1000 ) of
0..1 : Typesend(ThingsToSay[randomrange(0,31)]);
150..155 : RandomRClick ;
250..255 : PickUpMouse ;
350..355 : RandomMovement ;
end ;
end ;
Function WhichGem_Cut: Integer;
var
GemDeclarations: Array [0..6] of Integer;
InvItemSlot ,i ,x ,y :integer ;
Box1: Tbox;
begin
GemDeclarations[0]:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZh3etQuqknIMczM1ACMVMRYAAJR9BEk='); //Dimond tol/12
GemDeclarations[1]:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZgn3wFRSjmFupgZgpCLGAgAhdgLH'); //emerald tol/12
GemDeclarations[2]:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZi3YMAOqknIMczM1ACMVMRYAAEiSA/o='); //Jade tol/12
GemDeclarations[3]:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZm1YPx2qknIMczM1ACMVMRYAAFYXBAg='); //Opal tol/12
GemDeclarations[4]:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZu2XzoOqpBzD3EwNwEhFjAUAAK8MA1o='); //RedTopaz tol/12
GemDeclarations[5]:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZlVKCEBVUo5hbqYGYKQixgIADqoCsw=='); //ruby tol/12
GemDeclarations[6]:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZolKTIeqpBzD3EwNwEhFjAUAAC9hAtY='); //sapphire tol/12
GemShapeOutline:= DTMFromString('mkwEAAHicrc5BCoJgEIbhT1276kLeIY0QpRaBWoYgIQpRnsNb1Al9fxh3Lv8PHmZgZmAOksZQ+uKFD2Y8cceABybj9t7o0dqO09msDKQaR5xxQYUrGpyQWX+zuvXuNkeKAv/fwnehF0kcyVcCj3ayAu4qEpM=');//Outline of Gem Tol/ALOT!!!
if FindDTM(GemShapeOutline, x, y, MIX1 ,MIY1,MIX2,MIY2) then
begin
InvItemSlot:= CoordsToItem(x, y);
GetInvItemBounds(InvItemSlot, Box1);
For i:= 0 to 6 do
if FindDTM(GemDeclarations[i], x, y, Box1.x1, Box1.y1, Box1.x2, Box1.y2) then
begin
result:= i;
for i := 0 to High(GemDeclarations) do
FreeDTM(GemDeclarations[i]);
FreeDTM(GemShapeOutline);
end;
end;
end;
Function WhichGem_BoltTip: Integer;
var
Cut_GemDeclarations: Array [0..6] of Integer;
InvItemSlot ,i ,x ,y :integer ;
Box1: Tbox;
begin
Cut_GemDeclarations[0]:= DTMFromString('mwQAAAHic42RgYAgAYn8gdgbiMCAOBuJQIPYAYhcg9gHitUA8D4g3QdkLgXgFlF4OxFuA2M0ZZAITXszDQBgwEoHhAAByyAmi'); //Cut Dimond tol/12
Cut_GemDeclarations[1]:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDp2M5AsE17Mw0AYMBKB4QAApXsBMw=='); //Cut Emerald tol/12
Cut_GemDeclarations[2]:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDrTAGUgyYQX8zAQBoxEYDgAANH3AZU='); //Cut Jade tol/12
Cut_GemDeclarations[3]:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqLrAEFUgyYQX8zAQBoxEYDgAAOF5Abc='); //Cut Opal tol/12
Cut_GemDeclarations[4]:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDpXThkgyYQX8zAQBoxEYDgAALX2AVc='); //Cut RedTopaz tol/12
Cut_GemDeclarations[5]:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDo1dpBuJryYh4EwYCQCwwEAnI4BHw=='); //Cut ruby tol/12
Cut_GemDeclarations[6]:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDo2dj0gyYQX8zAQBoxEYDgAAKBZASg='); //Cut sapphire tol/12
Cut_GemShapeOutline:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDo3Z2cgyYQXO/AyMxACjERgOAAA96kB/Q==');//Outline of cut Gem Tol/ALOT!!!
if FindDTM(Cut_GemShapeOutline, x, y, MIX1 ,MIY1,MIX2,MIY2) then
begin
InvItemSlot:= CoordsToItem(x, y);
GetInvItemBounds(InvItemSlot, Box1);
For i:= 0 to 6 do
if FindDTM(Cut_GemDeclarations[i], x, y, Box1.x1, Box1.y1, Box1.x2, Box1.y2) then
begin
result:= i;
for i := 0 to High(Cut_GemDeclarations) do
FreeDTM(Cut_GemDeclarations[i]);
FreeDTM(Cut_GemShapeOutline);
end;
end;
end;
function GemCount_Cut: integer;
var
AllGems: TpointArray;
begin
GemShapeOutline:= DTMFromString('mkwEAAHicrc5BCoJgEIbhT1276kLeIY0QpRaBWoYgIQpRnsNb1Al9fxh3Lv8PHmZgZmAOksZQ+uKFD2Y8cceABybj9t7o0dqO09msDKQaR5xxQYUrGpyQWX+zuvXuNkeKAv/fwnehF0kcyVcCj3ayAu4qEpM=');//Outline of Gem Tol/ALOT!!!
if finddtms(GemShapeOutline,AllGems,MIX1 ,MIY1,MIX2,MIY2) then
begin
RaaStPaex(AllGems,22,22);
Result:= length(AllGems);
FreeDtm(GemShapeOutline);
end;
end;
function GemCount_BoltTip: integer;
var
AllGems: TpointArray;
begin
Cut_GemShapeOutline:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDo3Z2cgyYQXO/AyMxACjERgOAAA96kB/Q==');//Outline of cut Gem Tol/ALOT!!!
if finddtms(Cut_GemShapeOutline,AllGems,MIX1 ,MIY1,MIX2,MIY2) then
begin
RaaStPaex(AllGems,22,22);
Result:= length(AllGems);
FreeDtm(Cut_GemShapeOutline);
end;
end;
function CrushedGem_Count: integer;
var
AllGems: TpointArray;
CrushedGem:= DTMFromString('mwQAAAHic42RgYCgB4iYgTgPbeginiaiCuA+J0IC4A4nIgzgfiZCBOheIsIE4A4kQoPxqIYxhAgIkITBgwEoHhAACq3wer');
if finddtms(CrushedGem,AllGems,MIX1 ,MIY1,MIX2,MIY2) then
begin
RaaStPaex(AllGems,22,22);
Result:= length(AllGems);
FreeDtm(CrushedGem);
end;
end;
procedure MineGems;
var
T, c, j, x, y: integer;
begin
if InvFull then
exit else
begin
for j:= Invcount to 27 do
begin
findnormalrandoms;
antiban;
if FindObjEx_F(7155813, 8290180, 32, 20, MSCX, MSCY, ['Mine', 'Rocks'], X, Y, False) then
begin
case random (300) of
0..249: begin
findnormalrandoms;
antiban;
wait(500+random(250));
SSMouse(x, y, 6, 6, true);
end;
250..299: begin
findnormalrandoms;
antiban;
MMouse(x, y, 79, 79);
wait(400+random(1500));
SSMouse(x, y, 6, 6, true);
end;
end;
if DidRedClick then
begin
C := InvCount
MarkTime(T);
repeat
until(invcount>C) or (TimeFromMark(T)>8000+Random(450));
end;
end;
end;
end;
end;
procedure CraftGems_Cut;
var
Dimond, Emerald, Jade, Opal, Red_Topaz, Ruby, Sapphire, CPPL: integer;
begin
if invfull then
begin
for CPPL:= GemCount_Cut downto 0 do
begin
case whichgem_Cut of
0:begin
Dimond:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZh3etQuqknIMczM1ACMVMRYAAJR9BEk='); //Dimond tol/12
writeln('Dimond');
if FindDTMs(Dimond, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Dimond,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5, 5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Dimond);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Dimond);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Dimond);
end;
end;
end;
end;
end;
end;
end;
end;
1:begin
emerald:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZgn3wFRSjmFupgZgpCLGAgAhdgLH'); //emerald tol/12
writeln('Emerald');
if FindDTMs(emerald, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(emerald,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5, 5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(emerald);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(emerald);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(emerald);
end;
end;
end;
end;
end;
end;
end;
end;
2:begin
Jade:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZi3YMAOqknIMczM1ACMVMRYAAEiSA/o='); //Jade tol/12
writeln('Jade');
if FindDTMs(Jade, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Jade,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5, 5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Jade);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Jade);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Jade);
end;
end;
end;
end;
end;
end;
end;
end;
3:begin
Opal:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZm1YPx2qknIMczM1ACMVMRYAAFYXBAg='); //Opal tol/12
writeln('Opal');
if FindDTMs(Opal, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Opal,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5, 5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Opal);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Opal);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Opal);
end;
end;
end;
end;
end;
end;
end;
end;
4:begin
Red_Topaz:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZu2XzoOqpBzD3EwNwEhFjAUAAK8MA1o='); //RedTopaz tol/12
writeln('Red Topaz');
if FindDTMs(Red_Topaz, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Red_Topaz,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5, 5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Red_Topaz);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Red_Topaz);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Red_Topaz);
end;
end;
end;
end;
end;
end;
end;
end;
5:begin
Ruby:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZlVKCEBVUo5hbqYGYKQixgIADqoCsw=='); //ruby tol/12
writeln('Ruby');
if FindDTMs(Ruby, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Ruby,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5, 5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Ruby);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Ruby);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Ruby);
end;
end;
end;
end;
end;
end;
end;
end;
6:begin
sapphire:= DTMFromString('mkwEAAHicE2ZgYOADYlEgZmVAACYg5gBiIagcPxQzAjEPVA0zEIsBsQgQc0HVgWhOqDp2KF8Qqk4Mic2EpJ8XagYPkhtAZolKTIeqpBzD3EwNwEhFjAUAAC9hAtY='); //sapphire tol/12
writeln('Sapphire');
if FindDTMs(sapphire, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(sapphire,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5, 5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(sapphire);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(sapphire);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(1000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(sapphire);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
procedure CraftGems_BoltTip;
var
Dimond_Cut, Emerald_Cut, Jade_Cut, Opal_Cut, Red_Topaz_Cut, Ruby_Cut, Sapphire_Cut, CPPL: integer;
begin
if invfull then
begin
for CPPL:= GemCount_BoltTip downto 0 do
begin
case WhichGem_BoltTip of
0:begin
Dimond_Cut:= DTMFromString('mwQAAAHic42RgYAgAYn8gdgbiMCAOBuJQIPYAYhcg9gHitUA8D4g3QdkLgXgFlF4OxFuA2M0ZZAITXszDQBgwEoHhAAByyAmi'); //Cut Dimond tol/12
writeln('Dimond_Cut');
if FindDTMs(Dimond_Cut, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Dimond_Cut,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Dimond_Cut);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Dimond_Cut);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Dimond_Cut);
end;
end;
end;
end;
end;
end;
end;
end;
1:begin
emerald_Cut:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDp2M5AsE17Mw0AYMBKB4QAApXsBMw=='); //Cut Emerald tol/12
writeln('Emerald_Cut');
if FindDTMs(emerald_Cut, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(emerald_Cut,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(emerald_Cut);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(emerald_Cut);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(emerald_Cut);
end;
end;
end;
end;
end;
end;
end;
end;
2:begin
Jade_Cut:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDrTAGUgyYQX8zAQBoxEYDgAANH3AZU='); //Cut Jade tol/12
writeln('Jade_Cut');
if FindDTMs(Jade_Cut, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Jade_Cut,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Jade_Cut);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Jade_Cut);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Jade_Cut);
end;
end;
end;
end;
end;
end;
end;
end;
3:begin
Opal_Cut:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqLrAEFUgyYQX8zAQBoxEYDgAAOF5Abc='); //Cut Opal tol/12
writeln('Opal_Cut');
if FindDTMs(Opal_Cut, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Opal_Cut,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Opal_Cut);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Opal_Cut);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Opal_Cut);
end;
end;
end;
end;
end;
end;
end;
end;
4:begin
Red_Topaz_Cut:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDpXThkgyYQX8zAQBoxEYDgAALX2AVc='); //Cut RedTopaz tol/12
writeln('Red Topaz_Cut');
if FindDTMs(Red_Topaz_Cut, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Red_Topaz_Cut,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Red_Topaz_Cut);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Red_Topaz_Cut);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Red_Topaz_Cut);
end;
end;
end;
end;
end;
end;
end;
end;
5:begin
Ruby_Cut:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDo1dpBuJryYh4EwYCQCwwEAnI4BHw=='); //Cut ruby tol/12
writeln('Ruby_Cut');
if FindDTMs(Ruby_Cut, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(Ruby_Cut,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Ruby_Cut);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Ruby_Cut);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(Ruby_Cut);
end;
end;
end;
end;
end;
end;
end;
end;
6:begin
sapphire_Cut:= DTMFromString('mwQAAAHic42RgYOAFYk4gZgRiViAWAmIBIBZmgAAeIOYHYjGoOmYg5oLSIHERqDo2dj0gyYQX8zAQBoxEYDgAAKBZASg='); //Cut sapphire tol/12
writeln('Sapphire_Cut');
if FindDTMs(sapphire_Cut, NumOfSpecificGem,MIX1,MIY1,MIX2,MIY2) then
begin
RaaStPaex(NumOfSpecificGem,22,22);
if FindDTM(sapphire_Cut,x, y,MIX1,MIY1,MIX2,MIY2) then
case random(1000)of
0..749:begin
findnormalrandoms;
antiban;
SSMouse(x ,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(sapphire_Cut);
end;
750..1000:begin
findnormalrandoms;
antiban;
begin
case random(2)of
0:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),32,32);
Wait(500+random(250));
SSMouse(x,y,5,5,True);
wait(850+Random(325));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(sapphire_Cut);
end;
1:begin
SSMouse(x,y,5,5,True);
wait(850+Random(325));
MMouse(260+random(132),430+random(132),132,132);
wait(500+random(250));
SSMouse(260, 430,6,6,True);
Wait(3000*(length(NumOfSpecificGem))+Random(250));
FreeDtm(sapphire_Cut);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
Procedure DropCrushedGem;
var
CrushedGem, CPPL: integer;
begin
for CPPL:= CrushedGem_Count downto 0 do
begin
CrushedGem:= DTMFromString('mwQAAAHic42RgYCgB4iYgTgPiaiCuA+J0IC4A4nIgzgfiZCBOheIsIE4A4kQoPxqIYxhAgIkITBgwEoHhAACq3wer');
writeln('Dropping CrushedGem');
if FindDTM(CrushedGem,x, y,MIX1,MIY1,MIX2,MIY2) then
begin
case random(1000)of
0..745:begin
SSMouse(x ,y,5, 5,False);
WaitOption('rop',500+Random(250));
Wait(1500+Random(250));
FreeDtm(CrushedGem);
end;
750..899:begin
SSMouse(x ,y,5, 5,False);
WaitOption('ncel',500+Random(250));
Wait(500+random(250));
SSMouse(x ,y,5, 5,False);
WaitOption('rop',500+Random(250));
Wait(1500+Random(250));
FreeDtm(CrushedGem);
end;
900..1000:begin
MMouse(x+random(70)or x-random(70),y+random(70)or y-random(70),40,90);
Wait(250+random(500));
SSMouse(x,y,5,5,False);
WaitOption('rop',500+Random(250));
Wait(1500+Random(250));
FreeDtm(CrushedGem);
end;
end;
end;
end;
end;
begin
cleardebug;
setupsrl;
//DeclarePlayers;
//LoginPlayer;
activateclient;
wait(3000);
Repeat
MineGems;
CraftGems_Cut;
CraftGems_BoltTip;
DropCrushedGem;
until(false);
end.