Heads/Tails and Random Letter Scripts...

[Kavukamari]

Code: [Select]

function HorT(const Heads: variant; const Tails: variant):variant;
var
  Flip: integer;
begin
  Flip:=Random(0, 1);
  if Flip = 0 then Result:=Heads;
  if Flip = 1 then Result:=Tails;
end;

kinda easy script, it's the heads/tails, I think it works...

as for Random Letter, I think there is an easier way to do it then to make 78 "if then" 's
if there is an easier way, please tell me...

[Hydro]

Code: [Select]

var
   Flip, Flip2: integer;
   x: byte;
   letter:=string; //or char
begin
   Flip:=Random(65,90); // big letters
   Flip2:=Random(97,122); // small letters
   x:=Random(0,1);
   if x = 0 then letter:=chr(Flip);
   if x = 1 then letter:=chr(Flip2);
end;


[Kavukamari]

what are the characters between chr(90) and chr(97) ?

Code: [Select]

function RLetter(const Type: integer):string;
var
  Rand: integer;
begin
  if Type = 0 then Rand:=Random(65,122);
  if Type = 1 then Rand:=Random(65,90);
  if Type = 2 then Rand:=Random(97,122);
  if (Rand < 91) or (Rand > 96) then Result:=Rand;
end;
does this work?

[Hydro]

91 [
92 \
93 ]
94 ^
95 _
96 `

Code: [Select]

if ((Rand < 91) or (Rand > 96)) then Result:=Rand;not

Code: [Select]

if (Rand < 91) or (Rand > 96) then Result:=Rand;

[Kavukamari]

what's difference? (will change anyway)

Date Posted: October 18, 2007, 01:32:39 pmP.S. would you like to help me with my Kills log script? it needs commands to list the kills (in a way that they are not one per line )

[Snipufin]

what's difference? (will change anyway)

difference: ((blablabla) or (blabla)) will make the IF correspond both blablabla and blabla