home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ring.yamanashi.ac.jp/pub/pc/freem/action/
/
action.zip
/
baku100.zip
/
baku100
/
Usr
/
tm04.tonyu
< prev
next >
Wrap
Text File
|
2011-08-22
|
2KB
|
42 lines
extends DxChar;
zorder=5;
scalex=0;
while(screenOut()<50) {
vy++;
if(scalex<1){scalex+=0.05;
}else{
x+=v;
v+=vx*0.2;
for (e in $chars) {
if (e [[is]] tk01 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk02 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk03 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk04 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk05 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk06 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk07 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk08 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk09 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
if (e [[is]] tk10 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
appear(new tm02(x,y,$pat_zxc+4));die();break;}
}
if(y>400){
appear(new tm02(x,y,$pat_zxc+4));
die();}
}
update();
}