mrpickle
2009-04-20 05:34:20
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
NO
Were you Referred to SRL?
N/A
What is your general programming knowledge?
Some Turing.
Getting to learn SCAR
All in all, i'm still noob at both.
Are you a member of any other communities?
FknOwned.com – I'm a 100% leecher there. The scripts wayy to complex.
Wakfu.com – The forums. Was a beta tester for their game
Mofunzone.com
Probably a few more. but I dont remember.
Tell us about yourself…
Please give show us one of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
NO
Were you Referred to SRL?
N/A
What is your general programming knowledge?
Some Turing.
Getting to learn SCAR
All in all, i'm still noob at both.
Are you a member of any other communities?
FknOwned.com – I'm a 100% leecher there. The scripts wayy to complex.
Wakfu.com – The forums. Was a beta tester for their game
Mofunzone.com
Probably a few more. but I dont remember.
Tell us about yourself…
From: mrpickle
1. I am Canadian =D
2. I enjoy games, crafting (RL not runescape), Skiing, most water sports, and problem solving (this is why I like scripting).
3. I LOVE doing… I'll leave this blank for now.
4. Have a brief story from someone else saying that I'm an alien from Saturn.
5. I play Command and Conquer Tiberium Wars. Strategy freak(Nod).
6. I will try anything before judging
7. Sometimes i'm too ambitious and have to give up part way due to the fact that my scripting skills are not that great.
Please give show us one of your scripts.
TURING.
var counter : int := 0
var question : array 1 .. 10 of string % The question array
var answer : array 1 .. 10 of string % The answers array
var stor : array 1 .. 10 of string % Stores player's answers
question (1) := "1. What is 1 + 2?" % My list of question from 1 - 10
question (2) := "2. What is is 5 - 4?"
question (3) := "3. What is 3 x 7?"
question (4) := "4. What is 35 / 2?"
question (5) := "5. What is 25 (squared)"
question (6) := "6. What is the square Root of 8281?"
question (7) := "7. What is the y intercept of this line: Y = 0.25x"
question (8) := "8. What is the x value of the vertex of this equasion: y = 4x(squared) + 16x + 1"
question (9) := "9. What is the third side of the triangle,if the other two sides are 10 and 20 meters with an angle of 30 degrees between them?(round to nearest hundredths)"
question (10) := "10. If a rectagular prism has dimensions 5 m, 10m, and an volume of 200m(cubed). What is the length of its third side?"
answer (1) := "3" % My answers for question 1 - 10
answer (2) := "1"
answer (3) := "21"
answer (4) := "17.5"
answer (5) := "625"
answer (6) := "91"
answer (7) := "0"
answer (8) := "2"
answer (9) := "12.39"
answer (10) := "4"
put "We are going to ask you a 10 question math test to determine how good in math you actually are. Answer all questions with numerical answers."
put "Are you ready? When you are, press any key."
Input.Pause
cls
for a : 1 .. 10 % Asks the questions in array. each time + 1. 10 times total
put question (a) % gets the proper array question and asks it.
get stor (a) % gets answer coorsponding to the question
cls % Clears screen. So questions are isolated making user keep thoughs on one question at a time.
end for
for b : 1 .. 10 % gets your answer for question #. Then compairs with correct answer. will say if you are right or wrong. 10 times total.
put "Your answer for question --", b, "-- is ", stor (b)
put "The correct answer is ", answer (b)
if stor (b) = answer (b) then
put "You were correct!"
counter := counter + 1
else
put "You were incorrect."
end if
delay (2000) % Gives user time to read over question + answer.
cls
end for
put "When you are ready to see my verdict, press any key"
Input.Pause % waits until user is ready to continue
case counter of % My casual Verdict to the user
label 0 :
put "0/10"
put "You are EPIC..."
delay (1000)
put "FAIL..."
delay (1000)
put "Did you even try? My 4 yr old brother can get more than that! 0/10"
label 1 :
put "1/10"
put "WOW! ... You are utter fail! even kindergardeners can do better! 1/10"
label 2 :
put "2/10"
put "FAIL ... You should go back to grade school"
label 3 :
put "3/10"
put "fail ... your math is worse than grade 3 lv."
label 4 :
put "4/10"
put "Ugh... You shouldn't bother take tests at this lv. You obviously didn't study past grade school"
label 5 :
put "5/10"
put "Congratulations!!! Your Math intelligence matches my Grade 5 Sister's!"
label 6 :
put "6/10"
put "Ok ok, I think you can pass grade school with flying colours!"
label 7 :
put "7/10"
put "Perhaps you do have some merit. This means you least paid some attention in highschool"
label 8 :
put "8/10"
put "Good Job, Quadradics are hard to understand. You did well."
label 9 :
put "9/10"
put "Looks like you got Gr 10 Down Pat... Almost =D"
label 10 :
put "10/10"
put "YOU ARE SUCCESS!! (but still, that's an average math skills quiz for average adults... Try some harder tests!)"
end case
_____Just an assignment for learning arrays___
SCAR
My "QuickAlc" [url]http://www.villavu.com/forum/showthread.php?t=44075[/url]
This half finished thing that I wanted to start finish. LOGIN PART.
// Combat arms resolution 800 x 600.
// Have a shortcut to Combat arms on your desktop. Make sure combat arms is at
// the lowest possible detail, with gamma at 25.
// Start the script after targetting your desktop as the client.
// If you got any questions or comments, send via pm to mrpickle at...
// [url]www.srl-forums.com[/url]
// Enter your User and Pass at line 18, and 19.
program CombatArmsAutoPlayer; // By mrpickle
{.Include SRL/SRL.Scar}
const
PlayerUser=('');
PlayerPass=('');
QuickJoin=1721714;
Full=4670900;
Busy=1927334;
Moderate=1605737;
Low=8344347;
Start=2117255;
Var
WeaponAmmoCheck, ClickLobby, DetectPlayers, PressStart, PressClose,
DetectNeck, x, y: Integer;
Procedure StartingGame;
begin
If (findcolor(x,y,3160142,0,0,1500,1000)) Then
begin
MoveMouseSmoothex(x,y+random(4),20,20,70,25,7);
ClickMouse(x,y,true);
wait(25);
ClickMouse(x,y,true);
wait(7999);
Writeln('Opened Combat Arms');
end else
Writeln('Cannot find Combat Arms');
end;
procedure OpenArms;
begin
writeln('Starting the Game');
If (findcolor(x,y,447182,551,437,1400,900)) Then
MoveMouseSmoothex(x,y+random(6),20,20,70,25,7);
ClickMouse(x,y,true);
Writeln('waiting 32 seconds for CA to start');
sleep(32000);
end;
procedure Loggingin;
begin
If(findcolor(x,y,13208399,274,159,1400,900)) Then
begin
MoveMouseSmoothEx(x-560+random(4),y-220+random(4),20,20,70,25,7);
ClickMouse(x-527+random(4),y-250+random(4),true);
Typesend(PlayerUser);//USERNAME FOR YOUR ACCOUNT
end;
If(findcolor(x,y,13208399, 274,159,1000,900)) Then
begin
MoveMouseSmoothEx(x-560+random(4),y-170+random(4),20,20,70,25,7);
ClickMouse(x-527+random(4),y-212+random(4),true);
TypeSend(PlayerPass);//PASSWORD FOR YOUR ACCOUNT
end;
begin
If(findcolor(x,y,5991788, 274,159,1000,900)) Then
begin
MoveMousesmoothEx(x+319+random(5),y-88+random(5),20,20,70,25,7);
ClickMouse(x+319,y-88,true);
Writeln('Waiting 5 seconds for Starting lobby screen');
wait(5000);
end;
end;
end;
procedure ChoosingServer;
begin
If not(findcolor(x,y,QuickJoin,0,0,1500,1000))then
begin
If(findcolor(x,y,Busy,0,0,1500,1000))then
MoveMouseSmoothEx(x,y,20,20,70,25,7);
ClickMouse(x,y,true);
wait(23+random(7));
ClickMouse(x,y,true);
end else
writeLn('Cannot Find A Busy Server, Going to look for Moderate');
begin
If(findcolor(x,y,Busy,0,0,1500,1000))then
MoveMouseSmoothEx(x,y,20,20,70,25,7);
ClickMouse(x,y,true);
wait(23+random(7));
ClickMouse(x,y,true);
end;
end;
Procedure ChoosingChannel;
begin
If not(findcolor(x,y,QuickJoin,0,0,1500,1000))then
begin
If(findcolor(x,y,Full,0,0,1500,1000))then
MoveMouseSmoothEx(x,y,20,20,70,25,7);
ClickMouse(x,y,true);
wait(23+random(7));
ClickMouse(x,y,true);
end else
writeLn('Cannot Find A Full Channel, Going to look for Busy');
begin
If(findcolor(x,y,Busy,0,0,1500,1000))then
MoveMouseSmoothEx(x,y,20,20,70,25,7);
ClickMouse(x,y,true);
wait(23+random(7));
ClickMouse(x,y,true);
end;
end;
Procedure BeginningMatch;
begin
If(findcolor(x,y,QuickJoin,0,0,1500,1000))then
begin
MoveMouseSmoothEx(x,y,20,20,70,25,7);
ClickMouse(x,y,true);
wait(25+random(3));
ClickMouse(x,y,true);
wait(1000);
end;
begin
If(findcolor(x,y,Start,0,0,1500,1000))then
begin
MoveMouseSmoothEx(x,y,20,20,70,25,7);
ClickMouse(x,y,true);
wait(25+random(3));
ClickMouse(x,y,true);
wait(1000);
end else
writeln('Cannot Find the Start Button, ??? Going Idle');
end;
end;
procedure MainLoop;
begin
end;
begin
StartingGame;
OpenArms
Loggingin;
ChoosingServer;
ChoosingChannel;
BeginningMatch;
end.