equal
deleted
inserted
replaced
310 |
310 |
311 ScriptCall('onAchievementsDeclaration'); |
311 ScriptCall('onAchievementsDeclaration'); |
312 end; |
312 end; |
313 |
313 |
314 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
314 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
315 begin |
315 begin |
316 if (length(id) = 0) or (length(teamname) = 0) then exit; |
316 if (length(id) = 0) or (length(teamname) = 0) or (length(location) = 0) then exit; |
317 WriteLnToConsole('ACHIEVEMENT'); |
317 WriteLnToConsole('ACHIEVEMENT'); |
318 WriteLnToConsole(id); |
318 WriteLnToConsole(id); |
319 WriteLnToConsole(teamname); |
319 WriteLnToConsole(teamname); |
320 WriteLnToConsole(location); |
320 WriteLnToConsole(location); |
321 WriteLnToConsole(inttostr(value)); |
321 WriteLnToConsole(inttostr(value)); |