SCAR Code:
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.