Log in

View Full Version : Front Page Error


TheGuyWhoGotOn
08-15-2007, 11:09 PM
Not to be an ass or anything but this is wrong:



State-Of-The-Art
Since SRL involves big names from the cheating community. You couldn’t wish for a better include, in fact, it is the only include left.
SSI2, SI, Squig, and RSCI are all dead.


I have made the PH include (Obtained by File >> Download Includes) it's been out for over a month now.

Currently it looks retarded and is outdated, I will have it upgraded to actually be good in the next update. However, with the RS update everything works except the compass rotation...
Smartzkid
08-15-2007, 11:18 PM
PH isn't a RS include though, is it?

I thought it was for stuff like Gaia?

EDIT: You seen my message on your forum?
TheGuyWhoGotOn
08-16-2007, 12:19 AM
PH isn't a RS include though, is it?

I thought it was for stuff like Gaia?

Runescape
Gaia
Unreal
Club Penguin (I really didn't want to add that but my sister and some other guy wanted it)

More to come my friend, also I'm constantly working on RS things.
RAM
08-16-2007, 01:11 AM
http://www.srl-forums.com/forum/images/satellite/misc/logo.gif

SRL is a group effort, not made or maintained entirely by one person. While I respect the fact, that you have undoubtedly devoted lots of time and effort into this project,I have to ask for your ambitions...by pointing out the fact here, that you are demanding your include be recognized, it seems you are only seeking fame and notoriety from your endeavor, rather than the collective advancement that this community was built on.

While SCAR can be used for many games, it was designed for 1....the same as these forums are based upon 1 game....while it is very noble, and innovative, that you have made procedures and functions, so that SCAR can be used for other games, It's my opinion, that when it comes to RS,your time would be better served, trying to contribute to the community as a whole, rather than rise above it....

If I have misconstrued your intentions at all, I ask you to please let me know.....


//This is the Planet Hell Include V1.1 (Bug fixes and Tolerance added)
//If you are developing with this include please go to:
//http://planethell.hostcentral.co.in/PH.rar OR
//http://planethell.hostcentral.co.in/PH.rar
//Main
const warning=true;

const fadespeed=20; //this is how fast the SCAR window fades in the beginning (Max 255)
waittime=500; //this is how long it waits in between fading in and out
fade=true; //Make this false if the fading is causing problems.

procedure kewl;
var i: integer;
begin
if fade = true then
begin
for i := 255 downto 0 do
begin
i:= i - fadespeed
MakeWindowTransparent(GetSelf.Handle, i);
end;
wait(waittime);
for i := 0 to 255 do
begin
i:= i + fadespeed
MakeWindowTransparent(GetSelf.Handle, i);
end;
end;
end;

procedure Disguise1(s: string);
begin
GetSelf.Caption := s;
GetApplication.Title := s;
end;

procedure setupph;
var number: integer;
version: string;
begin
number:= getscarversion
if number = 301 then version:= 'Divi 3.01'
if number = 302 then version:= 'Divi 3.02'
if number = 303 then version:= 'Divi 3.03'
if number = 304 then version:= 'Divi 3.04'
if number = 305 then version:= 'Divi 3.05'
if number = 306 then version:= 'Divi 3.06'
if number = 310 then version:= 'Divi 3.10'
if number = 311 then version:= 'Divi 3.11'
if number = 203 then version:= '2.03'
disguise1('SCAR '+version+' - Powered by Planet Hell');
kewl;
end;

//This is for validating purposes PLEASE DO NOT MODIFY
//If you want the extra warning gone look at line 6
var scriptname: string;
procedure validate;
var safe: boolean;
begin
if scriptname = 'TGWGOslotsbeta' then safe:= true
if scriptname = 'TGWGOcpautofisher' then safe:= true
if scriptname = 'TGWGOautotalker' then safe:= true
if scriptname = 'TGWGOchickenSlayer' then safe:= true
if scriptname = 'TGWGOsmplpwrcutter' then safe:= true
if safe = true then
begin
writeln('This is an official PH script, it is 99% Safe to use.');
if warning = false then writeln('Details at: http://planethell.hostcentral.co.in/smf/index.php');
if warning = true then
begin
writeln('It may not be safe if scriptname equals the incorrect name');
writeln('OR if you got the PH include from somebody else');
writeln('If you wish to check the list email planet.hell.owns@gmail.com');
writeln('If you wish to remove the exteneded warning open PH.scar and');
writeln('make warning=false');
end;
end;
end;
//General
//Boxes
procedure slowmcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
begin
xx:= xx + random(xx2 - xx)
yy:= yy + random(yy2 - yy)
MoveMouseSpline(xx, yy, 1, 1);
wait(randomrange(150, 250));
clickmouse(xx, yy, lefft);
end;

procedure mcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
begin
xx:= xx + random(xx2 - xx)
yy:= yy + random(yy2 - yy)
movemousesmooth(xx, yy);
wait(randomrange(150, 250));
clickmouse(xx, yy, lefft);
end;

procedure mbox(xx, yy, xx2, yy2: integer);
begin
xx:= xx + random(xx2 - xx)
yy:= yy + random(yy2 - yy)
movemousesmooth(xx, yy);
wait(100 + random(100));
end;
//Typing
procedure typesend(text:string);
var LoadNumber:Integer;
begin
LoadNumber:=1;
repeat
SendKeys(StrGet(Text, loadnumber));
LoadNumber:=LoadNumber+1;
Wait(100+random(100));
until(LoadNumber>Length(text));
end;
//Other
function range(first, last: integer): integer;
begin
result:= first + random(last)
end;
//CP Fishing
procedure playfish;
var xx, yy: integer;
begin
findcolor(xx, yy, 16777215, 327, 274, 441, 318);
mcbox(336, 285, 418, 315, true);
end;

procedure catchfish;
var xx, yy: integer;
begin
if findcolor(xx, yy, 16777215, 337, 163, 412, 474) then
begin
movemousesmooth(xx + random(7), yy + random(7));
xx:= 323 + random(67)
yy:= 45 + random(32)
wait(250 + random(250));
movemousesmooth(xx, yy);
wait(250 + random(250));
clickmouse(xx, yy, true);
wait(250 + random(250));
end;
end;

function lethalfish: boolean;
var xx, yy: integer;
begin
result:= false
if (findcolor(xx, yy, 10698535, 280, 161, 461, 474))or(findcolor(xx, yy, 10066329, 280, 161, 461, 474))or(findcolor(xx, yy, 3355596, 337, 163, 412, 474)) then result:= true
end;
//Gaia
//Clicking and Typing
Procedure say(words: string);
begin
slowmcbox(18, 561, 200, 578, true);
wait(500 + random(750));
typesend(words);
wait(500 + random(750));
sendkeysvb('{ENTER}', false);
end;
//Slots
function peoplehere: boolean;
var xx, yy: integer;
begin
result:=findcolor(xx, yy, 3945227, 521, 505, 611, 548);
end;

Procedure InsertCoin(Amount: Integer);
var xx, yy: integer;
begin
wait(1000 + random(500));
xx:= 192 + random(68)
yy:= 447 + random(20)
repeat
movemousesmooth(xx + random(2), yy + random(2));
clickmouse(xx + random(2), yy + random(2), true);
wait(150 + random(100));
amount:= amount - 1
Until Amount = 0
wait(750 + random(500));
end;

procedure clickspin;
begin
wait(500 + random(500));
mcbox(438, 447, 506, 467, true);
wait(500 + random(500));
end;

function Coins: Boolean;
var xx, yy: integer;
begin
result:= findcolor(xx, yy, 10605797, 290, 418, 300, 424)
end;

Procedure randomtext(chance: integer; game: string);
var make0: integer;
worked: boolean;
begin
make0:= 0
worked:= false
if (game = 'slots')or(game = 'Slots') then
begin
make0:= 0 + random(chance);
if make0 = 0 then
begin
make0:= random(7);
if make0 = 0 then say('Moo!');
if make0 = 1 then say('Slots are... boring, well at least I get tickets!');
if make0 = 2 then
begin
say('Know The Moo.');
wait(500 + random(500));
say('Feel The Moo.');
wait(500 + random(500));
say('Be The Moo.');
end;
if make0 = 3 then say('.....grr bad luck');
if make0 = 4 then
begin
say('GRR there should be more to do in slots rather than,');
say('Just watch the spinningness');
end;
if make0 = 5 then say('I wanna see the Gaia movie :(');
if make0 = 6 then say('Wow...I`m dizzy XD');
if make0 = 7 then say('When will the stupid Mimzy prices go up!? (lol random outburst)');
end;
worked:= true
end;
if worked = false then
begin
writeln('######################################### ##########');
writeln(game + ' support has not been added yet please');
writeln('specify what you want at http://planethell.yourhostfree.com/smf/index.php');
writeln('######################################### ##########');
terminatescript;
end;
end;

procedure nobodyrandom(chance: integer; game: string);
var make0: integer;
begin
make0:= 0
if (game = 'slots')or(game = 'Slots') then
begin
make0:= 0 + random(chance);
if make0 = 0 then
begin
make0:= random(5);
if make0 = 0 then say('dun dun dun...');
if make0 = 1 then say('I think Im going crazy....talkin to myself...');
if make0 = 2 then
begin
say('I');
wait(500 + random(500));
say('AM');
wait(500 + random(500));
say('CRAZY');
end;
if make0 = 3 then say('-Nobody hears me-');
if make0 = 4 then
begin
say('OMG SO BORED, Im oging crazy...yes, muahahahahah1!!@21 l33tzorz');
say('Ok Im dizzy and talking to nobody -.-');
end;
if make0 = 5 then say('sooooo bored....');
end;
make0:= 999
end;
if make0 = 0 then
begin
writeln('######################################### ##########');
writeln(game + ' support has not been added yet please');
writeln('specify what you want at http://planethell.yourhostfree.com/smf/index.php');
writeln('######################################### ##########');
terminatescript;
end;
end;

function countcoins: integer;
var xx, yy: integer;
begin
if findcolor(xx, yy, 10675444, 283, 415, 306, 425) then result:= result + 1
if findcolor(xx, yy, 10675444, 335, 412, 356, 424) then result:= result + 1
if findcolor(xx, yy, 10675444, 384, 411, 398, 419) then result:= result + 1
end;

//Created by: TheGuyWhoGotOn
//Description: True if somebody joined.
//Doesn't work :(
function joined: boolean;
var entersthechat, xx, yy: integer;
begin
entersthechat := BitmapFromString(72, 8, 'z78DAED56B10DC0' +
'30087B2957F0FF49953A55AAB08C0D49873246041CE300119 DB66' +
'E8BA39661388BCDCF3E81FFAFD7CE7AAD87617F7C772E32F3 A2B7' +
'3F8EAFE5EA7A1D8F9F6109A3E26F693A614E341D4EE79AE30 D1B1' +
'FB31A9FEF60BCDAF94E98A917E3D4FA9BAF04FE87FAF5EAEA EA0E' +
'8755E4BDF348538BC3F3CE1367679846F51D96F889A9CD208 77F6' +
'DDFD01432B76954A746E67301BAED5C9E');
wait(100 + random(50));
result:= findbitmapin(entersthechat, xx, yy, 6, 540, 390, 556);
end;
//Gaia General
//Ending
Procedure CloseGame;
begin
wait(1500 + random(500));
slowmcbox(622, 6, 633, 15, true);
end;

Procedure endgame(message1, goodbye: string);
begin
Writeln(message1);
say(goodbye);
closegame;
TerminateScript;
end;
//Runescape
//Mining
function manage: boolean;
var managemine, xx, yy: integer;
begin
managemine := BitmapFromString(140, 7, 'z78DAB598C' +
'16EC4200C447F89AEB4EAE648A4FEFF2F55557A0091199E31 C901' +
'ADBC8E639B191B53CADF731EF5FDF92AD7EF5ACF4FBD24DD7 AC9C' +
'7D5FFDBAE67FD395E4853F940D6D7717CBF273AE4BBDC4F1E FBD2' +
'FABF2F6DF6C8BB99EFDA583A9CA4A30BA3E2899567D262A63 46C5' +
'2782BC3C333DC2141F9D668B6763A49EB55E3E78D6F432C65 A818' +
'373683F14A4DCB881B9B0AF9DEBEC8DB8D658B9049CE01025 BAF2' +
'67908E69664DBA371F215E1B3CFB642A6E791C2DBE89BDA41 8FAE' +
'4E47591BFD1C7D13AC91DCB19A8AAD93BAD1CA879C8F358DA 0887' +
'093CBBD0ED953F596B466ED87F380B936917B0FA351087CEE F2EA' +
'411ED97E44F822E5B8EE7154847904B0E74F7D1B729EC0DE1 33CD' +
'A7C2E5A8B4ED9DFC523D58F7C4525D648EFC0FD487619DB77 50BC' +
'4073EDF415E011C9394748A2627B9E66CE758B385CEBBF783 73D7' +
'21679A4504DB2113C47A530FF348F7847B65312993510BF78 BFE0' +
'12DE6D41C50EDFF0E06AB081477E47FC7CE4677971AB46A6F EF0B' +
'40570EB3D54371599735DA0D7784D70CF169EA9A337815B25 A9FD' +
'4ADF30F09C84A721B19BBFFC9A3D86');
wait(200 + random(200));
result:= findbitmapin(managemine, xx, yy, 21, 414, 196, 429)
end;
//Clicking
function pick(action, object1: string): boolean;
var attackchicken: integer;
dropcoal: integer;
pickpocketmasterfarmer: integer;
usequicklybankbooth: integer;
storeallcoal, storeallcopper: integer;
teleportaudbury: integer;
cancel: integer;
xx, yy: integer;
picked: boolean;
begin
picked:= false
if action = 'attack' then
begin
if object1 = 'chicken' then
begin
attackchicken:= BitmapFromString(44, 13, 'z78DAED56410EC0' +
'2008FB9207CD3EB0ECFF4F5AE22E24ACAE0872711C3818A4D 240B' +
'19DADD6A3FDBEFB4B584CB652A41FC7E4D5F885287928DDFC 588F' +
'21741D99C90342F4F3A051641E7DB20F0FEBE23379B02A86A 72E4' +
'64F505F8DB35967F602867057F0C0EB09338FE34944AFF530 1035' +
'179A07464F785CC4C09807EB0E8DD2874C1EDEBBCBA70FA87 BAD7' +
'B338707461F509F78FE51FCDE9CAB774E27E539A3C656ADD0 B7D0' +
'5D2B229F2DB6967DFC0D40FBF92A');
wait(100 + random(100));
if FindBitmap(attackchicken, xx, yy) = true then
begin
picked:= true
slowmcbox(xx - 1, yy + 5, xx + 42, yy + 10, true);
end;
end;
end;
if action = 'pickpocket' then
begin
if object1 = 'master farmer' then
begin
pickpocketmasterfarmer := BitmapFromString(83, 6, 'z78DAC' +
'D56490EC02008FC92074D3FD0F4FF4F6AA21753840C039A72 F040' +
'86A5320E6D77ABF57A262BDD5AF7C7CF48E611839FB99DE3B D9DA' +
'C9BD58F9CCBECB1F15948E42B100FC2198E635CE61DC878AC 3697' +
'3299C60D9B211A1EE5E16A9ADFBA2B8CF44BBC5D4B33041FE F414' +
'679EFCA8E45666DABB4D79FA554DC1B8F6B42A4372F4B77AB 3AA7' +
'D2B8269C9938F2BEB49C9C26787704A2097FD8E3B64AE39A7 07EE' +
'2FCCDB079904D91F53788C7BE7A2BA0A9');
wait(400 + random(250));
if FindBitmap(pickpocketmasterfarmer, xx, yy) = true then
begin
slowmcbox(xx, yy, xx + 82, yy + 5, true);
picked:= true
end;
end;
end;
if action = 'drop' then
begin
if object1 = 'coal' then
begin
dropcoal := BitmapFromString(54, 7, 'z78DA3330000153175313' +
'13F3C14CBAB9591A981840488341E0665CEE71C301B09940A C4AF' +
'2D4532B0C9175219394AB273E0C0D9000A61A64595C2143AA 7A6A' +
'8521A67A98BDD8438672F5F8FD8B3F4CA82B4EBB3024C61C5 CE99' +
'0787388F1D7700D4362D2E1500F434C97E312A15618922B4E ACBF' +
'70D511F8CB4F62D4935753E02E79F0E54A6AE56500125AFAC 2');
wait(200 + random(200));
if FindBitmap(dropcoal, xx, yy) = true then
begin
slowmcbox(xx, yy, xx + 53, yy + 6, true);
picked:= true
end;
end;
end;
if action = 'use-quickly' then
begin
if object1 = 'bank booth' then
begin
usequicklybankbooth := BitmapFromString(143, 8, 'z78DAED' +
'98410E84200C45AFC44233179878FF234D32B33183D5D7FE8 298D' +
'0050B52B194FFA0B0BED76579ADB3C5EDB6B3F235DD33D696 F21B' +
'F97F7CABBF75ABFFF7AEC89578468B79042E265993ACD6646 DA77' +
'6AE195DAB449924124E50D999775E352FDC5389F96A4DEBF6 788E' +
'96BF777CA2B1737FFEC7DCAFF40C109F7AF52DB3D4C2D5152 3575' +
'7AF57D53C03D6577A6C64C7B638621AF0FA5FF3E2655C67B3 6F06' +
'8EF560CDD77B06C554518071725BA83756E3594CDD4516A94 FC84' +
'9C7754834C6EB3A32B29281AC7E429FA5FFD819E4CDA44EEE 0864' +
'65ED42ADC9D248F1F6FBEAC07B49C9252B4BE1D6E993FBCE3 0265' +
'9B14A95EF514FD7A176CF7A3659B133C87B6FCA7AC1F0AA94 DF7D' +
'94170CEF6E40EA043F59EA0B461F7DF69D512B7F42D607B4E B191' +
'2');
wait(200 + random(200));
if FindBitmap(dropcoal, xx, yy) = true then
begin
slowmcbox(xx, yy, xx + 142, yy + 5, true);
picked:= true
end;
end;
end;
if action = 'store all' then
begin
if object1 = 'copper' then
begin
storeallcopper := BitmapFromString(101, 6, 'z78DAED56410A' +
'80300CFB520F1BE25DF6FF27898A30E85232366727E6D0431 7BBD' +
'294C5940EC42D86B0A09832C8099BEF2DDAFDA3D3DA3CBE7D 9520' +
'579C717ABD26CF706CFEBBCCDAFE35FC6C57FE551EFDF3F52 9AFA' +
'F28D81C541929DB52937FBB50350FDBA5F9779F654D3DF399 778C' +
'9967BB46ED9EF50D6744FC19F3BDD47C4223C6C5FEED1A99D 7B1E' +
'4389633320E357EBB04C0FF5F3D9E39EB44DEF2B60A397F07 1C4D' +
'338E');
wait(200 + random(200));
if FindBitmap(storeallcoal, xx, yy) = true then
begin
slowmcbox(xx, yy, xx + 100, yy + 6, true);
picked:= true
end;
end;
if object1 = 'coal' then
begin
storeallcoal := BitmapFromString(48, 10, 'z78DADD56410E80' +
'200CFB120788F16EF8FF934C30C6C5D1A508EA74871D6A195 BB30' +
'6D392629CB288504222A97064D67C1BB773CE738861CBFBED 07C2' +
'5418956B9D9C2742F3DEA18FEE479ED288077D7A74E8D7E7C 96D6' +
'9D5C70E3FFAC8538C13793EEF2F7BBBDED207F9114DDDCFFF 96BF' +
'10DFAE83F687A9F36F7D98FDF1AC8FEE0A21A3F469C53DE88 35C8' +
'0DE77DB2963FDC5FC69A0AFAD3893F51BC133AFF1EDFE570F C87D' +
'06');
wait(200 + random(200));
if FindBitmap(storeallcoal, xx, yy) = true then
begin
slowmcbox(xx, yy, xx + 47, yy + 9, true);
picked:= true
end;
end;
end;
if action = 'teleport' then
begin
if object1 = 'audbury' then
begin
teleportaudbury := BitmapFromString(91, 6, 'z78DAED96C10D8' +
'030084557EAA18D0B18F71FC9A45E88283E69A9C6C8C1C397 8285' +
'D74A994BCED3222C552B552FEAAD34E933C69F78DECDBE5F9 B127' +
'9CA2A49FD2C1AC942BEAA577C8F7E4488D63723DD89F6D7AB EC98' +
'9A7CBB17DA08213EDDE6A425BEDE8B3F2623E46DBA7DE3112 A482' +
'F7A91C0F5BE79FBECE5AA23BEF33B46FF1E21117A3421E9C4 7C7F' +
'AB9F906709217317AFBC7D93704FC295EF8E22336D1C2176B 5ED1' +
'980F8B7C42767C49EB556DD70F1CD');
wait(200 + random(200));
if FindBitmap(teleportaudbury, xx, yy) = true then
begin
slowmcbox(xx, yy, xx + 47, yy + 9, true);
picked:= true
end;
end;
end;
if picked = false then
begin
cancel := BitmapFromString(37, 6, 'z78DA337531353131371D76A' +
'41B1810AF121310AF12BF5D949B4F9EEF904D304002B84CC6 B497' +
'78F5063800252EA124EE90ED22DE0DF8D5131FCEC488531E7 7C4D' +
'B452DDFE10A615CBE233EE5D0479CF870C6F417B27A00F153 36E7' +
'');
wait(1000 + random(500));
if FindBitmap(cancel, xx, yy) = true then slowmcbox(xx, yy + 4, xx + 36, yy + 5, true);
end;
result:= picked
end;
//Colours
procedure clickmscolour(colour: integer; left, ran: boolean);
var xx, yy: integer;
begin
if findcolor(xx, yy, colour, 4, 4, 515, 337) then
begin
wait(100 + random(200));
if ran = false then
begin
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
if ran = true then
begin
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
end;
end;

function mscolour(colour: integer): boolean;
var xx, yy: integer;
begin
result:= findcolor(xx, yy, colour, 4, 4, 515, 337)
end;

function mmcolour(colour: integer): boolean;
var xx, yy: integer;
begin
result:= findcolor(xx, yy, colour, 572, 10, 722, 159)
end;

function invcolour(colour: integer): boolean;
var xx, yy: integer;
begin
result:= findcolor(xx, yy, colour, 567, 211, 729, 454)
end;

function invcolourtol(colour, tolerance: integer): boolean;
var xx, yy: integer;
begin
result:= findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance)
end;

procedure clickinvcolour(colour: integer; left, ran: boolean);
var xx, yy: integer;
begin
if findcolor(xx, yy, colour, 567, 211, 729, 454) then
begin
wait(100 + random(200));
if ran = false then
begin
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
if ran = true then
begin
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
end;
end;

procedure clickinvcolourtol(colour, tolerance: integer; left, ran: boolean);
var xx, yy: integer;
begin
if findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance) then
begin
wait(100 + random(200));
if ran = false then
begin
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
if ran = true then
begin
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
end;
end;

procedure clickmmcolour(colour: integer; left, ran: boolean);
var xx, yy: integer;
begin
if findcolor(xx, yy, colour, 572, 10, 722, 159) then
begin
wait(100 + random(200));
if ran = false then
begin
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
if ran = true then
begin
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(300));
clickmouse(xx, yy, left);
end;
end;
end;
//Compass
procedure makecompass(direction: string; GoUp: boolean);
var dyrection: integer;
begin
if goup = true then SendArrowWait(0, 1500 + random(500))
if (direction = 'n')or(direction = 'N') then dyrection:= 0
if (direction = 'e')or(direction = 'E') then dyrection:= 90
if (direction = 's')or(direction = 'S') then dyrection:= 180
if (direction = 'w')or(direction = 'W') then dyrection:= 270
repeat
if (rs_GetCompassAngleDegrees = dyrection) = false then sendarrowwait(1, 60 + random(30));
wait(random(6));
until rs_GetCompassAngleDegrees = dyrection
end;
//Detection
function events: boolean;
var xx, yy: integer;
begin
result:= false
if mmcolour(255) then result:= true
if (findcolor(xx, yy, 255, 253, 150, 270, 163))or(findcolor(xx, yy, 65280, 253, 150, 270, 163)) then result:= true
end;

//Barley works
function underattack: boolean;
var xx, yy: integer;
begin
result:= false
if (findcolor(xx, yy, 255, 253, 150, 270, 163))or(findcolor(xx, yy, 65280, 253, 150, 270, 163)) then result:= true
end;

procedure fixflag;
begin
mcbox(647, 82, 649, 84, true);
end;
//Symbols (Actually these wern't done well, sorry)
function magicsymbol(fix: boolean): boolean;
var magicsymbol1, xx, yy: integer;
begin
result:= false
magicsymbol1:= BitmapFromString(7, 6, 'z78DA85CB410EC020084' +
'4D12B015A2DCB42F1FE476AE26C30C67443263F0F6B168F8F DA89' +
'2C5C3A8BCD9277BEE8E3D297499BC67DFC4587CC063BFF2E7 2F38' +
'BCC66F33F7276AF5288213FB3CB395B');
if findbitmap(magicsymbol1, xx, yy) then result:= true
if fix = true then
begin
if (findbitmap(magicsymbol1, xx, yy)) = false then
begin
if mmcolour(1189868) then
begin
if mmcolour(1089013) then result:= true
end;
end;
end;
end;

procedure clickmagicsymbol;
begin
clickmmcolour(1089013, true, true);
end;

function banksymbol(fix: boolean): boolean;
var banksymbol1, xx, yy: integer;
begin
result:= false
banksymbol1 := BitmapFromString(6, 8, 'z78DA733471747134B3B4' +
'B07035B28490CEAE4E6EC6C610D200040C1D91D440C44D1D4 D8D0' +
'C0C91D9B45083E91E080951834B25B239982AF1DB85A90600 5414' +
'4224');
if findbitmap(banksymbol1, xx, yy) then result:= true
if fix = true then
begin
if (findbitmap(banksymbol1, xx, yy)) = false then
begin
if mmcolour(3391438) then
begin
if mmcolour(2723480) then result:= true
end;
end;
end;
end;

