equal
deleted
inserted
replaced
414 end; |
414 end; |
415 |
415 |
416 procedure chFatalError(var s: shortstring); |
416 procedure chFatalError(var s: shortstring); |
417 begin |
417 begin |
418 SendIPC('E' + s); |
418 SendIPC('E' + s); |
|
419 // TODO: should we try to clean more stuff here? |
|
420 SDL_Quit; |
|
421 halt(2) |
419 end; |
422 end; |
420 |
423 |
421 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
424 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
422 begin |
425 begin |
423 if CheckNoTeamOrHH or isPaused then |
426 if CheckNoTeamOrHH or isPaused then |