Rev 19 | Rev 21 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 19 | Rev 20 | ||
|---|---|---|---|
| Line 95... | Line 95... | ||
| 95 | 95 | ||
| 96 | procedure TMainForm.cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType); |
96 | procedure TMainForm.cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType); |
| 97 | resourcestring |
97 | resourcestring |
| 98 | S_YOUR_SCORE = 'Your score is: %s'; |
98 | S_YOUR_SCORE = 'Your score is: %s'; |
| 99 | begin |
99 | begin |
| - | 100 | csCancelSceneRequest.Acquire; |
|
| - | 101 | try |
|
| - | 102 | FCancelSceneRequest := false; |
|
| - | 103 | finally |
|
| - | 104 | csCancelSceneRequest.Release; |
|
| - | 105 | end; |
|
| - | 106 | ||
| 100 | {$IFDEF DEBUG} |
107 | {$IFDEF DEBUG} |
| 101 | Caption := AFileName; |
108 | Caption := AFileName; |
| 102 | {$ENDIF} |
109 | {$ENDIF} |
| 103 | 110 | ||
| 104 | if FileExists(AFilename) then |
111 | if FileExists(AFilename) then |
| Line 277... | Line 284... | ||
| 277 | ac: TActionDef; |
284 | ac: TActionDef; |
| 278 | begin |
285 | begin |
| 279 | // Debug: Go to prev decision by clicking on the top left edge |
286 | // Debug: Go to prev decision by clicking on the top left edge |
| 280 | if (X < 20) and (Y < 20) then |
287 | if (X < 20) and (Y < 20) then |
| 281 | begin |
288 | begin |
| 282 | // TODO: Also allow to go back multiple steps |
289 | // TODO: Also allow to go back multiple steps (we would need a stack instead of PrevDecisionScene/CurDecisionScene) |
| 283 | ac.scoreDelta := 0; |
290 | ac.scoreDelta := 0; |
| 284 | ac.nextSceneID := SCENEID_PREVDECISION; |
291 | ac.nextSceneID := SCENEID_PREVDECISION; |
| 285 | ac.sceneSegment := 0; |
292 | ac.sceneSegment := 0; |
| 286 | Game.PerformAction(@ac); |
293 | Game.PerformAction(@ac); |
| 287 | Exit; |
294 | Exit; |