procedure clickbanksymbol;
begin
clickmmcolour(3391438, true, true);
end;
//Unreal
//Prompt
procedure summon(thing: string; amount: integer; strafe: boolean);
begin
repeat
sendkeysvb('{TAB}', false);
wait(100);
sendkeys('summon ' + thing);
wait(100);
sendkeysvb('{ENTER}', false);
wait(100);
if strafe = true then
begin
keydown(getkeycode(','));
wait(250);
keyup(getkeycode(','));
keyup(getkeycode(','));
end;
amount:= amount - 1
until(amount = 0);
end;

procedure command(thing: string; amount: integer);
begin
repeat
sendkeysvb('{TAB}', false);
wait(100);
sendkeys(thing);
wait(100);
sendkeysvb('{ENTER}', false);
wait(100);
amount:= amount - 1
until(amount = 0);
end;

~RAM
TheGuyWhoGotOn
08-16-2007, 01:22 PM
In the original file it was more of an archive like SRL here:



For those who think this sucks continue, if you atually think this
is good well...I don't know...

Anyway, I will say it, this is NOT for new people (newbs,noobs) or
people who are not willing to contribute. If you are one of those
people get SRL.

The Pleanet Hell Include works perfectly, no glitches, because...It
is not very....I don't know how to say it...it just has what people
need/requested. Nothing further, it works, end of story. I will
honestly say that with V1 the only happy people will be staff and
people who need this to run a script.

Sorry, but this is mainly meant for community, staff, suggest
something if you want something added, everything works out!

Thanks,
TheGuyWhoGotOn


My include will never be as flexible as SRL but it is still and include. I'm going to come out with V2 because I personally don't like it right now...It's going to have tons more RS functions.

I just don't like deceiving people. I'm sorry if I offended you. I still want to be in SRL. that readme is outdated because of the RS updates, it is not perfect anymore.

I don't want this to be a single project, few people know that however. This is a little bit of V2:


//This is the Planet Hell Include V2 (You can now read how to use things)

//Main
const warning=true;

const fadespeed=20; //this is how fast the SCAR window fades in the beginning (Max 255)
waittime=500; //this is how long it waits in between fading in and out
fade=true; //Make this false if the fading is causing problems.

procedure kewl;
var i: integer;
begin
if fade = true then
begin
for i := 255 downto 0 do
begin
i:= i - fadespeed
MakeWindowTransparent(GetSelf.Handle, i);
end;
wait(waittime);
for i := 0 to 255 do
begin
i:= i + fadespeed
MakeWindowTransparent(GetSelf.Handle, i);
end;
end;
end;

procedure Disguise1(s: string);
begin
GetSelf.Caption := s;
GetApplication.Title := s;
end;

procedure setupph;
var number: integer;
version: string;
begin
number:= getscarversion
if number = 301 then version:= 'Divi 3.01'
if number = 302 then version:= 'Divi 3.02'
if number = 303 then version:= 'Divi 3.03'
if number = 304 then version:= 'Divi 3.04'
if number = 305 then version:= 'Divi 3.05'
if number = 306 then version:= 'Divi 3.06'
if number = 310 then version:= 'Divi 3.10'
if number = 311 then version:= 'Divi 3.11'
if number = 312 then version:= 'Divi 3.12'
if number = 203 then version:= '2.03'
disguise1('SCAR '+version+' - Powered by Planet Hell');
kewl;
end;

//This is for validating purposes PLEASE DO NOT MODIFY
//If you want the extra warning gone look at line 4
var scriptname: string;
procedure validate;
var safe: boolean;
begin
if scriptname = 'TGWGOslotsbeta' then safe:= true
if scriptname = 'TGWGOcpautofisher' then safe:= true
if scriptname = 'TGWGOautotalker' then safe:= true
if scriptname = 'TGWGOchickenSlayer' then safe:= true
if scriptname = 'TGWGOsmplpwrcutter' then safe:= true
if safe = true then
begin
writeln('This is an official PH script, it is 99% Safe to use.');
if warning = false then writeln('Details at: planet.hell.owns@gmail.com');
if warning = true then
begin
writeln('It may not be safe if scriptname equals the incorrect name');
writeln('OR if you got the PH include from somebody else');
writeln('If you wish to check the list email planet.hell.owns@gmail.com');
writeln('If you wish to remove the exteneded warning open PH.scar and');
writeln('make warning=false');
end;
end;
end;
//General

//Created by: TheGuyWhoGotOn
//Description: Human-like moves the mouse, then clicks.
//Used Like: perfectmouse(307, 102, 3, 3, 2, 2, 10, 10, true);
procedure perfectmouse(x, y, xran, yran, xshake, yshake, delay, delran: integer; left: boolean);
var xx, yy, xx1, yy1, rand: integer;
begin
getmousepos(xx, yy);
getmousepos(xx1, yy1);
x:= x - xran + random(xran * 2)
y:= y - yran + random(yran * 2)
xx:= xx - x
yy:= yy - y
repeat
if (xx > 0)or(xx = 0) then
begin
rand:= 1 + random(xshake)
xx:= xx - (rand)
xx1:= xx1 - (rand)
end;
if xx < 0 then
begin
rand:= 1 + random(xshake)
xx:= xx + (rand)
xx1:= xx1 + (rand)
end;
if (yy > 0)or(yy = 0) then
begin
rand:= 1 + random(xshake)
yy:= yy - (rand)
yy1:= yy1 - (rand)
end;
if yy < 0 then
begin
rand:= 1 + random(xshake)
yy:= yy + (rand)
yy1:= yy1 + (rand)
end;
movemouse(xx1, yy1);
wait(delay + random(delran));
until((xx = 0)and(yy = 0))
wait(delay * 25 + random(delran * 7));
getmousepos(xx, yy);
holdmouse(xx, yy, left);
wait(31 + random(50));
releasemouse(xx, yy, left);
end;

//Created by: TheGuyWhoGotOn
//Description: Human-like moves the mouse.
//Used Like: perfectmove(307, 102, 3, 3, 2, 2, 10, 10);
procedure perfectmove(x, y, xran, yran, xshake, yshake, delay, delran: integer);
var xx, yy, xx1, yy1, rand: integer;
begin
getmousepos(xx, yy);
getmousepos(xx1, yy1);
x:= x - xran + random(xran * 2)
y:= y - yran + random(yran * 2)
xx:= xx - x
yy:= yy - y
repeat
if (xx > 0)or(xx = 0) then
begin
rand:= 1 + random(xshake)
xx:= xx - (rand)
xx1:= xx1 - (rand)
end;
if xx < 0 then
begin
rand:= 1 + random(xshake)
xx:= xx + (rand)
xx1:= xx1 + (rand)
end;
if (yy > 0)or(yy = 0) then
begin
rand:= 1 + random(xshake)
yy:= yy - (rand)
yy1:= yy1 - (rand)
end;
if yy < 0 then
begin
rand:= 1 + random(xshake)
yy:= yy + (rand)
yy1:= yy1 + (rand)
end;
movemouse(xx1, yy1);
wait(delay + random(delran));
until((xx = 0)and(yy = 0))
end;

//Created by: TheGuyWhoGotOn
//Description: Human-like moves the mouse, then clicks in the box.
//It seemed way to slow so I made another one.
//Used Like: slowmcbox(362, 222, 926, 453, true);
procedure slowmcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
begin
xx:= xx + random(xx2 - xx)
yy:= yy + random(yy2 - yy)
perfectmouse(xx, yy, 1, 1, 2, 2, 10, 10, true);
end;

//Created by: TheGuyWhoGotOn
//Description: The same thing like slowmcbox just faster
//Used Like: Slowmcbox
procedure mcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
begin
xx:= xx + random(xx2 - xx)
yy:= yy + random(yy2 - yy)
perfectmouse(xx, yy, 0, 0, 2, 2, 1, 1, true);
end;

//Created by: TheGuyWhoGotOn
//Description: The same thing like mcbox just doesn't click
//Used Like: mbox(362, 222, 926, 453);
procedure mbox(xx, yy, xx2, yy2: integer);
begin
xx:= xx + random(xx2 - xx)
yy:= yy + random(yy2 - yy)
perfectmove(307, 102, 0, 0, 2, 2, 10, 10);
wait(100 + random(100));
end;

//I don't know who made this it's simple to make though
//Edited by: TheGuyWhoGotOn
//Description: Just types, good for creating procedures
//Used Like: typesend('Hello World');
procedure typesend(text:string);
var LoadNumber:Integer;
begin
LoadNumber:=1;
repeat
SendKeys(StrGet(Text, loadnumber));
LoadNumber:=LoadNumber+1;
Wait(100+random(100));
until(LoadNumber>Length(text));
end;

//Created by: TheGuyWhoGotOn
//Description: Like Randomrange except in range(0, 2) it would
//include the 2.
function range(first, last: integer): integer;
begin
result:= first + random(last + 1)
end;


I'm not competing with SRL at all I like the community and I like most of the people in it...though I don't post often.

All I wanted was that to be changed...not an argument.