Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #TouhouDanmakufu[Single]
- #ScriptVersion[3]
- #Title["Test sign \"???\""]
- #Text["..."]
- #BGM["./bgm/bgm - Bhava-Agra As Seen Through a Child's Mind.mp3"]
- #System["./system/Default_System.txt"]
- #Background["./system/Background_Sky.txt"]
- #include "./Index.txt"
- let fog;
- let timer = 30;
- @Event
- {
- alternative(GetEventType())
- case(EV_REQUEST_LIFE)
- {
- SetScriptResult(2000);
- }
- case(EV_REQUEST_SPELL_SCORE){
- SetScriptResult(5000000);
- }
- //case(EV_REQUEST_IS_DURABLE_SPELL) {
- // SetScriptResult(true);
- //}
- case(EV_REQUEST_TIMER) { SetScriptResult(timer*60); } //4500
- }
- @Initialize
- {
- SetCommonData("CurrentSC","Test sign\"???\"");
- SetCommonData("Difficulty","Normal");
- boss = spawnBoss();
- ObjEnemy_SetDamageRate(boss,0,0);
- SetShotAutoDeleteClip(32,32,32,32);
- MainTask;
- }
- @MainLoop
- {
- if(ObjEnemy_GetInfo(boss, INFO_LIFE) <= 0 && !finishing)
- {
- finishing = true;
- TBreakSpell([]);
- }
- else {
- SetBossHitbox(boss,ex,ey);
- }
- frame++;
- yield;
- }
- task MainTask {
- ObjEnemy_SetDamageRate(boss,0,0);
- ObjMove_SetDestAtFrame(boss, cx, cy-120, 60);
- SetSpellCard;
- MCircNextAlpha = 80;
- Obj_SetValue(objSpellCircle,"MaxAlpha",64);
- ObjEnemyBossScene_StartSpell(objScene);
- ObjEnemyBossScene_SetSpellTimer(objScene,timer*60); //5760
- wait(90);
- ObjEnemy_SetDamageRate(boss,24,8);
- TGaps;
- }
- task TGaps {
- let outgap;
- let ingap;
- let x; let y;
- while(!Obj_IsDeleted(boss)) {
- outgap = CreateGapA1(rand(0,sx),rand(0,cy),300,40, rand(0,180), 240, GAP_OUT,0);
- wait(60); if(Obj_IsDeleted(boss)){break;}
- x=ex; y=ey;
- ObjMove_SetDestAtWarp(boss, rand(0,sx), rand(0,cy-120), 0);
- wait(20); if(Obj_IsDeleted(boss)){break;}
- ingap = CreateGapA1(x,y,300,100, angleBetween(x,y,ex,ey), 240, GAP_IN,outgap);
- wait(30); if(Obj_IsDeleted(boss)){break;}
- FireWedgeA1(ex,ey,angleBetween(ex,ey,x,y),2,620,5, 10,6,5, 20,10);
- wait(150);
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment