SHARE
TWEET

Untitled

a guest Jan 25th, 2020 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. task TStageScene(let pathReplay)
  2. {
  3.     let dirCurrent = GetCurrentScriptDirectory();
  4.     let dirModule = GetModuleDirectory();
  5.     let pathMainScript = dirCurrent ~ "stagetest.txt";
  6.     let pathPlayer = dirModule ~ "script/player/newplayer3/player2.txt";
  7.  
  8.     //--------------------------------
  9.  
  10.     RenderSceneToTransitionTexture();
  11.     TTransition();
  12.  
  13.     //--------------------------------
  14.  
  15.     InitializeStageScene();
  16.     if(length(pathReplay) > 0)
  17.     {
  18.         SetStageReplayFile(pathReplay);
  19.     }
  20.  
  21.     //--------------------------------
  22.  
  23.     let indexStage = 1;
  24.     SetStageIndex(indexStage);
  25.     SetStageMainScript(pathMainScript);
  26.     SetStagePlayerScript(pathPlayer);
  27.     StartStageScene();
  28.  
  29.     //--------------------------------
  30.  
  31.     loop
  32.     {
  33.         //--------------------------------
  34.  
  35.         if(GetVirtualKeyState(VK_PAUSE) == KEY_PUSH)
  36.         {
  37.             let resPause = RunPauseScene();
  38.             alternative(resPause)
  39.             case(RESULT_RETRY)
  40.             {
  41.                
  42.                 if(!IsReplay())
  43.                 {
  44.                     //リトライ
  45.                     TerminateStageScene();
  46.                     TStageScene("");
  47.                     return;
  48.                 }
  49.             }
  50.             case(RESULT_END)
  51.             {
  52.                
  53.                 TerminateStageScene();
  54.             }
  55.         }
  56.  
  57.         if(!IsReplay() && GetKeyState(KEY_BACK) == KEY_PUSH)
  58.         {
  59.            
  60.             TerminateStageScene();
  61.             TStageScene("");
  62.             return;
  63.         }
  64.  
  65.         //--------------------------------
  66.        
  67.         let stgSceneState = GetStageSceneState();
  68.         if(stgSceneState == STAGE_STATE_FINISHED)
  69.         {
  70.        
  71.             let stageResult = GetStageSceneResult();
  72.             alternative(stageResult)
  73.             case(STAGE_RESULT_CLEARED)
  74.             {
  75.                
  76.                 if(indexStage == 2)
  77.                 {
  78.                     //ステージ2をクリアした場合は終了
  79.                     TEndScene();
  80.                     break;
  81.                 }
  82.                 else
  83.                 {
  84.                     //次のステージへ遷移
  85.                     indexStage++;
  86.                     SetStageIndex(indexStage);
  87.                     SetStageMainScript(pathMainScript); //ひとまず同じステージ...
  88.                     SetStagePlayerScript(pathPlayer);
  89.                     StartStageScene();
  90.                     TTransition();
  91.                 }
  92.             }
  93.             case(STAGE_RESULT_PLAYER_DOWN)
  94.             {
  95.                 //自機残機0
  96.                 TEndScene();
  97.                 break;
  98.             }
  99.             case(STAGE_RESULT_BREAK_OFF)
  100.             {
  101.                 //ステージ途中終了
  102.                 //一時停止中の終了
  103.                 TTitleScene();
  104.                 break;
  105.             }
  106.         }
  107.         yield;
  108.     }  
  109.  
  110.     TTransition();
  111. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top