#東方弾幕風 #Title[全世界ナイトメア] #Text[本家コピーです。] #Player[FREE] #ScriptVersion[2] script_enemy_main { let fl=-100; let fl2=-100; let way=7; let life=0; let updown=0; let result=0; @Initialize { CutIn(YOUMU,"魔符「全世界ナイトメア」","" , 0, 0, 0, 0); SetTimer(140); SetScore(10000000); SetX(GetCenterX); SetY(GetClipMinY + 120); SetLife(4000); LoadGraphic("script\ExRumia\img\ExRumia.png"); SetTexture("script\ExRumia\img\ExRumia.png"); SetGraphicRect(0, 0, 63, 63); Concentration01(100); } @MainLoop { search; SetCollisionA(GetX, GetY, 24); SetCollisionB(GetX, GetY, 24); if(fl==32){nightmareshot(GetX,GetY,way);fl=0;move;} if(fl2==60){nightmare;fl2=0;move;search;} fl++;fl2++; yield; if(life==0){if(GetEnemyLife<3000){life++;way++;}} else if(life==1){if(GetEnemyLife<2000){life++;way++;}} else if(life==2){if(GetEnemyLife<1000){life++;way++;}} } @DrawLoop { DrawGraphic(GetX, GetY); } @Finalize { DeleteGraphic("script\ExRumia\img\ExRumia.png"); } task nightmareshot(let lx,let ly,let way) { let angle; angle=GetAngleToPlayer-(2.5*way)+2.5; loop(8){ loop(way){ CreateShot01(GetX,GetY,3,angle,RED31,0); CreateShot01(GetX,GetY,3,angle+122,RED31,0); CreateShot01(GetX,GetY,3,angle+242,RED31,0); angle+=5;} angle=angle-(5*way); loop(4){yield;} } } sub nightmare {let angle=GetAngleToPlayer; loop(15){ CreateShot01(GetX,GetY,1,angle,RED02,0); angle+=24;} } sub move { if(way<17){ let X; let Y; X=GetPlayerX; Y=GetPlayerY; if(X<=160){X=160;} else if(X>=300){X=300;} if(Y<=130){Y=130;} else if(Y>=200){Y=200;} if(updown==0){Y+=3;X+=20;updown=1;} else{Y-=3;X-=20;updown=0;} SetMovePosition01(X,Y,0.5); } else { SetMovePosition01(GetCenterX,GetClipMinY + 120,0.5); } } sub search { let search; search=GetEnemyShotCount; result=absolute(search-result); if(way<=28){ if(result>100){way++;} result=search; } else{if(result>300){way++;} result=search; } } }