rotflmfwao
07-12-2007, 07:39 PM
I dunno if these are already made, but if they are, Sorry! XD
I made RandomDir so I could use it as an antiban function --
eg - MakeCompas(RandomDir);
I made ScrewyCompas for the same reason (I realize I could have made it a LOT more efficient and shorter, but it was a spur of the moment idea...)
eg - ScrewyCompas;
Here they are:
RandomDir
Function RandomDir: String;
Begin
Case (random(4)) of
0: Result:='n';
1: Result:='s';
2: Result:='e';
3: Result:='w';
End;
End;
ScrewyCompas
Procedure ScrewyCompass(arrowkey:String; moveback:Boolean);//up, down, left, right, or ran
Var HoldingTime, WaitTime, RanDir, OppRanDir:Integer;
Begin
if(not(LoggedIn))then
Exit;
HoldingTime:= 500+random(1000);
WaitTime:= 500+random(250);
RanDir:= random(4);
Case (RanDir) of
0: OppRanDir:=2
1: OppRanDir:=3
2: OppRanDir:=0
3: OppRanDir:=1
End;
Case (arrowkey) of
'up': SendArrowWait(0,HoldingTime);
'down': SendArrowWait(2,HoldingTime);
'left': SendArrowWait(3,HoldingTime);
'right': SendArrowWait(1,HoldingTime);
'ran': SendArrowWait(RanDir,HoldingTime);
End;
If (moveback) Then
Begin
Wait(WaitTime);
Case (arrowkey) of
'up': SendArrowWait(2,HoldingTime);
'down': SendArrowWait(0,HoldingTime);
'left': SendArrowWait(1,HoldingTime);
'right': SendArrowWait(3,HoldingTime);
'ran': SendArrowWait(OppRanDir,HoldingTime);
End;
End;
End;
BTW, ima try to make screwy compass more efficient, brb if I can XD
I made RandomDir so I could use it as an antiban function --
eg - MakeCompas(RandomDir);
I made ScrewyCompas for the same reason (I realize I could have made it a LOT more efficient and shorter, but it was a spur of the moment idea...)
eg - ScrewyCompas;
Here they are:
RandomDir
Function RandomDir: String;
Begin
Case (random(4)) of
0: Result:='n';
1: Result:='s';
2: Result:='e';
3: Result:='w';
End;
End;
ScrewyCompas
Procedure ScrewyCompass(arrowkey:String; moveback:Boolean);//up, down, left, right, or ran
Var HoldingTime, WaitTime, RanDir, OppRanDir:Integer;
Begin
if(not(LoggedIn))then
Exit;
HoldingTime:= 500+random(1000);
WaitTime:= 500+random(250);
RanDir:= random(4);
Case (RanDir) of
0: OppRanDir:=2
1: OppRanDir:=3
2: OppRanDir:=0
3: OppRanDir:=1
End;
Case (arrowkey) of
'up': SendArrowWait(0,HoldingTime);
'down': SendArrowWait(2,HoldingTime);
'left': SendArrowWait(3,HoldingTime);
'right': SendArrowWait(1,HoldingTime);
'ran': SendArrowWait(RanDir,HoldingTime);
End;
If (moveback) Then
Begin
Wait(WaitTime);
Case (arrowkey) of
'up': SendArrowWait(2,HoldingTime);
'down': SendArrowWait(0,HoldingTime);
'left': SendArrowWait(1,HoldingTime);
'right': SendArrowWait(3,HoldingTime);
'ran': SendArrowWait(OppRanDir,HoldingTime);
End;
End;
End;
BTW, ima try to make screwy compass more efficient, brb if I can XD