SRL Archive - First Scripts

//////My First Script!!!////////Andyz55's Cammy Tele!//
//Play script with scroll bar down all the way!//
////I recommend using an air staff!////
///Thank you! and please give feedback on my first script!//
///Special thanks to WhoCares357 for the tut that helped me make this!!///
//Sorry its such a nooby script but its my first one!///
//Post comments!!!//
//Play in regular screen size not fullscreen!//
//Thank you!// P.s sorry no anti randoms..//
//p.p.s sorry it just goes forever!
//Made with scar 3.15b and srl 20//

//Made on 9-25-08//

EDIT:I reccomend that you do not use this script. It is very bannable and should be either updated, or removed. I might update it soon but until then, please dont use more than once because otherwise, your gonna get banned.






program CammyTele;
{.include SRL/SRL.scar}
begin
repeat
MoveMouseSmooth(864,370);
Wait(100);
ClickMouse(864,370,true);
MoveMouseSmooth(836,496);
Wait(100);
ClickMouse(836,496,true);
Wait(4000);
Until(false);
end. //Thank you!!






_______________________________________________________________
Everything above copy and paste into scar to try it out!

Hey everyone this is my first script and it worked really well for me!, sorry i understand that it is sort of customized for my computers screen size but im sure you can adjust it because its verrryy simple. I hope you like it! tell me what you think. Thanks a lot! -Andy
P.s: Sorry, it only works for members unless you modify it a bit. : (



Hey, dont use this script, Its outdated and will get you banned. Use this new one I just finished making.
Its much better.

program CammyTele;
{.include srl/srl.scar}

{ Hi, Im Andyz55.  Im pretty new to scar, but I have the basics
all down.  Awhile back I made a script for cammy teleporting.
It wasn't very good..  Well, I remade it with this
and I am pretty satisfied.  Please try it out and tell me
what you think!  Change the color to one that is unique to the other tele spells!!!}
////Big thanks to anyone who has written a good and helpful tutorial and anyone who gave me positive feedback
/////I suggest you start logged in, because login player doesnt always work.
/////fill out Declare Players, Lines 32, 62, and 86.  Please post bugs and proggies!! THANK YOU!   -Andyz55

Const
TeleColor =16349818;//The color of your tele spell

var x, y, teles, teles2do, times2do, times: integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;//Dont touch
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;//Dont touch this line or line 20 unless you want to add more players ( I dont recommend doing that )

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';//<<Obvious what this
  Players[0].Nick := 'sern';//Must be part of your username! NO FIRST LETTER!
  Players[0].Active := True;//Dont touch
  end;
  
  procedure antiban;
  begin
  case random(12) of //Change the case according to how many times you will preform the teleport procedure!
  2 : MMouse(0, 0, 800, 600); //Random Mouse movement
  3 : Mouse(0, 0, 800, 600, false);//Random Right Click
  end;
  end;
  
    procedure Proggie;
  begin
  if teles =(teles2do) then
  begin
  ClearDebug;
  Writeln('Thank you for using Andyz55''s Ultimate Tele!');
  Writeln('Ran for '+timerunning);
  Writeln('Teled ' + IntToStr(teles * times) +' Times!');
  Writeln('Please Post Progress Reports and Feedback!!');
  Writeln('Right Now!!!!!');
  Writeln('            -Andyz55');
  end;
  end;
  
  Procedure AntiRandoms;
  Begin
  FindnormalRandoms;
  If (FindFight) then
  RunAway('e', True, 1, 13200 + random(5500));//Change this according to your prefered run direction and wait time
  FTWait(20 + random(10));
  end;
  
  Procedure Teleport;
  begin
  teles := 0; //Dont change
  teles2do := 35;  //Times to tele
  repeat
  If (not (LoggedIn)) then Exit;
  GameTab(7);
  If  Findcolortolerance(x, y, telecolor, MIX1, MIY1, MIX2, MIY2, 0) then
  MMouse(x, y, 2, 2);
  Wait(200+random(200));
  Mouse(x, y, 2, 2, true);
  Antiban;
  Wait(1000+random(300));
  Antirandoms;
  Wait(1000+random(300));
  Inc(teles);
  Until teles =(teles2do);
  if not findcolortolerance(x, y, telecolor, MIX1, MIY1, MIX2, MIY2, 0) then
  Writeln('Sorry, I could not find your tele color.  Maybe you should get a new color. Make sure it isnt too similar to the other tele spells colors!!');
  Writeln('Logging out');
  Logout;
  Proggie;
  end;

begin
times := 0;//Times you want to tele (line 62) number of times//Dont change
times2do := 1; //Change to your desired times to tele, remember, this will make you tele (times2do * teles2do) times
SetupSrl;
DeclarePlayers;
LoginPlayer;
repeat
Teleport;
Inc(times);
Until times = (times2do);//Times you have teled (line 62) number of times
Proggie;
end.

dont cord click, its bannable, look at some tuts.

Instead of co ord clicking, try using castspell(); So, in your case, it would be
castspell(high level alchemy);
endless loop is not very goos, so read some tuts, but good work for very first script i guess.

From: griff721
Instead of co ord clicking, try using castspell(); So, in your case, it would be
castspell(high level alchemy);
endless loop is not very goos, so read some tuts, but good work for very first script i guess.

Not really…

From: In The Title
(Cammy teleporter)

About the script, like said co-ords are very bannable, and we rarely use them in Runescape scripts, but the concept is good. Make it a bit more user friendly, and it'll be a good script.

One thing is coord-clicking. Another thing is waiting,
Always add randomness. Without randomness, ban is a SURE thing.

Wait(100 + Random(100));

Something like that. :)
Good start!
~Eerik~

good start, but movemousesmmoth and click mouse = VERY bannable. Use MMouse and Mouse. Add some randomness to everything, and include some antirandom/antiban procedures in there. Looks good for the amount of time you've been around. If you'd like anymore help, just pm me

-Blumblebee

Thanks for the tips guys, sorry for making the coordinate things. I'll be sure to read more tuts and hopefully i can make some sweet scripts like u guys.

really good script.. no flaws

not bad but add more things in it

From: baaman
really good script.. no flaws

no its not. read some tuts.

Inlcuding SRL but doesn't use any SRL functions? :/

nice man

good start farther than i am on my script i haven't even stated the radial walk. all i have is it logs in and gets everything ready.

REMEMBER: i dont have ne mem autos so i just made it up to best i could…it still clicks telle to cammy :)

Ok first NEVER use movemouse/clickmouse and dont forget waits…also peoplew ould have to change co-ords for each person who uses this so instead ill add this in just to help you a bit (its still not that good(mine) yours i a good start for a first script!) this has anti randoms+ban, you can use if you want but rep me + add me to credits!

also dont forget to put

Tags around you script...NOTE: THIS MAY/MAY NOT WORK..I POSTED SIMPLY TO SHOW HOW YOU COULD FIX UP YOUR SCRIPT!

[SCAR]  //This is a fixed version of Cammy Teleport by:Andyz55        //
//I have simply added what could be fixed in it :)     //
//All credit goes to him but if he uses any of this //
//he needs to add me to creds..//
//Please rep this post if you think its useful!//
//ENjoy!//
//START ANYWHERE WITH LAWS IN FIRST INV SLOT AND AIR STAFF ON!//

Program Cammy_Telle;
         {.include srl/srl.scar}


procedure declareplayers;
begin
  howmanyplayers:=1;  // NO TOUCHY!
  numberofplayers(howmanyplayers);
  players[0].name:='username';
  players[0].pass:='pass';
  players[0].nick:='3- for letter of your name';
  players[0].active:=true;
end;

{~~~~~~~~~~~~~~~~~~~~~~]
[Made by Joelster134   ]
[used in cammy telle   ]
[                      ]
[~~~~~~~~~~~~~~~~~~~~~~}
procedure randoms;
begin
  findnormalrandoms;
  if findfight=true then
  begin
    runaway('E',true,1,5000+random(1000));
  end;
end;

