Help with basic script

[frosty]

wth im getting a crapload of errors with that code

im geting a syntax error and Begin expected error on line [2:2] to start with

[DarkCrusade]

I just acknowledged that there are random invisible chars that mess everything up. I'll post the corrected code in some minutes :3

EDIT: This should be working now..

Code: (pascal) [Select]

const
  ClBad  = $FFFF44;
  ClGood = $EE00FF;

Type
  Stats = Record
  LongTime: Boolean;
  TSec,Tmin,BTSec,BTMin: Integer;
end;

var
  Player: Array[1..32] of Stats;
LongestTime: Array[1..2] of Integer;

Procedure ResetStats(ID:Byte);
  begin
 Player[ID].LongTime := false;
end;

Procedure CheckTime(ID:Byte);  
begin
    if Player[ID].BTMin > LongestTime[1] then begin
  LongestTime[1] := Player[ID].BTMin;
    LongestTime[2] := Player[ID].BTSec;
    Player[ID].LongTime := true;
WriteConsole(0,IDToName(ID) + ' beats the record! His surviving time is ' + inttostr(Player[ID].BTMin) + ' minutes and ' + inttostr(Player[ID].BTSec) + ' seconds!', ClGood);
end else begin
      if Player[ID].BTMin = LongestTime[1] then
  if Player[ID].BTSec > LongestTime[2] then begin
      LongestTime[1] := Player[ID].BTMin;
    LongestTime[2] := Player[ID].BTSec;
    Player[ID].LongTime := true;
WriteConsole(0,IDToName(ID) + ' beats the record! His surviving time is ' + inttostr(Player[ID].BTMin) + ' minutes and ' + inttostr(Player[ID].BTSec) + ' seconds!', ClGood);
end;
      end;
  end;

Procedure OnJoinGame(ID,Team:Byte);
  begin
  ResetStats(ID);
end;

Procedure AppOnIdle(Ticks: integer);
var
  i:Byte;
begin
 for i:= 1 to 32 do if (GetPlayerStat(i,'Active') = true) AND (GetPlayerStat(i,'Alive') = true) then begin
if GetPlayerStat(i,'Human') = true then begin
    TSec[i]:= TSec[i] + 1;
    if TSec[i] = 60 then begin
      TMin[i]:= TMin[i] + 1;
      TSec[i]:= 0;
end;
    end else begin
      if TSec[i] > 0 then BTSec[i] := TSec[i];
      TSec[i] := 0;
      if TMin[i] > 0 then BTMin[i]:= TMin[i];
      TMin[i] := 0;
CheckTime(i);
      end;
end;
end;

[frosty]

(49:13): Unknown identifier 'TSec'

wtf?
i have had a look at the code but i dont get why its unknown since its defined in the Type

[Hacktank]

There is no array called TSec tho. Dark, didnt declare it.

[DarkCrusade]

I didn't test the code, I kind of rushed through it due to school stuff waiting for me and I actually thought you were able to debug a script yourself, Frosty :3

[frosty]

i can :3 but im still having same issue

still showing 0:0

i declared them in vars hacktank now it compiles

hers the full code: (see attachment)

From: June 12, 2010, 11:24:39 pmBump! still not working, someone help plz, this is irritating