WhoCares357
2006-12-30 13:19:29
WhoCares357 - SRL Member Application Form
WhoCares357
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
A bunch of pascal from Scar and am learning C++ right now.
Other Communitys
Sythe.org
How Long have You Played Runescape
2-3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
We started from scratch with my friend SomeGuy357, when we started learning programming (Scar). Anyways, we learned by test and fail and now we can script Scar perfectly. I even released my own Tutorial on Scar.
http://www.sythe.org/showthread.php?t=205868
As you see, that one got stickied :)
http://villu-reborn.com/showthread.php?p=48528#post48528
Anyways, that's pretty much it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This isn't so advanced, but I like it because it took me forever to include all those combinations :D
——————————————————
WhoCares357
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
A bunch of pascal from Scar and am learning C++ right now.
Other Communitys
Sythe.org
How Long have You Played Runescape
2-3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
We started from scratch with my friend SomeGuy357, when we started learning programming (Scar). Anyways, we learned by test and fail and now we can script Scar perfectly. I even released my own Tutorial on Scar.
http://www.sythe.org/showthread.php?t=205868
As you see, that one got stickied :)
http://villu-reborn.com/showthread.php?p=48528#post48528
Anyways, that's pretty much it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//// // // ///////// //////
// // // // // // // ////////
/////// // // // // // ////////
// // ////// // //////
///////// //// // // //
// // // // ///
// /////// // // //
// // // ////// // //
program MasterTalker;
{Version 1.07}
{Created by WhoCares357}
//Do not forget to set client window\\
//Run Script in Scar 2.03 or later version Compiler\\
//!!Set the client window for whatever program you use this for!!\\
//!!Otherwise it will not work!!\\
const
Seperate = True;//Make Each "Type" follow by Enter?\\
{True-Seperated, False-Same Line}
RuneScape = False;//Using for Runescape?\\
{True-Yes, False-No}
{Only for RuneScape}RSClickBox = False;//Click in the Text Box before Typing?\\
{True-Yes, False-No}
{For Anything Else} OtherClickBox = False;//Click in the Text Box before Typing?\\
{True-Yes, False-No}
UAT = 1+2+3;//Which Types to use\\
{Example- "1+2+3" will use Type1 and Typ2 and Type3}
{Type Lowest to Highest Number(I may add on to this later)}
{Example- "1+4" will use Type1 and Type4}
{Example- "4+1" will not work}
Type1 = '';//Type what to Auto-Type\\
Type2 = '';//Type what to Auto-Type\\
Type3 = '';//Type what to Auto-Type\\
Type4 = '';//Type what to Auto-Type\\
Type5 = '';//Type what to Auto-Type\\
WaitTimeEachSeperate = 4000;//Input In MiliSeconds, how Long to Wait between each Line\\
WaitTimeEachSameLine = 200;//Input In MiliSeconds, how Long to Wait between each "Type"\\
WaitTimeWhole = 6000;//Input In MiliSeconds, how long to Wait between each repeat of all the "Type"\\
{WaitTimeEachSeperate is for "Seperate = True";, WaitTimeEachSameLine is for Seperate = False;}
{Times Recommended as are.}
{1000 MiliSeconds=1 Second}
{All three "Type" are typed on the same line!}
{//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
//Do Not Touch beyond here! If you do then do at your own risk!\\
{\\+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
const
WindowLetters = 0;//Do not Change\\
var
i,n,x,y: Integer;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Clicks Text Box(RuneScape)}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure ClickBoxRS;
begin
if(RSClickBox = True)then
begin
x:=81+random(400)
y:=440+random(15)
MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20)
Wait(200+random(100))
ClickMouse(x,y,true)
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Clicks Text Box(Other Apps)}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure ClickBoxOther;
begin
if(OtherClickBox = True)then
begin
x:=5+random(10)
y:=5+random(10)
MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20)
Wait(200+random(100))
ClickMouse(x,y,true)
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Checks if you are in the Typing Screen}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure CheckForBox;
begin
begin
n:=0;
repeat
begin
n:=n+1;
if(Runescape = True)then
begin
if not(FindColor(x,y,WindowLetters,17,431,385,452))then
begin
Wait(1000);
Writeln('^------------------------------------------------------------------^');
Writeln('<<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>>');
Writeln(' Hello User');
Writeln(' You are currently not in the RuneScape Screen ...');
Writeln(' We will continue as soon as you are in the RuneScape Screen');
Writeln(' Number of Seconds waited: '+IntToStr(n));
Writeln('<<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>>');
Writeln('^------------------------------------------------------------------^');
Writeln('^------------------------------------------------------------------^');
Writeln(' ')
end;
end;
end;
until(FindColor(x,y,WindowLetters,17,431,385,452));
end;
begin
ClickBoxRS;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Types in the "Enter" key}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure Enter;
begin
if(Seperate = False)then
begin
SendKeys(chr(13))
Wait(200+random(100));
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for the SameLine(SingleLines[1])}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSingle1;
begin
if(Seperate = False)then
begin
if(UAT = 1)or(UAT = 1+2+3)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+2)or(UAT = 1+3)or(UAT = 1+4)or(UAT = 1+5)then
begin
SendKeys(Type1);
Wait(WaitTimeEachSameLine+random(100));
begin
if(UAT = 1)then
begin
Enter;
end;
end;
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for the SameLine(SingleLines[2])}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSingle2;
begin
if(Seperate = False)then
begin
if(UAT = 2)or(UAT = 1+2+3)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+2)or(UAT = 2+3)or(UAT = 2+4)or(UAT = 2+5)then
begin
SendKeys(Type2);
Wait(WaitTimeEachSameLine+random(100));
begin
if(UAT = 2)or(UAT = 1+2)then
begin
Enter;
end;
end;
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for the SameLine(SingleLines[3])}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSingle3;
begin
if(Seperate = False)then
begin
if(UAT = 3)or(UAT = 1+2+3)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+3)or(UAT = 2+3)or(UAT = 3+4)or(UAT = 3+5)then
begin
SendKeys(Type3);
Wait(WaitTimeEachSameLine+random(100));
if(UAT = 3)or(UAT = 1+2+3)or(UAT = 1+3)or(UAT = 2+3)then
begin
begin
Enter;
end;
end;
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for the SameLine(SingleLines[4])}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSingle4;
begin
if(Seperate = False)then
begin
if(UAT = 4)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+4)or(UAT = 2+4)or(UAT = 3+4)or(UAT = 4+5)then
begin
SendKeys(Type4);
Wait(WaitTimeEachSameLine+random(100));
begin
if(UAT = 4)or(UAT = 1+2+3+4)or(UAT = 1+4)or(UAT = 2+4)or(UAT = 3+4)then
begin
Enter;
end;
end;
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for the SameLine(SingleLines[5])}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSingle5;
begin
if(Seperate = False)then
begin
if(UAT = 5)or(UAT = 1+2+3+4+5)or(UAT = 1+5)or(UAT = 2+5)
or(UAT = 3+5)or(UAT = 4+5)then
begin
SendKeys(Type5);
Wait(WaitTimeEachSameLine+random(100));
begin
Enter;
end;
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for Seperated Lines(Seperated[1]}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSeperated1;
begin
if(Seperate = True)then
begin
if(UAT = 1)or(UAT = 1+2+3)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+2)or(UAT = 1+3)or(UAT = 1+4)or(UAT = 1+5)then
begin
SendKeys(Type1);
Wait(200+random(100));
Sendkeys(chr(13));
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for Seperated Lines(Seperated[2]}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSeperated2;
begin
if(Seperate = True)then
begin
if(UAT = 2)or(UAT = 1+2+3)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+2)or(UAT = 2+3)or(UAT = 2+4)or(UAT = 2+5)then
begin
Wait(WaitTimeEachSeperate+random(100));
SendKeys(Type2);
Wait(200+random(100));
Sendkeys(chr(13));
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for Seperated Lines(Seperated[3]}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSeperated3;
begin
if(Seperate = True)then
begin
if(UAT = 3)or(UAT = 1+2+3)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+3)or(UAT = 2+3)or(UAT = 3+4)or(UAT = 3+5)then
begin
Wait(WaitTimeEachSeperate+random(100));
SendKeys(Type3);
Wait(200+random(100));
Sendkeys(chr(13));
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for Seperated Lines(Seperated[4]}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSeperated4;
begin
if(Seperate = True)then
begin
if(UAT = 4)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+4)or(UAT = 2+4)or(UAT = 3+4)or(UAT = 4+5)then
begin
Wait(WaitTimeEachSeperate+random(100));
SendKeys(Type4);
Wait(200+random(100));
Sendkeys(chr(13));
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{Procedure Auto-Types for Seperated Lines(Seperated[5]}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
procedure NowTypeSeperated5;
begin
if(Seperate = True)then
begin
if(UAT = 4)or(UAT = 1+2+3+4)or(UAT = 1+2+3+4+5)
or(UAT = 1+4)or(UAT = 2+4)or(UAT = 3+4)or(UAT = 4+5)then
begin
Wait(WaitTimeEachSeperate+random(100));
SendKeys(Type5);
Wait(200+random(100));
Sendkeys(chr(13));
end;
end;
end;
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{List of procedures. Includes wait in procedures only! Place loop or repeat}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
begin
i:=0;
Wait(100);
ClearDebug;
ClickBoxOther;
Wait(1000);
repeat
begin
i:=i+1;
Wait(10);
CheckForBox;
Wait(10);
NowTypeSingle1;
Wait(10);
NowTypeSeperated1;
Wait(10);
NowTypeSingle2;
Wait(10);
NowTypeSeperated2;
Wait(10);
NowTypeSingle3;
Wait(10);
NowTypeSeperated3;
Wait(10);
NowTypeSingle4;
Wait(10);
NowTypeSeperated4;
Wait(10);
NowTypeSingle5;
Wait(10);
NowTypeSeperated5;
Wait(WaitTimeWhole+random(500));
end;
until(false);
end.
{//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\\}
{The End}
{\\++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//}
This isn't so advanced, but I like it because it took me forever to include all those combinations :D
——————————————————