//End of Anti-Randoms

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]
[Fixed Telle part (a bit):p    ]
[This will telle on anyones com]
[without havin to reset colors ]
[Made by Joelster134           ]
[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
procedure TelleToCammy;
var
X,Y,Telles :Integer;
begin
repeat
if(findcolor(x,y,3834277,850,381,878,407))then
Mmouse(x,y);
Cmouse(x,y,True);
wait(1000+random(500)
if(findcolor(x,y,16284282,825,506,849,529))then
Mmouse(x,y);
Cmouse(x,y,True);
wait(1500+random(1000));
until(Telles = 1000;)then
//Log's you out now//
if(findcolor(x,y,2969436,865,210,884,230))then
Mmouse(x,y);
Cmouse(x,y,True);
wait(1000+random(500)
if(findcolor(x,y,1908611,696,575,828,593))then
Mmouse(x,y);
Cmouse(x,y,True);
if(Telles = <1000;)then
procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case (Random(30)) of
    1:  RandomRClick;
    5:  HoverSkill('Woodcutting', False);
    11:  RandomMovement;
    15: BoredHuman;
    21: DoEmote(400 +Random(90));
    24:  PickUpMouse;
    27: begin
         Gametab(1 + Random(12));
         Wait(3220 + Random(2415));
         Gametab(4);
        end;
    30: SleepAndMoveMouse(3600);
  end;
end;

end;
begin
end.

In the two areas that you had 'telle' and '1000' shouldnt the semicolon be outside the parenthesis? like
until (telle = 1000); insted of
until (telle = 1000;) <–Sorry a semicolon then a left parenthesis make this smily
?

nice for first but done your mouse movements very tracable and you will be banned very quickly . fix that then it will be a very useful script:P

Havent tried it yet, but the structure and the concept are quite remarkable.
But, yes, you need something in there to randomize it a bit. Maybe, every so often it just types something in (doesnt press enter) and then deletes it all? Anyway, good script. You have potential. :)

radnoms?

Heey guys:)
Is it easy to do a Smart script?
I gonna try to make one in one day.
It doesnt look so hard,i know many good tutorials:)


Hope to see you | Riffe |

Cool its same as my first script (big help for joelstar134 tho) :f:

U spelt my name wrong in ur siggy :p just pointing that out…good start mate!

Yeah, I know that this script is very bannable, and I have read like 50 tuts since this, so this script is such crap compared to what im working on now lol. I guess I could update it If you want lol, I dont really care.. Thanks for the feedback btw
Idk if I will update this script…
Im pretty busy with my other ones, and school
I should get those things done first.
Maybe sometime..

Np i would recommend updating it…even though it is your first script…my first EVER script was like this (was a WIllow Chop And Banker :p) but i fixed it up (in my siggy SRL junior Mems Section) and it runs well now :)


you don't have to update but i would :)


What you working on?

im working on a yew chop and bank atm :p

Im working on a skeleton powerkiller and a willow power cutter and dropper.
Im not gonna update this until im done with those though.. I need to work on school and finish my other scripts so.. I dont know if im gonna update this.. who knows

Nice but have a look at some areas in my cammy teleporter its

Ok, just because having this nooby script written in my name bothered me, I re wrote it into a still semi-nooby but way better script. Here it is, and please post proggies or feedback. I have lots of scripts that I am very proud of that I will release when all the kinks are ironed out. They include: A powerfisher and dropper, a willow cut and drop, a skeleton autofighter, and more soon to come. Thanks!

From: joelster134

procedure TelleToCammy;
var
X,Y,Telles :Integer;
begin
repeat
if(findcolor(x,y,3834277,850,381,878,407))then
Mmouse(x,y);
Cmouse(x,y,True);

Hey Joelster, when you shouldnt use MMouse like
MMouse(x, y);
because its the randomness like
MMouse(x, y, 4, 4);
that doesn't get you banned. Same goes for cmouse
I think you should just use Mouse

Sorry for double post, Just got caught up in the moment lol

yeah sorry about that was'nt focused on what iwas doing at the time lol.

lol its fine, I just hope no one gets banned (especially on their main)

EDIT: Has anyone tried the new rewritten script yet? or should I post it in the First Scripts section again?
lol