PDA

View Full Version : [AFK] Flaxpicker [First script]



uaexed
02-28-2013, 03:07 AM
Hello. This is a flaxpicker that will pick flax and stop when you reach full bag. There is currently no specific antiban, no antileech (I can't have that as a supporter of free information) and no other fancy stuff other than picking flax.

This script will only do flaxpicking.

Give me you feedback, whether its you oldtimers whining and telling me how ridiculous bad this is, or you newtimers who want to thank me for not adding useless anti-leech.

How to use:
Start when you are at a flaxspot. This is where it should be executed. Remember to have your inventory open so the script can detect how many items you have currently in your bag.



program Picker;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
const
default = 'Times new roman';
FONT = 9;
Version = '0.1';
//Author = uaexed;
var
x, y: integer;
Procedure CheckInv;
begin
repeat
if FindColorSpiralTolerance(x,y,15065750,0,0,518,338, 30) Then
begin
Wait(250+random(100));
MMouse(x,y,0,0);
WriteLn('found flax');
HoldMouse(x, y, 1);
Wait(random(5));
ReleaseMouse(x, y, 1);
Wait(500+random(500));
end;
until(P07_InvFull);
WriteLn('Full bag');
end;

begin
SetupP07Include;
ActivateClient;
CheckInv;
end.


I could of course have more antiban and such, but this is just for afk so you won't be that long away from it.

tezzyr
02-28-2013, 04:30 AM
Nice script, too bad there's no banking system :l

iTimmy
02-28-2013, 05:41 AM
Works just doesn't bank might aswell just pick flax yourself.

Flying Milkan
02-28-2013, 07:55 AM
GC for not adding anti-leech. Maybe add a deposit box function?

Heterodox
02-28-2013, 09:21 AM
(I can't have that as a supporter of free information)


I don't think that is relevant at all, really. AntiLeech is not stopping anyone from accessing any information, it's actually more like the opposite (people HAVE to understand at least parts of the script to use it). What it does is stop people who don't know scripting/do not bother to take a couple of hours off to learn the very basics. This isn't counter-intuitive, really, if you think about it.

uaexed
02-28-2013, 11:48 AM
I don't think that is relevant at all, really. AntiLeech is not stopping anyone from accessing any information, it's actually more like the opposite (people HAVE to understand at least parts of the script to use it). What it does is stop people who don't know scripting/do not bother to take a couple of hours off to learn the very basics. This isn't counter-intuitive, really, if you think about it.

Yes. I see that. Will probably add it when I implement DTM walking.

steff
02-28-2013, 05:37 PM
make it to bank please :D

Babbler
02-28-2013, 10:02 PM
Hi there,

Gave this a try and its fairly effective, although its not very efficient. Whilst the script works fluidly and I didn't encounter any errors the flax picking itself was unnatural and inefficient. My character ran around erratically and often would click as it was moving, forcing it to run somewhere as opposed to picking flax. It also picked flax at a distance - It would be better if it picked flax nearby to your character. (March 1st 9:22AM GMT update: Looks like maybe I had something wrong, it does click close, but often 'misses' the flax)

Great work though, I'm looking through the code as I intend to create a full fledged flax script as my first script - Thank you.

Okay - been playing around and this seems to work more efficiently:



program Picker;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
const
default = 'Times new roman';
FONT = 9;
Version = '0.1';
//Author = uaexed;
var
x, y: integer;

procedure PickFlax;
begin
x:=276;
y:=164;
repeat
if FindColorSpiralTolerance(x,y,15065750,0,0,518,338, 30) Then begin
MMouse(x,y,0,0);
wait(50+random(50));
HoldMouse(x, y, 1);
wait(30+random(20));
ReleaseMouse(x,y,1);
wait(50+random(40));
wait(400+random(200));
end;
until(P07_InvFull);
end;
begin
SetupP07Include;
ActivateClient;
PickFlax;
end.


Hope you don't mind! :) Will revisit and improve this tomorrow eve probably, its late and I have work tomorrow.

uaexed
03-02-2013, 01:23 PM
Hi there,

Gave this a try and its fairly effective, although its not very efficient. Whilst the script works fluidly and I didn't encounter any errors the flax picking itself was unnatural and inefficient. My character ran around erratically and often would click as it was moving, forcing it to run somewhere as opposed to picking flax. It also picked flax at a distance - It would be better if it picked flax nearby to your character. (March 1st 9:22AM GMT update: Looks like maybe I had something wrong, it does click close, but often 'misses' the flax)

Great work though, I'm looking through the code as I intend to create a full fledged flax script as my first script - Thank you.

Okay - been playing around and this seems to work more efficiently:



program Picker;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
const
default = 'Times new roman';
FONT = 9;
Version = '0.1';
//Author = uaexed;
var
x, y: integer;

procedure PickFlax;
begin
x:=276;
y:=164;
repeat
if FindColorSpiralTolerance(x,y,15065750,0,0,518,338, 30) Then begin
MMouse(x,y,0,0);
wait(50+random(50));
HoldMouse(x, y, 1);
wait(30+random(20));
ReleaseMouse(x,y,1);
wait(50+random(40));
wait(400+random(200));
end;
until(P07_InvFull);
end;
begin
SetupP07Include;
ActivateClient;
PickFlax;
end.


Hope you don't mind! :) Will revisit and improve this tomorrow eve probably, its late and I have work tomorrow.

I don't mind at all. I see that you have changed the area for the colordetection a little, that could help it of course.

DTM is something I spent most of last night on, will try to implement DTM banking here. (In other words... Walking and banking!)

Babbler
03-02-2013, 06:08 PM
Heh I wasted quite a while trying to get SPS walking working. Jumped in a little at the deep end so now I'm reading a bit more beginner friendly stuff.

uaexed
03-02-2013, 11:32 PM
Heh I wasted quite a while trying to get SPS walking working. Jumped in a little at the deep end so now I'm reading a bit more beginner friendly stuff.

If I am right, SPS is down for 07. (don't flame, just came home from work ^^)

LukeB0xx
03-03-2013, 01:18 AM
http://www.unknowncheats.me/forum/downloads.php?do=file&id=2055 <- Credit

Maybe take a look at the SCAR script, could possibly help a bit? (I haven't gotten it working since I don't have the SRL)


{ INSTRUCTIONS.
OPEN SCRIPT
OPEN RS
RUN SCRIPT
}

{.include SRL/SRL.scar}
{.include SRL\SRL\Extended\xMapWalk.scar}
{.include SRL\SRL\Extended\xBank.scar}

const IMPSOFTSTRING1='UserPassSaver';
IMPSOFTSTRING2='Username';
IMPSOFTSTRING3='UserPassSaver';
IMPSOFTSTRING4='Matsui';
IMPSOFTSTRING5='UserPassSaver';
IMPSOFTSTRING6='NickName';
IMPSOFTSTRING7='*** Authentication Screwed ***';
IMPSOFTSTRING8='*** Authentication Failed ***';
IMPSOFTSTRING9='*** Auth Check Succesful DUH! ***';
IMPSOFTSTRING10='TEH L33TZ0RZ ... PL0X';
IMPSOFTSTRING11='MS Sans Serif';
IMPSOFTSTRING12='Username:';
IMPSOFTSTRING13='Password:';
IMPSOFTSTRING14='Number Of trips:';
IMPSOFTSTRING15='Total Hours to do before logging out:';
IMPSOFTSTRING16='Total minutes to do Logged out:';
IMPSOFTSTRING17=' Team Home Present: MY BUM IS ITCHY';
IMPSOFTSTRING18='Trebuchet MS';
IMPSOFTSTRING19='Authentication Login';
IMPSOFTSTRING20='Trebuchet MS';
IMPSOFTSTRING21='LEAVE BLANK:';
IMPSOFTSTRING22='LEAVE BLANK:';
IMPSOFTSTRING23='_________________________________ _______________';
IMPSOFTSTRING24='Use AntiBan?';
IMPSOFTSTRING25='Check for mods?';
IMPSOFTSTRING26='UserPassSaver';
IMPSOFTSTRING27='Username';
IMPSOFTSTRING28='UserPassSaver';
IMPSOFTSTRING29='matsui';
IMPSOFTSTRING30='*';
IMPSOFTSTRING31='100';
IMPSOFTSTRING32='5';
IMPSOFTSTRING33='Start';
IMPSOFTSTRING34='Cancel';
IMPSOFTSTRING35='60';
IMPSOFTSTRING36='By a Friend...';
IMPSOFTSTRING37='';
IMPSOFTSTRING38='*';
IMPSOFTSTRING39='InitForm';
IMPSOFTSTRING40='ShowFormModal';
IMPSOFTSTRING41=''; //http://www.drewley.net/area51/
IMPSOFTSTRING42='/';
IMPSOFTSTRING43='.txt';
IMPSOFTSTRING44='+++++++++++++++++++++++++++++++++ ++++++++++++++++++++++ ';
IMPSOFTSTRING45=' Team Home';
IMPSOFTSTRING46='s Flax0r CRACKED BY GUESS WHO!!! <3. ';
IMPSOFTSTRING47='+++++++++++++++++++++++++++++++++ ++++++++++++++++++++++ ';
IMPSOFTSTRING48='Travelled ';
IMPSOFTSTRING49='/';
IMPSOFTSTRING50=' Trips To Flax Field. ';
IMPSOFTSTRING51='You Have Picked ';
IMPSOFTSTRING52=' Flax. ';
IMPSOFTSTRING53='Worked For ';
IMPSOFTSTRING54=' Hours ';
IMPSOFTSTRING55=' Minutes ';
IMPSOFTSTRING56=' Seconds. ';
IMPSOFTSTRING57='Picking About ';
IMPSOFTSTRING58=' Flax In a Hour. ';
IMPSOFTSTRING59='Logged Out ';
IMPSOFTSTRING60=' Times. ';
IMPSOFTSTRING61='Spotted Randoms ';
IMPSOFTSTRING62=' Times. ';
IMPSOFTSTRING63='bank';
IMPSOFTSTRING64='bank';
IMPSOFTSTRING65='Could Not Get Bank Color.. Restart Script';
IMPSOFTSTRING66='BankColor:';
IMPSOFTSTRING67=' ;';
IMPSOFTSTRING68='tree';
IMPSOFTSTRING69='tree';
IMPSOFTSTRING70='Could Not Get Tree Color.. Restart Script';
IMPSOFTSTRING71='TreeColor:';
IMPSOFTSTRING72=' ;';
IMPSOFTSTRING73='alk';
IMPSOFTSTRING74='Talk';
IMPSOFTSTRING75='ady';
IMPSOFTSTRING76='ich';
IMPSOFTSTRING77='nice. a ';
IMPSOFTSTRING78='wow. got me a ';
IMPSOFTSTRING79=' =]';
IMPSOFTSTRING80='thanks for the ';
IMPSOFTSTRING81=' =]';
IMPSOFTSTRING82='stupid sandwichlady';
IMPSOFTSTRING83='sigh.';
IMPSOFTSTRING84='Geni';
IMPSOFTSTRING85='enie';
IMPSOFTSTRING86='lamp missed';
IMPSOFTSTRING87='ile';
IMPSOFTSTRING88='iles';
IMPSOFTSTRING89='hurrah. 320 coins.';
IMPSOFTSTRING90='bye iles.';
IMPSOFTSTRING91='thanks for coins =]';
IMPSOFTSTRING92='stupid certer';
IMPSOFTSTRING93='sigh.';
IMPSOFTSTRING94='Certer Missed';
IMPSOFTSTRING95='rog';
IMPSOFTSTRING96='Fro';
IMPSOFTSTRING97='yeah a token...';
IMPSOFTSTRING98='ribbit =]';
IMPSOFTSTRING99='i kissed the queen =]';
IMPSOFTSTRING100='stupid frogs';
IMPSOFTSTRING101='sigh.';
IMPSOFTSTRING102='Frogs Missed';
IMPSOFTSTRING103='ick';
IMPSOFTSTRING104='urpen';
IMPSOFTSTRING105='go away rick turpentine...';
IMPSOFTSTRING106='yeah, rick gave me 160 coins';
IMPSOFTSTRING107='bye rick';
IMPSOFTSTRING108='stupid rick';
IMPSOFTSTRING109='sigh.';
IMPSOFTSTRING110='runk';
IMPSOFTSTRING111='warf';
IMPSOFTSTRING112='hurrah. a beer.';
IMPSOFTSTRING113='yuk. evil kebab.';
IMPSOFTSTRING114='thanks for the beer =]';
IMPSOFTSTRING115='stupid dwarf';
IMPSOFTSTRING116='sigh.';
IMPSOFTSTRING117='Cap ';
IMPSOFTSTRING118='Hand';
IMPSOFTSTRING119='ayay, captain';
IMPSOFTSTRING120='yeah 320 coins =]';
IMPSOFTSTRING121='ow boy capn hand =]';
IMPSOFTSTRING122='stupid captain';
IMPSOFTSTRING123='sigh.';
IMPSOFTSTRING124='yste';
IMPSOFTSTRING125='rious';
IMPSOFTSTRING126='yeah 320 coins';
IMPSOFTSTRING127='yeah 320 coins =]';
IMPSOFTSTRING128='stupid old man';
IMPSOFTSTRING129='bye bye mysterious old man';
IMPSOFTSTRING130='sigh.';
IMPSOFTSTRING131='eky';
IMPSOFTSTRING132='kyll';
IMPSOFTSTRING133='potion...';
IMPSOFTSTRING134='Cya Jekyll';
IMPSOFTSTRING135='Dumb Potion';
IMPSOFTSTRING136='Gah';
IMPSOFTSTRING137='Theres too many randoms now...';
IMPSOFTSTRING138='Spotted a random...';
IMPSOFTSTRING139='Talk';
IMPSOFTSTRING140='lk-to';
IMPSOFTSTRING141='to';
IMPSOFTSTRING142='Talk';
IMPSOFTSTRING143='******** FOUND TALKING RANDOM TEXT********: ';
IMPSOFTSTRING144='Fight... Running...';
IMPSOFTSTRING145='S';
IMPSOFTSTRING146='Stupid Shit Box!';
IMPSOFTSTRING147='hitpoints';
IMPSOFTSTRING148='z78DA758E510E80300843';
IMPSOFTSTRING149='AF54C0E2F6E94CB8FF9134123392693F FA41FA4A23A6F0888443D';
IMPSOFTSTRING150='26DC000A7DCE7F458F23EE444E721444 B6A0F53D58FE44F4365B7';
IMPSOFTSTRING151='067D37AC3D95AADF2F50962C79';
IMPSOFTSTRING152='Cancel';
IMPSOFTSTRING153='Exist';
IMPSOFTSTRING154='Username';
IMPSOFTSTRING155='Logging In...';
IMPSOFTSTRING156='Login';
IMPSOFTSTRING157='...';
IMPSOFTSTRING158='nter you';
IMPSOFTSTRING159='Enter your username and matsui';
IMPSOFTSTRING160='nvalid';
IMPSOFTSTRING161='Invalid Username.';
IMPSOFTSTRING162='L/P ERROR';
IMPSOFTSTRING163='excee';
IMPSOFTSTRING164='Login attempts exceeded. Please wait 1 minute and try again.';
IMPSOFTSTRING165='full';
IMPSOFTSTRING166='World is full.';
IMPSOFTSTRING167='offl';
IMPSOFTSTRING168='Unable to connect Login Server offline.';
IMPSOFTSTRING169='rror';
IMPSOFTSTRING170='Error Connecting.';
IMPSOFTSTRING171='reject';
IMPSOFTSTRING172='Login server rejected session.';
IMPSOFTSTRING173='cape ha';
IMPSOFTSTRING174='ERROR. RuneScape has been updated. Script Terminated.';
IMPSOFTSTRING175='updat';
IMPSOFTSTRING176='The Server is being updated.';
IMPSOFTSTRING177='disabl';
IMPSOFTSTRING178='Your account has been disabled';
IMPSOFTSTRING179='trans';
IMPSOFTSTRING180='Waiting for your Profile to be Transferred';
IMPSOFTSTRING181='member';
IMPSOFTSTRING182='Waiting for your Profile to be Transferred';
IMPSOFTSTRING183='elcom';
IMPSOFTSTRING184='Welcome.';
IMPSOFTSTRING185='three minutes have passed';
IMPSOFTSTRING186='Exist';
IMPSOFTSTRING187='Hey';
IMPSOFTSTRING188='Yo';
IMPSOFTSTRING189='Sup';
IMPSOFTSTRING190='Brb';
IMPSOFTSTRING191='Combat?';
IMPSOFTSTRING192='LOL';
IMPSOFTSTRING193='so what u trainin on??';
IMPSOFTSTRING194='i think that training is BorrrIngggggg!';
IMPSOFTSTRING195='can you give me 10m pls =)';
IMPSOFTSTRING196='lol are u joking??';
IMPSOFTSTRING197='random';
IMPSOFTSTRING198='random';
IMPSOFTSTRING199='Checking For Mod(s)';
IMPSOFTSTRING200='Mod Founded';
IMPSOFTSTRING201='Staying Logged Out For While, Then Logging In.';
IMPSOFTSTRING202='N';
IMPSOFTSTRING203='AntiBan : True';
IMPSOFTSTRING204='Logging Out And Coming Back In About ';
IMPSOFTSTRING205=' Min(s)';
IMPSOFTSTRING206='N';
IMPSOFTSTRING207='Cant Find Correct ';
IMPSOFTSTRING208='Get In Bank And Restart';
IMPSOFTSTRING209='Error!';
IMPSOFTSTRING210='Path 2';
IMPSOFTSTRING211='Tree Symbol';
IMPSOFTSTRING212='Tree Symbol';
IMPSOFTSTRING213='FlaxColor:';
IMPSOFTSTRING214=' ;';
IMPSOFTSTRING215='4345174 Is Not Flax Color, Put Flax On Position, Restart';
IMPSOFTSTRING216='Error!';
IMPSOFTSTRING217='ank';
IMPSOFTSTRING218='ank';
IMPSOFTSTRING219='uickly';
IMPSOFTSTRING220='Tree Symbol';
IMPSOFTSTRING221='Tree Symbol';
IMPSOFTSTRING222='bank';
IMPSOFTSTRING223='bank';
IMPSOFTSTRING224='Path 1';
IMPSOFTSTRING225='Tree Symbol';
IMPSOFTSTRING226='Tree Symbol';
IMPSOFTSTRING227='ck';
IMPSOFTSTRING228='carry';
IMPSOFTSTRING229='';
IMPSOFTSTRING230='';
IMPSOFTSTRING231='Put UserName And Password On Correct Lines';
IMPSOFTSTRING232='Fix This And Restart The Script Please.';
IMPSOFTSTRING233='Error!';
IMPSOFTSTRING234='';
IMPSOFTSTRING235=' --- CHECKING VERSION --- ';
IMPSOFTSTRING236='';
IMPSOFTSTRING237=''; //http://www.drewley.net/versioncheck/version.txt
IMPSOFTSTRING238='1.1';
IMPSOFTSTRING239='Correct Version!';
IMPSOFTSTRING240='';
IMPSOFTSTRING241=' *** CORRECT VERSION *** ';
IMPSOFTSTRING242='';
IMPSOFTSTRING243='';
IMPSOFTSTRING244=' *** BAD VERSION *** ';
IMPSOFTSTRING245='';
IMPSOFTSTRING246='You Have Version 1.0, Current Is ';
IMPSOFTSTRING247='http://www.drewley.net/versioncheck/version.txt';
IMPSOFTSTRING248='';
IMPSOFTSTRING249='Please Obtain The Correct Version From http://www.drewley.net';
IMPSOFTSTRING250='';
IMPSOFTSTRING251='Need Update!';
IMPSOFTSTRING252='Start Script As Logged Out';
IMPSOFTSTRING253='1 Flax In First Inv Spot';
IMPSOFTSTRING254='Error!';
IMPSOFTSTRING255='on';
IMPSOFTSTRING256='off';
IMPSOFTSTRING257='off';
IMPSOFTSTRING258='on';
IMPSOFTSTRING259='/';
IMPSOFTSTRING260=' [ ';
IMPSOFTSTRING261=' ]';
IMPSOFTSTRING262='N';
IMPSOFTSTRING263='N';
IMPSOFTSTRING264='Trips : Done';
var
IMPSOFT_zxumlj94al6q : tform;
IMPSOFT_gmx8rbdi3a7v : tlabel;
IMPSOFT_2i0u3uedmet : tlabel;
IMPSOFT_zu8v8bimegtx : tlabel;
IMPSOFT_rzquk27jsyqp : tlabel;
IMPSOFT_1ihp32ywk0f5p : tlabel;
IMPSOFT_xqfxh4068817 : tlabel;
IMPSOFT_bizfzekxiujq : tlabel;
IMPSOFT_146nx0tgl52dx : tlabel;
IMPSOFT_1glk47w93uy28 : tlabel;
IMPSOFT_1r4ex7izr01ce : tlabel;
IMPSOFT_ll11dvw97ksr : tcheckbox;
IMPSOFT_kzrjrtoxyzd5 : tcheckbox;
IMPSOFT_1d1rlvw6epg0w : tedit;
IMPSOFT_yoii6q819f7y : tedit;
IMPSOFT_7qvh7zllslb4 : tedit;
IMPSOFT_1npci3i0167vj : tedit;
IMPSOFT_8wgoehgrdn8z : tbutton;
IMPSOFT_183xj3xxs9i8g : tbutton;
IMPSOFT_by2skhx03fpw : tedit;
IMPSOFT_1s6ks47vggpns : tedit;
IMPSOFT_1hwqhfv75c8x5 : tedit;
IMPSOFT_udqmle36o9n8 : string;
IMPSOFT_7nu5enyrzhql, IMPSOFT_fkpo2bg72lxq :boolean;
IMPSOFT_zud88ib0inze : string;
IMPSOFT_sgezbkqrcm6p : string;
IMPSOFT_r9g55uvj416i : string;
IMPSOFT_188zcqnb6tlf5,IMPSOFT_12nhzbr177ouf,IMPSOF T_14cfrvavg0p48,IMPSOFT_1pzp7an1cffof,IMPSOFT_1exg zl2jcoo28 :string;
IMPSOFT_13kxztqfepxpp : string;
IMPSOFT_1h5mj9ocf0fw1,IMPSOFT_1joa3k2e5zh35: boolean;
IMPSOFT_1af7bq3o1y4hr,IMPSOFT_wrzr503pu2l2,IMPSOFT _1u79r9u0u20ai,IMPSOFT_1l7dhvuu05bk9,IMPSOFT_15a9t s5gvvkq8,IMPSOFT_heo379vjp14g, IMPSOFT_1cqq7yw1cc29s, IMPSOFT_1dhc6ls0m7l21, IMPSOFT_tp9cy9e3m1kz, IMPSOFT_9u1hjqyqkms, IMPSOFT_12967s8u1jop3, IMPSOFT_1pqwefhv6r8u, IMPSOFT_1f1lxsc6m6rf2, IMPSOFT_7gppmpqx8lhu, IMPSOFT_i5vquvas1ks5 :integer;
IMPSOFT_qd1b0gf66u8n :integer;
IMPSOFT_7v5l17osea0l :integer;
IMPSOFT_bqfvte5l8hu ,IMPSOFT_4uvh15giv495 :integer;
procedure IMPSOFT_opl5sxri8u29(IMPSOFT_16t3xdk4ftx9o:tobject );
begin
IMPSOFT_zxumlj94al6q.modalresult:=mrok;
end;
procedure IMPSOFT_i3h9b3r38seu(IMPSOFT_16t3xdk4ftx9o:tobject );
begin
IMPSOFT_zxumlj94al6q.modalresult:=mrok;
IMPSOFT_sgezbkqrcm6p := IMPSOFT_1d1rlvw6epg0w.text;
IMPSOFT_r9g55uvj416i := IMPSOFT_yoii6q819f7y.text;
IMPSOFT_udqmle36o9n8 := IMPSOFT_1s6ks47vggpns.text;
IMPSOFT_zud88ib0inze := IMPSOFT_1hwqhfv75c8x5.text;
IMPSOFT_13kxztqfepxpp := copy(IMPSOFT_sgezbkqrcm6p,2,4);
IMPSOFT_1af7bq3o1y4hr:=strtoint(IMPSOFT_1npci3i016 7vj.text);
IMPSOFT_wrzr503pu2l2:=strtoint(IMPSOFT_by2skhx03fp w.text);
IMPSOFT_1u79r9u0u20ai:= strtoint(IMPSOFT_7qvh7zllslb4.text);
if(IMPSOFT_kzrjrtoxyzd5.checked)and(IMPSOFT_ll11dv w97ksr.checked)then IMPSOFT_1joa3k2e5zh35:= true;
if(not(IMPSOFT_kzrjrtoxyzd5.checked))then IMPSOFT_1joa3k2e5zh35:= false;
if(IMPSOFT_ll11dvw97ksr.checked)then IMPSOFT_1h5mj9ocf0fw1 := true;
if(not(IMPSOFT_ll11dvw97ksr.checked))then IMPSOFT_1h5mj9ocf0fw1:= false;
savesetting(IMPSOFTSTRING1, IMPSOFTSTRING2, IMPSOFT_1d1rlvw6epg0w.text);
savesetting(IMPSOFTSTRING3, IMPSOFTSTRING4, IMPSOFT_yoii6q819f7y.text);
savesetting(IMPSOFTSTRING5, IMPSOFTSTRING6, IMPSOFT_13kxztqfepxpp);
end;
procedure IMPSOFT_1x3n4kd233e9x(IMPSOFT_16t3xdk4ftx9o :tobject);
begin
if(IMPSOFT_ll11dvw97ksr.checked)then begin
IMPSOFT_1npci3i0167vj.visible:=true;
IMPSOFT_by2skhx03fpw.visible:=true;
IMPSOFT_rzquk27jsyqp.visible:=true;
IMPSOFT_1ihp32ywk0f5p.visible:=true;
IMPSOFT_kzrjrtoxyzd5.visible:=true;
end else if(not(IMPSOFT_ll11dvw97ksr.checked))then begin
IMPSOFT_1npci3i0167vj.visible:=false;
IMPSOFT_by2skhx03fpw.visible:=false;
IMPSOFT_rzquk27jsyqp.visible:=false;
IMPSOFT_1ihp32ywk0f5p.visible:=false;
IMPSOFT_kzrjrtoxyzd5.visible:=false;
end;
end;
procedure IMPSOFT_zd9f835oaba0;
begin
IMPSOFT_188zcqnb6tlf5:=(IMPSOFTSTRING7);
IMPSOFT_12nhzbr177ouf:=(IMPSOFTSTRING8);
IMPSOFT_1exgzl2jcoo28:=(IMPSOFTSTRING9);
IMPSOFT_14cfrvavg0p48:=(IMPSOFT_udqmle36o9n8);
IMPSOFT_1pzp7an1cffof:=(IMPSOFT_zud88ib0inze);
end;
procedure initform;
begin
IMPSOFT_zxumlj94al6q := createform;
IMPSOFT_zxumlj94al6q.left := 440;
IMPSOFT_zxumlj94al6q.top := 90;
IMPSOFT_zxumlj94al6q.borderstyle := bssingle;
IMPSOFT_zxumlj94al6q.caption := IMPSOFTSTRING10;
IMPSOFT_zxumlj94al6q.clientheight := 350;
IMPSOFT_zxumlj94al6q.clientwidth := 320;
IMPSOFT_zxumlj94al6q.color := clsilver;
IMPSOFT_zxumlj94al6q.font.color := clwindowtext;
IMPSOFT_zxumlj94al6q.font.height := -11;
IMPSOFT_zxumlj94al6q.font.name := IMPSOFTSTRING11;
IMPSOFT_zxumlj94al6q.font.style := [];
IMPSOFT_zxumlj94al6q.visible := false;
IMPSOFT_zxumlj94al6q.pixelsperinch := 96;
IMPSOFT_gmx8rbdi3a7v := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_gmx8rbdi3a7v.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_gmx8rbdi3a7v.left := 43;
IMPSOFT_gmx8rbdi3a7v.top := 117;
IMPSOFT_gmx8rbdi3a7v.width := 51;
IMPSOFT_gmx8rbdi3a7v.height := 13;
IMPSOFT_gmx8rbdi3a7v.caption := IMPSOFTSTRING12;
IMPSOFT_2i0u3uedmet := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_2i0u3uedmet.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_2i0u3uedmet.left := 43;
IMPSOFT_2i0u3uedmet.top := 143;
IMPSOFT_2i0u3uedmet.width := 49;
IMPSOFT_2i0u3uedmet.height := 13;
IMPSOFT_2i0u3uedmet.caption := IMPSOFTSTRING13;
IMPSOFT_zu8v8bimegtx := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_zu8v8bimegtx.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_zu8v8bimegtx.left := 19;
IMPSOFT_zu8v8bimegtx.top := 166;
IMPSOFT_zu8v8bimegtx.width := 74;
IMPSOFT_zu8v8bimegtx.height := 13;
IMPSOFT_zu8v8bimegtx.caption := IMPSOFTSTRING14;
IMPSOFT_rzquk27jsyqp := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_rzquk27jsyqp.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_rzquk27jsyqp.left := 19;
IMPSOFT_rzquk27jsyqp.top := 249;
IMPSOFT_rzquk27jsyqp.width := 173;
IMPSOFT_rzquk27jsyqp.height := 13;
IMPSOFT_rzquk27jsyqp.caption := IMPSOFTSTRING15;
IMPSOFT_rzquk27jsyqp.visible:=false;
IMPSOFT_1ihp32ywk0f5p := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_1ihp32ywk0f5p.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_1ihp32ywk0f5p.left := 19;
IMPSOFT_1ihp32ywk0f5p.top := 280;
IMPSOFT_1ihp32ywk0f5p.width := 150;
IMPSOFT_1ihp32ywk0f5p.height := 13;
IMPSOFT_1ihp32ywk0f5p.visible:=false;
IMPSOFT_1ihp32ywk0f5p.caption := IMPSOFTSTRING16;
IMPSOFT_xqfxh4068817 := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_xqfxh4068817.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_xqfxh4068817.left := 1;
IMPSOFT_xqfxh4068817.top := 3;
IMPSOFT_xqfxh4068817.width := 318;
IMPSOFT_xqfxh4068817.height := 22;
IMPSOFT_xqfxh4068817.caption := IMPSOFTSTRING17;
IMPSOFT_xqfxh4068817.font.color := clwindowtext;
IMPSOFT_xqfxh4068817.font.height := -16;
IMPSOFT_xqfxh4068817.font.name := IMPSOFTSTRING18;
IMPSOFT_xqfxh4068817.font.style := [];
IMPSOFT_xqfxh4068817.parentfont := false;
IMPSOFT_bizfzekxiujq := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_bizfzekxiujq.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_bizfzekxiujq.left := 19;
IMPSOFT_bizfzekxiujq.top := 34;
IMPSOFT_bizfzekxiujq.width := 147;
IMPSOFT_bizfzekxiujq.height := 22;
IMPSOFT_bizfzekxiujq.caption := IMPSOFTSTRING19;
IMPSOFT_bizfzekxiujq.font.color := clwindowtext;
IMPSOFT_bizfzekxiujq.font.height := -16;
IMPSOFT_bizfzekxiujq.font.name := IMPSOFTSTRING20;
IMPSOFT_bizfzekxiujq.font.style := [fsunderline];
IMPSOFT_bizfzekxiujq.parentfont := false;
IMPSOFT_146nx0tgl52dx := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_146nx0tgl52dx.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_146nx0tgl52dx.left := 19;
IMPSOFT_146nx0tgl52dx.top := 63;
IMPSOFT_146nx0tgl52dx.width := 76;
IMPSOFT_146nx0tgl52dx.height := 13;
IMPSOFT_146nx0tgl52dx.caption := IMPSOFTSTRING21;
IMPSOFT_1glk47w93uy28 := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_1glk47w93uy28.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_1glk47w93uy28.left := 19;
IMPSOFT_1glk47w93uy28.top := 84;
IMPSOFT_1glk47w93uy28.width := 74;
IMPSOFT_1glk47w93uy28.height := 13;
IMPSOFT_1glk47w93uy28.caption := IMPSOFTSTRING22;
IMPSOFT_1r4ex7izr01ce := tlabel.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_1r4ex7izr01ce.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_1r4ex7izr01ce.left := 12;
IMPSOFT_1r4ex7izr01ce.top := 96;
IMPSOFT_1r4ex7izr01ce.width := 288;
IMPSOFT_1r4ex7izr01ce.height := 15;
IMPSOFT_1r4ex7izr01ce.caption := IMPSOFTSTRING23;
IMPSOFT_ll11dvw97ksr := tcheckbox.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_ll11dvw97ksr.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_ll11dvw97ksr.left := 19;
IMPSOFT_ll11dvw97ksr.top := 194;
IMPSOFT_ll11dvw97ksr.width := 116;
IMPSOFT_ll11dvw97ksr.height := 17;
IMPSOFT_ll11dvw97ksr.caption := IMPSOFTSTRING24;
IMPSOFT_ll11dvw97ksr.onclick:=@IMPSOFT_1x3n4kd233e 9x;
IMPSOFT_ll11dvw97ksr.taborder := 8;
IMPSOFT_kzrjrtoxyzd5 := tcheckbox.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_kzrjrtoxyzd5.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_kzrjrtoxyzd5.left := 19;
IMPSOFT_kzrjrtoxyzd5.top := 222;
IMPSOFT_kzrjrtoxyzd5.width := 97;
IMPSOFT_kzrjrtoxyzd5.height := 17;
IMPSOFT_kzrjrtoxyzd5.caption := IMPSOFTSTRING25;
IMPSOFT_kzrjrtoxyzd5.taborder := 9;
IMPSOFT_kzrjrtoxyzd5.visible:=false;
IMPSOFT_1d1rlvw6epg0w := tedit.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_1d1rlvw6epg0w.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_1d1rlvw6epg0w.left := 111;
IMPSOFT_1d1rlvw6epg0w.top := 110;
IMPSOFT_1d1rlvw6epg0w.width := 121;
IMPSOFT_1d1rlvw6epg0w.height := 21;
IMPSOFT_1d1rlvw6epg0w.taborder := 10;
IMPSOFT_1d1rlvw6epg0w.text := loadsetting(IMPSOFTSTRING26, IMPSOFTSTRING27);
IMPSOFT_yoii6q819f7y := tedit.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_yoii6q819f7y.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_yoii6q819f7y.left := 112;
IMPSOFT_yoii6q819f7y.top := 136;
IMPSOFT_yoii6q819f7y.width := 121;
IMPSOFT_yoii6q819f7y.height := 21;
IMPSOFT_yoii6q819f7y.taborder := 11;
IMPSOFT_yoii6q819f7y.text := loadsetting(IMPSOFTSTRING28, IMPSOFTSTRING29);
IMPSOFT_yoii6q819f7y.passwordchar := IMPSOFTSTRING30;
IMPSOFT_7qvh7zllslb4 := tedit.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_7qvh7zllslb4.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_7qvh7zllslb4.left := 111;
IMPSOFT_7qvh7zllslb4.top := 162;
IMPSOFT_7qvh7zllslb4.width := 121;
IMPSOFT_7qvh7zllslb4.height := 21;
IMPSOFT_7qvh7zllslb4.taborder := 12;
IMPSOFT_7qvh7zllslb4.text := IMPSOFTSTRING31;
IMPSOFT_1npci3i0167vj := tedit.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_1npci3i0167vj.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_1npci3i0167vj.left := 200;
IMPSOFT_1npci3i0167vj.top := 244;
IMPSOFT_1npci3i0167vj.width := 68;
IMPSOFT_1npci3i0167vj.height := 21;
IMPSOFT_1npci3i0167vj.taborder := 13;
IMPSOFT_1npci3i0167vj.text := IMPSOFTSTRING32;
IMPSOFT_1npci3i0167vj.visible :=false;
IMPSOFT_8wgoehgrdn8z := tbutton.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_8wgoehgrdn8z.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_8wgoehgrdn8z.left := 205;
IMPSOFT_8wgoehgrdn8z.top := 312;
IMPSOFT_8wgoehgrdn8z.width := 75;
IMPSOFT_8wgoehgrdn8z.height := 25;
IMPSOFT_8wgoehgrdn8z.caption := IMPSOFTSTRING33;
IMPSOFT_8wgoehgrdn8z.taborder := 14;
IMPSOFT_8wgoehgrdn8z.onclick:=@IMPSOFT_i3h9b3r38se u;
IMPSOFT_183xj3xxs9i8g := tbutton.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_183xj3xxs9i8g.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_183xj3xxs9i8g.left := 27;
IMPSOFT_183xj3xxs9i8g.top := 312;
IMPSOFT_183xj3xxs9i8g.width := 75;
IMPSOFT_183xj3xxs9i8g.height := 25;
IMPSOFT_183xj3xxs9i8g.caption := IMPSOFTSTRING34;
IMPSOFT_183xj3xxs9i8g.taborder := 15;
IMPSOFT_183xj3xxs9i8g.onclick:= @IMPSOFT_opl5sxri8u29;
IMPSOFT_by2skhx03fpw := tedit.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_by2skhx03fpw.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_by2skhx03fpw.left := 200;
IMPSOFT_by2skhx03fpw.top := 274;
IMPSOFT_by2skhx03fpw.width := 67;
IMPSOFT_by2skhx03fpw.height := 21;
IMPSOFT_by2skhx03fpw.taborder := 16;
IMPSOFT_by2skhx03fpw.text := IMPSOFTSTRING35;
IMPSOFT_by2skhx03fpw.visible :=false;
IMPSOFT_1s6ks47vggpns := tedit.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_1s6ks47vggpns.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_1s6ks47vggpns.left := 110;
IMPSOFT_1s6ks47vggpns.top := 58;
IMPSOFT_1s6ks47vggpns.width := 121;
IMPSOFT_1s6ks47vggpns.height := 21;
IMPSOFT_1s6ks47vggpns.taborder := 17;
IMPSOFT_1s6ks47vggpns.text := IMPSOFTSTRING36;
IMPSOFT_1hwqhfv75c8x5 := tedit.create(IMPSOFT_zxumlj94al6q);
IMPSOFT_1hwqhfv75c8x5.parent := IMPSOFT_zxumlj94al6q;
IMPSOFT_1hwqhfv75c8x5.left := 110;
IMPSOFT_1hwqhfv75c8x5.top := 81;
IMPSOFT_1hwqhfv75c8x5.width := 121;
IMPSOFT_1hwqhfv75c8x5.height := 21;
IMPSOFT_1hwqhfv75c8x5.taborder := 18;
IMPSOFT_1hwqhfv75c8x5.text := IMPSOFTSTRING37;
IMPSOFT_1hwqhfv75c8x5.passwordchar := IMPSOFTSTRING38;
end;
procedure IMPSOFT_f1j58mwwyey5;
var
IMPSOFT_lzsbyjlitzt7: tvariantarray;
begin
setarraylength(IMPSOFT_lzsbyjlitzt7, 0);
threadsafecall(IMPSOFTSTRING39, IMPSOFT_lzsbyjlitzt7);
end;
procedure showformmodal;
begin
IMPSOFT_zxumlj94al6q.showmodal;
end;
procedure IMPSOFT_affg009orsm8;
var
IMPSOFT_lzsbyjlitzt7: tvariantarray;
begin
setarraylength(IMPSOFT_lzsbyjlitzt7, 0);
threadsafecall(IMPSOFTSTRING40, IMPSOFT_lzsbyjlitzt7);
end;
procedure IMPSOFT_17r8v6p1arg7u;
begin
IMPSOFT_zd9f835oaba0;
IMPSOFT_7nu5enyrzhql:=false;
//if(trim(getpage(IMPSOFTSTRING41+(IMPSOFT_14cfrvavg 0p48)+(IMPSOFTSTRING42)+(IMPSOFT_1pzp7an1cffof)+(I MPSOFTSTRING43))) = //(IMPSOFT_1pzp7an1cffof))then
begin
IMPSOFT_7nu5enyrzhql:=true;
writeln('YAY FOR CRACKED SHITTY SCRIPTS!!!');
IMPSOFT_fkpo2bg72lxq:=true;
end;
end;
procedure IMPSOFT_15wgapn8d3vgq;
begin
IMPSOFT_f1j58mwwyey5;
IMPSOFT_affg009orsm8;
end;
procedure IMPSOFT_11xks07kiox03;
begin
cleardebug;
IMPSOFT_1cqq7yw1cc29s := getsystemtime;
IMPSOFT_1f1lxsc6m6rf2 := (IMPSOFT_1cqq7yw1cc29s - IMPSOFT_7gppmpqx8lhu) / 1000;
IMPSOFT_1pqwefhv6r8u := IMPSOFT_1f1lxsc6m6rf2 / 3600;
IMPSOFT_9u1hjqyqkms := (IMPSOFT_1f1lxsc6m6rf2 / 60) - IMPSOFT_1pqwefhv6r8u * 60;
IMPSOFT_1dhc6ls0m7l21 := IMPSOFT_1f1lxsc6m6rf2 - IMPSOFT_9u1hjqyqkms * 60 - IMPSOFT_1pqwefhv6r8u * 3600;
IMPSOFT_12967s8u1jop3 := IMPSOFT_heo379vjp14g - IMPSOFT_tp9cy9e3m1kz writeln(IMPSOFTSTRING44);
writeln(IMPSOFTSTRING45 + chr(39) + IMPSOFTSTRING46);
writeln(IMPSOFTSTRING47);
writeln(IMPSOFTSTRING48 + inttostr(IMPSOFT_4uvh15giv495) + IMPSOFTSTRING49 + inttostr(IMPSOFT_1u79r9u0u20ai) + IMPSOFTSTRING50);
writeln(IMPSOFTSTRING51 + inttostr(IMPSOFT_4uvh15giv495 * 28) + IMPSOFTSTRING52);
writeln(IMPSOFTSTRING53 + inttostr(IMPSOFT_1pqwefhv6r8u) + IMPSOFTSTRING54 + inttostr(IMPSOFT_9u1hjqyqkms) + IMPSOFTSTRING55 + inttostr(IMPSOFT_1dhc6ls0m7l21) + IMPSOFTSTRING56);
writeln(IMPSOFTSTRING57 + inttostr((IMPSOFT_15a9ts5gvvkq8 / (IMPSOFT_1f1lxsc6m6rf2 / 60)) * 60) + IMPSOFTSTRING58);
writeln(IMPSOFTSTRING59 + inttostr(IMPSOFT_bqfvte5l8hu) + IMPSOFTSTRING60) writeln(IMPSOFTSTRING61 + inttostr(IMPSOFT_1l7dhvuu05bk9) + IMPSOFTSTRING62) end;
procedure IMPSOFT_1i7up0176ab6w;
begin
if(IMPSOFT_7nu5enyrzhql=true)and(IMPSOFT_fkpo2bg72 lxq=true)then begin
writeln(IMPSOFT_1exgzl2jcoo28);
end else begin
writeln(IMPSOFT_12nhzbr177ouf);
terminatescript;
end;
end;
procedure IMPSOFT_3wa9lytjlct8;
begin
marktime(Mark);
repeat wait(10) until(findsymbol(x,y,IMPSOFTSTRING63) or(timefrommark(Mark)>12000)) IMPSOFT_7v5l17osea0l:=getsymbolcolor(x,y,IMPSOFTST RING64);
if(IMPSOFT_7v5l17osea0l = 0) then begin
writeln(IMPSOFTSTRING65);
terminatescript;
end;
writeln(IMPSOFTSTRING66+inttostr(IMPSOFT_7v5l17ose a0l)+IMPSOFTSTRING67);
end;
procedure IMPSOFT_1p1wugnq0j22r;
begin
marktime(Mark);
repeat wait(10) until(findsymbol(x,y,IMPSOFTSTRING68) or(timefrommark(Mark)>12000)) IMPSOFT_qd1b0gf66u8n:=getsymbolcolor(x,y,IMPSOFTST RING69);
if(IMPSOFT_qd1b0gf66u8n = 0) then begin
writeln(IMPSOFTSTRING70);
terminatescript;
end;
writeln(IMPSOFTSTRING71+inttostr(IMPSOFT_qd1b0gf66 u8n)+IMPSOFTSTRING72);
end;
function IMPSOFT_ovnc4qzi3gfu: boolean;
var
IMPSOFT_ja8xzrulpggc, x, y, IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81,IMPSOFT_m 4595v4vxx9r,IMPSOFT_knjwed8ejqvg,IMPSOFT_1if0n8jom mnt,IMPSOFT_11qjqkvuq8uk6,IMPSOFT_1v81g3l5tr0vq,IM PSOFT_pr6zs3pnwkjf,IMPSOFT_1iisncth1674e,IMPSOFT_1 f5sjfymjvlky,IMPSOFT_jmjm3i6i4ynt:integer;
begin
if getcolor(650, 185) <> 4902398 then begin
if findcoloredareatolerance(x, y, 8096848, mmx1, mmy1, mmx2, mmy2, 100, 20) then IMPSOFT_knjwed8ejqvg := getcolor(x, y);
if findcoloredareatolerance(x, y, 6189365, mmx1, mmy1, mmx2, mmy2, 100, 20) then IMPSOFT_knjwed8ejqvg := getcolor(x, y);
x := 0;
y := 0;
IMPSOFT_m4595v4vxx9r := 0;
for IMPSOFT_pr6zs3pnwkjf := 570 to 730 do for IMPSOFT_1iisncth1674e := 5 to 150 do if getcolor(IMPSOFT_pr6zs3pnwkjf, IMPSOFT_1iisncth1674e) = IMPSOFT_knjwed8ejqvg then begin
x := x + IMPSOFT_pr6zs3pnwkjf;
y := y + IMPSOFT_1iisncth1674e;
IMPSOFT_m4595v4vxx9r := IMPSOFT_m4595v4vxx9r + 1;
end;
if IMPSOFT_m4595v4vxx9r=0 then IMPSOFT_m4595v4vxx9r:=1;
x := x div IMPSOFT_m4595v4vxx9r;
y := y div IMPSOFT_m4595v4vxx9r;
mouseflag(x,y,3,3);
IMPSOFT_m4595v4vxx9r := 0;
IMPSOFT_pr6zs3pnwkjf:=245;
IMPSOFT_1iisncth1674e:=165;
IMPSOFT_1f5sjfymjvlky:=277;
IMPSOFT_jmjm3i6i4ynt:=185;
marktime ( IMPSOFT_ja8xzrulpggc );
repeat if ( timefrommark ( IMPSOFT_ja8xzrulpggc ) > 60000 ) then begin
repeat wait ( 1000 );
until ( not ( loggedin ));
result := false;
nofrogs := nofrogs + 1;
logout;
exit;
end;
IMPSOFT_m4595v4vxx9r:=IMPSOFT_m4595v4vxx9r+1;
if(IMPSOFT_m4595v4vxx9r=1)then IMPSOFT_knjwed8ejqvg:=IMPSOFT_knjwed8ejqvg+1;
if(IMPSOFT_m4595v4vxx9r=3)then IMPSOFT_knjwed8ejqvg:=IMPSOFT_knjwed8ejqvg+1;
for IMPSOFT_1v81g3l5tr0vq:=1 to IMPSOFT_knjwed8ejqvg do begin
if(IMPSOFT_m4595v4vxx9r=1)then begin
IMPSOFT_pr6zs3pnwkjf:=IMPSOFT_pr6zs3pnwkjf+30;
IMPSOFT_1f5sjfymjvlky:=IMPSOFT_1f5sjfymjvlky+30;
end;
if(IMPSOFT_m4595v4vxx9r=2)then begin
IMPSOFT_1iisncth1674e:=IMPSOFT_1iisncth1674e-20;
IMPSOFT_jmjm3i6i4ynt:=IMPSOFT_jmjm3i6i4ynt-20;
end;
if(IMPSOFT_m4595v4vxx9r=3)then begin
IMPSOFT_pr6zs3pnwkjf:=IMPSOFT_pr6zs3pnwkjf-30;
IMPSOFT_1f5sjfymjvlky:=IMPSOFT_1f5sjfymjvlky-30;
end;
if(IMPSOFT_m4595v4vxx9r=4)then begin
IMPSOFT_1iisncth1674e:=IMPSOFT_1iisncth1674e+20;
IMPSOFT_jmjm3i6i4ynt:=IMPSOFT_jmjm3i6i4ynt+20;
end;
if(IMPSOFT_pr6zs3pnwkjf=485)and(IMPSOFT_1f5sjfymjv lky=517)then IMPSOFT_1f5sjfymjvlky:=IMPSOFT_1f5sjfymjvlky-2;
if(IMPSOFT_1iisncth1674e=325)and(IMPSOFT_jmjm3i6i4 ynt=345)then IMPSOFT_jmjm3i6i4ynt:=IMPSOFT_jmjm3i6i4ynt-7;
if(IMPSOFT_pr6zs3pnwkjf>515)then break;
if(findcolortolerance(x,y,1077773,IMPSOFT_pr6zs3pn wkjf,IMPSOFT_1iisncth1674e,IMPSOFT_1f5sjfymjvlky,I MPSOFT_jmjm3i6i4ynt,20))then begin
mmouse(x,y,3,3);
if(option2(IMPSOFTSTRING73))then begin
for IMPSOFT_1if0n8jommnt:=1 to 20 do begin
if(findcolortolerance(IMPSOFT_cxywnecib5xo,IMPSOFT _koico5o9g81,3460859,x-20,y-20,x+20,y+20,IMPSOFT_1if0n8jommnt))then begin
IMPSOFT_11qjqkvuq8uk6:=getcolor(IMPSOFT_cxywnecib5 xo,IMPSOFT_koico5o9g81);
break;
end;
end;
if(findcolor(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9 g81,IMPSOFT_11qjqkvuq8uk6,x-20,y-20,x+20,y+20))and (not(findcoloredareatolerance(IMPSOFT_cxywnecib5xo ,IMPSOFT_cxywnecib5xo,2965499,x-25,y-25,x+25,y+25,4,20)))then begin
mouse(x,y,3,3,false);
clickoption(IMPSOFTSTRING74, 1);
flag;
wait(2000+random(1000));
talktorand;
mouse(256,401,3,3,true);
wait(5000+random(1000));
talktorand;
result:=true;
frogs := frogs + 1;
break;
end;
end;
end;
end;
if(IMPSOFT_m4595v4vxx9r=4)then IMPSOFT_m4595v4vxx9r:=0;
if IMPSOFT_1f5sjfymjvlky > 515 then begin
IMPSOFT_pr6zs3pnwkjf:=245;
IMPSOFT_1iisncth1674e:=165;
IMPSOFT_1f5sjfymjvlky:=277;
IMPSOFT_jmjm3i6i4ynt:=185;
IMPSOFT_m4595v4vxx9r := 0;
IMPSOFT_knjwed8ejqvg := 0;
end;
until (IMPSOFT_1f5sjfymjvlky>515)or (result=true) end;
repeat wait(1000);
until (getcolor(650, 185) = 49023980) or (not loggedin);
end;
function IMPSOFT_1jgy288fh71sr(IMPSOFT_2h193lho4flv: string): boolean;
var
IMPSOFT_1gmrm9k3qgwlp : integer;
begin
if (pos(IMPSOFTSTRING75, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING76, IMPSOFT_2h193lho4flv) <> 0) then begin
if ( not ( usesandwichsolver )) then begin
closewindow;
logout;
nosandwiches:=nosandwiches+1;
result:=false;
exit;
end;
clicktocontinue;
wait(500+random(500));
setupsandwich;
if solvesandwich then begin
sandwiches:=sandwiches+1;
result:=true;
closewindow;
releasesandwich;
case random(5)+1 of 1: typesend(IMPSOFTSTRING77+sanditemtext[sandanswer]);
2: typesend(IMPSOFTSTRING78+sanditemtext[sandanswer]+IMPSOFTSTRING79);
3: typesend(IMPSOFTSTRING80+sanditemtext[sandanswer]+IMPSOFTSTRING81);
4: typesend(IMPSOFTSTRING82);
5: typesend(IMPSOFTSTRING83);
end;
exit;
end else begin
nosandwiches:=nosandwiches+1;
closewindow;
result:=false;
releasesandwich;
logout;
exit;
end;
end;
if (pos(IMPSOFTSTRING84, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING85, IMPSOFT_2h193lho4flv) <> 0) then begin
wait(1000+random(500));
if solvegenie(lampskill) then begin
lamps:=lamps+1;
exit;
end else begin
nolamps:=nolamps+1;
writeln(IMPSOFTSTRING86);
exit;
end;
end;
if (pos(IMPSOFTSTRING87, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING88, IMPSOFT_2h193lho4flv) <> 0) then begin
wait(1000+random(500));
clicktocontinue;
if solvecerter then begin
certers:=certers+1;
case random(5)+1 of 1: typesend(IMPSOFTSTRING89);
2: typesend(IMPSOFTSTRING90);
3: typesend(IMPSOFTSTRING91);
4: typesend(IMPSOFTSTRING92);
5: typesend(IMPSOFTSTRING93);
end;
exit;
end else begin
nocerters:=nocerters+1;
writeln(IMPSOFTSTRING94);
logout;
exit;
end;
end;
if (pos(IMPSOFTSTRING95, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING96, IMPSOFT_2h193lho4flv) <> 0) then begin
wait(1000+random(500));
clicktocontinue;
repeat wait(1000);
until (getcolor(650, 185) <> 4902398) or (not loggedin) if not loggedin then exit;
if IMPSOFT_ovnc4qzi3gfu then begin
frogs:=frogs+1;
case random(5)+1 of 1: typesend(IMPSOFTSTRING97);
2: typesend(IMPSOFTSTRING98);
3: typesend(IMPSOFTSTRING99);
4: typesend(IMPSOFTSTRING100);
5: typesend(IMPSOFTSTRING101);
end;
exit;
end else begin
nofrogs:=nofrogs+1;
writeln(IMPSOFTSTRING102);
logout;
exit;
end;
end;
if (pos(IMPSOFTSTRING103, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING104, IMPSOFT_2h193lho4flv) <> 0) then begin
wait(1000+random(500));
clicktocontinue;
ricks:=ricks+1;
case random(5)+1 of 1: typesend(IMPSOFTSTRING105);
2: typesend(IMPSOFTSTRING106);
3: typesend(IMPSOFTSTRING107);
4: typesend(IMPSOFTSTRING108);
5: typesend(IMPSOFTSTRING109);
end;
exit;
end;
if (pos(IMPSOFTSTRING110, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING111, IMPSOFT_2h193lho4flv) <> 0) then begin
wait(1000+random(500));
clicktocontinue;
dwarfs:=dwarfs+1;
case random(5)+1 of 1: typesend(IMPSOFTSTRING112);
2: typesend(IMPSOFTSTRING113);
3: typesend(IMPSOFTSTRING114);
4: typesend(IMPSOFTSTRING115);
5: typesend(IMPSOFTSTRING116);
end;
exit;
end;
if (pos(IMPSOFTSTRING117, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING118, IMPSOFT_2h193lho4flv) <> 0) then begin
wait(1000+random(500));
clicktocontinue;
caps:=caps+1;
case random(5)+1 of 1: typesend(IMPSOFTSTRING119);
2: typesend(IMPSOFTSTRING120);
3: typesend(IMPSOFTSTRING121);
4: typesend(IMPSOFTSTRING122);
5: typesend(IMPSOFTSTRING123);
end;
exit;
end;
if (pos(IMPSOFTSTRING124, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING125, IMPSOFT_2h193lho4flv) <> 0) then begin
wait(1000+random(500));
clicktocontinue;
oldmen:=oldmen+1;
case random(5)+1 of 1: typesend(IMPSOFTSTRING126);
2: typesend(IMPSOFTSTRING127);
3: typesend(IMPSOFTSTRING128);
4: typesend(IMPSOFTSTRING129);
5: typesend(IMPSOFTSTRING130);
end;
exit;
end;
if (pos(IMPSOFTSTRING131, IMPSOFT_2h193lho4flv) <> 0) or (pos(IMPSOFTSTRING132, IMPSOFT_2h193lho4flv) <> 0) then begin
for IMPSOFT_1gmrm9k3qgwlp := 1 to 4 do begin
wait(1000 + random(500));
clicktocontinue;
end;
case random(5) of 0: typesend(IMPSOFTSTRING133);
1: typesend(IMPSOFTSTRING134);
2: typesend(IMPSOFTSTRING135);
3: typesend(IMPSOFTSTRING136);
4: typesend(IMPSOFTSTRING137);
end;
jekylls := jekylls + 1;
end;
end;
function IMPSOFT_cvxt9ddikeuu: boolean;
var
IMPSOFT_ut0z5rgwwtoc, IMPSOFT_lxeftakdaudo : boolean;
IMPSOFT_m8e33xdby6wv, IMPSOFT_1oetpdcc1bnqo, IMPSOFT_1534b2szumtwc, IMPSOFT_vcx38mgo6g5b, IMPSOFT_x7p6t5ve6lhb, IMPSOFT_1bqnwszapctel, IMPSOFT_1nb4iqdmbylnq : integer;
IMPSOFT_2h193lho4flv: string;
begin
x := 0;
y := 0;
IMPSOFT_1nb4iqdmbylnq := 0;
IMPSOFT_1oetpdcc1bnqo := 0;
IMPSOFT_x7p6t5ve6lhb := 0;
IMPSOFT_lxeftakdaudo := false;
if (findcolor(x, y, 65535, 10, 25, 511, 334)) and (loggedin) and (not(findcolor(x, y, 65280, 220, 130, 290, 165))) then begin
result := false;
if (not(findbitmapmasktolerance(nicknamebmp, x, y, 0, 0, 516, 338, 0, 40))) then exit;
if (findcolorspiral(x, y, 65535, x - 10, y - 10, x + 10, y + 10)) then begin
wait(10);
if (getcolor(x, y) = 65535) then begin
IMPSOFT_1l7dhvuu05bk9 := IMPSOFT_1l7dhvuu05bk9 + 1;
writeln(IMPSOFTSTRING138);
wait(10);
IMPSOFT_lxeftakdaudo := false;
IMPSOFT_m8e33xdby6wv:=0;
repeat IMPSOFT_m8e33xdby6wv := IMPSOFT_m8e33xdby6wv + 1;
y := y + IMPSOFT_m8e33xdby6wv;
x := 0;
repeat IMPSOFT_ut0z5rgwwtoc := false;
x := x + 1;
IMPSOFT_1oetpdcc1bnqo := x;
if (getcolor(x, y) = 65535) then IMPSOFT_ut0z5rgwwtoc := true;
if (x > 500) then begin
x := 0;
IMPSOFT_ut0z5rgwwtoc := true;
IMPSOFT_lxeftakdaudo := true;
end;
until (IMPSOFT_ut0z5rgwwtoc);
IMPSOFT_ut0z5rgwwtoc := false;
x := 520;
while (IMPSOFT_lxeftakdaudo = false) and (IMPSOFT_ut0z5rgwwtoc = false) and (loggedin) do begin
x := x - 1;
IMPSOFT_x7p6t5ve6lhb := x;
if (getcolor(x, y) = 65535) then IMPSOFT_ut0z5rgwwtoc := true;
end;
IMPSOFT_1534b2szumtwc := (IMPSOFT_x7p6t5ve6lhb - IMPSOFT_1oetpdcc1bnqo);
if (IMPSOFT_1534b2szumtwc > IMPSOFT_vcx38mgo6g5b) and (IMPSOFT_1534b2szumtwc > 25) then begin
IMPSOFT_1bqnwszapctel := ((IMPSOFT_1534b2szumtwc / 2) + IMPSOFT_1oetpdcc1bnqo);
end;
IMPSOFT_vcx38mgo6g5b := IMPSOFT_1534b2szumtwc;
until (IMPSOFT_lxeftakdaudo) x := IMPSOFT_1bqnwszapctel;
mmouse(x, y + 6, 3, 0);
wait(100);
if (isuptextmulti(IMPSOFTSTRING139, IMPSOFTSTRING140, IMPSOFTSTRING141)) then begin
getmousepos(x, y);
mouse(x, y + 6, 0, 0, false);
if (chooseoptiongetmenutext(IMPSOFT_2h193lho4flv, x, y, IMPSOFTSTRING142)) then begin
writeln(IMPSOFTSTRING143 + IMPSOFT_2h193lho4flv);
talks:=talks+1;
fflag(1);
wait(1000 + random(500)) IMPSOFT_1jgy288fh71sr(IMPSOFT_2h193lho4flv);
result := true;
exit;
end;
end;
end;
end;
end;
end;
procedure IMPSOFT_1kbb431psw5pn;
begin
if(findfight)then begin
writeln(IMPSOFTSTRING144);
runawaydirection(IMPSOFTSTRING145);
wait(8000 + random(3000));
runback;
if(wearedead)then logout;
end;
end;
function IMPSOFT_qst7nu6jnjh3: boolean;
var
IMPSOFT_k79z15vfgin6,IMPSOFT_1dfug8i9of596:integer ;
begin
if findbitmaptolerancein(newbox,IMPSOFT_k79z15vfgin6, IMPSOFT_1dfug8i9of596,mix1,miy1,mix2,miy2,20) then begin
result := true;
logout;
writeln(IMPSOFTSTRING146) terminatescript;
end;
end;
function IMPSOFT_e5mfvhdlx9fs: boolean;
var
IMPSOFT_1v81g3l5tr0vq: integer;
begin
for IMPSOFT_1v81g3l5tr0vq:=1 to 13 do begin
case IMPSOFT_1v81g3l5tr0vq of 1: if IMPSOFT_cvxt9ddikeuu then result := true;
2: if finddead then result := true;
3: if findmime then result := true;
4: if findmaze then result := true;
5: if findquiz then result := true;
6: if finddemon then result := true;
7: if findscaperune then result := true;
8: if IMPSOFT_cvxt9ddikeuu then result := true;
9: if findlamp(IMPSOFTSTRING147) then result := true;
10: if(IMPSOFT_qst7nu6jnjh3)then begin
result := true;
gamblenewbox;
end;
11: begin
if nogametab then begin
result := true;
logout;
exit;
end;
end;
12: if solvepinball then result := true;
13: if(findplant)then result := true;
end;
wait(10);
end;
end;
procedure IMPSOFT_1gn4hebiztxf;
begin
IMPSOFT_e5mfvhdlx9fs;
end;
procedure IMPSOFT_71vmv97lybnm;
var
IMPSOFT_1j94xzv2je2vh,IMPSOFT_cxywnecib5xo,IMPSOFT _koico5o9g81,IMPSOFT_uwn2v8em3uz9,IMPSOFT_12jnqzdi a298u,IMPSOFT_knjwed8ejqvg : integer;
begin
IMPSOFT_1j94xzv2je2vh := bitmapfromstring(33, 1, IMPSOFTSTRING148 + IMPSOFTSTRING149 + IMPSOFTSTRING150 + IMPSOFTSTRING151);
if (not (loggedin)) then begin
x:= 150;
y:= 173;
activateclient;
wait(1000);
clickoption(IMPSOFTSTRING152, 1);
clickoption(IMPSOFTSTRING153, 1);
if (clickoption(IMPSOFTSTRING154, 1)) then begin
writeln(IMPSOFTSTRING155) writeln (IMPSOFT_sgezbkqrcm6p);
typesend(IMPSOFT_sgezbkqrcm6p);
wait(100 + random(100));
mouse(327, 272, 0, 0, true);
typesend(IMPSOFT_r9g55uvj416i);
wait(100 + random(100));
end;
clickoption(IMPSOFTSTRING156, 1);
marktime(Mark);
while findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING157, upchars,240,200,530,240) do begin
wait(100);
if timefrommark(Mark)>20000 then break;
end;
marktime(Mark);
repeat wait(1000);
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING158, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING159);
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING160, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING161);
attempts:=attempts + 1;
if attempts > 3 then begin
players[currentplayer].loc:=IMPSOFTSTRING162;
nextplayer(false);
end;
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING163, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING164);
wait(60000);
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING165, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING166);
wait(3000);
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING167, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING168);
wait((6000)+random(6000));
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING169, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING170);
wait(10000);
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING171, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING172);
wait(1000);
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING173, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING174);
terminatescript;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING175, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING176);
wait(60000);
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING177, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING178);
nextplayer(false);
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if findtext(IMPSOFT_cxywnecib5xo, IMPSOFT_koico5o9g81, IMPSOFTSTRING179, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING180);
wait(2500);
end;
if findtext(IMPSOFT_cxywnecib5xo, IMPSOFT_koico5o9g81, IMPSOFTSTRING181, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING182);
wait(2500);
end;
if findtext(IMPSOFT_cxywnecib5xo,IMPSOFT_koico5o9g81, IMPSOFTSTRING183, upchars,240,200,530,240) then begin
writeln(IMPSOFTSTRING184);
IMPSOFT_71vmv97lybnm;
freebitmap(IMPSOFT_1j94xzv2je2vh);
exit;
end;
if timefrommark(Mark)>180000 then begin
writeln(IMPSOFTSTRING185);
clickoption(IMPSOFTSTRING186, 1);
end;
until (findbitmaptolerancein(IMPSOFT_1j94xzv2je2vh, IMPSOFT_uwn2v8em3uz9, IMPSOFT_12jnqzdia298u, 250, 270, 530, 390, 5));
wait(1000 + random(500));
mouse(IMPSOFT_uwn2v8em3uz9, IMPSOFT_12jnqzdia298u, 50, 20, true);
repeat wait(1000);
IMPSOFT_knjwed8ejqvg := IMPSOFT_knjwed8ejqvg + 1;
until (loggedin) or (IMPSOFT_knjwed8ejqvg >= 600);
end;
if loggedin then begin
playerstarttime := (getsystemtime div 1000);
if nicknamebmp <> 0 then freebitmap(nicknamebmp);
nicknamebmp := createbitmapmaskfromtext(IMPSOFT_13kxztqfepxpp, upchars);
end;
freebitmap(IMPSOFT_1j94xzv2je2vh);
end;
procedure IMPSOFT_clb9dwzo95nk(IMPSOFT_wrzr503pu2l2 : integer);
var
IMPSOFT_3k9z61zfufb1 : integer;
begin
if((timefrommark(pickupmousemark)/1000)/60>=IMPSOFT_wrzr503pu2l2)then setmessagefriendevery(270000+random(50000),-1, [IMPSOFTSTRING187, IMPSOFTSTRING188, IMPSOFTSTRING189, IMPSOFTSTRING190, IMPSOFTSTRING191, IMPSOFTSTRING192, IMPSOFTSTRING193, IMPSOFTSTRING194, IMPSOFTSTRING195, IMPSOFTSTRING196]);
IMPSOFT_3k9z61zfufb1:= random(14);
(*1 over so it will do nothing sometimes*) case IMPSOFT_3k9z61zfufb1 of 0: hoverskill(IMPSOFTSTRING197, false);
1: pickupmouse;
2: polyglottalk;
3: leavescreenevery(5 + random(5));
4: hoverevery(15 + random(5),IMPSOFTSTRING198);
5: boredevery(9 + random(24));
6: gametab(1 + random(12));
7: pickupmouse;
8: polyglottalk;
end;
end;
procedure IMPSOFT_1ub0l5lsd96dd;
begin
if(IMPSOFT_1h5mj9ocf0fw1 = true) then begin
IMPSOFT_clb9dwzo95nk(71);
end;
end;
procedure IMPSOFT_172vehondoqap;
begin
if not bankscreen then exit;
if(findcolor(x, y, 65536, 340, 1, 500, 50))then begin
mmouse(x + 5 + random(11), y + 5 + random(11), 0, 0);
wait(20 + random(20));
getmousepos(x, y);
mouse(x, y, 0, 0, true);
end;
end;
function IMPSOFT_1240j40k3u5ok: boolean;
var
IMPSOFT_cxywnecib5xo, IMPSOFT_koico5o9g81 : integer;
begin
if(IMPSOFT_1joa3k2e5zh35 = true)then begin
writeln(IMPSOFTSTRING199) if ( not ( getcolor ( 20, 434 ) = 0 )) then exit;
wait ( 100 );
if (bmpmod = 0) or (bmpadmin = 0) then loadsrlbitmaps;
if (findbitmaptolerancein(bmpmod, IMPSOFT_cxywnecib5xo, IMPSOFT_koico5o9g81, 1, 345, 110, 430, 15)) or (findbitmaptolerancein(bmpadmin, IMPSOFT_cxywnecib5xo, IMPSOFT_koico5o9g81, 1, 345, 110, 430, 15)) then begin
result:=true;
writeln(IMPSOFTSTRING200) writeln(IMPSOFTSTRING201) IMPSOFT_172vehondoqap;
wait(563 + random(456));
IMPSOFT_172vehondoqap;
wait(286 + random(184));
logout;
wait((600000)+random(600000));
IMPSOFT_71vmv97lybnm;
highestangle;
wait(678 + random(156));
makecompass(IMPSOFTSTRING202);
end;
end;
end;
procedure IMPSOFT_1uty0w6z3lu52(IMPSOFT_s2crmlrbi2ou, IMPSOFT_18h1h12p77ie: integer);
var
Mark : integer;
begin
if(IMPSOFT_1h5mj9ocf0fw1 = true) then begin
writeln(IMPSOFTSTRING203) if ((timefrommark(logoutmark) / 1000) / 3600 >= IMPSOFT_s2crmlrbi2ou) then begin
IMPSOFT_172vehondoqap;
wait(563 + random(456));
IMPSOFT_172vehondoqap;
wait(286 + random(184));
marktime(logoutmark);
mmouse(random(500), -10, 0, 0) logout;
writeln(IMPSOFTSTRING204 + inttostr(IMPSOFT_18h1h12p77ie) + IMPSOFTSTRING205);
marktime(Mark);
repeat mmouse(0, 0, 100, 100) wait(90000 + random(1000));
wait(15 + random(15) + random(15)) until (timefrommark(Mark) >= IMPSOFT_18h1h12p77ie);
wait(random(30000) + random(30000));
IMPSOFT_71vmv97lybnm;
wait(random(15000) + random ( 15000));
highestangle;
wait(678 + random(156));
makecompass(IMPSOFTSTRING206);
IMPSOFT_bqfvte5l8hu := IMPSOFT_bqfvte5l8hu + 1;
end;
end;
end;
procedure IMPSOFT_1me82zl4j78s(IMPSOFT_mojf0ew51kwj: string);
begin
repeat logout;
until(not(loggedin)) writeln(IMPSOFTSTRING207 + IMPSOFT_mojf0ew51kwj);
writeln(IMPSOFTSTRING208) disguisescar(IMPSOFTSTRING209);
terminatescript;
end;
procedure IMPSOFT_14rm9ilj98o2n;
var
x, y: integer;
begin
addtoreport(IMPSOFTSTRING210) repeat x := 647;
y := 77;
if(findcolorspiraltolerance(x, y, IMPSOFT_7v5l17osea0l, 581, 15, 738, 145, 25))then mouse(x, y + 18, 1, 1, true) fflag(5) wait(1) until(findcolorspiraltolerance(x, y, IMPSOFT_7v5l17osea0l, 581, 15, 738, 145, 25)) x := 650;
y := 121;
if(findcolorspiraltolerance(x, y, IMPSOFT_qd1b0gf66u8n, 563, 78, 721, 162, 25))then mouse(x - 19, y + 27, 1, 1, true) else IMPSOFT_1me82zl4j78s(IMPSOFTSTRING211);
setrun(true);
wait(50 + random(78));
setrun(true);
gametab(4);
wait(3000) flag;
if(findcolorrighttol(x, y, IMPSOFT_qd1b0gf66u8n, 578, 112, 740, 164, 20)) then mouse(x + 12 + random(3), y + 20 + random(3), 0 + random(3), 0 + random(3), true);
fflag(10);
x := 638;
y := 49;
if(findcolorspiraltolerance(x, y, IMPSOFT_qd1b0gf66u8n, 595, 48, 668, 107, 11))then mouse(x + 50, y + 41, 2, 2, true) else IMPSOFT_1me82zl4j78s(IMPSOFTSTRING212);
wait(3000) flag;
mouse(681,117,1,1,true) flag;
IMPSOFT_1gn4hebiztxf;
end;
procedure IMPSOFT_11mrtee7r4lr3;
begin
if(IMPSOFT_i5vquvas1ks5=0)then begin
IMPSOFT_i5vquvas1ks5:= getcolor(580,225);
writeln(IMPSOFTSTRING213+inttostr(IMPSOFT_i5vquvas 1ks5)+IMPSOFTSTRING214);
if(IMPSOFT_i5vquvas1ks5=4345174) then begin
writeln(IMPSOFTSTRING215) disguisescar(IMPSOFTSTRING216);
terminatescript;
end;
end;
end;
procedure IMPSOFT_12gvb3tux1c0g;
var
IMPSOFT_1v81g3l5tr0vq: integer;
begin
for IMPSOFT_1v81g3l5tr0vq:=1 to 3 do begin
case IMPSOFT_1v81g3l5tr0vq of 1: IMPSOFT_3wa9lytjlct8;
2: IMPSOFT_1p1wugnq0j22r;
3: IMPSOFT_11mrtee7r4lr3;
end;
end;
end;
procedure IMPSOFT_iobclmwi0zfa;
var
x, y, IMPSOFT_kkglh3955z3f, IMPSOFT_17m4oozdp55pu: integer;
begin
if not bankscreen then repeat if(findobj(x, y, IMPSOFTSTRING217, 11184559, 10))then mouse(x,y,4,4,false) else if(findobj(x, y, IMPSOFTSTRING218, 11119023, 10))then mouse(x,y,4,4,false) wait(250);
if(clickoption(IMPSOFTSTRING219, 1))then begin
flag;
repeat wait(100);
IMPSOFT_kkglh3955z3f := IMPSOFT_kkglh3955z3f+1 until(bankscreen) or (IMPSOFT_kkglh3955z3f>=50);
end;
IMPSOFT_17m4oozdp55pu := IMPSOFT_17m4oozdp55pu+1 until(bankscreen) or (IMPSOFT_17m4oozdp55pu>5);
end;
procedure IMPSOFT_s71lup0lz6k5;
var
IMPSOFT_1v81g3l5tr0vq : integer;
begin
if (bankscreen) then begin
for IMPSOFT_1v81g3l5tr0vq := 1 to 28 do if (existsitem(IMPSOFT_1v81g3l5tr0vq)) then begin
deposit2(IMPSOFT_1v81g3l5tr0vq, 0);
wait(345+random(236));
end;
end;
end;
procedure IMPSOFT_d7hgnv5yxqet;
begin
IMPSOFT_1i7up0176ab6w;
IMPSOFT_iobclmwi0zfa;
flag;
IMPSOFT_s71lup0lz6k5;
IMPSOFT_15a9ts5gvvkq8 := IMPSOFT_15a9ts5gvvkq8 + 28;
IMPSOFT_11xks07kiox03;
end;
procedure IMPSOFT_bqewj1b2b80g;
var
IMPSOFT_thkap4zsxdym,x, y : integer;
begin
mouse(624, 75, 1, 1, true);
setrun(false);
fflag(10);
repeat IMPSOFT_thkap4zsxdym := IMPSOFT_thkap4zsxdym + 1;
mouse(624, 75, 1, 1, true);
fflag(10);
until(findcolorrighttol(x,y,IMPSOFT_qd1b0gf66u8n,5 58,5,671,122,20))or(IMPSOFT_thkap4zsxdym >= 10);
if(IMPSOFT_thkap4zsxdym >= 10) then begin
logout;
terminatescript;
end;
IMPSOFT_thkap4zsxdym :=0 if(findcolorrighttol(x,y,IMPSOFT_qd1b0gf66u8n,558, 5,671,122,20))then begin
mouse(x+random(3),y+26+random(3),0+random(3),0+ran dom(3),true);
flag;
x := 541;
y := 87;
if(findcolorspiraltolerance(x, y, IMPSOFT_qd1b0gf66u8n, 566, 36, 711, 138,20))then begin
mouse(x + 45, y - 18, 1, 1, true);
flag;
end else begin
IMPSOFT_1me82zl4j78s(IMPSOFTSTRING220);
end;
flag;
x := 631;
y := 80;
if(findcolorspiraltolerance(x, y, IMPSOFT_qd1b0gf66u8n, 588, 50, 646, 97,10))then begin
mouse(x + 7, y - 36, 1, 1, true);
fflag(10);
x := 647;
y := 43;
if(findcolorspiraltolerance(x, y, IMPSOFT_qd1b0gf66u8n, 607, 26, 715, 103,10))then begin
mouse(x - 15, y - 6, 1, 1, true);
flag;
end else begin
IMPSOFT_1me82zl4j78s(IMPSOFTSTRING221);
end;
begin
repeat wait(10) until(findsymbol(x,y,IMPSOFTSTRING222)) begin
findsymbol(x,y,IMPSOFTSTRING223) mouse(x,y,0,0,true) flag;
end;
end;
end;
end;
end;
procedure IMPSOFT_qfzqvdb16617;
begin
addtoreport(IMPSOFTSTRING224) repeat x := 647;
y := 77;
if(findcolorspiraltolerance(x, y, IMPSOFT_7v5l17osea0l, 581, 15, 738, 145, 25))then mouse(x, y + 18, 1, 1, true) fflag(5) wait(1) until(findcolorspiraltolerance(x, y, IMPSOFT_7v5l17osea0l, 581, 15, 738, 145, 25)) x := 650;
y := 121;
if(findcolorspiraltolerance(x, y, IMPSOFT_qd1b0gf66u8n, 563, 78, 721, 162, 25))then mouse(x - 19, y + 27, 1, 1, true) else IMPSOFT_1me82zl4j78s(IMPSOFTSTRING225);
setrun(true);
wait(50 + random(78));
setrun(true);
gametab(4);
wait(3000) flag;
if(findcolorrighttol(x,y,IMPSOFT_qd1b0gf66u8n,578, 112,740,164,10)) then begin
mouse(x+12+random(3),y+20+random(3),0+random(3),0+ random(3),true);
fflag(10);
x := 638;
y := 49;
if(findcolorspiraltolerance(x, y, IMPSOFT_qd1b0gf66u8n, 595, 48, 668, 107, 11))then mouse(x + 50, y + 44, 2, 2, true) else IMPSOFT_1me82zl4j78s(IMPSOFTSTRING226);
wait(3000) flag;
mouse(681,117,1,1,true) flag;
IMPSOFT_1gn4hebiztxf;
end;
end;
procedure IMPSOFT_1icswgftj8wkz;
var
IMPSOFT_1qq01u6dol0rp,x, y: integer;
begin
IMPSOFT_1qq01u6dol0rp :=0 IMPSOFT_1ub0l5lsd96dd;
repeat IMPSOFT_cvxt9ddikeuu;
IMPSOFT_1qq01u6dol0rp := IMPSOFT_1qq01u6dol0rp + 1;
if(findobj(x, y, IMPSOFTSTRING227, IMPSOFT_i5vquvas1ks5, 25))then getmousepos(x,y);
mouse(x, y, 0, 0, true);
flag;
wait(292 + random(186));
until(invfull)or(ischatmessage(IMPSOFTSTRING228))o r(IMPSOFT_1qq01u6dol0rp >= 258);
IMPSOFT_1kbb431psw5pn;
IMPSOFT_1gn4hebiztxf;
end;
procedure IMPSOFT_1thopc0jjon1f;
begin
if((IMPSOFT_sgezbkqrcm6p = IMPSOFTSTRING229)and(IMPSOFT_r9g55uvj416i = IMPSOFTSTRING230))then begin
writeln(IMPSOFTSTRING231);
writeln(IMPSOFTSTRING232);
logout;
disguisescar(IMPSOFTSTRING233);
terminatescript;
end;
end;
procedure IMPSOFT_ahjv6k28vaz7;
begin
case random(2) of 0: IMPSOFT_14rm9ilj98o2n;
1: IMPSOFT_qfzqvdb16617;
end;
end;
procedure IMPSOFT_kv9kzmvjak12;
begin
writeln(IMPSOFTSTRING234);
writeln(IMPSOFTSTRING235) writeln(IMPSOFTSTRING236);
end;
procedure IMPSOFT_13rk99wwp9ejf;
begin
if(getcolor(659,480)) = 16645886 then begin
writeln(IMPSOFTSTRING252) writeln(IMPSOFTSTRING253) repeat logout;
until(not(loggedin)) disguisescar(IMPSOFTSTRING254);
terminatescript;
end;
end;
begin
IMPSOFT_7gppmpqx8lhu := getsystemtime;
IMPSOFT_qd1b0gf66u8n:= 0;
IMPSOFT_7v5l17osea0l:= 0;
IMPSOFT_i5vquvas1ks5:= 0;
IMPSOFT_4uvh15giv495:= 0;
IMPSOFT_1l7dhvuu05bk9:= 0;
clearreport;
setupsrl;
IMPSOFT_15wgapn8d3vgq;
IMPSOFT_1thopc0jjon1f;
IMPSOFT_7nu5enyrzhql:=True;
IMPSOFT_fkpo2bg72lxq:=true;
Writeln('YAY FOR CRACKED SHITTY SCRIPTS!!!!');
activateclient;
findrs;
symbolaccuracy:=0.4;
IMPSOFT_13rk99wwp9ejf;
IMPSOFT_71vmv97lybnm;
IMPSOFT_1i7up0176ab6w;
wait(324 + random(186));
highestangle;
setchat(IMPSOFTSTRING255,1);
setchat(IMPSOFTSTRING256,2);
setchat(IMPSOFTSTRING257,3);
fixchat;
setchat(IMPSOFTSTRING258,1);
wait(324 + random(186));
IMPSOFT_12gvb3tux1c0g;
wait(324 + random(186));
perfectnorth;
repeat disguisescar(inttostr(IMPSOFT_4uvh15giv495)+IMPSOF TSTRING259+inttostr(IMPSOFT_1u79r9u0u20ai)+ IMPSOFTSTRING260 +inttostr(IMPSOFT_4uvh15giv495*28)+IMPSOFTSTRING26 1);
IMPSOFT_1uty0w6z3lu52(IMPSOFT_1af7bq3o1y4hr,IMPSOF T_wrzr503pu2l2) IMPSOFT_1240j40k3u5ok;
IMPSOFT_ahjv6k28vaz7;
IMPSOFT_1icswgftj8wkz;
makecompass(IMPSOFTSTRING262);
IMPSOFT_bqewj1b2b80g;
IMPSOFT_4uvh15giv495 := IMPSOFT_4uvh15giv495 + 1;
IMPSOFT_d7hgnv5yxqet;
makecompass(IMPSOFTSTRING263);
until(IMPSOFT_4uvh15giv495 >= IMPSOFT_1u79r9u0u20ai);
writeln(IMPSOFTSTRING264);
IMPSOFT_172vehondoqap;
wait(467 + random(254));
IMPSOFT_172vehondoqap wait(876 + random(454));
logout;
terminatescript;
end.

sliapas
03-03-2013, 08:03 AM
dont like so much code.

sliapas
03-03-2013, 08:08 AM
Hi there,

Gave this a try and its fairly effective, although its not very efficient. Whilst the script works fluidly and I didn't encounter any errors the flax picking itself was unnatural and inefficient. My character ran around erratically and often would click as it was moving, forcing it to run somewhere as opposed to picking flax. It also picked flax at a distance - It would be better if it picked flax nearby to your character. (March 1st 9:22AM GMT update: Looks like maybe I had something wrong, it does click close, but often 'misses' the flax)

Great work though, I'm looking through the code as I intend to create a full fledged flax script as my first script - Thank you.

Okay - been playing around and this seems to work more efficiently:



program Picker;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
const
default = 'Times new roman';
FONT = 9;
Version = '0.1';
//Author = uaexed;
var
x, y: integer;

procedure PickFlax;
begin
x:=276;
y:=164;
repeat
if FindColorSpiralTolerance(x,y,15065750,0,0,518,338, 30) Then begin
MMouse(x,y,0,0);
wait(50+random(50));
HoldMouse(x, y, 1);
wait(30+random(20));
ReleaseMouse(x,y,1);
wait(50+random(40));
wait(400+random(200));
end;
until(P07_InvFull);
end;
begin
SetupP07Include;
ActivateClient;
PickFlax;
end.


Hope you don't mind! :) Will revisit and improve this tomorrow eve probably, its late and I have work tomorrow.

you just changed from good to shit..

your edited is never ending loop.

Snaskiit
03-03-2013, 10:43 AM
When I start the script it's just clicking on the main menu button, can someone help me please ? :)

G4MB1N0
03-03-2013, 03:11 PM
Add DTM and it would be perfect!

uaexed
03-03-2013, 07:18 PM
When I start the script it's just clicking on the main menu button, can someone help me please ? :)

Have you set it up correctly? You should stand in the flax area with your inventory visible.

uaexed
03-03-2013, 07:27 PM
Add DTM and it would be perfect!

Will do when I got time for it.

Snaskiit
03-03-2013, 08:47 PM
Yeah, I've done all right..

Sh4d0wf0x
03-04-2013, 12:38 AM
Please make it bank :p

iyox
03-04-2013, 03:21 AM
Please make it bank :p

i approve of this

Poojar102
03-06-2013, 11:19 AM
Great Script, Would be even better if you added banking :D

Millenium
03-07-2013, 03:55 PM
Look good, I'm gunna give it a go. Might add a bank path too it aswell :P :)

constantino
03-07-2013, 10:11 PM
why is mine clicking the top right hand corner only?

Cabbageman
03-09-2013, 04:07 AM
It randomly misses the bank

dylanmaster1
03-09-2013, 04:12 AM
Great first script, debugged it fixed the Dtm's, colour, mouse x,y's, the randoms for BankDtm, added a proggie, added my own anti-random and it works

tuleynal
03-30-2013, 09:28 PM
Great first script, debugged it fixed the Dtm's, colour, mouse x,y's, the randoms for BankDtm, added a proggie, added my own anti-random and it works

Would you mind sending me your edited version ?

and thank you OP :D

phongboy
04-04-2013, 07:31 PM
me too plz

profile1121
04-05-2013, 09:10 PM
can you please send me edited version ?

leeds4eva
06-22-2013, 08:40 AM
first and foremost. i do not want to sound harsh, BECAUSE ITS A GOOD FIRST ATTEMPT.but for this script to even have half or chance at success it need to walk and bank. also is it just me or does it 1.) not load a client i.e smart.
all is says is successful exucuted and the found flax but no client and i'm not even logged in pal.

Ashaman88
11-27-2013, 09:16 PM
P07include outdated. Please use official one - shoot me a PM when/if this is updated.