Guest User

m

a guest
Dec 4th, 2011
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.26 KB | None | 0 0
  1. #TouhouDanmakufu
  2. #Title[Fujiwara no Mokou N1]
  3. #Text[NonSpell. Classic]
  4. #ScriptVersion[2]
  5.  
  6. script_enemy_main
  7.  
  8. #include_function".\lib\lib_anime_Mokou.txt";
  9.  
  10. #include_function".\UserShot.dnh";
  11.  
  12. let ImgBoss = GetCurrentScriptDirectory ~ "IMAGE\CHAR\DOT\Mokou.png";
  13.  
  14. @Initialize {
  15.  
  16. LoadGraphic(ImgBoss);
  17. SetLife(230);
  18. SetDamageRate(20,100);
  19. SetMovePosition01(GetX, GetY, 120);
  20.  
  21. }
  22.  
  23. @MainLoop {
  24.  
  25. SetCollisionA(GetX, GetY, 32);
  26. SetCollisionB(GetX, GetY, 16);
  27. if(frame==60){
  28. CreateShot01(GetX, GetY, 3, GetAngleToPlayer, US_BILL_RED, 10);
  29. CreateShot01(GetX, 120, 4, 0, US_BILL_RED, 0);
  30. CreateShot01(180, 130, 2.5, rand(0.5, 0.5), US_BILL_RED, 20);
  31. frame = 0;
  32.  
  33. }
  34.  
  35. @DrawLoop {
  36.  
  37. SetTexture(ImgBoss);
  38. SetRenderState(ALPHA);
  39. SetGraphicRect(32, 32, 96, 96);
  40.  
  41. let BossName="Fujiwara No Mokou";
  42. DrawText(BossName, 36, 39, 12, 225);
  43.  
  44.  
  45. if(GetSpeedX()>0){SetAction(ACT_MOVE,0)}
  46. if(GetSpeedX()<0){SetAction(ACT_MOVE,0)}
  47. DrawBoss(ImgBoss);
  48.  
  49. }
  50.  
  51. @Finalize {
  52.  
  53. DeleteGraphic(ImgBoss);
  54.  
  55. }
  56.  
Advertisement
Add Comment
Please, Sign In to add comment