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