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