PDA

View Full Version : A Basic Scar Tutural Script



Dankness
04-29-2006, 05:00 PM
This is a Old Tutural Script i wrote to help noobs learn basic Scar scripting and some basic SRL procedures. Enjoy!

WhiteShadow
04-29-2006, 07:05 PM
Pretty descriptive, I think it'll help many starters.

Dankness
04-30-2006, 01:03 AM
yea i wrote a whole series of these actually but they were for ssi2, i got bored and converted the first one i wrote ill eventually have the whole series up here.

Avaphi
05-07-2006, 10:52 PM
AWESOME Helped me alot, I am looking forward to more. I am trying to learn scar ASAP. Hope to contribute to the community soon, I think with your help I will be able to do that faster.

the smith400
10-07-2007, 05:55 PM
DUDE IM IN LOVE. mhm. thats what i would of said if it was a women.
u actually explained it. saweet

Zeta
10-07-2007, 06:29 PM
nice gravedid smith, the last post was from LAST YEAR.

btw i made one of these kind of too,

{
INSTRUCTIONS:
1. Fill out the messages to what you want them to say.
2. Fill out the colors and effects you want
3. Drag crosshair to runescape.
4. Press F4 for message 1, F5 for 2, F6 for 3, F7 for 4 and F8 for 5.
5. Press F10 to stop the script.
}



program SimpleAutoTalker; //The program name
{.include SRL/SRL.scar}

const //Constants, these stay the same throughout the whole script
Color = ('white'); //Red, cyan, green, white, flash 1, flash 2, flash 3
Effect = ('shake'); //Wave, wave 2, shake, scroll, slide
Message1 =('This is the first message');
Message2 =('This is the second message');
Message3 =('This is the third message');
Message4 =('This is the fourth message');
Message5 =('This is the fifth message');

procedure Talk; //The procedure name
begin //Begin the procedure
if(IsFKeyDown(4))then //If the key F4 is down it will..
begin //Begin this part of procedure
TypeSend(Color + ':' + Effect + ':' + Message1); //Types message1, and the color and effect
Talks:=Talks+1; //Everytime we talk it adds 1 to the times talked
end; //Ends this part of procedure

if(IsFKeyDown(5))then
begin
TypeSend(Color + ':' + Effect + ':' + Message2);
Talks:=Talks+1;
end;

if(IsFKeyDown(6))then
begin
TypeSend(Color + ':' + Effect + ':' + Message3);
Talks:=Talks+1;
end;

if(IsFKeyDown(7))then
begin
TypeSend(Color + ':' + Effect + ':' + Message4);
Talks:=Talks+1;
end;

if(IsFKeyDown(8))then
begin
TypeSend(Color + ':' + Effect + ':' + Message5);
Talks:=Talks+1;
end;
end; //Ends the whole procedure

procedure Proggy;
begin
Writeln('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]'); //Writes text in the debug box
Writeln('Talked ' + IntToStr(Talks) + ' Times' + ' ');
Writeln('Script has been running for ' + TimeRunning);
Writeln('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]');
end;


Procedure MainLoop;
begin
ActivateClient; //This minimizes SCAR and goes to the runescape screen.
SetupSRL; //Sets up SRL so it can be used.
repeat
Talk; //Uses the talk procedure
until(IsFKeyDown(10)); //Stops script when F10 is pressed.
Proggy; //Does the progress report
end;

begin //The begin of the real mainloop
MainLoop;
end. //The end of the mainloop, and the end of the whole script.

ssskibum16
10-07-2007, 09:56 PM
nice i like the scriped, its easy to fallow and and very discripive
i made almost the same one before i saw this one

mynameisjoe
10-13-2007, 02:49 AM
Hey Dankness, i just wanted to know.. what does the procedure "findrandoms" do? i mean does it solve them, or run away from fights, or only detect them?

ZaSz
10-24-2007, 04:28 AM
Nice tut, mabey a little to basic? You should add a little more.

xs_range
11-06-2007, 08:02 PM
woot, im startign to understand it thx

L3ss Than 33
12-23-2007, 11:38 PM
A little too basic for my liking. But the descriptions were pretty vivid.
Maybe go into a little bit more depth? Overall I liked it thought. thanks :)

in2it
10-10-2008, 10:50 PM
nice tut man :P