SCAR Code:
{.Script Info:
# ScriptName = clarion
# Author = Sythe.org 1337Snak3 / villu-reborn.com n3ss3s
# Description = powerminer[srl][rs2]
# Version = 0.6
# Date = 2. Of March.2007!
# Comments = NOTE: For the "level", enter the level when you want script to stop.
/Script Info}
//////////////////////////////////////////////////////////////////////
//// INSTRUCTIONS : Start near the rock /////////////////////////////
//// Pick in inventory and AUTORETALIATE OFF!!!! ///////////////////
///////////////////////////////////////////////////////////////////
//// Clarion v0.5 was made by me(macrowave). After they loaded ///
//// The old backup, my acc didnt work, and i made new one //////
//// called 1337Snak3(in sythe.org) from villu-reborn you'll ///
//// find me as n3ss3s . Thank you.////////////////////////////
//////////////////////////////////////////////////////////////
//// I made a function there(FindRock) which doesnt atm work/
//// But for next clarion i will try to get other of these//
//// : findrock or loadorecolors to work.//////////////////
//// Ill leave em there for future use. //////////////////
//// Currently NOT AutoColor. ///////////////////////////
//// Made a poor const for setting the color. //////////
//// Dang It! Shoulda make TextBox for it. ////////////
//////////////////////////////////////////////////////
////Umm, when picking the rockcolor , if its iron ///
////make sure it does not match copper! Thank you //
///////////////////////////////////////////////////
///I Decided to use SRL's DropAll; but i left my//
///Own drop all kind procedure.It has bugs.//////
program Clarion;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var ores,loads,playtime,stime,rtime,ltime:integer;
rockcolor,rx,ry,scriptsleep,scriptbreak:integer;
LUC,RRockColor,playertime:integer;
frmdesign: tform;
passwordpanel: TPanel;
passwordenter: TEdit;
usernamepanel: TPanel;
usernameenter: TEdit;
nicknamepanel: TPanel;
nicknameenter: TEdit;
stoplevelpanel:TPanel;
stoplevelenter:TEdit;
Image1: TImage;
C: TCanvas;
clr: Integer;
button1: tbutton;
// End Of Variables.
{**********************************************************************}
const
RRColor = 2371664; //Current is a working ironcolor.
startplayer = 0;
runawaydir ='N';
ClarionVers ='0.6'; // Dont change this.
{**********************************************************************}
procedure declareplayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;
Players[0].Name :=usernameenter.text;//name
Players[0].Pass :=passwordenter.text;//pass
Players[0].Nick :=NickNameEnter.text;// about 3 letters of ur name
Players[0].Integer1 := 3600;//time to stay in (in sec).
Players[0].Integer2 := 600;//random time to stay in(seconds).
Players[0].Active := true;
Writeln('Using '+inttostr(HowManyPlayers)+' Player[s]');
end;
{**********************************************************************}
procedure DeclareVar;
begin
RRockColor := RRColor;
ltime :=players[currentplayer].integer1 *1000;
rtime :=players[currentplayer].integer2 *1000;
scriptbreak:=10*1000*60;
scriptsleep:=1*1000*60*60;
playtime :=Ltime + random(rtime);
end;
///////////////////////////////////////////////////////////////////////////
Procedure ModAlarm;
{ Auth : Sythe.org 1337Snak3 / villu-reborn.com n3ss3s }
{ Desc : If finds mod it makes an alarm and logs for a }
{ moment. I h0pe it w0rks g00d! ********************** }
var bmpmod,x,y,g:integer;
begin
bmpMod := BitmapFromString(9, 6, 'z78DA733472A41B74350041' +
'08DB0009E012B13407414C5DF8D994E8220F0200F59E4633');
if(findbitmapspiral(bmpmod,x,y,6,351,480,433)) then
begin
g:=0;
Writeln('O-M-F-G-!!!A MOD!');
Writeln('***Mod : Drop your script FFS***');
Writeln('***User : You´ll never get me KINDERGARTEN COP!***');
repeat
begin
PlaySound('C:\WINDOWS\Media\Windows XP Shutdown.wav');
Writeln('Warning with sound. logging out.');
logout;
wait(scriptbreak);
loginplayer;
wait(2000+random(100));
end;
g:=g+1;
until(g=20);
end;
wait(100+random(20));
end;
{***********************************************************************}
function FindRock(Rock:string):boolean;
var RText:string;
rockcolor1,rockcolor2,rockcolor3:integer;
begin
case rock of
'iron':begin
RockColor1:=2437714;
RockColor2:=2305870;
RockColor3:=2174282;
RText:='mine';
end;
'coal':begin
RockColor1:=2175538;
RockColor2:=2570810;
RockColor3:=2438711;
RText:='mine';
end;
'copper':begin
RockColor1:=4615834;
RockColor2:=3758974;
RockColor3:=4615834;
RText:='mine';
end;
'iron':begin
RockColor1:=7105910;
RockColor2:=8027012;
RockColor3:=7434618;
RText:='mine';
end;
end;
if(findmscolortol(x,y,rockcolor1,20))
or(findmscolortol(x,y,rockcolor2,20))
or(findmscolortol(x,y,rockcolor3,20)) then
begin
Writeln('Found the rock color, checking does IsUpText match.');
mmouse(x,y,0,0);
wait(200+random(50));
if(isuptext(RText)) then
begin
result:=true;
writeln(' RockColor[1..3] and RText matches!Rock found.');
end;
end;
end;
{***********************************************************************}
procedure responds;
begin
if(ischatmessage('mining')) and
(ischatmessage('lvl')) or
(ischatmessage('lwl')) or
(ischatmessage('level')) then
saycurrentlevels('mining');
if(findname=true) then
typesend('ye?'+chr(13));
if(ischatmessage('hi')) then
typesend('hi'+chr(13));
end;
{***********************************************************************}
procedure randoms;
begin
findtalk;
findpick;
solvebox;
if(findfight) then
begin
runawaydirection(runawaydir);
wait(8500+random(400));
runback;
end;
if(loggedin = False) then
loginplayer;
wait(100+random(20));
end;
{***********************************************************************}
procedure SleepyOrNot; // z0mG :D
begin
ores:=Loads*27;
If ores > 500 then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*6+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 400 then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*5+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 300 then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*4+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 200 then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*3+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 100 then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*2+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
if ores < 100 then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('Less than 100 yews chopped. Using coffeebreak instead of sleeping.');
wait(scriptbreak);
wait(20000+random(888));
end;
loginplayer;
wait(1000+random(50));
end;
{***********************************************************************}
procedure DropAllInvStuffExceptTool;
{Auth: Sythe.org 1337snak3 / villu-reborn.com n3ss3s
{Desc: Drops all the stuff in inventory except the skill tool.Ex.Pickaxe.
{***********************************************************************}
var CurPos:integer;
begin
mousespeed:=7;
MouseItem(2,false);
wait(30+random(20));
PopUp('rop');
CurPos:=2;
repeat
CurPos:=CurPos+1;
MouseItem(curpos,false);
wait(30+random(20));
PopUp('rop');
if(CurPos = 4)
or (CurPos = 9)
or (CurPos = 15)
or (CurPos = 21)
or (CurPos = 25) then
begin
FindNormalRandoms;
end;
until(InvCount=1);
wait(100+random(20));
mousespeed:=10;
end;
//////////////////////////////////////////////////////////////////////////
function IsAreaOfIron:boolean;
var IBX1,IBY1,IBX2,IBY2:integer; // IB(x/y)= IronBox (x/y). i hope you got it.
begin
if(findobj(x,y,'ine',RRockColor,10)) then
begin
mmouse(x,y,0,0);
getmousepos(x,y);
IBX1:=x-13;
IBY1:=y+13;
IBX2:=x;
IBY2:=y;
if(findcolortolerance(x,y,2174537,IBX1,IBY1,IBX2,IBY2,10)) and
(findcolortolerance(x,y,1976901,IBX1,IBY1,IBX2,IBY2,10)) or
(findcolortolerance(x,y,2635093,IBX1,IBY1,IBX2,IBY2,10)) or
(findcolortolerance(x,y,2437457,IBX1,IBY1,IBX2,IBY2,10)) then
begin
result:=true;
end;
end;
end;
procedure MakeIronColorCorrect;
var Cpc1,cpc2,cpc3:integer;
begin
Cpc1:=3834593;
Cpc2:=3504592;
Cpc3:=3834079;
if(findobjore(x,y,'ine',RRockColor,10,3)) then
begin
mmouse(x,y,0,0);
Luc:=getcolor(x,y);
if(IsAreaOfIron) then
begin
writeln('IsAreaOfIron resulted true. Rock color shall stay same.');
end else
writeln('IsAreaOfIron was not true. Getting new iron color. ');
if(not(luc=RRockColor)) then
begin
RRockColor:=Luc;
writeln('Changed iron color to '+ IntToStr(LUC));
end;
end;
end;
function RockExists:boolean;
begin
if(findobjore(x,y,'ine',RRockColor,10,3)) then
begin
mmouse(x,y,0,0);
getmousepos(rx,ry);
if(getcolor(rx,ry)=RRockColor) then
begin
result:=true;
end;
end;
end;
{***********************************************************************}
procedure NesBored;
{ Auth : Sythe.org 1337Snak3 / villu-reborn.com n3ss3s }
{ Performs random mousemoving and rotation }
{ *****************************************************}
begin
repeat
begin
case random(3) of
1: begin KeyDown(VK_Left); wait(250+random(30)); KeyUp(VK_Left); end;
2: begin KeyDown(VK_Up); wait(250+random(30)); KeyUp(VK_Up); end;
3: begin KeyDown(Vk_Down); wait(250+random(30)); KeyUp(VK_Down); end;
end;
begin
MMouse(mscx,mscy,mscx,mscy);
end;
end;
until(not(rockexists));
end;
{ **********************************************************************}
procedure buttonclick(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
procedure initform;
begin
frmDesign:= CreateForm;
frmDesign.Left := 600;
frmDesign.Top := 600;
frmDesign.Width := 400;
frmDesign.Height := 600;
frmDesign.Caption := 'Clarion v0.6 [SRL] AutoMiner With Antirandoms,Antibans';
frmDesign.Color := 304955;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
image1 := TImage.Create(frmDesign);
image1.Parent:=frmDesign;
image1.Left:=5;
image1.Top:=0;
image1.Width:=388;
image1.Height:=28;
clr := BitmapFromString(388, 28, 'z78DAED5D5B96A4200CDD922F' +
'5E9F28E5FE973498806377294405CB2EF9E1F499E9AE5202B921B' +
'9B954669046558BB1AED56078AD1B318C3F46D9B5A6AEDE7E7F65' +
'7C0D95FD9C46F686D58C57A6C5BFAD55DB98CA7E5A0F9FA9ED88F' +
'F82FF8BBF59ABDAD81F8626FA2DEF4FFEFECCFB477CAA6A7AAAF6' +
'6547CEA469EA56B68655AF7E3432ED93EC7DC7C8F7CAAEB133F9F' +
'E5D60D3B4DFB57B7CF5BD9176263BBB2A38537656EDA4DA19568D' +
'81E7546F33AFEDEF3492C3CC1BDACCEFB5C287E724F35866E0096' +
'35DE9CA08EB3FE5C2D356E069255879DA5FB8D7BC8FBD8137983C' +
'BCDDDD0ABCC1E46355AB16E880DEA0067460800EBD69AB512B233' +
'E36CF05199F8A8C023E81AD7E422B06D345BEBD91D25A5CB52D58' +
'F9B815708FD44AEDD9BF49AC1F7E2A619FAAD222B6373F66FD56F' +
'4A65BDDB90C76AEB8DC9FB4F6A93AD1C0530D27667EDA8FB8074B' +
'545066A08CAF5ED9530667ADC5A6637B8A33661AFB39AFFD278E9' +
'3D185B0D105FAD2FD4F3E457A1D7FD918E95A6F5690F1B1C86867' +
'9BADC6C3F89C63DF6DEF208B7DEDEAF79E1B1544741D6D0D64B7B' +
'E5F03DC5498FDB89BF5AD8D5AEB2DB7BE11EC7B6976487462D593' +
'9C191957E0154B545066E09911918D64EC997D3C89B0388A6E005' +
'CE82E588D181BF82CD6D927EFF840F3034962B9828C8F4546BB47' +
'D42A8A89AEDFCE13D6951AB7D74C92D96E62B37DA9F5DDAE9C56F' +
'BEDACEFEDA837ECA889F9DE736307CF209347443FCE68F1DC5189' +
'0ACA0C7CA14D1917A64DBD9B848C653C4E56FA9811AE1693F6C92' +
'BDDE4AFAC15647C263262062CB06B4CE04D39E38773B97B76EE18' +
'CD555E697DA857DED4FA90D7DD3EDDE4ADD1A38FCD7F366946FB2' +
'E504D285141191F9229D270E60D4717FD7CFEF51C1E1DCDD220C2' +
'1EE2AE10F168889E92186F4D8BEF68470E55C22E8A2CC072C91AD' +
'115647C2C32626D221093F36D2475EC38BA0561B756635F4D7516' +
'5613578EE85EB15CC7E1391773DDA713828CE9FDB6ED3E6C7D7F3' +
'ADBCA3FF799F2CF13AB504E110B713D70D65B9F06194EF7B7AD0D' +
'72F664DA81B954E2A2323E2253842CE5587421D77677CDD818F5B' +
'43B592BB4FA85D6015FE491B402DFCEDE6A1FF5EC4FE0771C5E40' +
'0465F77E677D35CC49D6EC5C41C66722A3000BF2550B02DFD5FE0' +
'E0FCEF9407ED3EE6DE537F30908D73F3E896C07D80B13871C2B32' +
'9C89D8B920C19CE309EB8F5B1F3DCC667C021CB91CAC45EBA386A' +
'8DFFED9C1C1362AF215610F0E105905564592F967C02E680CB71E' +
'B2B31E1257A36ABB45FF889CCFE9BE8BA482153B9D169DC7EB872' +
'4FD1ACCED5C36B3D9FD93E8B9E768C1BB48BC028147E1F281A21B' +
'611EF8FCEDBE6365FA17F0D5F609997DF7518F7BF2933B701FF32' +
'71D1FA7BE1EC7B7012B342FC08BA9F6E1715364C881C42BC59E21' +
'7C1C793DF629E84BEAA2BF09ACE655864C1DADE9044F19874FE83' +
'ABA9701736F188B16647C2E328E7A084450E0DB0F76C06D551EE1' +
'04B18589B9D914AB73CEE6289DE2A31CB24F7EF8B6D68F6671AD1' +
'55EA9AB69AE9F94F2EEC0C00CE0EFE413D00F60C74D276A381B8E' +
'F6AF466DE0C97956760DA0B9EB934DC404B0D8D4C7CEE394B8C88' +
'DDB7B76F47B36C90A9CD86280EF87F921725125194F7221B01BBD' +
'D2D25A47B58C781E679CA5CE91BA6EEB989730DB5E62CE2AA8E85' +
'BC0CAA744629B51E8A8FB68DE06F6DA955E281CCB7D782CC8F860' +
'649CABCF5BF6EAA2B5CBAD0E38CA791F7950E8757D4DBC3ADA377' +
'A2DBB2CD40D710BEB87FB2020B7935C23821845A0CFB929EB18F3' +
'C647FB88C39C2813ED5E21740F45EA8C8B6A48821322667ED2710' +
'F3A5387D5A828D87DB0DFB9563229FEB610D534B1279923F977E4' +
'55D158057B7CDC3937BE2637E7D67393C28836C4A2B8FD3E01B46' +
'E28F333F60CF0975B2CF06FFA3F03093577546ABAAC6A5990F1B1' +
'C818890369E8D904B41DF68FBD67D3C12EE0B7B3FE7974BBC6FAE' +
'1F32C4BCF329AD5E4E26F4DD601BB3E2E9AD596F2F98D3185DF58' +
'C550E631F47C5C6457489DBCEFC9C736FA5CF5F3F0F7F6C9F3219' +
'49AEF86BE0DA94361D129E6141AF7566496515CB49721795C44F1' +
'09D06F4EF71E33F266D52F2AC8F864648C740A54BA23C6E74EAF8' +
'6CC16DBE3CD06D01F1B6FD08DA861173727AB21D758BFD26DE034' +
'6A8F3BA97BF69DAA06EDAD2FD0643B1817C9B68FFA67CC8CF91EE' +
'116B22B3511E96457A7E8D7A09CD40ECE4078E52CAB63702276EC' +
'29D4D569C50B6640123AACEB35DF92B353A6D5A9717FD64591C12' +
'CDF7A17704CDDABFFD9714999D5C0CE1284B955C9F5F4283E41C5' +
'E3BDD58C4D9D555BA020E38391D17144B715ABDA03F72FA00AD6C' +
'4CC6C92A97879FD3176B9F5A7E717AC81289DB817EE60FD889255' +
'109D0FFBC0FEEFC745CE8FC189CC9E2C3AC8A96A38418C33E31AF' +
'82DABB5A79AF0BDE779890A4EAC064EACADE742BC9FD40EC64514' +
'7E2FE4490259943A1A1F32DEAC764ED179FBC07C709D8C9467860' +
'A4526C6020BA29E840847CFD679F5321A4D41BEEED7CCE8AF8C8B' +
'4E8CF954470A323E191937F9F6BEDED19FAC77A007F037C270B81' +
'106F38A47F64B50CD2F9F7696F5F31C50A0C9CC73CBA17612E62D' +
'A4CD99B7D43ADA744FD017A81A7673EF672B948D04E80CAB332B0' +
'7F651D68CD9709833E39933AF7877F63A9B85C814FACD604776CA' +
'A7FA7F81B914E54ECF1DE5F66711E56CBFDDAA40E9FB0ED4D1BAC' +
'FD4D1269D31D22D3FB5E260D3FF7B8A92B925EF8503DEAC20E363' +
'91317CC6CFA7F4E56ED0C3CA32BDEB0732CF49E6FC7F2F1E9D590' +
'AB9504ABFC03DAC1FE9ACEC939F0DC9B77EA03249C46340D5C3B1' +
'5CB07F2D6DC7377DFE514705D563506DD87706F587CFB967560E9' +
'93F7C302EA2E525BA68C418FB76B3F1ED147EDA3BBB587C54B14A' +
'442BB00B05C24897D656DD8D12AF6EE135CC583452ED33F0AEE3B' +
'14D2BEB354CC70E82F31D7F39B2DF0519BF1B19C31A0B117D06CE' +
'8CDDDDC22EE9C62185CF4129D05B687C4F01225D0477C85CFDC47' +
'38E1EC3EBC09CD439BF91F5B187E5C29A02764313913D70B38FEB' +
'4A0EB28B5D7F4A23D9B9535240C3FF05196F91E7369353CF1C643' +
'6DE242E6A8FD613CFD4613FCC5B00F5E3082B15B85811659B46AD' +
'B26A29B7C46E767AA2EEC46985C0FD672502AF66EBBE515A55DA6' +
'4CA0116647C303246B38581DB96B1EB96A8E719BA7198D243BAF4' +
'2D19E67CE68B12D91DE1DCC54DB28526982D14C9CF86F64389F70' +
'1853B9290C9B3A7B69E322AA8D5006F21E3B57550DBC35E5AA7AD' +
'14AC5CA78A8B5E29B3D6C7CEF8D13A9A21D4D1CCD13ADA4D15CE9' +
'19916CE2262C524B62B37F44E275E7DF4C4D16CE83AB2E8DE24DF' +
'C89CAC27DAC7456C632DB51F8C8B0A323E1819A3ECB2E04DC14EE' +
'D8DCA57C735E0236436FBCF3D9AE732D3DD2BD84D834AB9348E87' +
'B8B74A835327BE9077EDFA5283FE6445E7163D0C9EA3694AD7CB0' +
'C7C973A5FB479B720E5B64ACAAD0729905D648D8B80117DEA0616' +
'0A1A0253FAABE222DAECC9204AAAC0AC626D2536ABD5FA3D20707' +
'7462CA60A747F1FEE6DACA33B62E3AD497FEB95F3AFE75D1764FC' +
'62640C9FCD6705CEAD53216AA8CACC3D80D14A74AA39DFA1EAA95' +
'D567C55452DF73C24B8992843CE7CAE8231E26D20E7587FDD7497' +
'7488BF7DB88A14670D35F235F782E1E9036A1F2436C585C89E11C' +
'B901D0A67C939B21DE186BB1AAC1F57C63ED1A77FEBB8287C0753' +
'AC2B5F877877EEDC11D6F9913FD727FE1C65F39A98AAD8E1B905E' +
'615604DB8728119D7457F25492F3AC3DD2594AC7541C6EF46461B' +
'D99AC0FB0679203BBA7A5328E5E2DD825DD6DAA5AFC253D7F3966' +
'2DB0DAC1FA96A81DD337250095C8853A3F7A2E9A3027A3DFD53FC' +
'A24B98E7789F48267DC5579E5BEDEE7353F06E66DA866A414215E' +
'5C31AC509EC4261501F53117CF53C8F426C41C6272323AAA01CCB' +
'EBFE60C76563A8DA9790A6725A259770BAACDFEE8888003CBA773' +
'EC02DAC1FD618F427CA7C35DC297B40B95B73BF9E1BF18478B88A' +
'244F7833ED3D55F47B9B7BC745F3BE36092D088CACF08D065F121' +
'7856F9158CB9E4972AF2573D98C14512BB2BC826C995473BBBB4A' +
'4ED63DC864C1828CCF45C6709FC2E20ECA280EBE405D0D6BEBE7F' +
'38712BEDD809EA74AD77D43B23EA8A3ECBA77E9575DFE16D6C79E' +
'88BDF74BE6601CA12EE2198537BC01B9917C8F273C554FDFEBCDF' +
'CCDB0DAAE1C82EA3566DA6F1D172DB9AF1ED18E5950CD9C5E0263' +
'FC3BE2A2996B17BD3D2DDC3B10E9E6C6AECCA331AA86BBEA78CED' +
'EC6555452B096F4313F903F222275F015647C00326EF2228EDD24' +
'885D39C863E74CD967C013B4AF8CABD9BEA8008FBA1C188BB6424' +
'F370BF707EEC84B387B949A78406FE4E3D617419BA24A89B8041D' +
'7EB3DDB09719F55BD0EE9ED12767ED08EC6675EBC12E03E66E9AB' +
'856D77152E041B60CDE08B05CBDF83332B471C52E756328ECEB8D' +
'ACD70DE3A2A587E760C109D79011FA53034DCF2A0AAE460F9A6F6' +
'1ADAAEF8D8BB0163312D8CEF5B9DB6C9DA60422AFF3B4EE668DA5' +
'8F1D410DAC827B48F1FE7A71E16E5AF706D079E1560BAE1C1F2F6' +
'9CF2174FFEB7799CA7FAF22A937B320E30390319CE1B4B668AE5D' +
'8D653C198184542F32DF2B54C63296B18CDF3116647C34328675F' +
'B77D62FCAF8E1BD1CEC08BBAC8256C63296B18C7F1C490B323E1D' +
'1937D512160AF665FC03D6E74CACDAD1ABB597592A6319CB58C6B' +
'3AADD05191F808C0156954E72535E19738F5E1F556F301986734C' +
'863296B18C657C1C9E16647C3C32BADB0DD694A39A9233BCF9FEF' +
'5AA7AEBFDD1D773ADCB58C63296F14BB24605199F8B8CAEBB614D' +
'3F8AE551482E6342ED7AB6BA73C1A6657ECA58C63296F154DF5F4' +
'1C60720E33F244E91EC');
C:= GetBitmapCanvas(clr);
copycanvas(c,image1.canvas,0,0,388,28,0,0,388,28);
usernamepanel := TPanel.Create(frmDesign);
usernamepanel.Parent := frmDesign;
usernamepanel.Left := 12;
usernamepanel.Top := 100;
usernamepanel.Width := 78;
usernamepanel.Height := 28;
usernamepanel.Caption := 'Enter Username';
usernamepanel.Color := 9999933;
usernamepanel.Enabled := False;
usernamepanel.TabOrder := 4;
usernameenter := TEdit.Create(frmDesign);
usernameenter.Parent := frmDesign;
usernameenter.Left := 95;
usernameenter.Top := 100;
usernameenter.Width := 121;
usernameenter.Height := 21;
usernameenter.TabOrder := 5;
passwordpanel := TPanel.Create(frmDesign);
passwordpanel.Parent := frmDesign;
passwordpanel.Left := 12;
passwordpanel.Top := 153;
passwordpanel.Width := 81;
passwordpanel.Height := 27;
passwordpanel.Caption := 'Enter Password';
passwordpanel.TabOrder := 6;
passwordenter := TEdit.Create(frmDesign);
passwordenter.Parent := frmDesign;
passwordenter.Left := 95;
passwordenter.Top := 153;
passwordenter.Width := 122;
passwordenter.Height := 21;
passwordenter.TabOrder := 7;
stoplevelpanel := TPanel.Create(frmDesign);
stoplevelpanel.Parent := frmDesign;
stoplevelpanel.Left := 12;
stoplevelpanel.top := 195;
stoplevelpanel.width := 80;
stoplevelpanel.height := 26;
stoplevelpanel.Caption := 'Level';
stoplevelpanel.TabOrder := 8;
stoplevelenter := TEdit.Create(frmDesign);
stoplevelenter.Parent :=frmDesign;
stoplevelenter.Left :=95;
stoplevelenter.Top := 195;
stoplevelenter.Width := 123;
stoplevelenter.Height :=21;
stoplevelenter.TabOrder:=9;
nicknamepanel := TPanel.Create(frmDesign);
nicknamepanel.Parent := frmDesign;
nicknamepanel.Left := 12;
nicknamepanel.top := 238;
nicknamepanel.width := 80;
nicknamepanel.height := 26;
nicknamepanel.Caption := 'NickName';
nicknamepanel.TabOrder := 10;
nicknameenter := TEdit.Create(frmDesign);
nicknameenter.Parent :=frmDesign;
nicknameenter.Left :=95;
nicknameenter.Top := 238;
nicknameenter.Width := 123;
nicknameenter.Height :=21;
nicknameenter.TabOrder:=11;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 12;
Button1.Top := 320;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Run';
Button1.TabOrder := 14;
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 GasKiller;
begin
mouse(648,93,3,0,true);
case random(5) of
1: begin typesend('z0mg that gas almost killd my pikc!'+chr(13)); end;
2: begin typesend('phew, that wuz close....'+chr(13)); end;
3: begin typesend('i hate gas..'+chr(13));end;
4: begin typesend('they try to blow up my pick!'+chr(13));end;
5: begin typesend('almost broke the pickk'+chr(13)); end;
end;
boredhuman;
FTWait(2);
wait(15000+random(1000));
end;
{***********************************************************************}
function GasDetect:boolean;
{ Auth : sythe.org 1337Snak3 / villu-reborn n3ss3s }
{ Desc : If gas is found then gets away from it and}
{ Waits until its gone. }
begin
if(findobjore(x,y,'ine',rockcolor,10,3)) then
begin
mmouse(x,y,0,0);
getmousepos(x,y);
if (FindColorTolerance(x, y, 11056825,x-110,y+200,x+110,y, 10))
or
(FindColorTolerance(x, y, 9281445,x-110,y+200,x+110,y, 10))
or
(FindColorTolerance(x, y, 8492186,x-110,y+200,x+110,y, 10))
or
(FindColorTolerance(x, y, 7767947,x-110,y+200,x+110,y, 10))
then
begin
result:=true;
writeln('Gas Found!');
end
else
result:=false;
end;
wait(100+random(20));
end;
{**********************************************************************}
function Mine:boolean;
var mining:boolean;
InventoryNumber:integer;
begin
repeat
InventoryNumber:=InvCount;
if(findobj(x,y,'ine',RRockColor,10))then
begin
x := x+random(3);
y := y+random(3);
if (not(FindGas(x,y))) then
begin
Mouse(x,y,0,0,true);
end;
mining:=true;
if (FindGas(x,y)) then
begin
Writeln('Gas Detected!');
end;
if mining then
begin
repeat
randoms;
wait(100+random(20));
nesbored;
wait(100+random(20));
until(not(rockexists));
end;
if(invcount=inventorynumber+1)then
begin
result:=true;
if(result=true)then
begin
writeln('Succesfully mined a rock!');
end;
end;
end;
until(invfull);
end;
{***********************************************************************}
procedure setup;
begin
if not loggedin then
begin
loginplayer;
end;
declarevar;
marktime(playertime);
highestangle;
perfectnorth;
setchat('on',3);
setchat('friends',3);
setchat('off',3);
if not findpickheadcolor then
begin
writeln('didnt find pick,changing player.');
nextplayer(true);
end;
wait(100+random(20));
end;
{***********************************************************************}
procedure progressreport;
begin
writeln('Dropped/Mined'+inttostr(loads)+',loads');
writeln('Thanks for using Clarion v0.6');
srlrandomsreport;
end;
Procedure Introduction;
begin
ClearDebug;
Writeln('You are using "Clarion" powerminer Version '+ClarionVers);
Writeln('This is one of the many SRL Antirandom/Antiban scripts');
Writeln('I have weird rockcolor backup system in this script.');
Writeln('If it doesnt work, please pm me in one of :');
Writeln('A: Sythe.org 1337Snak3 ');
Writeln('B: villu-reborn.com n3ss3s');
Writeln('And I will return this script to Ye ol powerminer.');
Writeln('Any Ideas / Suggestions to a or b.');
Writeln(' ');
Writeln(' ');
Writeln(' ');
Writeln(' ');
end;
begin
Introduction;
setupsrl;
setupsrlmining;
safeinitform;
safeshowformmodal;
activateclient;
declareplayers;
marktime(stime);
repeat
setup;
repeat
if not loggedin then
begin
loginplayer;
end;
mine;
DropAll;
if not loggedin then
begin
loginplayer;
wait(500+random(20));
progressreport;
srlrandomsreport;
end;
if(timefrommark(stime)> playertime) then
begin
logout;
wait(scriptbreak);
end;
if not loggedin then
begin
loginplayer;
end;
until(false);
until(getskilllevel('mining')=strtoint(stoplevelenter.text));
end.
And forgot to say this is an ironminer. Iron is the best powermining ore.