home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / TQAP.zip / Usr / Lever.tonyu < prev    next >
Text File  |  2006-12-19  |  3KB  |  120 lines
  1. extends SpriteChar;
  2.  
  3. x=trunc(x/32)*32+16;
  4. y=trunc(y/32)*32+16;
  5. zOrder=3;
  6.  
  7. for (jiki in $chars){
  8.   if (jiki is Mychar) break;
  9. }
  10.  
  11.  
  12. while(1){
  13.   
  14.   
  15.   if (crashTo(jiki) && p==$pat_lever+0  && getkey(88)==1) {switchBBRtoHBR();p=$pat_lever+2;}
  16.   if (crashTo(jiki) && p==$pat_lever+2  && getkey(88)==1) {switchBBRtoHBR();p=$pat_lever+0;}
  17.   if (crashTo(jiki) && p==$pat_lever+9  && getkey(88)==1) {Upsidedown();p=$pat_lever+11;}
  18.   if (crashTo(jiki) && p==$pat_lever+11 && getkey(88)==1) {Upsidedown();p=$pat_lever+9;}
  19.   if (crashTo(jiki) && p==$pat_lever+3  && getkey(88)==1) {switchSPCtoFOB();p=$pat_lever+5;}
  20.   if (crashTo(jiki) && p==$pat_lever+5  && getkey(88)==1) {switchSPCtoFOB();p=$pat_lever+3;}
  21.   if (crashTo(jiki) && p==$pat_lever+6  && getkey(88)==1) {switchSPCtoNOG();p=$pat_lever+8;}
  22.   if (crashTo(jiki) && p==$pat_lever+8  && getkey(88)==1) {switchSPCtoNOG();p=$pat_lever+6;}
  23.   
  24.   collisionMycharAndLever=crashTo(jiki);
  25.   update();
  26. }
  27.  
  28. function switchSPCtoFOB(){
  29.   
  30.   var _x,_y;
  31.   $mplayer.play($se_on13_a);
  32.   for (_x=1;_x<31;_x++){
  33.     for  (_y=1;_y<25;_y++){
  34.       if ($map.get(_x,_y)==$pat_block+0) $map.set(_x,_y,$pat_block+2);
  35.       else if ($map.get(_x,_y)==$pat_block+2) $map.set(_x,_y,$pat_block+0);
  36.     }  
  37.   }
  38.   wait(1);
  39. }
  40.  
  41. function switchSPCtoNOG(){
  42.   
  43.   var _x,_y;
  44.   $mplayer.play($se_on13_a);
  45.   for (_x=1;_x<31;_x++){
  46.     for  (_y=1;_y<25;_y++){
  47.       if ($map.get(_x,_y)==$pat_block+0) $map.set(_x,_y,$pat_block+5);
  48.       else if ($map.get(_x,_y)==$pat_block+5) $map.set(_x,_y,$pat_block+0);
  49.     }  
  50.   }
  51.   wait(1);
  52. }
  53.  
  54. function switchBBRtoHBR(){
  55.   
  56.   var _x,_y;
  57.   $mplayer.play($se_on13_a);
  58.   if (jiki.scroll==0){
  59.     for (_x=1;_x<31;_x++){
  60.       for  (_y=1;_y<25;_y++){
  61.         if ($map.get(_x,_y)==$pat_block+6) $map.set(_x,_y,$pat_block+11);
  62.         else if ($map.get(_x,_y)==$pat_block+11) $map.set(_x,_y,$pat_block+6);
  63.       }  
  64.     }
  65.   }
  66.   
  67.   if (jiki.scroll==3){
  68.     for (_x=1;_x<16;_x++){
  69.       for  (_y=1;_y<13;_y++){
  70.         if ($map.get(_x,_y)==$pat_block+6) $map.set(_x,_y,$pat_block+11);
  71.         else if ($map.get(_x,_y)==$pat_block+11) $map.set(_x,_y,$pat_block+6);
  72.       }  
  73.     }
  74.   }
  75.   
  76.   if (jiki.scroll==2){
  77.     for (_x=1;_x<16;_x++){
  78.       for  (_y=1;_y<25;_y++){
  79.         if ($map.get(_x,_y)==$pat_block+6) $map.set(_x,_y,$pat_block+11);
  80.         else if ($map.get(_x,_y)==$pat_block+11) $map.set(_x,_y,$pat_block+6);
  81.       }  
  82.     }
  83.     
  84.   }
  85.   if (jiki.scroll==1){
  86.     for (_x=1;_x<31;_x++){
  87.       for  (_y=1;_y<13;_y++){
  88.         if ($map.get(_x,_y)==$pat_block+6) $map.set(_x,_y,$pat_block+11);
  89.         else if ($map.get(_x,_y)==$pat_block+11) $map.set(_x,_y,$pat_block+6);
  90.       }  
  91.     }
  92.   }
  93.   
  94.   wait(1);
  95. }
  96.  
  97. function Upsidedown(){
  98.   
  99.   var _x,_y,set1,set2,e;
  100.   $mplayer.play($se_on13_a);
  101.   for (_x=1;_x<31;_x++){
  102.     for  (_y=1;_y<13;_y++){
  103.       set1=$map.get(_x,25-_y);
  104.       set2=$map.get(_x,   _y);
  105.       if (set1==$pat_block+7) {
  106.         set1=$pat_block+0;
  107.         for (e in $chars){if (e is Magic) e.die();}
  108.         jiki.magic=0;
  109.       }
  110.       if (set2==$pat_block+7) {
  111.         set2=$pat_block+0;
  112.         for (e in $chars){if (e is Magic) e.die();}
  113.         jiki.magic=0;
  114.       }
  115.       $map.set(_x,   _y,set1);
  116.       $map.set(_x,25-_y,set2);
  117.     }  
  118.   }
  119.   wait(1);
  120. }