k

#Title[Stage 2 - Easy]
#Text[Phantasmagoria of Temporal Loop]
#Player[FREE]
#ScriptVersion[2]

script_stage_main{
let floor = GetCurrentScriptDirectory ~ "\sprite\floor.png";
let water1 = GetCurrentScriptDirectory ~ "\sprite\water.png";
let green = GetCurrentScriptDirectory ~ "\sprite\green.png";
let green2 = GetCurrentScriptDirectory ~ "\sprite\green2.png";
let banner = GetCurrentScriptDirectory ~ "\sprite\banner.png";
let Y = 0;
let Y2 = -60;
let X = 0;
let X3 = 0;
let Y3 = 0;
let alphalevel = 255;

@Initialize{
LoadGraphic(banner);  //banner
LoadGraphic(floor);      //ocean floor
LoadGraphic(water1); //water
LoadGraphic(green);  //foliage 1
LoadGraphic(green2);//foliage 2
stage;
}
@BackGround{
SetFog (90, 180, 0, 128, 0);  //the numbers need tweaking
alphalevel-=1;
if(Y2>-45){
Y2=-45;
}
Y+=0.5;
X-=0.5;
X3+=0.1;
Y3-=0.1;
Y2+=0.1;
SetViewFrom(120, 90, -60);
WriteZBuffer(true);
UseZBuffer(true);
SetTexture(floor);
SetAlpha(156);
SetGraphicRect(0,0,50*256,50*256);
DrawGraphic3D(X,X,0);
SetTexture(water1);
SetAlpha(128);
SetGraphicRect(0,0,50*256,50*256);
DrawGraphic3D(Y,X,0);
SetTexture(water1);
SetAlpha(128);
SetGraphicRect(0,0,50*256,50*256);
DrawGraphic3D(Y,Y,0);
SetTexture(green);
SetAlpha(255);
SetGraphicRect(0,0,25*256,25*256);
SetGraphicScale(0.5,0.5);
DrawGraphic3D(-Y3,X3,0);
SetTexture(green2);
SetAlpha(255);
SetGraphicRect(0,0,25*256,25*256);
SetGraphicScale(0.5,0.5);
DrawGraphic3D(X3,-Y3,0);
SetTexture(banner);
SetGraphicScale(1,1);
SetAlpha(alphalevel);
SetGraphicRect(0,0,359,117);
DrawGraphic(GetCenterX,GetCenterY-100);
}

task stage{
Wait(255);
DeleteGraphic(banner);
Wait(120);
CreateEnemyFromFile(GetCurrentScriptDirectory ~ "enemy\1.txt", GetClipMinX, 0, 0, 0, 0);
WaitForZeroEnemy;
CreateEnemyFromFile(GetCurrentScriptDirectory ~ "enemy\1.txt", GetClipMinX, 0, 0, 0, 0);
WaitForZeroEnemy;
CreateEnemyFromFile(GetCurrentScriptDirectory ~ "enemy\1.txt", GetClipMinX, 0, 0, 0, 0);
WaitForZeroEnemy;
CreateEnemyFromFile(GetCurrentScriptDirectory ~ "enemy\1.txt", GetClipMinX, 0, 0, 0, 0);
WaitForZeroEnemy;
CreateEnemyFromFile(GetCurrentScriptDirectory ~ "enemy\1.txt", GetClipMinX, 0, 0, 0, 0);
WaitForZeroEnemy;
CreateEnemyFromFile(GetCurrentScriptDirectory ~ "enemy\1.txt", GetClipMinX, 0, 0, 0, 0);
WaitForZeroEnemy;
WaitForZeroBullet;
Wait(240);
Clear;
}


@MainLoop{
yield;
}


@Finalize{
}

 function WaitForZeroEnemy{
  while(GetEnemyNum != 0){yield;}
 }
 function WaitForZeroBullet{
  while(GetEnemyShotCount != 0){yield;}
 }
 function Wait(let frames){
   loop(frames){yield;}
 }
}