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(HaltFatalError); |
419 |
|
420 if IPCSock <> nil then |
|
421 halt(HaltFatalError) |
|
422 else |
|
423 halt(HaltFatalErrorNoIPC); |
420 end; |
424 end; |
421 |
425 |
422 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
426 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
423 begin |
427 begin |
424 if CheckNoTeamOrHH or isPaused then |
428 if CheckNoTeamOrHH or isPaused then |