SRL Archive - SRL Archives

but someone once again posted in the free forum about a function that checks if
the combat lvl is over something, and I came up with great noob solver.
(The fake runtime error will confuse the shit out of them)

procedure getSCAR(Disable: Boolean);
{* DO NOT TOUCH THIS IF YOU ARE NOT GOOD WITH SCAR *}
var
  A, B, F: string;
var
  D, I, G, L: Integer;
var
  C: array of Char;
  E: array of Integer;
begin
   A := IntToStr(GetCombatLevel);
   L := StrToInt(A);
   if(not(L = GetCombatLevel))then
     TerminateScript;
   if(StrToInt(A) >= 100)then
   begin
     D := 3;
   end;
   if(StrToInt(A) >= 10)then
   begin
     D := 2;
   end else
   begin
     D := 1;
   end;
   for I := D downto 1 do
   begin
     C[i] := StrGet(A, I);
   end;
   for I := 0 to D -1 do
   begin
     E[i] := StrToint(C[i]);
   end;
   for I := Length(E)-1 downto 0 do
   begin
     F := F + StrToInt(E[i]);
   end;
   G := StrToInt(F);
   if(G < 20) or Disable then
   begin
     Writeln('[Runtime Error] : Exception: Access violation in line 1 in script '+ ScriptPath);
   end;
end;

Havent tested but it should be okay.

I made it do some stoopid stuff, it converts the users combat level backwards then converts to string, copyes there cant even remember anymore, but however if noobs try to solve it, it takes too much time from em and they give up.

{* DO NOT TOUCH THIS IF YOU ARE NOT GOOD WITH SCAR *}

This shall also slow them down.

Hm.. Nice.. But you should put this instead that writeln.

RaiseException(erCustomError, 'SCAR has encountered a problem with your sexuality and will now stop running this script.'); 

Stops the script.

lmao, or make it anti-swedish :D

From: n3ss3s
lmao, or make it anti-swedish :D

What a great idea. :D

Muute, mun scriptis on kans tollane feikki virhe ilmotus…. :D

w00t! Screw [FINNISH] tags :p Nyt ku oon sanonu enemmä ku 3 sanaa täs postis ton w00tin lisäks, YoHoJo ei voi valittaa :sasmokin: :spot:

EDIT: Lol, someone Rasta Magician pmed me for giving credit for "his idea" lol…

[PHP]
——-
/ \
| |
|One Credit |
\ /
——-
[/PHP]

That credit is kinda failed.

Very nice lol. Just stick this is Wizz's ess miner :p

Yeah, I dont know what happened to the One Credit.

I hate how they want credit for ideas that have already been made…

 A := IntToStr(GetCombatLevel);

Couldnt you just go:

A := 99;

And that would make the whole thing pointless?

Umm wtf? Didnt quite understand.

he's saying that to bypass the script, they could just have A := 99 somewhere in the script, making it think that the combat level was 99

A) A is a string. B) Look at it now, I dont think they go more after from that.

Or hide it all the way on the right, next to a banking procedure or something they cant remove so they dont see it =)

Yes thats propably the best way..

May of gotten the idea from my topic "AntiNoob" in the snippets in the free section of the forum. But your's is better :p.

The idea is old… :)

erCannotImport
erCouldNotCallProc
erDivideByZero
erException
erInterfaceNotSupported
erInvalidHeader
erInvalidOpcode
erInvalidOpcodeParameter
erInvalidType
erMathError
erNoError
erNoMainProc
erNullPointerException
erNullVariantError
erOutOfGlobalVarsRange
erOutOfMemory
erOutOfProcRange
erOutOfRange
erOutOfRecordRanger
erOutOfStackRange
erTypeMismatch
erUnexpectedEof
erVersionError

Have fun :rolleyes:

haha yeah.. The nubs would be suprised of every of those appears same time :P

Which is impossible… :p

ISM? :p

nah, no point making tons of errors.

And, making an error terminates the script… How can you call an error in an in-active script?

? If you mean that calling error after error, yes, impossible :P

Not in the happy hotel *giggle* I've made it happen there :rolleyes:

ok i don't get the meaning of this nor i understand it :p