Advertisement
Guest User

Untitled

a guest
Feb 19th, 2015
281
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C# 1.16 KB | None | 0 0
  1. #TouhouDanmakufu[Single]
  2. #ScriptVersion[3]
  3. #Title["Random Bullets"]
  4. #Text["Random bullets in a circle"]
  5. #include "script/default_system/Default_ShotConst.txt"
  6. #include "script/Youmu/functions.cs"
  7. let objCircle;
  8. let imgCircle = GetCurrentScriptDirectory ~ "circle.png";
  9. let circleX = 0;
  10. let circleY = 0;
  11.  
  12.  
  13. @Initialize {
  14.     objCircle = ObjEnemy_Create(OBJ_ENEMY_BOSS);
  15.     ObjEnemy_Regist(objCircle);
  16.     ObjPrim_SetTexture(objCircle,imgCircle);
  17.     ObjSprite2D_SetSourceRect(objCircle,0,0,172,145);
  18.     ObjSprite2D_SetDestCenter(objCircle);
  19.     ObjMove_SetDestAtSpeed(objCircle,200,100,5);
  20.    
  21. }
  22.  
  23. @MainLoop {
  24.     circleX = ObjMove_GetX(objCircle);
  25.     circleY = ObjMove_GetY(objCircle);
  26.     TFire;
  27.     yield;
  28. }
  29.  
  30. @Event {
  31.     alternative(GetEventType())
  32.     case(EV_REQUEST_LIFE){
  33.         SetScriptResult(750);
  34.     }
  35.     case(EV_REQUEST_TIMER){
  36.         SetScriptResult(60);
  37.     }
  38. }
  39.  
  40. @Loading {
  41.    
  42. }
  43.  
  44. @Finalize {
  45.    
  46. }
  47.  
  48. task TFire {
  49.     loop {
  50.         CreateShotA1(circleX,circleY,5,GetAngleToPlayer(objCircle),rand(1,255),10);
  51.         CreateShotA1(circleX,circleY,5,GetAngleToPlayer(objCircle)+10,rand(1,255),10);
  52.         CreateShotA1(circleX,circleY,5,GetAngleToPlayer(objCircle)-10,rand(1,255),10);
  53.         wait(60);
  54.     }
  55. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement