equal
deleted
inserted
replaced
551 end; |
551 end; |
552 |
552 |
553 // now to console |
553 // now to console |
554 if winnersClan <> nil then |
554 if winnersClan <> nil then |
555 begin |
555 begin |
|
556 ScriptCall('onGameResult', winnersClan^.ClanIndex); |
556 WriteLnToConsole('WINNERS'); |
557 WriteLnToConsole('WINNERS'); |
557 WriteLnToConsole(inttostr(winnersClan^.TeamsNumber)); |
558 WriteLnToConsole(inttostr(winnersClan^.TeamsNumber)); |
558 for t:= 0 to winnersClan^.TeamsNumber - 1 do |
559 for t:= 0 to winnersClan^.TeamsNumber - 1 do |
559 WriteLnToConsole(winnersClan^.Teams[t]^.TeamName); |
560 WriteLnToConsole(winnersClan^.Teams[t]^.TeamName); |
560 end |
561 end |
561 else |
562 else |
|
563 begin |
|
564 ScriptCall('onGameResult', -1); |
562 WriteLnToConsole('DRAW'); |
565 WriteLnToConsole('DRAW'); |
|
566 end; |
563 |
567 |
564 ScriptCall('onAchievementsDeclaration'); |
568 ScriptCall('onAchievementsDeclaration'); |
565 end; |
569 end; |
566 |
570 |
567 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
571 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |