Found this while I was strolling trough my files:
(Completely unrelated, just for a good laugh
![]()
Wow that is a long time ago, waay before I knew about SRLI was still kick'n it old school hand-doing everything T_T
Time is just an illusion, we are all dying from the disease of age.
When in doubt, please go here.
Wow how long ago was that, and at what forum?
Originally Posted by irc
Kaitnieks.com
Freddy1990's feather buyer returns - 06-20-2005, 02:35 PM
This made me lol:
SCAR Code:// Freddy1990's Big Net dropper v2.5 //
program bignetdropper;
{.include osi.txt}
{v1.0 - First release}
{v2.0 - Fixed some bugs with boots, gloves and oyster(removed)}
{v2.5 - Auto V-Bright, Auto silent mouse off}
/// SETUP ///
const
rawbass=true; // Drop raw bass? True=yes False=no //
rawmackerel=true; // Drop raw mackerel? True=yes False=no //
emptyoyster=true; // Drop empty oyster? True=yes False=no //
oysterpearl=true; // Drop oyster pearl? True=yes False=no //
rawcod=true; // Drop raw cod? True=yes False=no //
leatherboots=true; // Drop leather boots? True=yes False=no //
seaweed=true; // Drop seaweed? True=yes False=no //
burntfish=true; // Drop burnt fish? True=yes False=no //
leathergloves=true; // Drop leather gloves? True=yes False=no //
/////////////
procedure Vbright;
begin;
MoveMouseSmooth(674+random(21),466+random(30));
wait(100+random(100));
Clickmouse(674+random(21),466+random(30),true);
wait(500+random(200));
MoveMouseSmooth(697+random(38),251+random(24));
wait(100+random(100));
Clickmouse(697+random(38),251+random(24),true);
end;
begin
SetMouseMode(false);
Loadchars('');
Vbright;
Openbag;
if(leatherboots=true)then
begin;
DropColorTol(2699850,5);
end;
if(leathergloves=true)then
begin;
DropColorTol(1065799,5);
end;
if(seaweed=true)then
begin;
AutoDrop('Use Seaweed');
end;
if(emptyoyster=true)then
begin;
Autodrop('Use Empty oyster');
end;
if(rawmackerel=true)then
begin;
AutoDrop('Use Raw mackerel');
end;
if(rawbass=true)then
begin;
AutoDrop('Use Raw bass');
end;
if(rawcod=true)then
begin;
AutoDrop('Use Raw cod');
end;
if(burntfish=true)then
begin;
AutoDrop('Use Burnt fish');
end;
if(oysterpearl=true)then
begin;
AutoDrop('Use Oyster pearl');
end;
end.
Lol, my only ScarScape script ever:
SCAR Code:{.Script Info:
# ScriptName = Freddy1990's Eye of Newt Buyer
# Author = Freddy1990
# Description = Eye of Next buyer with banking function
# Version = v1.00
# Date = 19th Septembre 2005
# Comments = Enjoy the script =)
/Script Info}
//////////////////////////////////////////////////////////////
//// Freddy1990's Eye of Newt Buyer v1.00 ////
//////////////////////////////////////////////////////////////
//// ////
//// - Script only uses Scarscape ////
//// - Have you money in the second bank slot ////
//// - No setup needed ////
//// - Start in Draynor bank ////
//// ////
//////////////////////////////////////////////////////////////
//// This script can not be edited or be used for other ////
//// scripts. This script can also not be redistributed. ////
//////////////////////////////////////////////////////////////
program EyeOfNewtBuyer;
{.include squig.txt}
var DT1, DT2, DT3, DT4, DT5, DT6, DT7, DT8, DT9, D10, D11, D12, D13, buy10,
bought : integer;
ST : longint;
procedure LoadBmps;
begin;
buy10 := BitmapFromString(37, 6, 'z78DA333000015317531313' +
'7337246080243EB024C425F8DD864BD60D031820014C35B8CCA44' +
'49C18923CDF21FB851857191011D7A48AD3DA77F4F1C5A8EF06BF' +
'EF70E568DAF90E57BE0600DA9D347D');
end;
procedure LoadDtms;
begin;
DT1 := DTMFromString('78DA63E465606050654001D1A1A10C46409A1' +
'188FF0301A30090618BAAE6C99327609A11CA07AB1125A04681B0' +
'1A00348A0E19');
DT2 := DTMFromString('78DA63B463606060654001B179320C46409A1' +
'188FF030123488D0CAA9A274F9E806946289FD10A48F0A0AA9196' +
'604055A308244CF09B0300C56D0BE1');
DT3 := DTMFromString('78DA63E463606030624001D1A1A160214620F' +
'E0F048CE2986A9E3C7902A619A17CB01A55026A84818423AA9A77' +
'EFDEA1AAB10612EAA86A2C2D2D51D4000065ED0F86');
DT4 := DTMFromString('78DA6364676060F0674001D1A1A10C46409A1' +
'188FF0301A310901183AA8631891142C3F82240C21055CD93274F' +
'50D58400095D22D4C4E0570300A2800FE0');
DT5 := DTMFromString('78DA63E463606008664001D1A1A10C46409A1' +
'188FF0301A31490918AAA46D80E423342F98C6A40220B558DB404' +
'9A9A28209184AA86318911558D3A90904755F3E4C9131435007F7' +
'70B44');
DT6 := DTMFromString('78DA6354656060A8664001D1A1A10C46409A1' +
'188FF0301A302909188AA86D1144AC3F8F640A21B55CD93274F50' +
'D5F80189745435D21268E6F800094154359ED28C286A0063A30BB' +
'5');
DT7 := DTMFromString('78DA636C65606030644001D1A1A1609A11CA6' +
'78C05125EA86A9E3C7982AAA60448B81150D306243C50D52C5F79' +
'1E450D0007FE0B6A');
DT8 := DTMFromString('78DA63AC666060D0624001D1A1A1609A11CA6' +
'78C0612C9A86AA4DDAFA3AA310112EAA86A84ED1850D544020931' +
'5435EFDEBD43510300F4F2078F');
DT9 := DTMFromString('78DA63EC66606008614001D1A1A1609A11CA6' +
'7CC021236A86ADEBD7B87AAA609485810501309248A50D508DB31' +
'A0A8010012A209FD');
D10 := DTMFromString('78DA636C63606008604001D1A1A1609A11CA6' +
'78C0012A9A86A188D1851D5A40309735435EFDEBD4355E30824CC' +
'50D568C90BA1AA910712B1A86A84ED1850D40000369307DE');
D11 := DTMFromString('78DA634C656060A8634001E1E9920C46409A1' +
'188FF0301630090118FAA2606A88601AA064CBB0009135435EFDE' +
'BD4355530124DC51D5585A5AA2A801001BAE0C28');
D12 := DTMFromString('78DA63D4616060B0644001D1A1A10C46409A1' +
'188FF03012313906180AAE6C99327609A11CA670469604155232D' +
'C180AAC60E48C8E0370700D1810BEE');
D13 := DTMFromString('78DA63F465606008624001D1A1A1609A11CA6' +
'7B40312A6A86A9E3C7982A94686801A262061805F0D00BEA90AB0' +
'');
end;
procedure Report;
var
RHours, Minutes, Seconds, RMinutes, RSeconds : LongInt;
Time:String;
begin;
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin;
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin;
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds.';
end;
begin;
writeln(' ');
writeln(' ________________________________________________');
writeln(' -- Freddy1990''s Eye of Newt Buyer --');
writeln(' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯');
writeln(' Worked for '+Time);
writeln(' You have bought ' + inttostr(bought) + ' Eyes of Newt.');
writeln(' ________________________________________________');
end;
end;
procedure Randoms;
begin;
Status('Searching for randoms')
FindRandoms;
LookForMime;
CheckForPlant;
FindMaze;
end;
procedure Bank;
begin;
OpenBank;
DepositAll;
Withdraw(1,1,84);
CloseBank;
end;
procedure BankToShop;
var xx,yy:integer;
begin;
Randoms;
SetRunOn;
Status('Walking to MagicShop 0/7');
If FindDTM(DT1,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to MagicShop 1/7');
Wait(12500+random(2500));
If FindDTM(DT2,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Randoms;
Status('Walking to MagicShop 2/7');
Wait(12500+random(2500));
If FindDTM(DT3,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to MagicShop 3/7');
Wait(12500+random(2500));
If FindDTM(DT4,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Randoms;
Status('Walking to MagicShop 4/7');
Wait(12500+random(2500));
If FindDTM(DT5,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to MagicShop 5/7');
Wait(12500+random(2500));
If FindDTM(DT6,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Randoms;
Status('Walking to MagicShop 6/7');
Wait(12500+random(2500));
If FindColorSpiral(xx,yy,99552,558,0,735,164) or FindColorSpiral(xx,yy,197597,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to MagicShop 7/7');
Wait(12500+random(2500));
end;
procedure ShopToBank;
var xx,yy:integer;
begin;
Randoms;
SetRunOn;
Status('Walking to Bank 0/8');
If FindDTM(DT7,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to Bank 1/8');
Wait(12500+random(2500));
If FindDTM(DT8,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Randoms;
Status('Walking to Bank 2/8');
Wait(12500+random(2500));
If FindDTM(DT9,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to Bank 3/8');
Wait(12500+random(2500));
If FindDTM(D10,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Randoms;
Status('Walking to Bank 4/8');
Wait(12500+random(2500));
If FindDTM(D11,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to Bank 5/8');
Wait(12500+random(2500));
If FindDTM(D12,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Randoms;
Status('Walking to Bank 6/8');
Wait(12500+random(2500));
If FindDTM(D13,xx,yy,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Status('Walking to Bank 7/8');
Wait(12500+random(2500));
If FindColorSpiral(xx,yy,3060683,558,0,735,164) then
begin;
MouseC(xx,yy,1);
end;
Randoms;
Status('Walking to Bank 8/8');
Wait(12500+random(2500));
end;
procedure Check;
begin;
if getcolor(582, 226) = 12656409 then bought:=bought+1
if getcolor(624, 225) = 12459801 then bought:=bought+1
if getcolor(667, 225) = 11934742 then bought:=bought+1
if getcolor(708, 225) = 12459801 then bought:=bought+1
if getcolor(582, 262) = 12656409 then bought:=bought+1
if getcolor(625, 261) = 11934742 then bought:=bought+1
if getcolor(582, 298) = 12656409 then bought:=bought+1
if getcolor(708, 262) = 12656409 then bought:=bought+1
if getcolor(582, 298) = 12656409 then bought:=bought+1
if getcolor(623, 298) = 13181209 then bought:=bought+1
if getcolor(666, 298) = 12656409 then bought:=bought+1
if getcolor(708, 297) = 12459801 then bought:=bought+1
if getcolor(582, 333) = 12459801 then bought:=bought+1
if getcolor(624, 333) = 12459801 then bought:=bought+1
if getcolor(667, 333) = 11934742 then bought:=bought+1
if getcolor(708, 333) = 12459801 then bought:=bought+1
if getcolor(582, 370) = 12656409 then bought:=bought+1
if getcolor(624, 369) = 12459801 then bought:=bought+1
if getcolor(667, 369) = 11934742 then bought:=bought+1
if getcolor(708, 370) = 12656409 then bought:=bought+1
if getcolor(582, 406) = 12656409 then bought:=bought+1
if getcolor(624, 406) = 12656409 then bought:=bought+1
if getcolor(665, 406) = 13181209 then bought:=bought+1
if getcolor(708, 406) = 12656409 then bought:=bought+1
if getcolor(581, 442) = 13181209 then bought:=bought+1
if getcolor(624, 442) = 12656409 then bought:=bought+1
if getcolor(666, 442) = 12656409 then bought:=bought+1
if getcolor(708, 442) = 12656409 then bought:=bought+1
end;
procedure Shop;
var counter,xx,yy:integer;
begin;
Randoms;
Status('Finding Betty');
TradeNpc('Betty',1184278);
Wait(2000+random(1000));
Status('Buying Eyes of Newt');
MouseC(83+random(15),120+random(15),2);
Wait(500+random(500));
counter:=0
repeat
counter:= counter+1
MouseC(86+random(12),123+random(12),2);
Wait(500+random(500));
if FindBitmapSpiral(buy10,xx,yy,0,0,765,500) then
begin;
MouseC(xx,yy,1);
end;
until counter = 3
Wait(1000+random(500));
MouseC(425+random(50),39+random(4),1);
Wait(1000+random(500));
end;
begin
SetupSquig;
ClearDebug;
ST:=GetSystemTime;
LoadDtms;
LoadBmps;
repeat
Bank;
BankToShop;
Shop;
Check;
ShopToBank;
Report;
until false
end.
Ugh! Your standards were terrible lol!
Originally Posted by irc
lovin the featherbuyer banner thing
and ewww! noideas right they were (or are?) quite horrible!![]()
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
There are currently 1 users browsing this thread. (0 members and 1 guests)