Advertisement
Guest User

Marisa stole your HEART

a guest
Aug 30th, 2012
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.83 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.  
  10. @Event{
  11. alternative(GetEventType())
  12. case(EV_REQUEST_LIFE)
  13. {
  14. SetScriptResult(5000);
  15. }
  16. case(EV_REQUEST_TIMER)
  17. {
  18. SetScriptResult(45);
  19. }
  20. }
  21.  
  22. @Initialize{
  23. objEnemy = ObjEnemy_Create(OBJ_ENEMY_BOSS);
  24. ObjEnemy_Regist(objEnemy);
  25.  
  26. LoadTexture(GCSD~"img/stage05e01.png");
  27. let objEnemy = ObjPrim_Create(OBJ_SPRITE_2D);
  28. ObjPrim_SetTexture(objEnemy,GCSD~"img/stage05e01.png");
  29. ObjSprite2D_SetSourceRect(objEnemy,8,3,56,103);
  30. ObjSprite2D_SetDestCenter(objEnemy);
  31.  
  32. let stgw=GetStgFrameWidth()/2;
  33. let stgh=GetStgFrameHeight()/2;
  34.  
  35. ObjMove_SetDestAtWeight(objEnemy,stgw,60,15,3);
  36. }
  37.  
  38. @Mainloop{
  39.  
  40. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement