home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ring.yamanashi.ac.jp/pub/pc/freem/action/
/
action.zip
/
baku100.zip
/
baku100
/
Usr
/
tk09.tonyu
< prev
next >
Wrap
Text File
|
2011-08-20
|
568b
|
34 lines
extends dxChar;
hp=1;
tks=50;//bmpé╠Åcò¥
vs=2*rnd()+1;
tt=rnd(360);
m=0;
scalex=1;
da=angle($zk01.x-x,$zk01.y-y);
angle=da;
while(1) {
tt++;
//ê┌ô«
x+=vs*cos(da);
y+=vs*sin(da);
//if(mtk>0){x+=vx;}
if($zk01.x-500>x){x+=1100;}
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;}}
}
if(mtk>0){alpha=100;mtk-=1;}
if (screenOut()>40) die();
if(hp<=0){t=new ef01(x,y,p);
t.f=f;t.angle=angle;
appear(t);die();}
update();
}