home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ring.yamanashi.ac.jp/pub/pc/freem/action/
/
action.zip
/
baku100.zip
/
baku100
/
Usr
/
kh01.tonyu
< prev
next >
Wrap
Text File
|
2011-10-09
|
833b
|
51 lines
extends dxChar;
//ë±ò£ì▄
tks=22;//bmpé╠Åcò¥
p=$pat_zxc+7;
scalex=2;
m=0;
sa=1;
zorder=10;
while($hp>0) {
if($zk01.x-1500>x){die();}
tt++;
dd=(4+sin(tt)*0.5)*sa;
drawdxSprite(x,y,$pat_zxc+8,0,-100,0,50,dd);
if(m>0){
scalex=0;
sa-=0.03;
x=$zk01.x;y=$zk01.y;
m++;
$hp+=1;
drawSprite($viewx+47,47,$pat_Actor83+7,0,-5);
if(m>30){die();}
}else{
//ê┌ô«
if(y<400-tks){
y+=vy;
vy+=0.2;
}
if(y>=400-tks){
y=400-tks;
vy=0;
}
if(mtk<0){
alpha=255;
for (e in $chars) {
if (e [[is]] tm02 && [[crashTo]](e) ) {vy-=3;y-=1;hp-=1;mtk=10;if(e.x>x){vx=-3;}else{vx=3;}}
}
}else{alpha=100;mtk-=1;}
for (e in $chars) {
if (e [[is]] zk01 && [[crashTo]](e) ) {$mplayer.play($se_power07,0,80);m=1;}
}
}
update();
}