home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / ef08.tonyu < prev    next >
Text File  |  2011-10-10  |  2KB  |  91 lines

  1. extends SpriteChar;
  2. //ù∙ìûöwîi
  3.  
  4. y=255+rnd(150);
  5. zorder=100+rnd(10);
  6.  
  7. rn1=rnd(28);
  8. p1=0;
  9. if(rn1==p1)se=$se_animal02;
  10. p1++;
  11. if(rn1==p1)se=$se_alarm00;
  12. p1++;
  13. if(rn1==p1)se=$se_bell05;
  14. p1++;
  15. if(rn1==p1)se=$se_bell15a;
  16. p1++;
  17. if(rn1==p1)se=$se_clock01;
  18. p1++;
  19. if(rn1==p1)se=$se_crash27;
  20. p1++;
  21. if(rn1==p1)se=$se_drag00;
  22. p1++;
  23. if(rn1==p1)se=$se_fall01;
  24. p1++;
  25. if(rn1==p1)se=$se_fm003;
  26. p1++;
  27. if(rn1==p1)se=$se_freeze01;
  28. p1++;
  29. if(rn1==p1)se=$se_gas02;
  30. p1++;
  31. if(rn1==p1)se=$se_insect00;
  32. p1++;
  33. if(rn1==p1)se=$se_insect05;
  34. p1++;
  35. if(rn1==p1)se=$se_kachi00;
  36. p1++;
  37. if(rn1==p1)se=$se_mizu04;
  38. p1++;
  39. if(rn1==p1)se=$se_mecha04;
  40. p1++;
  41. if(rn1==p1)se=$se_mecha15;
  42. p1++;
  43. if(rn1==p1)se=$se_mizu04;
  44. p1++;
  45. if(rn1==p1)se=$se_noise00;
  46. p1++;
  47. if(rn1==p1)se=$se_open51;
  48. p1++;
  49. if(rn1==p1)se=$se_puu55;
  50. p1++;
  51. if(rn1==p1)se=$se_step00;
  52. p1++;
  53. if(rn1==p1)se=$se_type01;
  54. p1++;
  55. if(rn1==p1)se=$se_valve00;
  56. p1++;
  57. if(rn1==p1)se=$se_voice003;
  58. p1++;
  59. if(rn1==p1)se=$se_voice011;
  60. p1++;
  61. if(rn1==p1)se=$se_voice010;
  62. p1++;
  63. if(rn1==p1)se=$se_voice023_c;
  64. p1++;
  65. if(rn1==p1)se=$se_voice031;
  66. p1++;
  67. if(rn1==p1)se=$se_water00;
  68. p1++;
  69. if(rn1==p1)se=$se_weapon04;
  70.  
  71. rn2=rnd(10);
  72. t1=400;
  73.  
  74.  
  75. while(1) {
  76. tt++;
  77.  
  78. if(rn2==0 && amod(tt,t1)==1){$mplayer.play(se,0,80);}
  79. df=angle($zk01.x-x,$zk01.y-y+82);
  80.  
  81. if($hp<=0){y+=0.1;}else{
  82. drawSprite(x+12*cos(df),y-82+4*sin(df),$pat_asd+20,0,140);
  83. }
  84. //drawdxSprite(x,rc,$pat_asd+19,0,50,0,255,1);
  85.  
  86.  
  87.  
  88.  
  89.   if($zk01.x-400>x){$hk--;die();}
  90.   update();
  91. }