Well, i am trying to make this new function as a test and it is not quite working out. The error is as follows:
Code:
Line 3: [Error] (3:15): Syntax error in script
Failed when compiling
And the script is as follows:
SCAR Code:
function IsFKeyUp(Num: Byte): Boolean;
begin
if(Num=1) and if(KeyUp(112)) then Result:=True;
if(Num=2) and if(KeyUp(113)) then Result:=True;
if(Num=3) and if(KeyUp(114)) then Result:=True;
if(Num=4) and if(KeyUp(115)) then Result:=True;
if(Num=5) and if(KeyUp(116)) then Result:=True;
if(Num=6) and if(KeyUp(117)) then Result:=True;
if(Num=7) and if(KeyUp(118)) then Result:=True;
if(Num=8) and if(KeyUp(119)) then Result:=True;
if(Num=9) and if(KeyUp(120)) then Result:=True;
if(Num=10) and if(KeyUp(121)) then Result:=True;
if(Num=11) and if(KeyUp(122)) then Result:=True;
if(Num=12) and if(KeyUp(123)) then Result:=True;
if(Num=13) and if(KeyUp(124)) then Result:=True;
if(Num=14) and if(KeyUp(125)) then Result:=True;
if(Num=15) and if(KeyUp(126)) then Result:=True;
if(Num=1) and if not (KeyUp(112)) then Result:=False;
if(Num=2) and if not (KeyUp(113)) then Result:=False;
if(Num=3) and if not (KeyUp(114)) then Result:=False;
if(Num=4) and if not (KeyUp(115)) then Result:=False;
if(Num=5) and if not (KeyUp(116)) then Result:=False;
if(Num=6) and if not (KeyUp(117)) then Result:=False;
if(Num=7) and if not (KeyUp(118)) then Result:=False;
if(Num=8) and if not (KeyUp(119)) then Result:=False;
if(Num=9) and if not (KeyUp(120)) then Result:=False;
if(Num=10) and if not (KeyUp(121)) then Result:=False;
if(Num=11) and if not (KeyUp(122)) then Result:=False;
if(Num=12) and if not (KeyUp(123)) then Result:=False;
if(Num=13) and if not (KeyUp(124)) then Result:=False;
if(Num=14) and if not (KeyUp(125)) then Result:=False;
if(Num=15) and if not (KeyUp(126)) then Result:=False;
end;
Thank-you for reading