insanomano
2008-01-04 15:20:46
<!– BEGIN TEMPLATE: formanswers –>
insanomano - SRL Member Application Form
insanomano
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML
Other Communitys
www.Freddy1990.com
How Long have You Played Runescape
Close to two years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I used to play the game of runescape honestly until i stumbled upon this great community of program writers. I have been trying to learn how to program SCAR i am not very good but i have made a nicely formatted script which is used for the game AdventureQuest at www.Battleon.com which I will include below. I have made to RuneScape scripts. One is a simple AutoLogin procedure. The second is a Script that kills the monster then picks up the items you set, this script is very glitchy because it was only my second script. I have made scripts for, Defend Your Castle, Neopets~Evil Fuzzles from beyond the stars, Age Of Way and AdventureQuest which will be placed below. I am trying to learn SCAR and I thank the members of SRL-forums for helping me. :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
insanomano - SRL Member Application Form
insanomano
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML
Other Communitys
www.Freddy1990.com
How Long have You Played Runescape
Close to two years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I used to play the game of runescape honestly until i stumbled upon this great community of program writers. I have been trying to learn how to program SCAR i am not very good but i have made a nicely formatted script which is used for the game AdventureQuest at www.Battleon.com which I will include below. I have made to RuneScape scripts. One is a simple AutoLogin procedure. The second is a Script that kills the monster then picks up the items you set, this script is very glitchy because it was only my second script. I have made scripts for, Defend Your Castle, Neopets~Evil Fuzzles from beyond the stars, Age Of Way and AdventureQuest which will be placed below. I am trying to learn SCAR and I thank the members of SRL-forums for helping me. :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{------------------------------------------------------------------------------)
| Adventure Quest Trainer |
| by |
| Insanomano |
|------------------------------------------------------------------------------|
| DESCRIPTION |
| ***************** |
| This is a script I wrote up to train your adventure quest |
| character. It is a good script that is very easy to |
| use. |
|------------------------------------------------------------------------------|
| MUST READ |
| *************** |
| *-This script handles almost everything in Adventure Quest. |
| *-YES!!!! you can leave it on for hours without worry. |
| *-Credit [url]www.battleon.com[/url] for making such an easy game to cheat at. |
| *-This script will fight monsters, Heal your character, Deal with fighting |
| randoms, and it even deals with the death of your character. |
| *-Your mouse may be messed up but that is how the script works, Don't worry |
| if you need to pause the script at anytime just press ctrl-alt-a. |
| *-Just drag the crosshair on to the window and press play. |
|------------------------------------------------------------------------------|
SETUP |
| ******* |
| Get to the page after your character is logged in and you |
| have the choice to got to the inn, or to fight monsters, ETC. |
| The screen with all the buildings in the background. Drag the |
| crosshair onto the adventure quest window, a box outline should |
| close over it. Now just press play and watch the magic. |
| |
| ~Insanomano~ |
|------------------------------------------------------------------------------|
| |
|------------------------------DO NOT TOUCH BELOW------------------------------|
| |
|------------------------------------------------------------------------------}
program AdventurQuestTrainer;
{.include PH.scar}
{.include SRL/SRL.scar}
var
x,y: Integer;
procedure Signature;
begin
writeln('MADE BY-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
writeln(' _______ _ _ _____ ___ _ _ ______ _ _ ___ _ _ ______ ');
writeln('|__ __|| \ | || ____| / _ \ | \ | || __ || \ / | / _ \ | \ | || __ |');
writeln(' | | | \| || |___ / |_| \ | \| || | | || \/ | / |_| \ | \| || | | |');
writeln(' | | | . ` ||___ || ___ || . ` || | | || || ___ || . ` || | | |');
writeln(' __| |__ | |\ | ___| || | | || |\ || |__| || |\/| || | | || |\ || |__| |');
writeln('|_______||_| \_||_____||_| |_||_| \_||______||_| |_||_| |_||_| \_||______|');
writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
end;
procedure BeginFight;
begin
if (FindColor(x,y,16777215,585, 439,741, 462)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure ClickAttack;
begin
if (FindColor(x,y,0,318, 213,451, 256)) then
begin
ClickMouse(x,y,true)
wait(100);
end;
end;
procedure RandomCave;
begin
if (FindColor(x,y,65535,448, 362,516, 388)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure GoldCheck;
begin
if (FindColor(x,y,16777215,327, 204,469, 421)) then
begin
ClickMouse(x,y,true)
wait(2000)
end;
end;
procedure ZTokenCheck;
begin
if (FindColor(x,y,16777215,420, 398,447, 417)) then
begin
ClickMouse(x,y,true)
wait(2000)
end;
end;
procedure LvlClick;
begin
if (Findcolor(x,y,0,397, 288,444, 315)) then
begin
ClickMouse(x,y,true)
wait(2000)
end;
end;
procedure LycanthropyRandom;
begin
if (FindColor(x,y,0,425, 354,472, 375)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure SeekerRandom1;
begin
if (FindColor(x,y,5669831,714, 175,770, 199)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure SeekerRandom2;
begin
if (FindColor(x,y,0,689, 185,709, 202)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure TwillyHealing1;
begin
if (FindColor(x,y,16862,361, 366, 404, 410)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
Procedure TwillyHealing2;
begin
if (FindColor(x,y,10092543,520, 217,637, 237)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure TwillyHealing3;
begin
if (FindColor(x,y,16777215,642, 532,753, 556)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure Death1;
begin
if (FindColor(x,y,0,380, 330,393, 343)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure Death2;
begin
if (FindColor(x,y,16777215,284, 263,348, 281)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure Death3;
begin
if (FindColor(x,y,16777215,284, 263,348, 281)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure Random1Alien;
begin
if (FindColor(x,y,16777215,477, 243, 543, 257)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure Random2Alien;
begin
if (FindColor(x,y,16777215,447, 211,510, 228)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure Random3Alien;
begin
if (FindColor(x,y,16777215,447, 211,510, 228)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure Random4Alien;
begin
if (FindColor(x,y,16777215,416, 182,472, 198)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure RandomBox;
begin
if (FindColor(x,y,13434879,518, 318,579, 338)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure RandomGunavian;
begin
if (Findcolor(x,y,26316,401, 265,454, 292)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure HealthPotionDrink1;
begin
if (FindColor(x,y,16777215,341, 299,414, 323)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
procedure HealthPotionDrink2
begin
if (Findcolor(x,y,126,506, 256,533, 274)) then
begin
ClickMouse(x,y,true)
wait(100)
end;
end;
begin
Signature
begin
repeat
TwillyHealing1
TwillyHealing2
TwillyHealing3
TwillyHealing1
TwillyHealing2
TwillyHealing3
BeginFight
LvlClick
RandomCave
ClickAttack
RandomBox
RandomGunavian
Random1Alien
Random2Alien
Random3Alien
Random4Alien
ClickAttack
Death1
Death2
Death3
GoldCheck
ZTokenCheck
SeekerRandom1
SeekerRandom2
ClickAttack
TwillyHealing1
TwillyHealing2
TwillyHealing3
TwillyHealing1
TwillyHealing2
TwillyHealing3
LycanthropyRandom
until(false)
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>