Guest User

DERRRRRRRP

a guest
Aug 30th, 2012
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.03 KB | None | 0 0
  1. #TouhouDanmakufu[Single]
  2. #ScriptVersion[3]
  3. #Title["Shou nons1"]
  4. #Text["Shou nonspell 1"]
  5. #include"script/default_system/Default_ShotConst.txt"
  6. let GCSD = GetCurrentScriptDirectory();
  7. let objEnemy;
  8. let frame=0;
  9. let px = GetPlayerX();
  10. let py = GetPlayerY();
  11.  
  12.  
  13. @Event{
  14. alternative(GetEventType())
  15. case(EV_REQUEST_LIFE)
  16. {
  17. SetScriptResult(5000);
  18. }
  19. case(EV_REQUEST_TIMER)
  20. {
  21. SetScriptResult(45);
  22. }
  23. }
  24.  
  25. @Initialize{
  26. objEnemy = ObjEnemy_Create(OBJ_ENEMY_BOSS);
  27. ObjEnemy_Regist(objEnemy);
  28.  
  29. let imgShou = GCSD~"img/stage05e01.png";
  30. ObjPrim_SetTexture(objEnemy,imgShou);
  31. ObjSprite2D_SetSourceRect(objEnemy,8,3,56,103);
  32. ObjSprite2D_SetDestCenter(objEnemy);
  33.  
  34. let stgw=GetStgFrameWidth()/2;
  35. let stgh=GetStgFrameHeight()/2;
  36.  
  37. ObjMove_SetDestAtWeight(objEnemy,stgw,(stgh-(stgh/2)),15,5);
  38. }
  39.  
  40. @Mainloop{
  41. let ex=ObjMove_GetX(objEnemy);
  42. let ey=ObjMove_GetY(objEnemy);
  43. ObjEnemy_SetIntersectionCircleToShot(objEnemy, ex, ey, 35);
  44. ObjEnemy_SetIntersectionCircleToPlayer(objEnemy, ex, ey, 27);
  45. frame++;
  46. }
Advertisement
Add Comment
Please, Sign In to add comment