home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ring.yamanashi.ac.jp/pub/pc/freem/action/
/
action.zip
/
baku100.zip
/
baku100
/
Usr
/
tk06.tonyu
< prev
next >
Wrap
Text File
|
2011-08-22
|
825b
|
48 lines
extends dxChar;
hp=6;
hh=rnd(10);
v=-1;
tks=18;//bmpé╠Åcò¥
vs=0.2+rnd()*0.2;
tt=rnd(360);
m=0;
scalex=1.5;
if(rnd(200)==0){p=$pat_asd+13;hp=15;}
while(1) {
//ê┌ô«
if(y<400-tks){
y+=vy;
vy+=0.05;
}
if(y>=400-tks){
//x+=v;
y=400-tks;
vy=0;
va=0;
}
//if(mtk>0){x+=vx;}
tt++;
if($zk01.x>x){v=vs*(sin(tt)+1);
}else{v=-vs*(sin(tt)+1);}
if($zk01.x-600>x){x+=1100;}
//if(x>1200){x=1200;v=-v;}
//if(x<0){x=0;v=-v;}
//é▒é▒é▄é┼ê┌ô«
if(v<0){f=1;}else{f=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;}}
}
if(mtk>0){alpha=100;mtk-=1;}
if(hp<=0){t=new ef01(x,y,p); t.f=f;t.angle=angle;
appear(t);die();}
update();
}