home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / ef02.tonyu < prev    next >
Text File  |  2011-10-10  |  2KB  |  112 lines
  1. extends SpriteChar;
  2. //ô▐ùÄöwîi
  3. ca=color(rnd(250),rnd(255),rnd(255));
  4. cb=color(rnd(250),rnd(255),rnd(255));
  5. cc=color(rnd(250),rnd(255),rnd(255));
  6.  
  7. ya=400-rnd(400);
  8. yb=400-rnd(400);
  9. yc=400-rnd(400);
  10. ra=rnd();
  11. rb=rnd();
  12. rc=rnd();
  13. xa=rnd(100)-50;
  14.  
  15. rn1=rnd(28);
  16. p1=0;
  17. if(rn1==p1)se=$se_animal02;
  18. p1++;
  19. if(rn1==p1)se=$se_alarm00;
  20. p1++;
  21. if(rn1==p1)se=$se_bell05;
  22. p1++;
  23. if(rn1==p1)se=$se_bell15a;
  24. p1++;
  25. if(rn1==p1)se=$se_clock01;
  26. p1++;
  27. if(rn1==p1)se=$se_crash27;
  28. p1++;
  29. if(rn1==p1)se=$se_drag00;
  30. p1++;
  31. if(rn1==p1)se=$se_fall01;
  32. p1++;
  33. if(rn1==p1)se=$se_fm003;
  34. p1++;
  35. if(rn1==p1)se=$se_freeze01;
  36. p1++;
  37. if(rn1==p1)se=$se_gas02;
  38. p1++;
  39. if(rn1==p1)se=$se_insect00;
  40. p1++;
  41. if(rn1==p1)se=$se_insect05;
  42. p1++;
  43. if(rn1==p1)se=$se_kachi00;
  44. p1++;
  45. if(rn1==p1)se=$se_mizu04;
  46. p1++;
  47. if(rn1==p1)se=$se_mecha04;
  48. p1++;
  49. if(rn1==p1)se=$se_mecha15;
  50. p1++;
  51. if(rn1==p1)se=$se_mizu04;
  52. p1++;
  53. if(rn1==p1)se=$se_noise00;
  54. p1++;
  55. if(rn1==p1)se=$se_open51;
  56. p1++;
  57. if(rn1==p1)se=$se_puu55;
  58. p1++;
  59. if(rn1==p1)se=$se_step00;
  60. p1++;
  61. if(rn1==p1)se=$se_type01;
  62. p1++;
  63. if(rn1==p1)se=$se_valve00;
  64. p1++;
  65. if(rn1==p1)se=$se_voice003;
  66. p1++;
  67. if(rn1==p1)se=$se_voice011;
  68. p1++;
  69. if(rn1==p1)se=$se_voice010;
  70. p1++;
  71. if(rn1==p1)se=$se_voice023_c;
  72. p1++;
  73. if(rn1==p1)se=$se_voice031;
  74. p1++;
  75. if(rn1==p1)se=$se_water00;
  76. p1++;
  77. if(rn1==p1)se=$se_weapon04;
  78.  
  79. rn2=rnd(10);
  80. t1=400;
  81.  
  82.  
  83. while(1) {
  84.   
  85.   
  86. if(rn2==0 && amod(tt,t1)==1){$mplayer.play(se,0,80);}
  87.   tt++;
  88.   ya+=ra*sin(2*tt);
  89.   yb+=rb*sin(tt+45);
  90.   yc+=rc*cos(-tt);
  91.   xa+=ra*cos(tt);
  92.   drawline(x,400,x+xa,ya,ca,50);
  93.   drawline(x,400,x-xa,yb,cb,50);
  94.   drawline(x,400,x+2*xa,yc,cc,50);
  95.   
  96.   drawSprite(x+xa,ya,pp,1,40);
  97.   drawSprite(x-xa,yb,pp,1,40);
  98.   drawSprite(x+2*xa,yc,pp,1,40);
  99.   
  100.   
  101.   if($hp<=0){pp=$pat_asd+11;
  102.     if(x>$zk01.x){x-=1;}
  103.     if(x<$zk01.x){x+=1;}
  104.     if(ya<250+100*ra){ya++;}
  105.     if(yb<250+100*rb){yb++;}
  106.     if(yc<250+100*rc){yc++;}
  107.     if(mtk>0){x+=vx;mtk-=1;}
  108. }else{pp=$pat_asd+10;}
  109.  
  110. if($zk01.x-400>x){$hk--;die();}
  111. update();
  112. }