PDA

View Full Version : Ancient History



Freddy1990
11-11-2008, 01:32 PM
Found this while I was strolling trough my files:
http://freddy1990.com/pictures/my%20post1.PNG
http://freddy1990.com/pictures/scar%20scripters%20cup.bmp

(Completely unrelated, just for a good laugh:)
http://freddy1990.com/pictures/pong.png

1337w33d
11-11-2008, 08:54 PM
Wow that is a long time ago, waay before I knew about SRL :p I was still kick'n it old school hand-doing everything T_T

noidea
11-11-2008, 09:06 PM
Wow how long ago was that, and at what forum?

Freddy1990
11-12-2008, 02:37 PM
Wow how long ago was that, and at what forum?

Kaitnieks.com

Freddy1990's feather buyer returns - 06-20-2005, 02:35 PM


This made me lol:
// 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:
{.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' +
'7337246080243EB024C425F8DD864BD60D031820014C35B8C CA44' +
'49C18923CDF21FB851857191011D7A48AD3DA77F4F1C5A8EF 06BF' +
'EF70E568DAF90E57BE0600DA9D347D');
end;

procedure LoadDtms;
begin;
DT1 := DTMFromString('78DA63E465606050654001D1A1A10C46409 A1' +
'188FF0301A30090618BAAE6C99327609A11CA07AB1125A046 81B0' +
'1A00348A0E19');
DT2 := DTMFromString('78DA63B463606060654001B179320C46409 A1' +
'188FF030123488D0CAA9A274F9E806946289FD10A48F0A0AA 9196' +
'604055A308244CF09B0300C56D0BE1');
DT3 := DTMFromString('78DA63E463606030624001D1A1A16021462 0F' +
'E0F048CE2986A9E3C7902A619A17CB01A55026A84818423AA 9A77' +
'EFDEA1AAB10612EAA86A2C2D2D51D4000065ED0F86');
DT4 := DTMFromString('78DA6364676060F0674001D1A1A10C46409 A1' +
'188FF0301A310901183AA8631891142C3F82240C21055CD93 274F' +
'50D58400095D22D4C4E0570300A2800FE0');
DT5 := DTMFromString('78DA63E463606008664001D1A1A10C46409 A1' +
'188FF0301A31490918AAA46D80E423342F98C6A40220B558D B404' +
'9A9A28209184AA86318911558D3A90904755F3E4C91314350 07F7' +
'70B44');
DT6 := DTMFromString('78DA6354656060A8664001D1A1A10C46409 A1' +
'188FF0301A302909188AA86D1144AC3F8F640A21B55CD9327 4F50' +
'D5F80189745435D21268E6F800094154359ED28C286A0063A 30BB' +
'5');
DT7 := DTMFromString('78DA636C65606030644001D1A1A1609A11C A6' +
'78C05125EA86A9E3C7982AAA60448B81150D306243C50D52C 5F79' +
'1E450D0007FE0B6A');
DT8 := DTMFromString('78DA63AC666060D0624001D1A1A1609A11C A6' +
'78C0612C9A86AA4DDAFA3AA310112EAA86A84ED1850D54402 0931' +
'5435EFDEBD43510300F4F2078F');
DT9 := DTMFromString('78DA63EC66606008614001D1A1A1609A11C A6' +
'7CC021236A86ADEBD7B87AAA609485810501309248A50D508 DB31' +
'A0A8010012A209FD');
D10 := DTMFromString('78DA636C63606008604001D1A1A1609A11C A6' +
'78C0012A9A86A188D1851D5A40309735435EFDEBD4355E308 24CC' +
'50D568C90BA1AA910712B1A86A84ED1850D40000369307DE' );
D11 := DTMFromString('78DA634C656060A8634001E1E9920C46409 A1' +
'188FF0301630090118FAA2606A88601AA064CBB0009135435 EFDE' +
'BD4355530124DC51D5585A5AA2A801001BAE0C28');
D12 := DTMFromString('78DA63D4616060B0644001D1A1A10C46409 A1' +
'188FF03012313906180AAE6C99327609A11CA670469604155 232D' +
'C180AAC60E48C8E0370700D1810BEE');
D13 := DTMFromString('78DA63F465606008624001D1A1A1609A11C A6' +
'7B40312A6A86A9E3C7982A94686801A262061805F0D00BEA9 0AB0' +
'');
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.

noidea
11-16-2008, 02:32 AM
Ugh! Your standards were terrible lol!

Dan Cardin
11-16-2008, 02:53 AM
lovin the featherbuyer banner thing ;)

and ewww! noideas right they were (or are?) quite horrible! :p

Freddy1990
11-18-2008, 05:39 PM
lovin the featherbuyer banner thing ;)

and ewww! noideas right they were (or are?) quite horrible! :p

Yea, lol, I kinda threw up a bit in the back of my throat when I opened those files :p I especially "like" the check procedure in the eye of newt buyer :p