procedure test1(const testnum: Byte);
begin
testnum := 5;
Players.WriteConsole(inttostr(testnum),$FFFFFF);
end;
procedure OnSpeak(Player: TActivePlayer; Text: string);
begin
if text='!test1' then
test1(95);
end;
procedure Init;
var
i: byte;
begin
for i := 1 to 32 do
Players[i].OnSpeak := @OnSpeak;
end;
begin
Init;
end.
Shouldn't that throw me an error?(Something like "Left side cannot be assigned to") It's still able to change the value.
