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