Metagen
2007-10-31 20:51:08
2007-10-31 20:51:08
2007-10-31 20:53:17
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 7:15:10 ||
|| ||
||-- Victim: xxxxxxxxxx ||
||-- Starting Strength XP: 10449608 ||
||-- 84044 XP Later: 10533652 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 84044 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 5:33:38 ||
|| ||
||-- Victim: xxxxxxxxx ||
||-- Starting Strength XP: 10534352 ||
||-- 126812 XP Later: 10661164 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 126812 ||
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 5:16:13 ||
|| ||
||-- Victim: xxxxxxxxxxx ||
||-- Starting Ranged XP: 694079 ||
||-- 94396 XP Later: 788475 ||
||-- Ranged Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 94396 ||
||-- XP to Time Ratio: 0 / Min ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 2:16:50 ||
|| ||
||-- Victim: xxxxxxxxxxx ||
||-- Starting Ranged XP: 473711 ||
||-- 37032 XP Later: 510743 ||
||-- Ranged Levels Made: 1 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 4:1:25 ||
|| ||
||-- Victim: xxxxxxxxxxxxxx ||
||-- Starting Ranged XP: 524000 ||
||-- 38000 XP Later: 562000 ||
||-- Ranged Levels Made: 1 ||
|| ||
||-- Victim: xxxxxxxxxxx ||
||-- Starting Strength XP: 326000 ||
||-- 30000 XP Later: 355000 ||
||-- Strength Levels Made: 1 ||
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 3:7:34 ||
|| ||
||-- Victim: thingsyouwontknow ||
||-- Starting Ranged XP: 626263 ||
||-- 46260 XP Later: 672523 ||
||-- Ranged Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 46260 ||
||-- XP to Time Ratio: 0 / Min ||
<<------------------------------------------------>>
HAXOR''s PROGGES!!
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 0:25:52 ||
|| ||
||-- Victim: ||
||-- Starting Defence XP: 1009804 ||
||-- 1704 XP Later: 1011508 ||
||-- Defence Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 1704 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 9:40:36 ||
|| ||
||-- Victim: ||
||-- Starting Defence XP: 1028363 ||
||-- 176500 XP Later: 1204863 ||
||-- Defence Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 176500 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 1:19:12 ||
|| ||
||-- Victim: ||
||-- Starting Defence XP: 1216983 ||
||-- 24604 XP Later: 1241587 ||
||-- Defence Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 24604 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 10:28:18 ||
|| ||
||-- Victim: ||
||-- Starting Attack XP: 1684810 ||
||-- 170252 XP Later: 1855062 ||
||-- Attack Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 170252 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 7:12:29 ||
|| ||
||-- Victim: ||
||-- Starting Attack XP: 1855666 ||
||-- 152384 XP Later: 2008050 ||
||-- Attack Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 152384 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 4:45:53 ||
|| ||
||-- Victim: ||
||-- Starting Defence XP: 1241587 ||
||-- 101284 XP Later: 1342871 ||
||-- Defence Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 101284 ||
<<------------------------------------------------>>
2007-11-02 17:40:48
2007-11-02 22:13:41
2007-11-03 08:19:01
2007-11-03 18:15:31
2007-11-03 22:32:10
2007-11-04 06:18:03
2007-11-04 07:13:50
2007-11-04 09:44:28
2007-11-04 10:37:46
2007-11-04 10:44:26
2007-11-04 13:44:50
2007-11-05 09:49:11
2007-11-08 13:46:30
2007-11-11 18:56:56
2007-11-11 18:59:50
2007-11-11 19:34:30
2007-11-15 00:56:16
2007-11-15 16:50:01
2007-11-18 02:46:25
From: metagen
@sweetleaf - no
@cpez whatever just dont steal anything from me
2007-11-21 22:39:16
2007-11-24 16:12:15
2007-11-25 19:51:30
2007-12-16 20:51:49
2007-12-21 16:13:29
2007-12-23 23:06:46
2007-12-27 21:11:58
2007-12-27 21:59:01
2007-12-31 11:37:20
2008-01-08 16:47:07
2008-07-14 00:31:09
2008-07-14 01:05:09
2008-07-14 01:07:31
procedure Proggyftw;
var xp1, lvl, Hrsz, Minz, Secz : Integer;
begin
xp1 := GetXP(Players[CurrentPlayer].Strings[0]);
lvl := ConvertXpToLvl(xp1);
ConvertTime(Timefrommark(BigMark), Hrsz, Minz, Secz);
writeln('<<-----------Air Crafter Proggy Report----------->> <- metagen was here');
writeln(' \\--');
writeln(' \\-- Running For: '+ inttostr(Hrsz) + ':' + inttostr(Minz) + ':' +inttostr(Secz));
For i:= 0 to (GetArrayLength(Players) -1) do
begin
Writeln(' \\------------ Victim: ' + Players[CurrentPlayer].Name);
writeln(' \\-- Starting '+ Players[CurrentPlayer].Strings[0] + ' XP: ' + inttostr(Players[CurrentPlayer].Integers[3]));
writeln(' \\-- ' + inttostr(xp1 - Players[CurrentPlayer].Integers[3]) + ' XP Later: ' + inttostr(xp1));
Writeln(' \\-- ' + Players[CurrentPlayer].Strings[0] +' Levels Made: ' + inttostr(lvl - Players[CurrentPlayer].Integers[4]));
end;
writeln('<<-----------your proggies always suck----------->>');
writeln('<------------why do you bother macroing----------->');
end;2008-07-14 06:49:10
2008-07-14 09:29:07
Originally posted by igotgrapes
I have SCAR downloaded, and i've never had a problem updating SRL. Now when I try to update to rev 18 nothing happens with my SCAR. any ideas?
<<-----------Air Crafter Proggy Report----------->> <- metagen was here
\\--
\\-- Running For: 2:1:*
\\------------ Victim: ******
\\-- Starting Ranged XP: 26****
\\-- 30**** XP Later: 29****
\\-- Ranged Levels Made: 1
<<-----------your proggies always suck----------->>
<------------why do you bother macroing----------->
<<-----------Fleshy Carnage Report ----------->> <- metagen was here
||-- ||
||-- Running For: 0:6:15 ||
|| ||
||-- Victim: Name ||
||-- Starting Ranged XP: X ||
||-- X XP Later: X ||
||-- Ranged Levels Made: X ||
<<-----------your proggies always suck----------->>
<------------why do you bother macroing----------->
2008-07-14 11:24:24
2008-07-14 16:52:36
2008-07-15 04:27:47
2008-07-15 12:11:38
From: Metagen
no problem. its not the only thing that is going to be banned.
2008-07-15 15:41:10
2008-07-16 09:05:24
2008-07-16 10:15:54
From: codx1
Ive got a problem with this script…
for some reason it doesnt start, is it compatible with rev 19 and latest smart?
2008-07-17 12:41:44
2008-07-18 08:36:31
2008-07-18 09:21:20
2008-07-18 09:35:19
2008-07-22 06:52:03
2008-07-22 07:01:20
2008-07-22 10:07:07
2008-07-22 11:40:24
2008-07-22 11:42:52
2008-07-22 11:43:14
From: Faitness
I have 1 question… What hapens if I run out of food? Die? :D Asking because I'm tryng to get all stats 1 pure with 99 ranged.
2008-07-22 11:50:17
2008-07-22 12:13:53
2008-07-22 12:41:02
2008-07-22 12:47:06
2008-07-22 12:57:21
2008-07-22 21:26:54
2008-07-22 21:52:37
2008-07-22 22:00:47
From: Metagen
w/ full rune id expect you hit 6 hours maybe :p good luck. Also everyone there above lvl 80 afk trains, so you wont get reported anyways.
edit: also i dont know the limits of this script, so try not to push 15 hours a day :p
2008-07-22 22:03:07
2008-07-22 22:38:21
2008-07-22 22:40:38
2008-07-22 23:06:55
// Metagen's Fleshy Pounder.
// This script uses SCAR Divi 3.15+ and SRL Rev #20+
// 1. Move your army to the second level of the stronghold of security, the most
// south-eastern room. Set ur guys in the south-west corner of the room.
// 2. Set the settings to hightest brightness
// 3. Setup the script (I recommend using salmon or better and setting
// the eat hp to its maximum without overeating.)
// 4. Set the client window.
// 5. Click the shiney green arrow
// Note you can use ranged as well, but its a waste of time to pick up arrows ;)
program New;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/misc/findxp.scar}
Type
MSItem = record
Color : integer;
Text : String;
Active : Boolean;
end;
Type
TextPoint = record
x, y : integer;
Text : String;
end;
var
x, y, i, misscount, xpcount, mark, BigMark, AwakeTime, TimeTillSleep : integer;
Items : Array of MSItem;
const
DoorX = 238; //no touchy
DoorY = 157; //no touchy
text = 'ickety door'; //no touchy
SleepEvery = 12; //no touchy
///////////////// SETUP BEGINS /////////////////////////
YourSRLID = ''; // Insert your SRL Stats ID here (It is different than your Forum's username!)
YourSRLPassword = ''; // SRL Stats password here.
Pickup = True; //Pickup Items?
procedure DeclareItems;
begin
SetLength(Items, 2); //Number of Items
{Body Runes}
Items[0].Color := 13639705; //Color of Item
Items[0].Text := 'une'; //Text from Item
Items[0].Active := True; //Pickup this Item?
{Arrows}
Items[1].Color := 857707;
Items[1].Text := 'rrow';
Items[1].Active := False;
{ Nature Runes }
Items[2].Color := 1477650;
Items[2].Text :='une';
Items[2].Active := True;
{Fire Runes}
Items[3].Color := 1385641;
Items[3].Text := 'une';
Items[3].Active := True;
{Rarnarrs}
Items[4].Color := 877888;
Items[4].Text :='anarr';
Items[4].Active := True;
end;
procedure DeclarePlayers;
Begin
HowManyPlayers := 2; //Set how many players you wish to move
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Set which player you want to move first
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 letters of your name
Players[0].Active := True;
Players[0].Integers[0] := 1400240; //Food Color: 1400240 is lobster:
// dont have anything else that color in your inventory.
Players[0].Integers[1] := 70; //%HP to eat at
Players[0].Integers[2] := 2; //Fight Mode 1 - 4 Like you are reading a page
Players[0].Strings[0] := 'Ranged'; //Which Skill to proggy
Players[1].Name := ''; //Username
Players[1].Pass := ''; //Password
Players[1].Nick := ''; //3-4 letters of your name
Players[1].Active := True;
Players[1].Integers[0] := 1400240; //Food Color
Players[1].Integers[1] := 70; //%HP to eat at
Players[1].Integers[2] := 2; //Fight Mode 1 - 4
Players[1].Strings[0] := 'Strength';
end;
{/SETUP}
/////////////////// SETUP ENDS ////////////////////
procedure perfectnorth;
begin
makecompass('N')
setangle(true);
end;
procedure randoms;
begin
findNonInventoryRandoms;
end;
procedure twitch;
begin
RandomMovement;
end;
Function GetDoorMenu : integer;
begin
if FindNPCChatText('To pass', nothing) then
begin result := 1; end
else if FindNPCChatText('Select an Option', nothing) then
begin result := 2; end
else if FindNPCChatText('Rickety Door', nothing) then
begin result := 3; end
else
begin result := 0; end;
end;
function IntStrToTextPoint(x, y: integer; Text : String) : TextPoint;
begin
Result.x := x;
Result.y := y;
Result.Text := Text;
end;
function Pickanswer : boolean; //Efficiency == Joy.
var TxtPA : Array of TextPoint;
i : integer;
begin
if not loggedin then exit;
FindNormalRandoms;
MMouse(msx2/2, msy2/2, 100, 100);
wait(random(1000));
SetLength(TxtPA, 20);
TxtPA[0] := IntStrToTextPoint(252, 435, 'mo');
TxtPA[1] := IntStrToTextPoint(246, 412, 'er');
TxtPA[2] := IntStrToTextPoint(238, 389, 'sw');
TxtPA[2] := IntStrToTextPoint(219, 389, 'rm');
TxtPA[3] := IntStrToTextPoint(218, 412, 'ne');
TxtPA[4] := IntStrToTextPoint(247, 435, 'ob');
TxtPA[5] := IntStrToTextPoint(246, 412, 'er');
TxtPA[6] := IntStrToTextPoint(230, 396, 'ba');
TxtPA[7] := IntStrToTextPoint(241, 435, 'ow');
TxtPA[8] := IntStrToTextPoint(146, 435, 'en');
TxtPA[9] := IntStrToTextPoint(278, 435, 'ct');
TxtPA[10] := IntStrToTextPoint(248, 412, 'No');
TxtPA[11] := IntStrToTextPoint(275, 389, 'my');
TxtPA[12] := IntStrToTextPoint(256, 435, ' R');
TxtPA[13] := IntStrToTextPoint(244, 412, 'im');
TxtPA[14] := IntStrToTextPoint(255, 435, 'cl');
TxtPA[15] := IntStrToTextPoint(243, 435, 'or');
TxtPA[16] := IntStrToTextPoint(257, 412, 'le');
TxtPA[17] := IntStrToTextPoint(248, 426, 'No');
TxtPA[18] := IntStrToTextPoint(257, 412, 'le');
TxtPA[19] := IntStrToTextPoint(257, 412, 'le');
Result := False;
for i := 0 to High(TxtPA) do
begin
if IsTextAtEx(TxtPA[i].x, TxtPA[i].y, TxtPA[i].Text, 0, NPCChars, false, false, 0, 0, 0) then
begin
Mouse(TxtPA[i].x+random(10), TxtPA[i].y+random(10), 0, 0, True);
Result := True;
i := 99;
end;
end;
wait(1000);
if GetDoorMenu = 3 then
begin
result := true;
end else
begin
result := false;
end;
inc(ReportVars[2]);
SrlRandomsReport;
end;
{*******************************************************************************
procedure BoredHuman;
By: WT-Fakawi, small edit by Hy71194
Description: Perform2 5-15 times:
* Rotates the cam,
* Moves the mouse around MainScreen,
* If it finds IsUpText('option'), it will Chooseoption('Examine');
*******************************************************************************}
procedure BoredHuman2;
var
i, x, y: Integer;
Deg: Variant;
begin
Deg := rs_GetCompassAngleDegrees;
for i := 1 to (3 + Random(11)) do
begin
MMouse(Random(MSX2), Random(MSY2), 0, 0);
if IsUpText('opti') and (random(10) = 1) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('Examine');
end;
FindNonInventoryRandoms;
case Random(6) of
0: SendArrowSilentWait(((Random(2) * 2) + 1), 1000 + Random(200));
1: SendArrowSilentWait(((Random(2) * 2)), 1000 + Random(200));
2: SendArrowSilentWait(((Random(2) * 2) + 1), 200 + Random(200));
3: SendArrowSilentWait(((Random(2) * 2)), 200 + Random(200));
4: SendArrowSilentWait(((Random(2) * 2) + 1), 20 + Random(20));
5: SendArrowSilentWait(((Random(2) * 2)), 20 + Random(20));
end;
FindNonInventoryRandoms;
end;
if (Deg <> 0) then
MakeCompass(IntToStr(Round(Deg)))
else
MakeCompass('N');
SendArrowSilentWait(0, 750 + Random(500));
end;
Function FindDoors(var cx, cy : integer) : Boolean;
var
i : integer;
TPA, TPA2 : TPointArray;
T2PA : T2DPointArray;
begin
FindColorsSpiralTolerance(x,y, TPA2, 243, mmx1, mmy1, mmx2, mmy2, 0);
T2PA := TPAToATPA(TPA, 16);
x := MMX2;
if length(T2PA) > 0 then
begin
For i := 0 to Length(T2PA) do
begin
TPA[i] := MiddleTPA(T2PA[0]);
if TPA[i].y > y then
begin
x := TPA[i].x
y := TPA[i].y
end;
end;
result := true;
exit;
end;
result := false;
end;
Procedure ToDoors;
var x,y : integer;
begin
makecompass('N')
if not FindDoors(x, y) then
begin
Mouse(590,127,10,10, true);
if not flagpresent then Mouse(585,123,0,0, true);
end else
begin
Mouse(x,y,2,2,true);
end;
FindNormalRandoms;
fflag(0);
end;
procedure ClickMouseBox2(x, y, x2, y2: Integer; left : boolean);
begin
Mouse(x+random(x2-x), y+random(y2-y), 0, 0, left);
end;
function switchDir(direction: string): string;
begin
if direction = 'N' then result := 'S';
if direction = 'S' then result := 'N';
if direction = 'W' then result := 'E';
if direction = 'E' then result := 'W';
end;
procedure WalkDirection(direction :string; distance: integer);
begin
if not loggedin then exit;
if direction = 'N' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians)*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians)*distance), 0, 0, true);
if direction = 'S' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians+pi)*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians+pi)*distance), 0, 0, true);
if direction = 'W' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians+(3*pi/2))*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians+(3*pi/2))*distance), 0, 0, true);
if direction = 'E' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians+(pi/2))*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians+(pi/2))*distance), 0, 0, true);
FindNonInventoryRandoms;
fflag(3);
end;
procedure OpenDoors(direction : string);
var
cx, cy, i, mark : integer;
begin
if not loggedin then exit;
FindNonInventoryRandoms;
MakeCompass(direction);
setangle(false);
repeat
i := 1;
cx := 230+random(30)
cy := 140+random(30)
MMouse(cx, cy, 0, 0);
wait(100);
if isuptext ('ickety') then
begin
Mouse(cx, cy, 0, 0, true);
end else if isuptext('ttack') then
begin
Mouse(cx, cy, 0, 0, false);
if not chooseoption('ickety') then i := 0;
end else
begin
WalkDirection(direction, 20);
MakeCompass(direction);
setangle(false);
i := 0;
end;
{ if FindBlackChatMessage('each') then
begin
i := random(5);
case i of
1: TypeSend('ffs');
2: TypeSend('...');
3: TypeSend('wow');
4: TypeSend('stupid door');
5: TypeSend('omg');
end;
i := 0;
end; }
until i = 1
wait(123);
wait(2500);
WalkDirection(direction, 20);
Randoms;
FindInventoryRandoms;
MakeCompass(SwitchDir(direction));
MarkTime(Mark);
repeat
cx := 236+random(18)
cy := 150+random(22)
MMouse(cx, cy, 0, 0);
wait(200);
until isuptext('ickety') or isuptext('ttack') or (TimeFromMark(Mark) > 30000)
MarkTime(Mark);
repeat
if isuptext ('ickety') then
begin
Mouse(cx, cy, 0, 0, true);
end else
begin
Mouse(cx, cy, 0, 0, false);
chooseoption('ickety');
end;
wait(3000);
if GetDoorMenu = 1 then
begin
repeat
ClickMouseBox2(237, 448, 377, 454, true);
wait(1000);
until (GetDoorMenu = 2) or (not loggedin) or (TimeFromMark(Mark) > 30000)
end else
begin
exit;
end;
until PickAnswer
repeat
wait(100);
until (GetDoorMenu = 3) or (TimeFromMark(Mark) > 45000)
ClickMouseBox2(237, 448, 377, 454, true);
wait(2500);
if TimeFromMark(Mark) > 47500 then Logout;
end;
Procedure RadialHallBack;
var TPA : TPointArray;
i : Integer;
begin
MakeCompass('E');
i := 0;
repeat
i := i + 1;
if RadialWalkEx(TPA, MMCX, MMCY, 65536, 0, 0, 90, 60) then
begin
Mouse(TPA[0].x, TPA[0].y, 0, 0, true);
if FlagPresent then
begin
FindNonInventoryRandoms;
FFlag(3);
end else
begin
exit;
end;
end;
until (i > 5)
end;
procedure TraverseHall;
begin
if not loggedin then exit;
SetRun(True);
FindNonInventoryRandoms;
WalkDirection('W', 60);
WalkDirection('W', 60);
WalkDirection('W', 60);
RadialHallBack;
end;
procedure RoomMiddle;
var DTM, DTM2, i : Integer;
Clicked : boolean;
begin
i := 0;
makecompass('N');
DTM := DTMFromString('78DA63CC67626008654001FFFFFF67D061646' +
'06084B0FF337601D578A0AA51555262506680A80101C676A01A6F' +
'06AC00AEA618A8C69E809A58A09A08026A2A816AB2F1AB0100E35' +
'80C7E');
DTM2 := DTMFromString('78DA632C606260086040016FDF3230E830323' +
'00011C37F20606C07AA0964C00A18617417A639A2C2C20C72C86A' +
'40E6781130A713A8C60DD31C05643579403559D84D80ABA901AAC' +
'921A02607A8C694809A084C7FA1AB01009BB30DFB');
repeat
i := i + 1
if DTMRotated(dtm, x, y, mmx1, mmy1, mmx2, mmy2) then
begin
if Distance(x,y,mmcx,mmcy) > 8 then
begin
Mouse(x,y,0,0, True);
end;
Clicked := True;
end else if DTMRotated(dtm2, x, y, mmx1, mmy1, mmx2, mmy2) then
begin
if Distance(x,y,mmcx,mmcy) > 8 then
begin
Mouse(x,y,0,0, True);
end;
Clicked := True;
end else
begin
twitch;
end;
fflag(0);
until (not loggedin) or Clicked or (i > 5)
repeat
if i > 5 then logout;
until not flagpresent;
FreeDTM(DTM);
FreeDTM(DTM2);
end;
procedure EatCheck;
begin
if (HpPercent < Players[CurrentPlayer].Integers[1]) then
begin
writeln('eating');
gametab(4);
if findcolortolerance(x,y, Players[CurrentPlayer].Integers[0], 552, 209, 729, 460, 10) then
begin
Mouse(x, y, 0, 0, true);
misscount := 0;
end else
begin
misscount := misscount + 1;
end;
if misscount > 2 then
begin
Writeln('Logging out: Cannot find food');
perfectnorth;
mouse(593,119, 0, 0, true);
wait(2000);
mouse(593,119, 0, 0, true);
wait(3000);
logout;
exit;
end;
end;
end;
procedure RunHallway;
begin
ToDoors;
OpenDoors('W');
TraverseHall;
OpenDoors('E');
RoomMiddle;
end;
procedure FindColors(Color : Integer; var TPA : TPointArray; x1, y1, x2, y2 : Integer);
var ix, iy : Integer;
begin
for ix := x1 to x2 do
begin
for iy := y1 to y2 do
begin
if GetColor(ix, iy) = Color then
begin
SetLength(TPA, Length(TPA) + 1);
TPA[High(TPA)].x := ix
TPA[High(TPA)].y := iy
end;
end;
end;
end;
Function WhereFlag(var x,y : Integer) : boolean;
var TPA : TPointArray;
//i : Integer;
begin
FindColors(255, TPA, MMX1, MMY1, MMX2, MMY2);
Result := not (Length(TPA) = 0)
if Result then
begin
x := TPA[High(TPA)].x + 6
y := TPA[High(TPA)].y + 8
end else
begin
x := MMCX;
y := MMCY;
end;
end;
procedure PickUpItems;
var c, d : TPoint;
i, Mark : Integer;
begin
d.x := 0;
d.y := 0;
MarkTime(Mark);
repeat
for i := 0 to High(Items) do
begin
if Items[i].Active then
begin
if FindObjTPA(c.x, c.y, Items[i].Color, 25, 2, 5, 5, 3, [Items[i].Text, 'ake']) then
begin
Mouse(c.x, c.y, 0, 0, False);
wait(50);
ChooseOption(Items[i].Text);
i := 900;
end;
end;
end;
//whereFlag(c.x, c.y);
fflag(0);
//d.x := d.x + c.x - MMCX;
//d.y := d.y + c.y - MMCY;
until (i < 900) or (TimeFromMark(Mark) > 20000)
//if distance(d.x, d.y, mmcx, mmcy) > 5 then
//Mouse(MMCX + 5 + d.x, MMCY + d.y, 0, 0, true);
RoomMiddle;
end;
procedure AggressiveCheck;
begin
setangle(true);
if findfight then
begin
xpcount := 0;
end else
begin
xpcount := xpcount + 1;
end;
if xpcount > 1 then
begin
PlaySound('d:\windows\media\tada');
RunHallway;
wait(random(2000));
xpcount := 0;
end;
end;
procedure AntiBanForMe(WaitTime : Integer);
var MyMark : Integer;
begin
if not LoggedIn then Exit;
FindNonInventoryRandoms;
MarkTime(MyMark);
repeat
wait(random(1000) );
if not FindFight then
begin
case Random(40) of
1:HoverSkill('HitPoints', False);
3:PickUpMouse;
4:BoredHuman2;
5:RandomMovement;
6:HoverSkill('Strength', False);
7:HoverSkill('Ranged', False);
end;
end;
if random (10) = 1 then BoredHuman2;
until TimeFromMark(MyMark) > waittime
FindNonInventoryRandoms;
end;
procedure RandomTab;
begin
if random(15) = 1 then
begin
gametab(random(random(14))); //causes unevenness in tabs
if random(9) = 1 then
begin
AntiBanForMe(300+random(432));
gametab(random(random(14))); //causes unevenness in tabs
AntiBanForMe(random(500));
gametab(random(random(14))); //causes unevenness in tabs
end;
AntiBanForMe(3000);
end;
end;
procedure Proggyftw;
var xp1, lvl, Hrsz, Minz, Secz : Integer;
begin
xp1 := GetXP(Players[CurrentPlayer].Strings[0]);
lvl := ConvertXpToLvl(xp1);
if XP1 > 0 then
begin
Players[CurrentPlayer].Integers[5] := xp1;
Players[CurrentPlayer].Integers[6] := lvl;
end;
ConvertTime(Timefrommark(BigMark), Hrsz, Minz, Secz);
writeln('<<-----------Fleshy Carnage Report -------------->>');
writeln(Padr(' ||--', 49)+ '||');
writeln(Padr(' ||-- Running For: '+ inttostr(Hrsz) + ':' + inttostr(Minz) + ':' +inttostr(Secz), 49)+ '||');
For i:= 0 to (GetArrayLength(Players) -1) do
begin
Writeln(Padr(' ||', 49)+ '||')
Writeln(Padr(' ||-- Victim: ' + Players[i].Name, 49)+ '||');
writeln(Padr(' ||-- Starting '+ Players[i].Strings[0] + ' XP: ' + inttostr(Players[i].Integers[3]), 49)+ '||');
writeln(Padr(' ||-- ' + inttostr(Players[i].Integers[5] - Players[i].Integers[3]) + ' XP Later: ' + inttostr(Players[i].Integers[5]), 49)+ '||');
Writeln(Padr(' ||-- ' + Players[i].Strings[0] +' Levels Made: ' + inttostr(Players[i].Integers[6] - Players[i].Integers[4]), 49)+ '||');
end;
writeln('<<------------------------------------------------>>');
ReportVars[0] := Players[CurrentPlayer].Integers[2]- Players[CurrentPlayer].Integers[5];
ReportVars[1] := ConvertXpToLvl(Players[CurrentPlayer].Integers[3]) - Players[CurrentPlayer].Integers[6];
SrlRandomsReport;
end;
procedure NapCheck;
var Hrs, Mins, Secs : Integer;
begin
ConvertTime(TimeTillSleep - timefrommark(AwakeTime), Hrs, Mins, Secs);
writeln('Sleeping in: ' + + inttostr(Hrs) + ':' + inttostr(Mins) + ':' +inttostr(Secs));
Disguise('Sleeping in: ' + + inttostr(Hrs) + ':' + inttostr(Mins) + ':' +inttostr(Secs));
if TimeFromMark(AwakeTime) > TimeTillSleep then
begin
TimeTillSleep := SleepEvery*60000 + randomrange(-50000, 120000);
ToDoors;
wait(7000+random(3000));
Logout;
wait(30000 + random(60000));
LoginPlayer;
RoomMiddle;
MarkTime(AwakeTime);
end;
end;
procedure MainLoop;
var ProggyIn : Integer;
begin
repeat
i := random(6);
case I of
3: RandomTab;
end;
if Pickup and (random(6) = 1) then PickUpItems;
AggressiveCheck;
EatCheck;
NapCheck;
GameTab(4);
if FindBox then
begin
ToDoors;
FindNormalRandoms;
end;
RoomMiddle;
FindNonInventoryRandoms;
if ProggyIn < 1 then
begin
ProggyFTW;
ProggyIn := 5+random(4);
end;
if random(12) = 1 then BoredHuman2;
AntiBanForMe(10000);
SRLRandomsReport;
ProggyIn := ProggyIn - 1;
until loggedin = false
end;
procedure Startup;
begin
SmartSetup('world126', True, True, False);
//while not(SmartReady) do Wait(100);
wait(1000);
SetTargetDC(SmartGetDC);
//if not(LoggedIn) then
//while not(SmartGetColor(386, 249) = 65535) do Wait(100);
setupSrl;
SRLID := YourSRLID
SRLPassword := YourSRLPassword
ScriptID := '921';
DeclarePlayers;
DeclareItems;
activateclient;
MarkTime(Mark);
MarkTime(BigMark);
MarkTime(AwakeTime);
TimeTillSleep := SleepEvery*60000 + randomrange(-40000, 120000);
end;
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
begin
Startup;
For i:= 0 to (GetArrayLength(Players) -1) do
begin
LoginPlayer;
SetFightMode(Players[i].Integers[2]);
SetRun(True);
Players[i].Integers[3] := GetXp(Players[i].Strings[0]);
Players[i].Integers[4] := ConvertXpToLvl(Players[i].Integers[3]);
RoomMiddle;
MainLoop;
misscount := 0;
i := 0;
NextPlayer(False);
end;
end.
2008-07-23 06:37:38
2008-07-23 09:32:08
2008-07-23 10:13:28
2008-07-23 10:26:52
2008-07-23 10:46:05
2008-07-23 13:29:25
2008-07-23 13:48:05
2008-07-23 13:57:59
// Metagen's Fleshy Pounder.
// This script uses SCAR Divi 3.15+ and SRL Rev #20+
// 1. Move your army to the second level of the stronghold of security, the most
// south-eastern room. Set ur guys in the south-west corner of the room.
// 2. Set the settings to hightest brightness
// 3. Setup the script (I recommend using salmon or better and setting
// the eat hp to its maximum without overeating.)
// 4. Set the client window.
// 5. Click the shiney green arrow
// Note you can use ranged as well, but its a waste of time to pick up arrows ;)
program New;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/misc/findxp.scar}
Type
MSItem = record
Color : integer;
Text : String;
Active : Boolean;
end;
Type
TextPoint = record
x, y : integer;
Text : String;
end;
var
x, y, i, misscount, xpcount, mark, BigMark, AwakeTime, TimeTillSleep : integer;
Items : Array of MSItem;
const
DoorX = 238; //no touchy
DoorY = 157; //no touchy
text = 'ickety door'; //no touchy
SleepEvery = 12; //no touchy
///////////////// SETUP BEGINS /////////////////////////
YourSRLID = '5717'; // Insert your SRL Stats ID here (It is different than your Forum's username!)
YourSRLPassword = 'makeme123'; // SRL Stats password here.
Pickup = False; //Pickup Items?
procedure DeclareItems;
begin
SetLength(Items, 2); //Number of Items
{Body Runes}
Items[0].Color := 13639705; //Color of Item
Items[0].Text := 'une'; //Text from Item
Items[0].Active := True; //Pickup this Item?
{Arrows}
Items[1].Color := 857707;
Items[1].Text := 'rrow';
Items[1].Active := False;
{ Nature Runes }
Items[2].Color := 1477650;
Items[2].Text :='une';
Items[2].Active := True;
{Fire Runes}
Items[3].Color := 1385641;
Items[3].Text := 'une';
Items[3].Active := True;
{Rarnarrs}
Items[4].Color := 877888;
Items[4].Text :='anarr';
Items[4].Active := True;
end;
procedure DeclarePlayers;
Begin
HowManyPlayers := 2; //Set how many players you wish to move
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Set which player you want to move first
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 letters of your name
Players[0].Active := True;
Players[0].Integers[0] := 1400240; //Food Color: 1400240 is lobster:
// dont have anything else that color in your inventory.
Players[0].Integers[1] := 70; //%HP to eat at
Players[0].Integers[2] := 2; //Fight Mode 1 - 4 Like you are reading a page
Players[0].Strings[0] := 'Ranged'; //Which Skill to proggy
Players[1].Name := ''; //Username
Players[1].Pass := ''; //Password
Players[1].Nick := ''; //3-4 letters of your name
Players[1].Active := True;
Players[1].Integers[0] := 1400240; //Food Color
Players[1].Integers[1] := 70; //%HP to eat at
Players[1].Integers[2] := 2; //Fight Mode 1 - 4
Players[1].Strings[0] := 'Strength';
end;
{/SETUP}
/////////////////// SETUP ENDS ////////////////////
procedure perfectnorth;
begin
makecompass('N')
setangle(true);
end;
procedure randoms;
begin
findNonInventoryRandoms;
end;
procedure twitch;
begin
RandomMovement;
end;
Function GetDoorMenu : integer;
begin
if FindNPCChatText('To pass', nothing) then
begin result := 1; end
else if FindNPCChatText('Select an Option', nothing) then
begin result := 2; end
else if FindNPCChatText('Rickety Door', nothing) then
begin result := 3; end
else
begin result := 0; end;
end;
function IntStrToTextPoint(x, y: integer; Text : String) : TextPoint;
begin
Result.x := x;
Result.y := y;
Result.Text := Text;
end;
function Pickanswer : boolean; //Efficiency == Joy.
var TxtPA : Array of TextPoint;
i : integer;
begin
if not loggedin then exit;
FindNormalRandoms;
MMouse(msx2/2, msy2/2, 100, 100);
wait(random(1000));
SetLength(TxtPA, 20);
TxtPA[0] := IntStrToTextPoint(252, 435, 'mo');
TxtPA[1] := IntStrToTextPoint(246, 412, 'er');
TxtPA[2] := IntStrToTextPoint(238, 389, 'sw');
TxtPA[2] := IntStrToTextPoint(219, 389, 'rm');
TxtPA[3] := IntStrToTextPoint(218, 412, 'ne');
TxtPA[4] := IntStrToTextPoint(247, 435, 'ob');
TxtPA[5] := IntStrToTextPoint(246, 412, 'er');
TxtPA[6] := IntStrToTextPoint(230, 396, 'ba');
TxtPA[7] := IntStrToTextPoint(241, 435, 'ow');
TxtPA[8] := IntStrToTextPoint(146, 435, 'en');
TxtPA[9] := IntStrToTextPoint(278, 435, 'ct');
TxtPA[10] := IntStrToTextPoint(248, 412, 'No');
TxtPA[11] := IntStrToTextPoint(275, 389, 'my');
TxtPA[12] := IntStrToTextPoint(256, 435, ' R');
TxtPA[13] := IntStrToTextPoint(244, 412, 'im');
TxtPA[14] := IntStrToTextPoint(255, 435, 'cl');
TxtPA[15] := IntStrToTextPoint(243, 435, 'or');
TxtPA[16] := IntStrToTextPoint(257, 412, 'le');
TxtPA[17] := IntStrToTextPoint(248, 426, 'No');
TxtPA[18] := IntStrToTextPoint(257, 412, 'le');
TxtPA[19] := IntStrToTextPoint(257, 412, 'le');
Result := False;
for i := 0 to High(TxtPA) do
begin
if IsTextAtEx(TxtPA[i].x, TxtPA[i].y, TxtPA[i].Text, 0, NPCChars, false, false, 0, 0, 0) then
begin
Mouse(TxtPA[i].x+random(10), TxtPA[i].y+random(10), 0, 0, True);
Result := True;
i := 99;
end;
end;
wait(1000);
if GetDoorMenu = 3 then
begin
result := true;
end else
begin
result := false;
end;
inc(ReportVars[2]);
SrlRandomsReport;
end;
{*******************************************************************************
procedure BoredHuman;
By: WT-Fakawi, small edit by Hy71194
Description: Perform2 5-15 times:
* Rotates the cam,
* Moves the mouse around MainScreen,
* If it finds IsUpText('option'), it will Chooseoption('Examine');
*******************************************************************************}
procedure BoredHuman2;
var
i, x, y: Integer;
Deg: Variant;
begin
Deg := rs_GetCompassAngleDegrees;
for i := 1 to (3 + Random(11)) do
begin
MMouse(Random(MSX2), Random(MSY2), 0, 0);
if IsUpText('opti') and (random(10) = 1) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('Examine');
end;
FindNonInventoryRandoms;
case Random(6) of
0: SendArrowSilentWait(((Random(2) * 2) + 1), 1000 + Random(200));
1: SendArrowSilentWait(((Random(2) * 2)), 1000 + Random(200));
2: SendArrowSilentWait(((Random(2) * 2) + 1), 200 + Random(200));
3: SendArrowSilentWait(((Random(2) * 2)), 200 + Random(200));
4: SendArrowSilentWait(((Random(2) * 2) + 1), 20 + Random(20));
5: SendArrowSilentWait(((Random(2) * 2)), 20 + Random(20));
end;
FindNonInventoryRandoms;
end;
if (Deg <> 0) then
MakeCompass(IntToStr(Round(Deg)))
else
MakeCompass('N');
SendArrowSilentWait(0, 750 + Random(500));
end;
Function FindDoors(var cx, cy : integer) : Boolean;
var
i : integer;
TPA, TPA2 : TPointArray;
T2PA : T2DPointArray;
begin
FindColorsSpiralTolerance(x,y, TPA2, 243, mmx1, mmy1, mmx2, mmy2, 0);
T2PA := TPAToATPA(TPA, 16);
x := MMX2;
if length(T2PA) > 0 then
begin
For i := 0 to Length(T2PA) do
begin
TPA[i] := MiddleTPA(T2PA[0]);
if TPA[i].y > y then
begin
x := TPA[i].x
y := TPA[i].y
end;
end;
result := true;
exit;
end;
result := false;
end;
Procedure ToDoors;
var x,y : integer;
begin
makecompass('N')
if not FindDoors(x, y) then
begin
Mouse(590,127,10,10, true);
if not flagpresent then Mouse(585,123,0,0, true);
end else
begin
Mouse(x,y,2,2,true);
end;
FindNormalRandoms;
fflag(0);
end;
procedure ClickMouseBox2(x, y, x2, y2: Integer; left : boolean);
begin
Mouse(x+random(x2-x), y+random(y2-y), 0, 0, left);
end;
function switchDir(direction: string): string;
begin
if direction = 'N' then result := 'S';
if direction = 'S' then result := 'N';
if direction = 'W' then result := 'E';
if direction = 'E' then result := 'W';
end;
procedure WalkDirection(direction :string; distance: integer);
begin
if not loggedin then exit;
if direction = 'N' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians)*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians)*distance), 0, 0, true);
if direction = 'S' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians+pi)*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians+pi)*distance), 0, 0, true);
if direction = 'W' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians+(3*pi/2))*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians+(3*pi/2))*distance), 0, 0, true);
if direction = 'E' then
Mouse(floor(628+cos((-0.5*pi)+rs_GetCompassAngleRadians+(pi/2))*distance), floor(85+sin((-0.5*pi)+rs_GetCompassAngleRadians+(pi/2))*distance), 0, 0, true);
FindNonInventoryRandoms;
fflag(3);
end;
procedure OpenDoors(direction : string);
var
cx, cy, i, mark : integer;
begin
if not loggedin then exit;
FindNonInventoryRandoms;
MakeCompass(direction);
setangle(false);
repeat
i := 1;
cx := 230+random(30)
cy := 140+random(30)
MMouse(cx, cy, 0, 0);
wait(100);
if isuptext ('ickety') then
begin
Mouse(cx, cy, 0, 0, true);
end else if isuptext('ttack') then
begin
Mouse(cx, cy, 0, 0, false);
if not chooseoption('ickety') then i := 0;
end else
begin
WalkDirection(direction, 20);
MakeCompass(direction);
setangle(false);
i := 0;
end;
{ if FindBlackChatMessage('each') then
begin
i := random(5);
case i of
1: TypeSend('ffs');
2: TypeSend('...');
3: TypeSend('wow');
4: TypeSend('stupid door');
5: TypeSend('omg');
end;
i := 0;
end; }
until i = 1
wait(123);
wait(2500);
WalkDirection(direction, 20);
Randoms;
FindInventoryRandoms;
MakeCompass(SwitchDir(direction));
MarkTime(Mark);
repeat
cx := 236+random(18)
cy := 150+random(22)
MMouse(cx, cy, 0, 0);
wait(200);
until isuptext('ickety') or isuptext('ttack') or (TimeFromMark(Mark) > 30000)
MarkTime(Mark);
repeat
if isuptext ('ickety') then
begin
Mouse(cx, cy, 0, 0, true);
end else
begin
Mouse(cx, cy, 0, 0, false);
chooseoption('ickety');
end;
wait(3000);
if GetDoorMenu = 1 then
begin
repeat
ClickMouseBox2(237, 448, 377, 454, true);
wait(1000);
until (GetDoorMenu = 2) or (not loggedin) or (TimeFromMark(Mark) > 30000)
end else
begin
exit;
end;
until PickAnswer
repeat
wait(100);
until (GetDoorMenu = 3) or (TimeFromMark(Mark) > 45000)
ClickMouseBox2(237, 448, 377, 454, true);
wait(2500);
if TimeFromMark(Mark) > 47500 then Logout;
end;
Procedure RadialHallBack;
var TPA : TPointArray;
i : Integer;
begin
MakeCompass('E');
i := 0;
repeat
i := i + 1;
if RadialWalkEx(TPA, MMCX, MMCY, 65536, 0, 0, 90, 60) then
begin
Mouse(TPA[0].x, TPA[0].y, 0, 0, true);
if FlagPresent then
begin
FindNonInventoryRandoms;
FFlag(3);
end else
begin
exit;
end;
end;
until (i > 5)
end;
procedure TraverseHall;
begin
if not loggedin then exit;
SetRun(True);
FindNonInventoryRandoms;
WalkDirection('W', 60);
WalkDirection('W', 60);
WalkDirection('W', 60);
RadialHallBack;
end;
procedure RoomMiddle;
var DTM, DTM2, i : Integer;
Clicked : boolean;
begin
i := 0;
makecompass('N');
DTM := DTMFromString('78DA63CC67626008654001FFFFFF67D061646' +
'06084B0FF337601D578A0AA51555262506680A80101C676A01A6F' +
'06AC00AEA618A8C69E809A58A09A08026A2A816AB2F1AB0100E35' +
'80C7E');
DTM2 := DTMFromString('78DA632C606260086040016FDF3230E830323' +
'00011C37F20606C07AA0964C00A18617417A639A2C2C20C72C86A' +
'40E6781130A713A8C60DD31C05643579403559D84D80ABA901AAC' +
'921A02607A8C694809A084C7FA1AB01009BB30DFB');
repeat
i := i + 1
if DTMRotated(dtm, x, y, mmx1, mmy1, mmx2, mmy2) then
begin
if Distance(x,y,mmcx,mmcy) > 8 then
begin
Mouse(x,y,0,0, True);
end;
Clicked := True;
end else if DTMRotated(dtm2, x, y, mmx1, mmy1, mmx2, mmy2) then
begin
if Distance(x,y,mmcx,mmcy) > 8 then
begin
Mouse(x,y,0,0, True);
end;
Clicked := True;
end else
begin
twitch;
end;
fflag(0);
until (not loggedin) or Clicked or (i > 5)
repeat
if i > 5 then logout;
until not flagpresent;
FreeDTM(DTM);
FreeDTM(DTM2);
end;
procedure EatCheck;
begin
if (HpPercent < Players[CurrentPlayer].Integers[1]) then
begin
writeln('eating');
gametab(4);
if findcolortolerance(x,y, Players[CurrentPlayer].Integers[0], 552, 209, 729, 460, 10) then
begin
Mouse(x, y, 0, 0, true);
misscount := 0;
end else
begin
misscount := misscount + 1;
end;
if misscount > 2 then
begin
Writeln('Logging out: Cannot find food');
perfectnorth;
mouse(593,119, 0, 0, true);
wait(2000);
mouse(593,119, 0, 0, true);
wait(3000);
logout;
exit;
end;
end;
end;
procedure RunHallway;
begin
ToDoors;
OpenDoors('W');
TraverseHall;
OpenDoors('E');
RoomMiddle;
end;
procedure FindColors(Color : Integer; var TPA : TPointArray; x1, y1, x2, y2 : Integer);
var ix, iy : Integer;
begin
for ix := x1 to x2 do
begin
for iy := y1 to y2 do
begin
if GetColor(ix, iy) = Color then
begin
SetLength(TPA, Length(TPA) + 1);
TPA[High(TPA)].x := ix
TPA[High(TPA)].y := iy
end;
end;
end;
end;
Function WhereFlag(var x,y : Integer) : boolean;
var TPA : TPointArray;
//i : Integer;
begin
FindColors(255, TPA, MMX1, MMY1, MMX2, MMY2);
Result := not (Length(TPA) = 0)
if Result then
begin
x := TPA[High(TPA)].x + 6
y := TPA[High(TPA)].y + 8
end else
begin
x := MMCX;
y := MMCY;
end;
end;
procedure PickUpItems;
var c, d : TPoint;
i, Mark : Integer;
begin
d.x := 0;
d.y := 0;
MarkTime(Mark);
repeat
for i := 0 to High(Items) do
begin
if Items[i].Active then
begin
if FindObjTPA(c.x, c.y, Items[i].Color, 25, 2, 5, 5, 3, [Items[i].Text, 'ake']) then
begin
Mouse(c.x, c.y, 0, 0, False);
wait(50);
ChooseOption(Items[i].Text);
i := 900;
end;
end;
end;
//whereFlag(c.x, c.y);
fflag(0);
//d.x := d.x + c.x - MMCX;
//d.y := d.y + c.y - MMCY;
until (i < 900) or (TimeFromMark(Mark) > 20000)
//if distance(d.x, d.y, mmcx, mmcy) > 5 then
//Mouse(MMCX + 5 + d.x, MMCY + d.y, 0, 0, true);
RoomMiddle;
end;
procedure AggressiveCheck;
begin
setangle(true);
if findfight then
begin
xpcount := 0;
end else
begin
xpcount := xpcount + 1;
end;
if xpcount > 1 then
begin
PlaySound('d:\windows\media\tada');
RunHallway;
wait(random(2000));
xpcount := 0;
end;
end;
procedure AntiBanForMe(WaitTime : Integer);
var MyMark : Integer;
begin
if not LoggedIn then Exit;
FindNonInventoryRandoms;
MarkTime(MyMark);
repeat
wait(random(1000) );
if not FindFight then
begin
case Random(40) of
1:HoverSkill('HitPoints', False);
3:PickUpMouse;
4:BoredHuman2;
5:RandomMovement;
6:HoverSkill('Strength', False);
7:HoverSkill('Ranged', False);
end;
end;
if random (10) = 1 then BoredHuman2;
until TimeFromMark(MyMark) > waittime
FindNonInventoryRandoms;
end;
procedure RandomTab;
begin
if random(15) = 1 then
begin
gametab(random(random(14))); //causes unevenness in tabs
if random(9) = 1 then
begin
AntiBanForMe(300+random(432));
gametab(random(random(14))); //causes unevenness in tabs
AntiBanForMe(random(500));
gametab(random(random(14))); //causes unevenness in tabs
end;
AntiBanForMe(3000);
end;
end;
procedure Proggyftw;
var xp1, lvl, Hrsz, Minz, Secz : Integer;
begin
xp1 := GetXP(Players[CurrentPlayer].Strings[0]);
lvl := ConvertXpToLvl(xp1);
if XP1 > 0 then
begin
Players[CurrentPlayer].Integers[5] := xp1;
Players[CurrentPlayer].Integers[6] := lvl;
end;
ConvertTime(Timefrommark(BigMark), Hrsz, Minz, Secz);
writeln('<<-----------Fleshy Carnage Report -------------->>');
writeln(Padr(' ||--', 49)+ '||');
writeln(Padr(' ||-- Running For: '+ inttostr(Hrsz) + ':' + inttostr(Minz) + ':' +inttostr(Secz), 49)+ '||');
For i:= 0 to (GetArrayLength(Players) -1) do
begin
Writeln(Padr(' ||', 49)+ '||')
Writeln(Padr(' ||-- Victim: ' + Players[i].Name, 49)+ '||');
writeln(Padr(' ||-- Starting '+ Players[i].Strings[0] + ' XP: ' + inttostr(Players[i].Integers[3]), 49)+ '||');
writeln(Padr(' ||-- ' + inttostr(Players[i].Integers[5] - Players[i].Integers[3]) + ' XP Later: ' + inttostr(Players[i].Integers[5]), 49)+ '||');
Writeln(Padr(' ||-- ' + Players[i].Strings[0] +' Levels Made: ' + inttostr(Players[i].Integers[6] - Players[i].Integers[4]), 49)+ '||');
end;
writeln('<<------------------------------------------------>>');
ReportVars[0] := Players[CurrentPlayer].Integers[2]- Players[CurrentPlayer].Integers[5];
ReportVars[1] := ConvertXpToLvl(Players[CurrentPlayer].Integers[3]) - Players[CurrentPlayer].Integers[6];
SrlRandomsReport;
end;
procedure NapCheck;
var Hrs, Mins, Secs : Integer;
begin
ConvertTime(TimeTillSleep - timefrommark(AwakeTime), Hrs, Mins, Secs);
writeln('Sleeping in: ' + + inttostr(Hrs) + ':' + inttostr(Mins) + ':' +inttostr(Secs));
Disguise('Sleeping in: ' + + inttostr(Hrs) + ':' + inttostr(Mins) + ':' +inttostr(Secs));
if TimeFromMark(AwakeTime) > TimeTillSleep then
begin
TimeTillSleep := SleepEvery*60000 + randomrange(-50000, 120000);
ToDoors;
wait(7000+random(3000));
Logout;
wait(30000 + random(60000));
LoginPlayer;
RoomMiddle;
MarkTime(AwakeTime);
end;
end;
procedure MainLoop;
var ProggyIn : Integer;
begin
repeat
i := random(6);
case I of
3: RandomTab;
end;
if Pickup and (random(6) = 1) then PickUpItems;
AggressiveCheck;
EatCheck;
NapCheck;
GameTab(4);
if FindBox then
begin
ToDoors;
FindNormalRandoms;
end;
RoomMiddle;
FindNonInventoryRandoms;
if ProggyIn < 1 then
begin
ProggyFTW;
ProggyIn := 5+random(4);
end;
if random(12) = 1 then BoredHuman2;
AntiBanForMe(10000);
SRLRandomsReport;
ProggyIn := ProggyIn - 1;
until loggedin = false
end;
procedure Startup;
begin
SmartSetup('world126', True, True, False);
//while not(SmartReady) do Wait(100);
wait(1000);
SetTargetDC(SmartGetDC);
//if not(LoggedIn) then
//while not(SmartGetColor(386, 249) = 65535) do Wait(100);
setupSrl;
SRLID := YourSRLID
SRLPassword := YourSRLPassword
ScriptID := '921';
DeclarePlayers;
DeclareItems;
activateclient;
MarkTime(Mark);
MarkTime(BigMark);
MarkTime(AwakeTime);
TimeTillSleep := SleepEvery*60000 + randomrange(-40000, 120000);
end;
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
begin
Startup;
For i:= 0 to (GetArrayLength(Players) -1) do
begin
LoginPlayer;
SetFightMode(Players[i].Integers[2]);
SetRun(True);
Players[i].Integers[3] := GetXp(Players[i].Strings[0]);
Players[i].Integers[4] := ConvertXpToLvl(Players[i].Integers[3]);
RoomMiddle;
MainLoop;
misscount := 0;
i := 0;
NextPlayer(False);
end;
end.
2008-07-23 14:29:01
2008-07-23 21:49:41
2008-07-23 22:01:00
2008-07-23 22:57:48
2008-07-24 05:05:57
2008-07-24 05:34:42
2008-07-24 05:56:58
2008-07-24 06:40:52
2008-07-24 07:24:20
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 0:39:6 ||
|| ||
||-- Victim: xxxxxxxxxx ||
||-- Starting Ranged XP: 626263 ||// <---- omg look at the numbers
||-- 10080 XP Later: 636343 ||//<--- lol i didnt edit those
||-- Ranged Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 10080 ||
||-- XP to Time Ratio: 0 / Min ||
<<------------------------------------------------>>
//this is still going i just wanted to show those numbers lol
//oh yea this is 1.7s proggy once i fix the ratio thing
btw the srl stat exp is broken for now, but next update i will fix it for us :D
2008-07-24 07:32:26
2008-07-24 07:45:31
2008-07-24 08:00:05
2008-07-24 09:51:39
2008-07-24 11:00:58
2008-07-24 11:07:24
procedure DeclareItems;
begin
SetLength(Items, 2); //Number of Items2008-07-24 11:35:47
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 3:7:34 ||
|| ||
||-- Victim: thingsyouwontknow ||
||-- Starting Ranged XP: 626263 ||
||-- 46260 XP Later: 672523 ||
||-- Ranged Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 46260 ||
||-- XP to Time Ratio: 0 / Min ||
<<------------------------------------------------>>
2008-07-25 03:24:09
2008-07-25 05:54:11
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 5:16:13 ||
|| ||
||-- Victim: xxxxxxxxxxx ||
||-- Starting Ranged XP: 694079 ||
||-- 94396 XP Later: 788475 ||
||-- Ranged Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 94396 ||
||-- XP to Time Ratio: 0 / Min ||
<<------------------------------------------------>>
No interference :D
2008-07-25 10:08:13
2008-07-25 10:22:29
2008-07-25 12:50:29
2008-07-25 13:32:10
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 4:56:6 ||
|| ||
||-- Victim: rawrrawr!! ||
||-- Starting Ranged XP: 790387 ||
||-- 79360 XP Later: 869747 ||
||-- Ranged Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 79360 ||
||-- XP to Time Ratio: 0 / Min ||
<<------------------------------------------------>>
2008-07-26 16:37:25
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 0:59:36 ||
|| ||
||-- Victim: minerbuddy8 ||
||-- Starting Strength XP: 328240 ||
||-- 10500 XP Later: 338740 ||
||-- Strength Levels Made: 0 ||
<<------------------------------------------------>>
GTL: Drill Demon using music
We should talk to Damien. then is started showing thisJog
1: Jog mat
2: Star Jump mat
4: Push-up mat
1: Jog mat
2: Star Jump mat
4: Push-up mat
1: Jog mat
2: Star Jump mat
4: Push-up mat
1: Jog mat
2: Star Jump mat
4: Push-up mat
1: Jog mat
2: Star Jump mat
4: Push-up mat
1: Jog mat
2: Star Jump mat
4: Push-up mat
1: Jog mat
2: Star Jump mat
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info
Invalid Array Info2008-07-26 18:04:57
2008-07-27 13:04:51
Line 664: [Warning] (17356:11): Calculation always evaluates to False in script C:\Documents and Settings\Administrator\My Documents\Fleshy Pounder 1.6.scar
File access error
SRL Compiled in 2860 msec2008-07-27 17:01:40
2008-07-28 08:48:10
2008-07-29 20:48:45
2008-07-30 08:44:24
2008-07-30 16:02:00
2008-07-30 16:33:21
2008-07-30 18:38:30
2008-07-31 10:01:16
2008-07-31 13:35:50
2008-07-31 14:03:13
From: Metagen
I could, couldn't I :D. and then it would be teh pwn on pures :p
2008-08-01 06:39:27
2008-08-01 20:25:05
From: Metagen
only if you add me on msn. (:p)
then i will have it working perfectly by monday k?
2008-08-02 23:04:54
2008-08-04 14:16:33
From: Metagen
Crap this means i have to actually make a walker thing…
2008-08-05 06:36:04
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 18:11:8 ||
|| ||
||-- Victim: .......... ||
||-- Starting Strength XP: 9995046 ||
||-- 446436 XP Later: 10441482 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 446436 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->> // i think this one got stuck in the camo place for like 3 hours lol (stupid solver)
||-- ||
||-- Running For: 7:15:10 ||
|| ||
||-- Victim: .......... ||
||-- Starting Strength XP: 10449608 ||
||-- 84044 XP Later: 10533652 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 84044 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 5:33:38 ||
|| ||
||-- Victim: ........... ||
||-- Starting Strength XP: 10534352 ||
||-- 126812 XP Later: 10660000 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 126812 ||
<<------------------------------------------------>>
2008-08-05 09:19:38
2008-08-05 09:33:34
From: Metagen
Naah, my script doesn't need any reflection :p. BUT! but guess what?
UPDATE TIME!!! YAY! this is just the script i have slowly been working on over the last like 3 weeks. sorry no banking yet :D. but here are some proggies i got on it :D:D
and yes they are real >.>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 18:11:8 ||
|| ||
||-- Victim: .......... ||
||-- Starting Strength XP: 9995046 ||
||-- 446436 XP Later: 10441482 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 446436 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->> // i think this one got stuck in the camo place for like 3 hours lol (stupid solver)
||-- ||
||-- Running For: 7:15:10 ||
|| ||
||-- Victim: .......... ||
||-- Starting Strength XP: 10449608 ||
||-- 84044 XP Later: 10533652 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 84044 ||
<<------------------------------------------------>>
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 5:33:38 ||
|| ||
||-- Victim: ........... ||
||-- Starting Strength XP: 10534352 ||
||-- 126812 XP Later: 10660000 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 126812 ||
<<------------------------------------------------>>
2008-08-05 09:37:47
2008-08-05 13:13:15
2008-08-05 15:32:42
2008-08-06 11:05:55
From: Metagen
LOL! that has to be the worst run ive heard about :p. Usually i start mine, and it runs all night long.
2008-08-06 11:11:49
2008-08-06 15:18:37
From: Queso
Well let's hope your updated script makes a difference, I'm gonna test it right now.
EDIT: Why's it do the door running twice in a row EVERY time? The first door procedure does it too quickly … get rid of it?
2008-08-06 22:42:25
<<———–Fleshy Carnage Report ————–>>
||– ||
||– Running For: 3:7:39 ||
|| ||
||– Victim: XXXXXXX ||
||– Starting attack XP: 1063482 ||
||– 31016 XP Later: 1094498 ||
||– attack Levels Made: 0 ||
||– ||
||– Total XP Gained: 31016 ||
<<————————————————>>
2008-08-07 07:03:30
2008-08-07 08:23:15
From: Metagen
TBH ive never tried it with multi-players :D. I'll go look through my code later and get back to you on that. What it is SUPPOSED to do is logout a player after he is out of food or lost and switch players until he is logged out or lost…
2008-08-08 20:46:21
2008-08-10 09:38:10
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 5:33:38 ||
|| ||
||-- Victim: ||
||-- Starting Strength XP: 10534352 ||
||-- 126812 XP Later: 10661164 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 126812 ||
<<------------------------------------------------>>
2008-08-10 16:07:20
2008-08-11 16:03:18
2008-08-13 03:38:29
2008-08-13 09:37:19
2008-08-13 16:23:14
2008-08-13 16:28:52
2008-08-13 18:43:26
2008-08-14 08:42:47
2008-08-14 19:05:29
2008-08-14 20:31:03
2008-08-15 05:38:47
2008-08-15 09:03:20
2008-08-15 09:48:11
2008-08-15 11:11:37
2008-08-15 11:28:21
2008-08-15 13:54:13
2008-08-15 18:00:54
2008-08-15 19:03:47
2008-08-15 19:10:07
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 15:17:41 ||
|| ||
||-- Victim: phyyyyszhy ||
||-- Starting Strength XP: 10840260 ||
||-- 376364 XP Later: 11216624 ||
||-- Strength Levels Made: 0 ||
||-- ||
||-- Total XP Gained: 376364 ||
<<------------------------------------------------>>
2008-08-15 19:22:09
2008-08-15 20:34:35
2008-08-15 22:06:43
2008-08-15 22:10:49
2008-08-15 22:12:10
From: andyroo
cant get out of room when aggro is gone. just sticks to gate
2008-08-15 22:54:01
From: jkmaster
Yea that means its about to sleep and another proggy manually stopped to check out aggro times.
<<———–Fleshy Carnage Report ————–>>
||– ||
||– Running For: 2:40:23 ||
|| ||
||– Victim: 12345 ||
||– Starting Strength XP: 1450375 ||
||– 44188 XP Later: 1494563 ||
||– Strength Levels Made: 0 ||
||– ||
||– Total XP Gained: 44188 ||
<<————————————————>>
2008-08-16 00:41:23
2008-08-16 10:40:25
2008-08-16 19:23:53
From: Metagen
jk, you wanna do some testing? add me on msn [email]dan.sont@gmail.com[/email].
So ill add these features
- AutoRetaliate Setter
- Take a run after 10+random2 minutes
2008-08-16 22:56:43
2008-08-17 00:44:52
2008-08-17 06:21:24
From: Metagen
Ok, So added are the autoretaliate and 10 minute waits, Also i am almost done my door positioning system, im just having some issues with door color and item colors on MM :\
Oh yea, did i mention that the banking is almost complete, Big thanks to hugo who made all the radial-walking and 5 or 6 dtms as well. I did the umm… everything else… like 20 dtms, along with all the functions to deal with dtms and radial walking with failsafes, the banking, the hole, portal, ladder, rope finding(<— this one is leet)… the door opening… the fish depositing and withdrawing… so yea :D But hugo helped me and tested stuff with me :D
2008-08-17 08:06:52
2008-08-17 14:38:29
2008-08-17 15:57:31
2008-08-17 17:08:08
From: jakeyboy29
it dosent always eat. what can i do to improve this?
2008-08-17 17:23:07
From: jkmaster
What do you mean by that? There's a place in the script at the top where you setup your players that lets you choose at what percentage of your health to eat. I would recommend 75% but it really depends on your hp and what your eating.:)
2008-08-17 19:30:37
2008-08-17 20:57:41
2008-08-18 23:03:29
2008-08-19 00:35:05
2008-08-19 05:25:52
2008-08-19 06:55:24
2008-08-19 06:57:03
From: Haxor
slight bug, cant do the doors… when running away after 8minutes or what ever. it just keeps clicking the door repeditly and doing nothing=).
Haxor
2008-08-19 07:47:11
if FindSymbol(cx, cy, 'Dungeon') or FindSymbol(cx, cy, 'mining spot') then
2008-08-19 08:19:01
2008-08-19 08:39:46
From: jakeyboy29
yeh, i had a full inv of food, he just walks to bank. banks the food then cant get back in hole.
2008-08-19 08:58:58
2008-08-19 09:01:16
2008-08-19 09:07:21
2008-08-19 09:43:12
Found Doors With DTM
clicking to doors with DTM.
Locating doors using uber leetness, standby.
Length ATPA TPADPS: 2
1
2
Found Doors With DTM
Clicking to doors with DTM.
Locating doors using uber leetness, standby.
Length ATPA TPADPS: 2
1
2
Found Doors With DTM
Clicking to doors with DTM.
Locating doors using uber leetness, standby.
Length ATPA TPADPS: 2
1
2
Found Doors With DTM
Clicking to doors with DTM.
Locating doors using uber leetness, standby.
2008-08-19 09:51:30
2008-08-19 11:21:50
2008-08-19 11:38:26
2008-08-19 12:12:54
From: jakeyboy29
it's 1400240
is the banking working ok as well?
2008-08-19 16:06:25
2008-08-19 16:16:46
2008-08-19 16:49:41
2008-08-19 17:23:26
2008-08-19 17:27:12
2008-08-19 17:47:22
2008-08-19 17:50:09
2008-08-19 18:05:38
2008-08-19 18:09:26
2008-08-19 19:03:44
2008-08-19 21:13:07
2008-08-20 07:51:11
2008-08-20 08:43:25
2008-08-20 11:16:21
2008-08-20 11:40:30
2008-08-20 12:48:13
2008-08-20 15:06:18
2008-08-20 15:17:27
2008-08-20 15:50:24
2008-08-20 16:12:26
From: twixster
I'm confused how does the running through that hallway have anything to do with flesh eater agro?Because whenever I move in that room there in they just attack,if you stand still and people are around than they just wait till u move over and attack you. Please explain lol.
And:
<<———–Fleshy Carnage Report ————–>>
||– ||
||– Running For: 0:49:56 ||
||– ||
||– Total XP Gained: 5316 ||
<<————————————————>>
Doin Some AntiBan:10000 ms
NextPlayer
Since there is no next player it should go back to the first and only one,it's been running logout like this for an hour its not sleeping is it?
Edit:Nvm when I logged in it was in random prison petes,that may be why it couldn't log in
2008-08-20 17:01:28
2008-08-20 17:13:47
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 1:32:41 ||
|| ||
||-- Victim: dddddddddddd ||
||-- Starting Strength XP: 195008 ||
||-- 17744 XP Later: 212752 ||
||-- Strength Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 17744 ||
<<------------------------------------------------>>
2008-08-20 17:30:56
2008-08-20 17:32:08
2008-08-20 17:33:52
2008-08-20 18:13:13
2008-08-20 18:42:38
2008-08-20 18:47:36
From: Metagen
WOOT! my first satisfactory proggy on a PURE, 1 def!!!
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 1:32:41 ||
|| ||
||-- Victim: dddddddddddd ||
||-- Starting Strength XP: 195008 ||
||-- 17744 XP Later: 212752 ||
||-- Strength Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 17744 ||
<<------------------------------------------------>>
Ahhh, turns out he phailed at the rope.
He successfully ran to the bank twice :D ftw!!
2008-08-20 18:54:05
2008-08-20 18:55:25
2008-08-20 19:48:06
2008-08-20 20:01:01
<<-----------Fleshy Carnage Report -------------->>
||-- ||
||-- Running For: 2:4:18 ||
|| ||
||-- Victim: gusdfes sock ||
||-- Starting Strength XP: 217608 ||
||-- 20168 XP Later: 237776 ||
||-- Strength Levels Made: 1 ||
||-- ||
||-- Total XP Gained: 20168 ||
<<------------------------------------------------>>
2008-08-20 20:17:14
2008-08-20 21:14:42
From: twixster
It's kinda weird I set it to eat at 60 and it never does but whenever I come back to comp its at about 50 so it must be eating by itself at 38 or 40s.
2008-08-20 21:37:20
2008-08-20 23:16:50
2008-08-21 00:42:42
From: Metagen
andy, make sure you have 1.82, that problem is solved in 1.82
2008-08-21 05:32:49
2008-08-21 06:44:59
2008-08-21 10:59:05
2008-08-21 11:24:52
2008-08-21 11:33:38
2008-08-21 11:54:01
From: fabis94
Some suggestions:
1. Make an option to choose what to pick up. They drop ranarrs you know :P
2. Make an option to choose how long it fights or how much xp to get. Cuz now u can't (as far as i know).
And the bug that logs you out and writes NextPlayer in the Debug box should be fixed too. It makes running the script for a long time a pain.
And you were talking about some Banking stuff? I don't see an option to bank :D
2008-08-21 11:57:37
2008-08-21 14:00:05
From: fabis94
Oh kk :D
And another suggestion would be walking around the room. Cuz now if there are alot of noobs in your world, they block your crawlers.
Wtf now it says NextPlayer(Active: False);
But theres nothing wrong. I have enough HP and enough food…
2008-08-21 14:13:09
2008-08-21 16:52:19
2008-08-21 16:57:12
2008-08-21 17:10:03
2008-08-21 17:42:03
2008-08-21 17:49:28
2008-08-21 18:18:08
2008-08-21 19:14:34
2008-08-21 22:09:01
SleepEvery = 12; //no touchySmartWorld = 'world33';SmartSetup('world33', True, True, False);SmartSetup(SmartWorld, True, True, False);2008-08-21 22:29:01
2008-08-22 02:25:24
2008-08-22 04:12:15
2008-08-22 06:33:40
2008-08-22 07:59:27
2008-08-22 09:09:35
2008-08-22 11:48:53
From: Metagen
:( talk to me on msn. Lets figure this out. You are on low detail right? are you a member? WAIT!!!! i have an idea… it could be the cts, i never set the cts in my functions :D
2008-08-22 11:51:57
2008-08-22 11:57:15
From: Metagen
Hermmm…. That is very odd seeing as it works every time for most people… Are you in the right spot? Put ur char in the south-east corner of the second level of the stronghold…
2008-08-22 13:04:19
2008-08-22 13:27:04
2008-08-22 14:01:41
2008-08-22 14:04:16
2008-08-22 14:29:42
2008-08-22 19:15:44
2008-08-23 08:34:37
2008-08-23 12:01:38
2008-08-23 13:06:07
2008-08-23 13:12:21
2008-08-23 16:17:48
2008-08-23 19:14:08
2008-08-24 02:37:57
2008-08-24 18:58:49
From: Unohdus
You aint going to give the 1.8 only to members because this is so fucking great script! Have running this every night for week. The 1.7 is so great and if you get the 1.8 working you will release it to Juniors too! Because I'm going to 99def with this script!
Few my progress reports.
<<———–Fleshy Carnage Report ————–>>
||– ||
||– Running For: 11:59:9 ||
|| ||
||– Victim: XXXXX ||
||– Starting Defence XP: 682097 ||
||– 222724 XP Later: 904821 ||
||– Defence Levels Made: 2 ||
||– ||
||– Total XP Gained: 222724 ||
<<————————————————>>
<<———–Fleshy Carnage Report ————–>>
||– ||
||– Running For: 25:13:5 ||
|| ||
||– Victim: XXXX ||
||– Starting Defence XP: 904821 ||
||– 550128 XP Later: 1454949 ||
||– Defence Levels Made: 3 ||
||– ||
||– Total XP Gained: 550128 ||
<<————————————————>>
2008-08-24 21:50:16
2008-08-25 15:14:52
From: Metagen
That or its a fake proggy ^.^
2008-08-26 08:48:44
2008-08-26 17:37:10
2008-09-06 11:43:31
2008-09-10 19:59:33
2008-09-20 10:49:19
2008-09-20 17:25:25
2008-09-20 23:24:02
From: kensaurus
em dracody…. ur runescape name is that?
2008-09-21 08:56:09
2008-09-21 09:07:06
2008-09-21 11:41:50
From: Metagen
Dracody is trying to lure me into posting my newest version of the script :p
2008-10-08 10:37:17
2008-10-11 23:36:18
2008-10-13 11:56:30
From: SubiN
With permission may i modifiy this script so that it goes to barbarian vilalge and fish ?
2008-10-14 22:44:06
2008-11-17 15:31:25
2008-11-18 17:59:36
2010-05-08 06:25:58
2010-05-08 06:46:20
From: shizzle
damn everything juniors is outdated. everyone quit cheating or are the full members being stin-G