cool tut
cool tut
Very goodBut don't use talking, like zeph already said.
I think this should be in tutorials for beginners?
SCAR Code:const
AntiBanChance = 70; // Chance of AntiBan-procedure to occur in percents
case random(11 * (100/AntiBanChance)) of
0: SleepAndMoveMouse(1000+random(2000));
1: HoverSkill('Woodcutting', false);
2: BoredHuman;
...
11: MakeCompass(IntToStr(random(360)));
end;
And a hint: random(476) is just as good as random(500). It doesnt add anymore randomness, even if u used how weird numbers. So to make it look simple, use random(500) instead of random(476), for example.
SCAR Code:Procedure Antiban;//You can add more if you know what you are doing
begin
If Not LoggedIn Then Exit;
Case Random(150) of
1:
begin
Boredhuman;
Inc(HowManyAntibans);;
WriteLn('Antiban - BoredHuman');
Exit;
end;
19:
begin
PickupMouse;
Inc(HowManyAntibans);;
WriteLn('Antiban - PickupMouse');
Exit;
end;
31:
begin
Inc(StupidX);
AddIgnore('Zezima'+IntToStr(StupidX));
Wait(100+random(900));
DeleteIgnore('Zezima'+IntToStr(StupidX));
Inc(HowManyAntibans);;
WriteLn('Antiban - Ignore(Add/Remove)');
Exit;
end;
41:
begin
Inc(StupidY);
AddFriend('tehnoobshow'+IntToStr(StupidY));
Wait(100+random(500));
DeleteFriend('tehnoobshow'+IntToStr(StupidY));
Inc(HowManyAntibans);;
WriteLn('Antiban - Friend(Add/Remove)');
Exit;
end;
125:
begin
Hoverskill('random', false)
Inc(HowManyAntibans);;
WriteLn('Antiban - HoverSkill->Random');
Exit;
end;
69,54,67:
begin
Makecompass('n');
wait(30+random(30));
Makecompass('s');
wait(30+random(30));
Makecompass('random');
Inc(HowManyAntibans);;
WriteLn('Antiban - Random Changing of Compass');
Exit;
end;
143:
begin
Hoverskill('Woodcutting', false);
Inc(HowManyAntibans);;
WriteLn('Antiban - HoverSkill->Woodcutting');
Exit;
end;
87:
begin
Gametab(1);
wait(250+random(350));
Gametab(2);
Wait(250+random(350));
Gametab(3);
Wait(250+random(350));
Gametab(4);
Wait(150+random(200));
Inc(HowManyAntibans);;
WriteLn('Antiban - Gametab');
Exit;
end;
48:
begin
Hoverskill('Firemaking', false);
Inc(HowManyAntibans);;
WriteLn('Antiban - Hoverskill->Firemaking');
Exit;
end;
186:
begin
SleepAndMoveMouse(1000+random(2000));
Inc(HowManyAntibans);;
WriteLn('Antiban - SleepAndMoveMouse');
Exit;
end;
201:
begin
Mouse(random(600),random(500),0,0,false)
Chooseoption('ancel');
Inc(HowManyAntibans);;
WriteLn('Antiban - Random Mouse Click and Cancel');
Exit;
end;
249:
begin
Mouse(random(600),random(500),0,0,false)
chooseoption('xamine')
Inc(HowManyAntibans);;
WriteLn('Random Mouse Click and Examine');
Exit;
end;
200:
begin
If QCOpen then Exit;
OpenQC;
Wait(10+random(100));
CloseQc ;
QCSayLevel('Woodcutting');
Inc(HowManyAntibans);;
WriteLn('Antiban - QuickChat)');;
Exit;
end;
end;
end;
Using this in my "coming" script.

it's actually different..
if the case is 4, and nothing is set to 4, it will just go onto the next thing.. but if something is set to 4, it will do it![]()
SCAR Code:procedure AkwardAntiBan;
begin
if (not(LoggedIn))then
LoginPlayer;
for R := 300 to 500 do
for RG := 0 to 6 do
case Random(15) of
0:begin
writeln('anti ban 1');
HoverSkill('Magic', False);
wait(100+ random(R));
HoverSkill('Range', False);
SleepAndMoveMouse(600+random(400));
end;
1:Begin
writeln('antiban 2');
Gametab(RG);
wait(R + random (R));
GameTab(7);
end;
2:begin
writeln('antiban 3');
PickUpMouse;
wait(R + random (r));
PickUpMouse;
wait(R + random (r));
end;
3: begin
writeln('antiban 4');
SayCurrentLevels('Magic');
end;
4:begin
writeln('antiban 5');
MakeCompass('S');
Wait(R + random(R));
MakeCompass('N');
Wait(R + random(R));
end;
end;
end;
im having some trouble with it, when it gets to the antiban procedure in the script, it repeats random antiban procedures, like it will do antiban 1, 3, 2, 3, 3, 1 , 4, 5, 2, on and on, instead of having a 50% chance of doing one of those 5. so i had to take it out for the script to work.
also i have a question, can you have a case ithin a case? likeSCAR Code:0: begin
0: something
1: somethingelse
end;
1: anotherthing
<TViYH> i had a dream about you again awkwardsaw
Malachi 2:3

you can have a case within a case..
SCAR Code:begin
case Random(2) of
0: begin
case Random(2) of
0: Writeln('0-0');
1: begin
case Random(2) of
0: Writeln('0-1-0');
1: begin
case Random(2) of
0: TerminateScript;
1: Writeln('0-1-1-1');
end;
end;
end;
end;
end;
end;
1: begin
case Random(2) of
0: Writeln('1-0');
1: begin
case Random(2) of
0: Writeln('This is a lot of cases');
1: Writeln('1-1-1');
end;
end;
end;
end;
end;
end.
Last edited by ian.; 04-05-2009 at 01:02 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)