Guest User

Untitled

a guest
Jun 7th, 2011
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.30 KB | None | 0 0
  1. #TouhouDanmakufu
  2. #Title[Hell "- Edge of the fire blade -"]
  3. #Text[Not everyone can see...]
  4. #Player[FREE]
  5. #ScriptVersion[2]
  6. #BGM[bgm\Touhou Soccer Mima's Theme.mp3]
  7.  
  8. script_enemy_main{
  9.  
  10. let CSD = GetCurrentScriptDirectory;
  11.  
  12. let imgBoss = CSD ~ "system\Kora.png";
  13. let cut = CSD ~ "system\Koracut.png";
  14. let bg = CSD ~ "system\Temple.png";
  15.  
  16. @Initialize{
  17. SetLife(5000);
  18. SetTimer(100);
  19. SetScore(100000);
  20. SetMovePosition01(GetCenterX,GetCenterY,5);
  21. LoadGraphic(imgBoss);
  22. LoadGraphic(cut);
  23. LoadGraphic(bg);
  24.  
  25. CutIn(YOUMU,"Hell - Edge of the fire blade -",cut,0,0,300,384);
  26.  
  27. mainTask;
  28. }
  29.  
  30. @MainLoop{
  31. SetCollisionA(GetX,GetY,32);
  32. SetCollisionB(GetX,GetY,16);
  33. yield;
  34. }
  35.  
  36. @DrawLoop{
  37.  
  38. // data for the boss
  39. SetTexture(imgBoss);
  40. SetRenderState(ALPHA);
  41. SetAlpha(225);
  42. SetGraphicRect(0,0,110,110);
  43. SetGraphicScale(0.5,0.5);
  44. SetGraphicAngle(0,0,0);
  45. DrawGraphic(GetX,GetY);
  46.  
  47. }
  48.  
  49. @BackGround{
  50. SetTexture(bg);
  51. SetRenderState(ALPHA);
  52. SetAlpha(225);
  53. SetGraphicRect(0,0,512,512);
  54. SetGraphicScale(1,1);
  55. SetGraphicAngle(0,0,0);
  56. DrawGraphic(GetCenterX,GetCenterY);
  57.  
  58. }
  59.  
  60. @Finalize{
  61. // delete the image from memory
  62. DeleteGraphic(imgBoss);
  63. DeleteGraphic(cut);
  64. DeleteGraphic(bg);
  65.  
  66. }
  67.  
  68. task mainTask{
  69. wait(120);
  70. yield;
  71. fire3;
  72. }
  73.  
  74.  
  75. task fire{
  76. let x = 0;
  77. let dir = 0;
  78.  
  79. loop{
  80. while(x<36){
  81. CreateShotA(1,GetEnemyX+50*cos(dir),GetEnemyY+50*sin(dir),30);
  82. SetShotDataA(1,0,0,dir,0,0,0,RED32);
  83. SetShotDataA(1,60,2,dir,0.6,0,2,RED32);
  84.  
  85. FireShot(1);
  86.  
  87. dir+=360/36;
  88. x++;
  89. }
  90. x = 0;
  91. dir = 0;
  92. wait(45);
  93.  
  94. yield;
  95. }
  96. }
  97.  
  98. task fire2{
  99. let x = 0;
  100. let dir = 0;
  101.  
  102. loop{
  103. while(x<36){
  104. CreateShotA(2,GetEnemyX-100*cos(dir),GetEnemyY-100*sin(dir),30);
  105. SetShotDataA(2,0,0,dir,0,0,0,RED32);
  106. SetShotDataA(2,60,2,dir,0.6,0,2,RED32);
  107.  
  108. FireShot(2);
  109.  
  110. dir+=360/18;
  111. x++;
  112. }
  113. x = 0;
  114. dir = 0;
  115. wait(45);
  116.  
  117. yield;
  118. }
  119. }
  120.  
  121. task fire3{
  122.  
  123. loop{
  124. ascent(i in 0..30){
  125. CreateLaserB(i, 100, 10, RED03, 60);
  126. SetLaserDataB(i, 0, 0, 100, 0, 0+i*12, 1, 180+i*12, 1);
  127. FireShot(i);}
  128. SetShotKillTime(i,120);
  129.  
  130. yield;
  131. }
  132. }
  133.  
  134. // wait function
  135. function wait(w){
  136. loop(w){yield;}
  137. }
  138.  
  139.  
  140.  
  141.  
  142. }
Advertisement
Add Comment
Please, Sign In to add comment