terminator
2007-03-15 15:32:08
<!– BEGIN TEMPLATE: formanswers –>
terminator - SRL Member Application Form
terminator
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
No
Other Communitys
Runescape, Fagex
How Long have You Played Runescape
2 year
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
I love to script. That all i do. Its so fun. I have made a ok woodcutter and a awesoem rune crafter. Its a air crafter. It works great for me. I also like to play runescape. Scripting is more fun though. If i become a member i hope i will be able to add my scripting knowledge to the website. Thank You.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Terminators aircrafter;
//—————–//////////—————-//
//—————–////////// —————//
//——————–///——————–//
//——————–///——————–//
//——————–///——————–//
//——————–///——————–//
//Version 4.0//
//v.1 - had no antirandom and did not work correctly//
//v.2 - added antirandoms//
//v.3 - fixed makerunes procedure//
//v.4 - current version - better antis, added autotalker and fixed bugs//
var
bankc, treec, esscrafted, trips, totalairs: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Skill Bizkit';
Players[0].Pass := 'bukatow';
Players[0].Nick := '';
Players[0].loc := 'Not logged in yet.'; //leave alone!
Players[0].Boolean1 := true; //true = air tiara, false = air tally.
Players[0].Integer1 := 100; //amount of ess to use on account.
Players[0].Active := true;
end;
//- - - Don't touch below - - -\\
function checktext: boolean;
var
text, text2: integer;
begin
text := DTMFromString('78DA6314606060906000036608C570BAC4882' +
'10A483302F17F2060D4C55473BFC38A2100AA0604187D818430AA' +
'1A19592EB81A30CEC534E72E92394C400C00DB9C0BA4');
text2 := DTMFromString('78DA630C636060906700032608C570B3DA8C2' +
'100483302F17F20604C0232A450D53C6DB782AB0101C65A20218D' +
'AAE6560DC21C305E8A69D7F32E6BB81A90180080370E05');
begin
if (isuptextmulti('draw 1', 'une', 'esse')) or (isuptextmulti('ure', 'une', 'esse')) then
begin
result := true
Exit;
end else
if (finddtm(text, x, y, 79, 4, 187, 23)) or (finddtm(text2, x, y, 79, 4, 189, 23)) then
begin
result := true
Exit;
end else
result := false;
savescreenshot('newtext.bmp');
end;
FreeDTM(text);
FreeDTM(text2);
end;
procedure FinalLogout;
begin
while (LoggedIn) do
begin
FindNormalRandoms;
Wait(200 + random(500));
end;
end;
procedure FreeBitmapMulti(Bmp: array of Integer);
var i: Integer;
begin
for i:= 0 to GetarrayLength(Bmp)-1 do
begin
if (Bmp > 0) then FreeBitmap(Bmp);
end;
end;
function Check: boolean;
var i, airtally, tiara: integer;
begin
airtally := BitmapFromString(17, 6, 'z78DAE58F4D0EC5200884AF042A7F' +
'4B287AFF23156317DDBDEEDF7C094163661C8012FAE5B83136569' +
'529A95DBC481932620507F3E42D6564383767521F39127E0B7D7A' +
'2BCCA6A52EA5C21464298A16215D9A1027E7DB9F81BC506AD4BEA' +
'404EEE7A791917A11DA148FDB936582F2B4E08B4741342929A8F4' +
'2965B815E160CBBB95611DA15AA50EEDEFFF9F296DAFEF2CF81BD' +
'D1CEB7D8E');
tiara := BitmapFromString(15, 9, 'z78DABD92416EC4300845AFE4D806' +
'C3F203C9FD8F5452BB9A44D14CBB2A4FB258C0877C42DCA3577AF' +
'39633B6E7BB6A7A47B3F996477CD6943E2CF1D112E6604F88E9A6' +
'FFAAFF45F9AA09D1504753D1A1AE5B42628259D34A4DFEBEF352E' +
'611C39D6D4F8E1CC2062B4907A037E5CF3BBFE66E22631FE1EA5B' +
'52534F8F3831860133CFA9347E3C79B3F3F33AA8CACAEEDEBD2FC' +
'DDDBAAD1C072AEACC1FBDB700A9A68BD3C32667BA7B9E6CF63A59' +
'582C7DC58E959F1FA287843469A4D4A83D9567EFD5C9288E24F23' +
'7A09BCF0301B7829E7C5F765EF3E2CC3FC5179358ACAD');
case (Players[CurrentPlayer].Boolean1) of
true: begin
for i := 5 downto 4 do
begin
Gametab(i);
if (FindBitmapToleranceIn(tiara, x, y, mix1, miy1, mix2, miy2, 35)) then
begin
MMouse(x, y, 4, 4);
Wait(20 + random(100));
if(IsUpTextMulti('move','ir t','iara'))then
begin
result := true;
if (i = 4) then begin GetMousePos(x, y); Mouse(x, y, 1, 1, True); end else
Break;
end else
result := false;
end;
end;
end;
false: begin
GameTab(4);
if (FindBitmapToleranceIn (airtally, x, y, mix1, miy1, mix2, miy2, 40)) then
begin
MMouse(x, y, 3, 3);
Wait(20 + random(100));
if (IsUpTextMulti('ir t', 'alis', 'sman')) then
result := true
else
result := false;
end;
end;
end;
FreeBitmapMulti([airtally, tiara]);
end;
function FindFallyColor(x1, x2, y1, y2: integer): Integer; //Taken from SRL, edited by me.
var
C, TX, TY, FaladorRoad, FaladorRoad2, FaladorRoad3, FaladorRoad4, FaladorRoad5, FaladorWater, FaladorWater2, color : integer;
begin
while (C < 275) do
begin
FaladorRoad := BitmapFromString(6, 6, 'z78DAB370B2303773B51' +
'876240037E33211');
FaladorRoad2 := BitmapFromString(15, 12, 'z78DA33B33475357131239134200' +
'2988D9A3C6AF2A037D9C4CDC4C4D0C46014900800382BDEF8');
FaladorRoad3 := BitmapFromString(11, 11, 'z78DA33B730373433302782C405C' +
'C474D183561900100ACEE8F44')
FaladorRoad4 := BitmapFromString(7, 7, 'z78DA33B53071333134C54B1A8081E' +
'91051490B0000A7893C49');
FaladorRoad5 := BitmapFromString(11, 11, 'z78DA333734733275341F2547C96' +
'144020085F9A1A7');
C := C + 10;
if (FindBitMapToleranceIn(FaladorRoad, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad2, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad3, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad4, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad5, TX, TY, x1, x2, y1, y2, C)) then
begin
color := GetColor(TX, TY);
Result := color;
Exit;
end;
end;
if (result = 0) then writeln('ERROR: Color was NOT found!');
FreeBitmapMulti([FaladorRoad, FaladorRoad2, FaladorRoad3, FaladorRoad4, FaladorRoad5, FaladorWater, FaladorWater2]);
end;
function FindSymbolAcc(var mx, my: integer; symbol: string): boolean;
var i: integer;
begin
for i := 8 downto 1 do
begin
SymbolAccuracy := i / 10;
if (Findsymbol(mx, my, symbol)) then
begin
if (symbol = 'bank') and (bankc = 0) then bankc := GetColor(mx, my);
if (symbol = 'tree') and (treec = 0) then treec := GetColor(mx, my);
result := true;
Break;
end;
end;
end;
procedure SureHumanMouseFlag(mx, my, rx, ry, ff: integer);
begin
Mouse(mx, my, rx, ry, true);
if not(FlagPresent) then WaitTillFlag;
FFlag(ff);
end;
function randomrange(min, max: integer): integer; //thanks for this Boreas.
begin
result := min + random(max - min + 1);
end;
procedure walktoalter;
var
roadwalkcolor, mx, my: integer;
begin
//ActivateClient;
MakeCompass('S');
roadwalkcolor := FindFallyColor(605, 106, 678, 130);
if (FindColorSpiralTolerance(x, y, FindWaterColor, 641, 29, 717, 60, 5)) then
SureHumanMouseFlag(x - 20, y + 12, 3, 3, 5 + random(3));
begin
RadialRoadWalk(roadwalkcolor, 90, - 23, 44, - 1, 0);
FindNormalRandoms;
RadialRoadWalk(roadwalkcolor, 55, 15, 55, - 1, + 1);
if (FindSymbolAcc(mx, my, 'tree')) or (FindMMColorTol(x, y, treec, 15)) then
begin
SureHumanMouseFlag(mx - 8, my + 9, 3, 3, 7 + random(3));
FindNormalRandoms;
SureHumanMouseFlag(randomrange(655, 660), 40 + random(6), 3, 3, 7 + random(3));
FindNormalRandoms;
SureHumanMouseFlag(randomrange(675, 680), 29 + random(4), 3, 3, 0);
case (Players[CurrentPlayer].Boolean1) of
true : Exit;
false : begin MouseItem(1, true); Exit; end;
end;
end else
Writeln('player is lost or tree symbol is NOT visible.');
Players[CurrentPlayer].loc := 'Lost';
FinalLogout;
end;
FindNormalRandoms;
end;
procedure enteralter;
var
alter1, craft1, altertime: integer;
begin
alter1 := BitmapFromString(39, 4, 'z78DAE591510EC4200844AF848096' +
'FED6A6F73FD20EA21B1A93BDC04A3A3680D4D7E12E2A84A7CBC1C' +
'AC635540CB90235A94A4AD83B1E196F32AA3CD5F3863C7636217E' +
'42C54F75F54515A1DDE7BC0359D3233A43F709738E77B6D05C6D5' +
'4ADD6A1AD11F60BDFB9F451FFF24969BDE8C0CCB7D8543026A212' +
'2CC115D459A3BAD4FF47BECF24F54A0945AD73648E991FEC716A2' +
'79AA4863957EE099DA48638ABF7DC3BA9CF18770D075DDDE3F225' +
'5D11EF253C4AD4923DF5DAF0D175DC6ADE331125C6B2BBBC7A7EF' +
'9BBEBE24594E5B2FB4B7FB93E7C7BBC92');
craft1 := BitmapFromString(48, 5, 'z78DAED924112C3200845AF6445D4' +
'2CA389F73F523F9A109CA45D7559191844633E4FD9851C12DC1DF' +
'1C557E505BFCC074F5BA040B487065BD9616F812F21493ECC5624' +
'7E5AC5496E44CCE7A85F3DC7B1931334547B66D7D678872DDC606' +
'B74D1718167E6283B37CDEF51579D1996C944C6F2A161B45181A6' +
'1CE2D08379A688B9A7F6D4DD503E3159BE12FBC684A8A2775B6F9' +
'C98EDBFE4E6A842A1EF3B85A1DC63D5DE1FF9C051EFBD57C9673E' +
'4AE6A494273E9E0AAD5D5BB9F3D1EE48198A9E667AD77732BFA59' +
'9DB49B5D74C7E74DD2BC79B315DCFE7F4186149295D3A8564B891' +
'8996CF78692377FFF11F3F1A6FC8B41F5C');
MarkTime(altertime);
repeat
if (FindBitmapToleranceIn(Alter1, x, y, msx1, msy1, msx2, msy2, 55)) then
MMouse(x + 5, y + 20 + random(8), 3, 3);
until (IsUpTextMulti('nter', 'yster', 'ruin')) or not(IsUpTextMulti('nter', 'yster', 'ruin')) and (TimeFromMark(altertime) > 15000)
if (IsUpTextMulti('nter', 'yster', 'ruin')) and not (TimeFromMark(altertime) > 15000) then
begin
GetMousePos(x, y);
Mouseflag(x, y, 1, 1);
FreeBitmap(Alter1);
FindNormalRandoms;
while not(FindMSColorTol(x, y, 11132385, 15)) do
wait(500 + random(500));
begin
MarkTime(altertime);
repeat
if (FindBitmapToleranceIn(Craft1, x, y, msx1, msy1, msx2, msy2, 35)) then
MMouse(x + 15 + random(5), y - 5, 5, 5);
until (IsUpTextMulti('raft','ltar','tar')) or not(IsUpTextMulti('raft','ltar','tar')) and (TimeFromMark(altertime) > 15000)
if (IsUpTextMulti('raft','ltar','tar')) and not (TimeFromMark(altertime) > 15000) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, true);
FreeBitmap(Craft1);
FindNormalRandoms;
Flag;
while (InventoryCount > 3) do
Wait(100 + random(100));
begin
Wait(400 + random (200));
MarkTime(altertime);
repeat
if (FindMSColorTol(x, y, 11132385, 20)) then
begin
MMouse(x, y, 3, 3);
Wait(200 + random (200));
end;
until (IsUpTextMulti('ort', 'rtal', 'se Por')) or not(IsUpTextMulti('ort', 'rtal', 'se Por')) and (TimeFromMark(altertime) > 15000)
if (IsUpTextMulti('ort', 'rtal', 'se Por')) and not (TimeFromMark(altertime) > 15000) then
begin
GetMousePos(x, y);
MouseFlag(x, y, 1, 1);
while (IsLoading) do
Wait(2000 + random(1400));
end else
begin
Writeln('Can NOT find portal!');
Players[CurrentPlayer].loc := 'Lost at portal';
FinalLogout;
end;
end;
end else
begin
Writeln('Can NOT find air crafting alter!');
Players[CurrentPlayer].loc := 'Lost at crafting alter';
FinalLogout;
end;
end;
end else
begin
Writeln('Can NOT find alter!');
Players[CurrentPlayer].loc := 'Lost at mysterious ruins';
FinalLogout;
end;
end;
procedure OppositeRun;
begin
GameTab(11);
if (GetColor(635, 423) = 1711220) then
begin
SetRun(false);
GameTab(4);
end else
begin
SetRun(true);
GameTab(4);
end;
end;
function walkback: boolean;
var
ColorRoad, i, mx, my: integer;
begin
//ActivateClient;
Wait(100 + random(200));
ColorRoad := FindRoadColor;
FindNormalRandoms;
MakeCompass('N');
result := false;
Mouse(randomrange(681, 688), randomrange(30, 35), 3, 3, true);
OppositeRun;
FFlag(5 + random(3));
FindNormalRandoms;
if (FindSymbolAcc(mx, my, 'tree')) or (FindMMColorTol(mx, my, treec, 15)) then
begin
SureHumanMouseFlag(mx - 3 + random(3), my + 3 + random(3), 5, 5, 5 + random(3));
x := 670;
y := 17;
if (FindColorSpiral(x, y, ColorRoad, mmx1, mmy1, mmx2, mmy2)) then
SureHumanMouseFlag(x, y, 0, 0, 5 + random(3));
FindNormalRandoms;
for i := 1 to 2 do
begin
RadialRoadWalk(FindFallyColor(626, 45, 661, 67), 27 , - 35, 55 + random(3), + 1, - 1);
FindNormalRandoms;
end;
if (FindSymbolAcc(mx, my, 'bank')) or (FindMMColorTol(mx, my, bankc, 15)) then
begin
MouseFlag(mx - 10 + random(5), my + 8, 2, 2);
FindNormalRandoms;
result := true;
end;
end;
end;
function AircraftLevel: integer;
var i: integer;
begin
for i := 1 to 9 do
begin
if (GetSkillLevel('RuneCrafting') < 11 ) then
begin
result := i;
break;
end else
if (GetSkillLevel('RuneCrafting') >= 11 * i) then
begin
result := i + 3;
Break;
end;
end;
end;
procedure withdrawess;
var
boothtime, boothBMP, boothBMP2, essence, pureess: integer;
begin
boothBMP := BitmapFromString(36, 4, 'z78DAB5CF410E84300885E12B5' +
'51E505D16ABF73FD298B18B1A8A191367F3AD08FC681580F46B4E' +
'A2C00B4266C803550C7960B05FBBE68BCA1B6DCD68C6F9DAD7F76' +
'D8B4C4803FBE64ED979A1D51BEEF9F9DF076D603B2E3AA3363156' +
'2A033383662FEFA8C4A7EDF7A8E47F6DE044EAEDDB2E1A0AD1400' +
'0536DDA31594E3F43D1B798');
boothBMP2 := BitmapFromString(23, 4, 'z78DA6DD13B0E04210C03D02B0' +
'1B103947CEF7FA48DC414334B9A272ADB0AB9A932E42334A03D26' +
'6ED4A30E56081713F2793B366604C742CA741406696FB368C43CE' +
'AE240F9182D6DD94A227D0481A88949B66364B4AEB7015B3A17A6' +
'14C7862AB4643BC2636461301302B7ED5C97DBB16358CB6D46B19' +
'65B45163A36EB1DB66A5AE66D4197F1516D7FB7BB943FEDE7A452' +
'A09E5810A163479074FC01079E7780');
essence := BitmapFromString(14, 14, 'z78DAEDD2410EC3200C04C02F91C' +
'46BE01810F9FF93EA029522D944AED463BDD21EC73E980F541406' +
'1ADAECC44172F22E195D99248DA3E4D671E3CC39A8E10D27320F7' +
'9E5AFB6F4D6260ADE7321497ACF2DEE5D8699714886ECF1956C98' +
'8C808FBCF09F2F374CA246CD23AFFCA57997BFBCDC30772A54666' +
'BDF216B932E4A92DE86FF7C79970DB35294271BEDF11DE67F7E3B' +
'2F02E5EFAD');
pureess := BitmapFromString(12, 7, 'z78DAA5CE3B0AC3301045D12D4' +
'996F53EA56449FB5F92079222454C1CCC85D70C1C46E4E4D06BAD' +
'C4A5AE1C0D9568A9AA3A0B828B24BAAAC9860E754B53C3DDC9491' +
'B456967A35579B0BFF74F999D5B34B8478B20BEC8374C9A297AAC' +
'B162E020B1309F982CE8683FB44FF342C38C239961F88E79F5DB0' +
'95E816FD6');
//ActivateClient;
MakeCompass('S');
Players[CurrentPlayer].loc := 'Bank';
MarkTime(boothtime);
repeat
if (FindBitmapToleranceIn(BoothBMP, x, y, msx1, msy1, msx2, msy2, 26)) or
(FindBitmapToleranceIn(BoothBMP2, x, y, msx1, msy1, msx2, msy2, 26))then
begin
MMouse(x, y, 5, 5);
Wait(100 + random(100));
end;
until (IsUpTextMulti('ank', 'nk bo', 'k boot')) or not (IsUpTextMulti('ank', 'nk bo', 'k boot')) and (TimeFromMark(boothtime) > 25000)
if (IsUpTextMulti('ank', 'nk bo', 'k boot')) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption(x, y, 'Use-quickly');
FreeBitmapMulti([BoothBMP, BoothBMP2]);
while not(BankScreen) do
Wait(200 + random(500));
begin
case (Players[CurrentPlayer].Boolean1) of
true : Deposit(1, 28, 2);
false : Deposit(2, 28, 2);
end;
begin
MarkTime(boothtime);
repeat
if (FindBitmapToleranceIn(essence, x, y, msx1, msy1, msx2, msy2, 15)) or
(FindBitmapToleranceIn(pureess, x, y, msx1, msy1, msx2, msy2, 15)) then
begin
MMouse(x + 4, y, 3, 3);
Wait(1 + random(5));
end;
until (CheckText) or not (CheckText) and (TimeFromMark(boothtime) > 10000)
if (CheckText) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption(x, y, 'Withdraw All');
while (BankScreen) do
CloseBank;
end else
begin
Writeln('Can NOT find ess in bank!');
Players[CurrentPlayer].loc := 'No essence in bank';
while (BankScreen) do
CloseBank;
FinalLogout;
end;
end;
end;
end else
begin
Writeln('Can NOT find bank booth!');
Players[CurrentPlayer].loc := 'Lost around bank';
FinalLogout;
end;
end;
Function AutoRespond: Boolean;
Var
Responce, Lvl: String;
RandomReply: Integer;
Begin
OldLine:= TheLine;
TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
NewLine:= TheLine;
If(GetChatName(Players[CurrentPlayer].Name))then
Begin
Exit;
End
If(OldLine=NewLine)then
Begin
Exit;
End
If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
Begin
WriteLn('autoer'+ChatName+'atuoer '+Chat);
RandomReply:= Random(10)+1;
Case (RandomReply) of
0 : Responce:= ('me?');
1 : Responce:= ('no');
2 : Responce:= ('im not an autoer, im a skiller');
3 : Responce:= ('no');
4 : Responce:= ('no im not');
5 : Responce:= ('me?');
6 : Responce:= ('im not!');
7 : Responce:= ('who?');
8 : Responce:= ('me, no');
9 : Responce:= ('?');
10 : Responce:= ('???');
End
TypeSend(Responce+' '+Name);
Result:= True;
End
If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= Random(24)+1;
Case (RandomReply) of
0 : Responce:= ('hehe');
1 : Responce:= ('lolol');
2 : Responce:= ('lol');
3 : Responce:= ('haha');
4 : Responce:= ('hihi');
5 : Responce:= ('ghehe');
6 : Responce:= ('lmao');
7 : Responce:= ('lmfao');
8 : Responce:= ('rofls');
9 : Responce:= ('fun');
10 : Responce:= ('nice');
11 : Responce:= ('lolz');
12 : Responce:= ('yep');
13 : Responce:= ('hola');
14 : Responce:= ('wow');
15 : Responce:= ('i bet');
16 : Responce:= ('rofl');
17 : Responce:= ('ghehehghehighhe');
18 : Responce:= ('cool');
19 : Responce:= ('…');
20 : Responce:= ('???');
21 : Responce:= ('wowzers');
22 : Responce:= ('grrr…');
23 : Responce:= ('rowr');
24 : Responce:= ('lolololololol');
25 : Responce:= ('ha ha ha!!!');
End
TypeSend(Responce);
Result:= True;
End
If(GetChatMessage('rc')) or (GetChatMessage('runecrafing')) or (GetChatMessage('runecraft'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Lvl:= IntToStr(GetSkillLevel('runecrafting'));
RandomReply:= Random(5)+1;
Case (RandomReply) of
0 : Responce:= ('i''m lvl '+Lvl+' runecrafting');
1 : Responce:= ('level '+Lvl+' rc');
2 : Responce:= ('lvl '+Lvl+' runecraft!');
3 : Responce:= (+Lvl);
4 : Responce:= ('i''m level '+lvl);
5 : Responce:= (+Lvl+' here :P');
End
TypeSend(Responce);
Result:= True;
End
If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= Random(9)+1;
Case RandomReply of
0 : Responce:= ('not much');
1 : Responce:= ('nothing');
2 : Responce:= ('bored');
3 : Responce:= ('aye?');
4 : Responce:= ('emmm..nothin');
5 : Responce:= ('nope');
6 : Responce:= ('booo');
7 : Responce:= ('no ty');
8 : Responce:= ('what');
9 : Responce:= ('….');
10 : Responce:= ('nothin');
End;
TypeSend(Responce);
Result:= True;
End;
If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= random(9)+1;
Case RandomReply of
0 : Responce:= ('ello');
1 : Responce:= ('sup');
2 : Responce:= ('yo');
3 : Responce:= ('whats up everyone');
4 : Responce:= ('whats up');
5 : Responce:= ('welcome');
6 : Responce:= ('allo allo');
7 : Responce:= ('wat up');
8 : Responce:= ('y0o');
9 : Responce:= ('=P');
10 : Responce:= ('what is up');
End
TypeSend(Responce);
Result:= True;
End
End;
procedure configure;
begin
Players[CurrentPlayer].Integer3 := Players[CurrentPlayer].Integer3 + 1;
case (Players[CurrentPlayer].Boolean1) of
true: begin
Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2 + 28
totalairs := totalairs + 28 * AirCraftLevel;
esscrafted := esscrafted + 28;
end;
false: begin
Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2 + 27
totalairs := totalairs + 27 * AirCraftLevel;
esscrafted := esscrafted + 27;
end;
end;
FindNormalRandoms;
trips := trips + 1;
ReportVars[0] := trips;
ReportVars[1] := totalairs;
ReportVars[2] := esscrafted;
end;
procedure PlayerStats;
var
active: string;
i: integer;
begin
for i := 0 to (HowManyPlayers) - 1 do
begin
if (Players.Active = true) then Active := 'True'
else Active := 'False';
Writeln('[[ = Player name: ' + (Players[i].Name) + ' – Player number: ' + (inttostr(i)) + ' – ACTIVE : ' + (active));
Writeln('[[ = Completed ' + inttostr(Players[i].Integer3) + ' trips, used up ' + inttostr(Players.Integer2) + ' essence, crafted ' + inttostr(Players.Integer2 * AircraftLevel) + ' airs.');
Writeln('[[ = Total time working for: ' + inttostr(Players[i].Worked));
Writeln('[[ = Players current location/status: ' + (Players[i].loc));
Writeln('[[ = –PLAYER STATS———————————————————————————————');
end;
end;
begin
Cleardebug;
SetUpSRL;
ScriptID := '83';
Mousespeed := 6 - random(3);
activateclient;
DeclarePlayers;
Wait(2000 + random(2000));
if not(LoggedIn) then LoginPlayer;
repeat
if not(LoggedIn) then break;
SetChat('on', 1);
SetChat('off', 2);
SetChat('off', 3);
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
HighestAngle;
if not(Check) then begin
FinalLogout;
Players[CurrentPlayer].loc := 'No item';
Break;
end else
case random(3) of
2: SetRun(true);
end;
if (InventoryCount < 14) then Withdrawess;
repeat
if not(LoggedIn) then break;
walktoalter;
enteralter;
if not(walkback) then begin
FinalLogout;
Players[CurrentPlayer].loc := 'Didnt walk back to bank.';
Progress;
break;
end else
withdrawess;
configure;
Progress;
if (switch) then if (Players[CurrentPlayer].Integer3 >= 5 + random(7)) then
begin
Writeln('Switiching to next player.');
FinalLogout;
NextPlayer(true);
Break;
end;
case random(5) + 1 of
2: BoredHuman;
4: BoredHuman;
end;
OppositeRun;
FindNormalRandoms;
until not(loggedin) or (esscrafted mod Players[CurrentPlayer].Integer1 = 0)
if (esscrafted mod Players[CurrentPlayer].Integer1 = 0) then
begin
Players[CurrentPlayer].loc := 'Done crafting';
Progress;
FinalLogout;
NextPlayer(false);
end else
if not(LoggedIn) then NextPlayer(false);
if (LoggedIn) then Progress;
until (false)
end.
//by the terminator//
——————————————————
<!– END TEMPLATE: formanswers –>
terminator - SRL Member Application Form
terminator
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
No
Other Communitys
Runescape, Fagex
How Long have You Played Runescape
2 year
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
I love to script. That all i do. Its so fun. I have made a ok woodcutter and a awesoem rune crafter. Its a air crafter. It works great for me. I also like to play runescape. Scripting is more fun though. If i become a member i hope i will be able to add my scripting knowledge to the website. Thank You.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Terminators aircrafter;
//—————–//////////—————-//
//—————–////////// —————//
//——————–///——————–//
//——————–///——————–//
//——————–///——————–//
//——————–///——————–//
//Version 4.0//
//v.1 - had no antirandom and did not work correctly//
//v.2 - added antirandoms//
//v.3 - fixed makerunes procedure//
//v.4 - current version - better antis, added autotalker and fixed bugs//
var
bankc, treec, esscrafted, trips, totalairs: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Skill Bizkit';
Players[0].Pass := 'bukatow';
Players[0].Nick := '';
Players[0].loc := 'Not logged in yet.'; //leave alone!
Players[0].Boolean1 := true; //true = air tiara, false = air tally.
Players[0].Integer1 := 100; //amount of ess to use on account.
Players[0].Active := true;
end;
//- - - Don't touch below - - -\\
function checktext: boolean;
var
text, text2: integer;
begin
text := DTMFromString('78DA6314606060906000036608C570BAC4882' +
'10A483302F17F2060D4C55473BFC38A2100AA0604187D818430AA' +
'1A19592EB81A30CEC534E72E92394C400C00DB9C0BA4');
text2 := DTMFromString('78DA630C636060906700032608C570B3DA8C2' +
'100483302F17F20604C0232A450D53C6DB782AB0101C65A20218D' +
'AAE6560DC21C305E8A69D7F32E6BB81A90180080370E05');
begin
if (isuptextmulti('draw 1', 'une', 'esse')) or (isuptextmulti('ure', 'une', 'esse')) then
begin
result := true
Exit;
end else
if (finddtm(text, x, y, 79, 4, 187, 23)) or (finddtm(text2, x, y, 79, 4, 189, 23)) then
begin
result := true
Exit;
end else
result := false;
savescreenshot('newtext.bmp');
end;
FreeDTM(text);
FreeDTM(text2);
end;
procedure FinalLogout;
begin
while (LoggedIn) do
begin
FindNormalRandoms;
Wait(200 + random(500));
end;
end;
procedure FreeBitmapMulti(Bmp: array of Integer);
var i: Integer;
begin
for i:= 0 to GetarrayLength(Bmp)-1 do
begin
if (Bmp > 0) then FreeBitmap(Bmp);
end;
end;
function Check: boolean;
var i, airtally, tiara: integer;
begin
airtally := BitmapFromString(17, 6, 'z78DAE58F4D0EC5200884AF042A7F' +
'4B287AFF23156317DDBDEEDF7C094163661C8012FAE5B83136569' +
'529A95DBC481932620507F3E42D6564383767521F39127E0B7D7A' +
'2BCCA6A52EA5C21464298A16215D9A1027E7DB9F81BC506AD4BEA' +
'404EEE7A791917A11DA148FDB936582F2B4E08B4741342929A8F4' +
'2965B815E160CBBB95611DA15AA50EEDEFFF9F296DAFEF2CF81BD' +
'D1CEB7D8E');
tiara := BitmapFromString(15, 9, 'z78DABD92416EC4300845AFE4D806' +
'C3F203C9FD8F5452BB9A44D14CBB2A4FB258C0877C42DCA3577AF' +
'39633B6E7BB6A7A47B3F996477CD6943E2CF1D112E6604F88E9A6' +
'FFAAFF45F9AA09D1504753D1A1AE5B42628259D34A4DFEBEF352E' +
'611C39D6D4F8E1CC2062B4907A037E5CF3BBFE66E22631FE1EA5B' +
'52534F8F3831860133CFA9347E3C79B3F3F33AA8CACAEEDEBD2FC' +
'DDDBAAD1C072AEACC1FBDB700A9A68BD3C32667BA7B9E6CF63A59' +
'582C7DC58E959F1FA287843469A4D4A83D9567EFD5C9288E24F23' +
'7A09BCF0301B7829E7C5F765EF3E2CC3FC5179358ACAD');
case (Players[CurrentPlayer].Boolean1) of
true: begin
for i := 5 downto 4 do
begin
Gametab(i);
if (FindBitmapToleranceIn(tiara, x, y, mix1, miy1, mix2, miy2, 35)) then
begin
MMouse(x, y, 4, 4);
Wait(20 + random(100));
if(IsUpTextMulti('move','ir t','iara'))then
begin
result := true;
if (i = 4) then begin GetMousePos(x, y); Mouse(x, y, 1, 1, True); end else
Break;
end else
result := false;
end;
end;
end;
false: begin
GameTab(4);
if (FindBitmapToleranceIn (airtally, x, y, mix1, miy1, mix2, miy2, 40)) then
begin
MMouse(x, y, 3, 3);
Wait(20 + random(100));
if (IsUpTextMulti('ir t', 'alis', 'sman')) then
result := true
else
result := false;
end;
end;
end;
FreeBitmapMulti([airtally, tiara]);
end;
function FindFallyColor(x1, x2, y1, y2: integer): Integer; //Taken from SRL, edited by me.
var
C, TX, TY, FaladorRoad, FaladorRoad2, FaladorRoad3, FaladorRoad4, FaladorRoad5, FaladorWater, FaladorWater2, color : integer;
begin
while (C < 275) do
begin
FaladorRoad := BitmapFromString(6, 6, 'z78DAB370B2303773B51' +
'876240037E33211');
FaladorRoad2 := BitmapFromString(15, 12, 'z78DA33B33475357131239134200' +
'2988D9A3C6AF2A037D9C4CDC4C4D0C46014900800382BDEF8');
FaladorRoad3 := BitmapFromString(11, 11, 'z78DA33B730373433302782C405C' +
'C474D183561900100ACEE8F44')
FaladorRoad4 := BitmapFromString(7, 7, 'z78DA33B53071333134C54B1A8081E' +
'91051490B0000A7893C49');
FaladorRoad5 := BitmapFromString(11, 11, 'z78DA333734733275341F2547C96' +
'144020085F9A1A7');
C := C + 10;
if (FindBitMapToleranceIn(FaladorRoad, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad2, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad3, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad4, TX, TY, x1, x2, y1, y2, C)) or
(FindBitMapToleranceIn(FaladorRoad5, TX, TY, x1, x2, y1, y2, C)) then
begin
color := GetColor(TX, TY);
Result := color;
Exit;
end;
end;
if (result = 0) then writeln('ERROR: Color was NOT found!');
FreeBitmapMulti([FaladorRoad, FaladorRoad2, FaladorRoad3, FaladorRoad4, FaladorRoad5, FaladorWater, FaladorWater2]);
end;
function FindSymbolAcc(var mx, my: integer; symbol: string): boolean;
var i: integer;
begin
for i := 8 downto 1 do
begin
SymbolAccuracy := i / 10;
if (Findsymbol(mx, my, symbol)) then
begin
if (symbol = 'bank') and (bankc = 0) then bankc := GetColor(mx, my);
if (symbol = 'tree') and (treec = 0) then treec := GetColor(mx, my);
result := true;
Break;
end;
end;
end;
procedure SureHumanMouseFlag(mx, my, rx, ry, ff: integer);
begin
Mouse(mx, my, rx, ry, true);
if not(FlagPresent) then WaitTillFlag;
FFlag(ff);
end;
function randomrange(min, max: integer): integer; //thanks for this Boreas.
begin
result := min + random(max - min + 1);
end;
procedure walktoalter;
var
roadwalkcolor, mx, my: integer;
begin
//ActivateClient;
MakeCompass('S');
roadwalkcolor := FindFallyColor(605, 106, 678, 130);
if (FindColorSpiralTolerance(x, y, FindWaterColor, 641, 29, 717, 60, 5)) then
SureHumanMouseFlag(x - 20, y + 12, 3, 3, 5 + random(3));
begin
RadialRoadWalk(roadwalkcolor, 90, - 23, 44, - 1, 0);
FindNormalRandoms;
RadialRoadWalk(roadwalkcolor, 55, 15, 55, - 1, + 1);
if (FindSymbolAcc(mx, my, 'tree')) or (FindMMColorTol(x, y, treec, 15)) then
begin
SureHumanMouseFlag(mx - 8, my + 9, 3, 3, 7 + random(3));
FindNormalRandoms;
SureHumanMouseFlag(randomrange(655, 660), 40 + random(6), 3, 3, 7 + random(3));
FindNormalRandoms;
SureHumanMouseFlag(randomrange(675, 680), 29 + random(4), 3, 3, 0);
case (Players[CurrentPlayer].Boolean1) of
true : Exit;
false : begin MouseItem(1, true); Exit; end;
end;
end else
Writeln('player is lost or tree symbol is NOT visible.');
Players[CurrentPlayer].loc := 'Lost';
FinalLogout;
end;
FindNormalRandoms;
end;
procedure enteralter;
var
alter1, craft1, altertime: integer;
begin
alter1 := BitmapFromString(39, 4, 'z78DAE591510EC4200844AF848096' +
'FED6A6F73FD20EA21B1A93BDC04A3A3680D4D7E12E2A84A7CBC1C' +
'AC635540CB90235A94A4AD83B1E196F32AA3CD5F3863C7636217E' +
'42C54F75F54515A1DDE7BC0359D3233A43F709738E77B6D05C6D5' +
'4ADD6A1AD11F60BDFB9F451FFF24969BDE8C0CCB7D8543026A212' +
'2CC115D459A3BAD4FF47BECF24F54A0945AD73648E991FEC716A2' +
'79AA4863957EE099DA48638ABF7DC3BA9CF18770D075DDDE3F225' +
'5D11EF253C4AD4923DF5DAF0D175DC6ADE331125C6B2BBBC7A7EF' +
'9BBEBE24594E5B2FB4B7FB93E7C7BBC92');
craft1 := BitmapFromString(48, 5, 'z78DAED924112C3200845AF6445D4' +
'2CA389F73F523F9A109CA45D7559191844633E4FD9851C12DC1DF' +
'1C557E505BFCC074F5BA040B487065BD9616F812F21493ECC5624' +
'7E5AC5496E44CCE7A85F3DC7B1931334547B66D7D678872DDC606' +
'B74D1718167E6283B37CDEF51579D1996C944C6F2A161B45181A6' +
'1CE2D08379A688B9A7F6D4DD503E3159BE12FBC684A8A2775B6F9' +
'C98EDBFE4E6A842A1EF3B85A1DC63D5DE1FF9C051EFBD57C9673E' +
'4AE6A494273E9E0AAD5D5BB9F3D1EE48198A9E667AD77732BFA59' +
'9DB49B5D74C7E74DD2BC79B315DCFE7F4186149295D3A8564B891' +
'8996CF78692377FFF11F3F1A6FC8B41F5C');
MarkTime(altertime);
repeat
if (FindBitmapToleranceIn(Alter1, x, y, msx1, msy1, msx2, msy2, 55)) then
MMouse(x + 5, y + 20 + random(8), 3, 3);
until (IsUpTextMulti('nter', 'yster', 'ruin')) or not(IsUpTextMulti('nter', 'yster', 'ruin')) and (TimeFromMark(altertime) > 15000)
if (IsUpTextMulti('nter', 'yster', 'ruin')) and not (TimeFromMark(altertime) > 15000) then
begin
GetMousePos(x, y);
Mouseflag(x, y, 1, 1);
FreeBitmap(Alter1);
FindNormalRandoms;
while not(FindMSColorTol(x, y, 11132385, 15)) do
wait(500 + random(500));
begin
MarkTime(altertime);
repeat
if (FindBitmapToleranceIn(Craft1, x, y, msx1, msy1, msx2, msy2, 35)) then
MMouse(x + 15 + random(5), y - 5, 5, 5);
until (IsUpTextMulti('raft','ltar','tar')) or not(IsUpTextMulti('raft','ltar','tar')) and (TimeFromMark(altertime) > 15000)
if (IsUpTextMulti('raft','ltar','tar')) and not (TimeFromMark(altertime) > 15000) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, true);
FreeBitmap(Craft1);
FindNormalRandoms;
Flag;
while (InventoryCount > 3) do
Wait(100 + random(100));
begin
Wait(400 + random (200));
MarkTime(altertime);
repeat
if (FindMSColorTol(x, y, 11132385, 20)) then
begin
MMouse(x, y, 3, 3);
Wait(200 + random (200));
end;
until (IsUpTextMulti('ort', 'rtal', 'se Por')) or not(IsUpTextMulti('ort', 'rtal', 'se Por')) and (TimeFromMark(altertime) > 15000)
if (IsUpTextMulti('ort', 'rtal', 'se Por')) and not (TimeFromMark(altertime) > 15000) then
begin
GetMousePos(x, y);
MouseFlag(x, y, 1, 1);
while (IsLoading) do
Wait(2000 + random(1400));
end else
begin
Writeln('Can NOT find portal!');
Players[CurrentPlayer].loc := 'Lost at portal';
FinalLogout;
end;
end;
end else
begin
Writeln('Can NOT find air crafting alter!');
Players[CurrentPlayer].loc := 'Lost at crafting alter';
FinalLogout;
end;
end;
end else
begin
Writeln('Can NOT find alter!');
Players[CurrentPlayer].loc := 'Lost at mysterious ruins';
FinalLogout;
end;
end;
procedure OppositeRun;
begin
GameTab(11);
if (GetColor(635, 423) = 1711220) then
begin
SetRun(false);
GameTab(4);
end else
begin
SetRun(true);
GameTab(4);
end;
end;
function walkback: boolean;
var
ColorRoad, i, mx, my: integer;
begin
//ActivateClient;
Wait(100 + random(200));
ColorRoad := FindRoadColor;
FindNormalRandoms;
MakeCompass('N');
result := false;
Mouse(randomrange(681, 688), randomrange(30, 35), 3, 3, true);
OppositeRun;
FFlag(5 + random(3));
FindNormalRandoms;
if (FindSymbolAcc(mx, my, 'tree')) or (FindMMColorTol(mx, my, treec, 15)) then
begin
SureHumanMouseFlag(mx - 3 + random(3), my + 3 + random(3), 5, 5, 5 + random(3));
x := 670;
y := 17;
if (FindColorSpiral(x, y, ColorRoad, mmx1, mmy1, mmx2, mmy2)) then
SureHumanMouseFlag(x, y, 0, 0, 5 + random(3));
FindNormalRandoms;
for i := 1 to 2 do
begin
RadialRoadWalk(FindFallyColor(626, 45, 661, 67), 27 , - 35, 55 + random(3), + 1, - 1);
FindNormalRandoms;
end;
if (FindSymbolAcc(mx, my, 'bank')) or (FindMMColorTol(mx, my, bankc, 15)) then
begin
MouseFlag(mx - 10 + random(5), my + 8, 2, 2);
FindNormalRandoms;
result := true;
end;
end;
end;
function AircraftLevel: integer;
var i: integer;
begin
for i := 1 to 9 do
begin
if (GetSkillLevel('RuneCrafting') < 11 ) then
begin
result := i;
break;
end else
if (GetSkillLevel('RuneCrafting') >= 11 * i) then
begin
result := i + 3;
Break;
end;
end;
end;
procedure withdrawess;
var
boothtime, boothBMP, boothBMP2, essence, pureess: integer;
begin
boothBMP := BitmapFromString(36, 4, 'z78DAB5CF410E84300885E12B5' +
'51E505D16ABF73FD298B18B1A8A191367F3AD08FC681580F46B4E' +
'A2C00B4266C803550C7960B05FBBE68BCA1B6DCD68C6F9DAD7F76' +
'D8B4C4803FBE64ED979A1D51BEEF9F9DF076D603B2E3AA3363156' +
'2A033383662FEFA8C4A7EDF7A8E47F6DE044EAEDDB2E1A0AD1400' +
'0536DDA31594E3F43D1B798');
boothBMP2 := BitmapFromString(23, 4, 'z78DA6DD13B0E04210C03D02B0' +
'1B103947CEF7FA48DC414334B9A272ADB0AB9A932E42334A03D26' +
'6ED4A30E56081713F2793B366604C742CA741406696FB368C43CE' +
'AE240F9182D6DD94A227D0481A88949B66364B4AEB7015B3A17A6' +
'14C7862AB4643BC2636461301302B7ED5C97DBB16358CB6D46B19' +
'65B45163A36EB1DB66A5AE66D4197F1516D7FB7BB943FEDE7A452' +
'A09E5810A163479074FC01079E7780');
essence := BitmapFromString(14, 14, 'z78DAEDD2410EC3200C04C02F91C' +
'46BE01810F9FF93EA029522D944AED463BDD21EC73E980F541406' +
'1ADAECC44172F22E195D99248DA3E4D671E3CC39A8E10D27320F7' +
'9E5AFB6F4D6260ADE7321497ACF2DEE5D8699714886ECF1956C98' +
'8C808FBCF09F2F374CA246CD23AFFCA57997BFBCDC30772A54666' +
'BDF216B932E4A92DE86FF7C79970DB35294271BEDF11DE67F7E3B' +
'2F02E5EFAD');
pureess := BitmapFromString(12, 7, 'z78DAA5CE3B0AC3301045D12D4' +
'996F53EA56449FB5F92079222454C1CCC85D70C1C46E4E4D06BAD' +
'C4A5AE1C0D9568A9AA3A0B828B24BAAAC9860E754B53C3DDC9491' +
'B456967A35579B0BFF74F999D5B34B8478B20BEC8374C9A297AAC' +
'B162E020B1309F982CE8683FB44FF342C38C239961F88E79F5DB0' +
'95E816FD6');
//ActivateClient;
MakeCompass('S');
Players[CurrentPlayer].loc := 'Bank';
MarkTime(boothtime);
repeat
if (FindBitmapToleranceIn(BoothBMP, x, y, msx1, msy1, msx2, msy2, 26)) or
(FindBitmapToleranceIn(BoothBMP2, x, y, msx1, msy1, msx2, msy2, 26))then
begin
MMouse(x, y, 5, 5);
Wait(100 + random(100));
end;
until (IsUpTextMulti('ank', 'nk bo', 'k boot')) or not (IsUpTextMulti('ank', 'nk bo', 'k boot')) and (TimeFromMark(boothtime) > 25000)
if (IsUpTextMulti('ank', 'nk bo', 'k boot')) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption(x, y, 'Use-quickly');
FreeBitmapMulti([BoothBMP, BoothBMP2]);
while not(BankScreen) do
Wait(200 + random(500));
begin
case (Players[CurrentPlayer].Boolean1) of
true : Deposit(1, 28, 2);
false : Deposit(2, 28, 2);
end;
begin
MarkTime(boothtime);
repeat
if (FindBitmapToleranceIn(essence, x, y, msx1, msy1, msx2, msy2, 15)) or
(FindBitmapToleranceIn(pureess, x, y, msx1, msy1, msx2, msy2, 15)) then
begin
MMouse(x + 4, y, 3, 3);
Wait(1 + random(5));
end;
until (CheckText) or not (CheckText) and (TimeFromMark(boothtime) > 10000)
if (CheckText) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
ChooseOption(x, y, 'Withdraw All');
while (BankScreen) do
CloseBank;
end else
begin
Writeln('Can NOT find ess in bank!');
Players[CurrentPlayer].loc := 'No essence in bank';
while (BankScreen) do
CloseBank;
FinalLogout;
end;
end;
end;
end else
begin
Writeln('Can NOT find bank booth!');
Players[CurrentPlayer].loc := 'Lost around bank';
FinalLogout;
end;
end;
Function AutoRespond: Boolean;
Var
Responce, Lvl: String;
RandomReply: Integer;
Begin
OldLine:= TheLine;
TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
NewLine:= TheLine;
If(GetChatName(Players[CurrentPlayer].Name))then
Begin
Exit;
End
If(OldLine=NewLine)then
Begin
Exit;
End
If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
Begin
WriteLn('autoer'+ChatName+'atuoer '+Chat);
RandomReply:= Random(10)+1;
Case (RandomReply) of
0 : Responce:= ('me?');
1 : Responce:= ('no');
2 : Responce:= ('im not an autoer, im a skiller');
3 : Responce:= ('no');
4 : Responce:= ('no im not');
5 : Responce:= ('me?');
6 : Responce:= ('im not!');
7 : Responce:= ('who?');
8 : Responce:= ('me, no');
9 : Responce:= ('?');
10 : Responce:= ('???');
End
TypeSend(Responce+' '+Name);
Result:= True;
End
If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= Random(24)+1;
Case (RandomReply) of
0 : Responce:= ('hehe');
1 : Responce:= ('lolol');
2 : Responce:= ('lol');
3 : Responce:= ('haha');
4 : Responce:= ('hihi');
5 : Responce:= ('ghehe');
6 : Responce:= ('lmao');
7 : Responce:= ('lmfao');
8 : Responce:= ('rofls');
9 : Responce:= ('fun');
10 : Responce:= ('nice');
11 : Responce:= ('lolz');
12 : Responce:= ('yep');
13 : Responce:= ('hola');
14 : Responce:= ('wow');
15 : Responce:= ('i bet');
16 : Responce:= ('rofl');
17 : Responce:= ('ghehehghehighhe');
18 : Responce:= ('cool');
19 : Responce:= ('…');
20 : Responce:= ('???');
21 : Responce:= ('wowzers');
22 : Responce:= ('grrr…');
23 : Responce:= ('rowr');
24 : Responce:= ('lolololololol');
25 : Responce:= ('ha ha ha!!!');
End
TypeSend(Responce);
Result:= True;
End
If(GetChatMessage('rc')) or (GetChatMessage('runecrafing')) or (GetChatMessage('runecraft'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Lvl:= IntToStr(GetSkillLevel('runecrafting'));
RandomReply:= Random(5)+1;
Case (RandomReply) of
0 : Responce:= ('i''m lvl '+Lvl+' runecrafting');
1 : Responce:= ('level '+Lvl+' rc');
2 : Responce:= ('lvl '+Lvl+' runecraft!');
3 : Responce:= (+Lvl);
4 : Responce:= ('i''m level '+lvl);
5 : Responce:= (+Lvl+' here :P');
End
TypeSend(Responce);
Result:= True;
End
If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= Random(9)+1;
Case RandomReply of
0 : Responce:= ('not much');
1 : Responce:= ('nothing');
2 : Responce:= ('bored');
3 : Responce:= ('aye?');
4 : Responce:= ('emmm..nothin');
5 : Responce:= ('nope');
6 : Responce:= ('booo');
7 : Responce:= ('no ty');
8 : Responce:= ('what');
9 : Responce:= ('….');
10 : Responce:= ('nothin');
End;
TypeSend(Responce);
Result:= True;
End;
If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
Begin
WriteLn(''+ChatName+': '+Chat);
RandomReply:= random(9)+1;
Case RandomReply of
0 : Responce:= ('ello');
1 : Responce:= ('sup');
2 : Responce:= ('yo');
3 : Responce:= ('whats up everyone');
4 : Responce:= ('whats up');
5 : Responce:= ('welcome');
6 : Responce:= ('allo allo');
7 : Responce:= ('wat up');
8 : Responce:= ('y0o');
9 : Responce:= ('=P');
10 : Responce:= ('what is up');
End
TypeSend(Responce);
Result:= True;
End
End;
procedure configure;
begin
Players[CurrentPlayer].Integer3 := Players[CurrentPlayer].Integer3 + 1;
case (Players[CurrentPlayer].Boolean1) of
true: begin
Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2 + 28
totalairs := totalairs + 28 * AirCraftLevel;
esscrafted := esscrafted + 28;
end;
false: begin
Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2 + 27
totalairs := totalairs + 27 * AirCraftLevel;
esscrafted := esscrafted + 27;
end;
end;
FindNormalRandoms;
trips := trips + 1;
ReportVars[0] := trips;
ReportVars[1] := totalairs;
ReportVars[2] := esscrafted;
end;
procedure PlayerStats;
var
active: string;
i: integer;
begin
for i := 0 to (HowManyPlayers) - 1 do
begin
if (Players.Active = true) then Active := 'True'
else Active := 'False';
Writeln('[[ = Player name: ' + (Players[i].Name) + ' – Player number: ' + (inttostr(i)) + ' – ACTIVE : ' + (active));
Writeln('[[ = Completed ' + inttostr(Players[i].Integer3) + ' trips, used up ' + inttostr(Players.Integer2) + ' essence, crafted ' + inttostr(Players.Integer2 * AircraftLevel) + ' airs.');
Writeln('[[ = Total time working for: ' + inttostr(Players[i].Worked));
Writeln('[[ = Players current location/status: ' + (Players[i].loc));
Writeln('[[ = –PLAYER STATS———————————————————————————————');
end;
end;
begin
Cleardebug;
SetUpSRL;
ScriptID := '83';
Mousespeed := 6 - random(3);
activateclient;
DeclarePlayers;
Wait(2000 + random(2000));
if not(LoggedIn) then LoginPlayer;
repeat
if not(LoggedIn) then break;
SetChat('on', 1);
SetChat('off', 2);
SetChat('off', 3);
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
HighestAngle;
if not(Check) then begin
FinalLogout;
Players[CurrentPlayer].loc := 'No item';
Break;
end else
case random(3) of
2: SetRun(true);
end;
if (InventoryCount < 14) then Withdrawess;
repeat
if not(LoggedIn) then break;
walktoalter;
enteralter;
if not(walkback) then begin
FinalLogout;
Players[CurrentPlayer].loc := 'Didnt walk back to bank.';
Progress;
break;
end else
withdrawess;
configure;
Progress;
if (switch) then if (Players[CurrentPlayer].Integer3 >= 5 + random(7)) then
begin
Writeln('Switiching to next player.');
FinalLogout;
NextPlayer(true);
Break;
end;
case random(5) + 1 of
2: BoredHuman;
4: BoredHuman;
end;
OppositeRun;
FindNormalRandoms;
until not(loggedin) or (esscrafted mod Players[CurrentPlayer].Integer1 = 0)
if (esscrafted mod Players[CurrentPlayer].Integer1 = 0) then
begin
Players[CurrentPlayer].loc := 'Done crafting';
Progress;
FinalLogout;
NextPlayer(false);
end else
if not(LoggedIn) then NextPlayer(false);
if (LoggedIn) then Progress;
until (false)
end.
//by the terminator//
——————————————————
<!– END TEMPLATE: formanswers –>