home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / ef04.tonyu < prev    next >
Text File  |  2011-10-10  |  2KB  |  89 lines
  1. extends SpriteChar;
  2. //Ænìûöwîi
  3. ra=5+rnd(5);
  4. rb=rnd(300);
  5. ca=color(rnd(255),rnd(255),rnd(255));
  6. m=1;
  7. zorder=ra;
  8.  
  9. rn1=rnd(28);
  10. p1=0;
  11. if(rn1==p1)se=$se_animal02;
  12. p1++;
  13. if(rn1==p1)se=$se_alarm00;
  14. p1++;
  15. if(rn1==p1)se=$se_bell05;
  16. p1++;
  17. if(rn1==p1)se=$se_bell15a;
  18. p1++;
  19. if(rn1==p1)se=$se_clock01;
  20. p1++;
  21. if(rn1==p1)se=$se_crash27;
  22. p1++;
  23. if(rn1==p1)se=$se_drag00;
  24. p1++;
  25. if(rn1==p1)se=$se_fall01;
  26. p1++;
  27. if(rn1==p1)se=$se_fm003;
  28. p1++;
  29. if(rn1==p1)se=$se_freeze01;
  30. p1++;
  31. if(rn1==p1)se=$se_gas02;
  32. p1++;
  33. if(rn1==p1)se=$se_insect00;
  34. p1++;
  35. if(rn1==p1)se=$se_insect05;
  36. p1++;
  37. if(rn1==p1)se=$se_kachi00;
  38. p1++;
  39. if(rn1==p1)se=$se_mizu04;
  40. p1++;
  41. if(rn1==p1)se=$se_mecha04;
  42. p1++;
  43. if(rn1==p1)se=$se_mecha15;
  44. p1++;
  45. if(rn1==p1)se=$se_mizu04;
  46. p1++;
  47. if(rn1==p1)se=$se_noise00;
  48. p1++;
  49. if(rn1==p1)se=$se_open51;
  50. p1++;
  51. if(rn1==p1)se=$se_puu55;
  52. p1++;
  53. if(rn1==p1)se=$se_step00;
  54. p1++;
  55. if(rn1==p1)se=$se_type01;
  56. p1++;
  57. if(rn1==p1)se=$se_valve00;
  58. p1++;
  59. if(rn1==p1)se=$se_voice003;
  60. p1++;
  61. if(rn1==p1)se=$se_voice011;
  62. p1++;
  63. if(rn1==p1)se=$se_voice010;
  64. p1++;
  65. if(rn1==p1)se=$se_voice023_c;
  66. p1++;
  67. if(rn1==p1)se=$se_voice031;
  68. p1++;
  69. if(rn1==p1)se=$se_water00;
  70. p1++;
  71. if(rn1==p1)se=$se_weapon04;
  72.  
  73. rn2=rnd(10);
  74. t1=400;
  75.  
  76. while(1) {
  77. tt++;
  78. if(rn2==0 && amod(tt,t1)==1){$mplayer.play(se,0,80);}
  79.  
  80. rc=50*sin(tt)+rb;
  81. da=angle($zk01.x-x,$zk01.y-rc);
  82. drawSprite(x+ra/2+4*cos(da),rc+4*sin(da),$pat_asd+18,0,40);
  83. drawdxSprite(x+ra/2,rc,$pat_asd+19,0,50,0,255,1);
  84. fillRect(x,400,x+ra,rc,ca,90);
  85.  
  86. if($hp<=0){tt+=5;}
  87.   if($zk01.x-400>x){$hk--;die();}
  88.   update();
  89. }