Ramage
2007-04-15 23:32:31
<!– BEGIN TEMPLATE: formanswers –>
Ramage - SRL Member Application Form
Ramage
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Pyro
Programming Knowledge
VB, a little bit of VB.NET and ASP
Other Communitys
I was at Kaitnieks
How Long have You Played Runescape
5 years - ish
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello,
I'm Ramage, I'm 13 and live in New Zealand. I've been scripting since 2005 although I took a large break last year. I'm just hoping the script below meets the SRL standards :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Ramage - SRL Member Application Form
Ramage
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Pyro
Programming Knowledge
VB, a little bit of VB.NET and ASP
Other Communitys
I was at Kaitnieks
How Long have You Played Runescape
5 years - ish
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello,
I'm Ramage, I'm 13 and live in New Zealand. I've been scripting since 2005 although I took a large break last year. I'm just hoping the script below meets the SRL standards :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{ ___
| _`\
| (_) ) _ _ ___ ___ _ _ __ __ ___
| , / /'_` )/' _ ` _ `\ /'_` ) /'_ `\ /'__`\/',__)
| |\ \ ( (_| || ( ) ( ) |( (_| |( (_) |( ___/\__, \
(_) (_)`\__,_)(_) (_) (_)`\__,_)`\__ |`\____)(____/
( )_) |
\___/'
_____ _ _ _
(_ _) ( ) ( ) (_ )
| | _ | |/') | |/') _ _ | | __ _ __
| | /'_`\ | , < | , < ( ) ( ) | | /'__`\( '__)
| |( (_) )| |\`\ | |\`\ | (_) | | | ( ___/| |
(_)`\___/'(_) (_)(_) (_)`\___/'(___)`\____)(_)
V. 1.00
Set-up lines 35-38 and 46-59
Have Auto-Retaliate ON
Start next to the white cave
Drag cross-hair
Hit play
}
program Tokkuler;
{.include SRL\srl.scar}
{.include SRL\SRL\extended\xobject.scar}
{.include SRL\SRL\skill\Fighting.scar}
{.include SRL\SRL\skill\Prayer.scar}
var
bmpCave : integer;
Done, Timemark : integer;
const
////// SET THESE UP \\\\\\
AttackMode = 2; // 1=Att, 2=Str, 3=Contr/Str, 4=Def, 5=Random
PrayerType = 'Ultimate Strength'; // Your prayer will get raped
// by those birds but yeah...
TimesPerPlayer = 1; // How many times to do the cave per player
////// END \\\\\\
CaveColor = 9671582; //DONT TOUCH UNLESS ITS NOT WORKING
NPCColor = 62965; //DONT TOUCH UNLESS ITS NOT WORKING
procedure DeclarePlayers;
begin
HowManyPlayers:=2; // How many players, both active or not active
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active :=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active :=False;
end;
procedure Adjust;
var
ax,ay:integer;
begin
MakeCompass('S');
sleep(250+random(500));
LowestAngle;
if not(FindObjMultiText(x,y, 'Enter', 'cave', 'entrance', CaveColor, 15)) then
begin
SymbolAccuracy := 0.6;
if(FindSymbol(ax,ay,'minigame'))then
begin
FindTalk;
FFlag(3);
Mouse(ax,ay,3,3,true);
end else
Writeln('Could not find the Minigame symbol...')
Writeln('Logging off')
Logout;
TerminateScript;
end;
end;
function FindFastRandoms: Boolean;
// By WT-Fawaki
var
i: Integer;
begin
for i:=1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure LoadBitmaps;
begin
bmpCave := BitmapFromString(1, 1, 'A29696');
end;
procedure SetCombatandPrayer;
begin
if(AttackMode < 5) then
begin
SetFightMode(AttackMode);
end;
if(AttackMode > 4) then
begin
SetFightMode(1+random(4));
end;
AllPrayersOff;
PrayerClick(PrayerType);
end;
procedure OpenCave;
var
ccolor: integer;
Hue, Sat, Lum : extended;
begin
repeat
FindFastRandoms;
FindTalk;
LowestAngle;
Makecompass('S')
if(FindObjMultiText(x,y,'Cave', 'Entrance', 'trance', CaveColor, 12)) then
begin
GetMousePos(x, y)
if(IsUpText('Enter')) then
begin
if(findbitmap(bmpCave, x, y)) then
cColor := AutoColorThis(bmpCave,20,MSX1, MSY1, MSX2, MSY2);
ColorToHSL(cColor, Hue, Sat, Lum);
if(Lum > 229) and (Lum < 240) then
MMouse(x, y, 2, 2)
end;
if(IsUpText('Enter')) then
begin
Mouse(x,y,1,1,False)
sleep(200+random(200))
if(ClickOption('nter',1))then
begin
Flag;
Break;
end;
end;
end;
FFlag(3);
until(not(findsymbol(x, y, 'Minigame')))
sleep(5000+random(3000))
SetCombatandPrayer;
SetRun(true);
end;
function Fighting : boolean;
begin
if(FindColorTolerance(x,y,NPCColor,MMX1,MMY1,MMX2,MMY2,20) and FindColorTolerance(x,y,65280,MSX1,MSY1,MSX2,MSY2, 20))then
result := true;
end;
function DeadYet : boolean;
begin
if(ClickToContinue = true ) or (findsymbol(x,y,'minigame')) and not (Fighting)then
begin
Result:= True;
end;
end;
procedure WaitTillDie;
var
cx, cy : integer;
begin
if(FindColorTolerance(cx, cy, 65280, MMX1, MMY1, MMX2, MMY2, 10)) then
begin
sleep (4000)
Writeln('Loacated monster on Minimap - good luck!')
end;
case random(2) of
0: boredhuman;
1: sleep(2300+random(1700))
2: sleep(1700+random(2300))
end;
if(Fighting = true) then
begin
repeat
case random(2) of
0:BoredHuman;
1:sleep(1200+random(2700))
2:sleep(2700+random(1200))
end;
if(DeadYet) then
break;
sleep(200+random(800))
case random(2) of
0:sleep(2000+random(1500))
1:BoredHuman;
2:sleep(1500+random(2000))
end;
if(DeadYet) then
break;
sleep(4500+random(2888))
HighestAngle;
sleep(2888+random(4500))
until(Deadyet);
end;
end;
procedure SetupScript;
begin
SetupSRL;
ClearDebug;
LoadBitmaps;
ActivateClient;
DisguiseSCAR('iTunes')
DeclarePlayers;
Writeln('Starting Tokkul with ' + Players[CurrentPlayer].Name)
LoginPlayer;
SymbolAccuracy := 0.6;
end;
procedure ProgressReport;
begin
Writeln('**********************************');
Writeln('Progress Report for ' + Players[CurrentPlayer].Name)
Writeln('You have done the Fight Caves ' + IntToStr(Done) + ' times altogether');
Writeln('Script has run for '+ IntToStr(TimeFromMark(TimeMark)/1000/60)+ ' minutes');
Writeln('**********************************');
SRLRandomsReport;
end;
procedure Tokkuler;
var
Times : integer;
begin
for Times := TimesPerPlayer downto 0 do
begin
OpenCave;
BoredHuman;
sleep(3000+random(4000));
repeat
WaitTillDie;
BoredHuman;
until(DeadYet)
if(Deadyet) then
begin
Done := Done+1;
ProgressReport;
OpenCave;
end;
if(Deadyet = false) then
WaitTillDie;
end;
end;
begin
SetupScript;
Done := 0;
repeat
TimeMark := 0;
MarkTime(TimeMark)
Tokkuler;
Nextplayer(false);
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>