Line Invader

by orrrrz Tue Jun 19, 2012 6:39 am

Code:: // [RCD] Val { COL1(default=#0000FF, disp=0) COLBACK(default=0, max=200000000, step=1000000000, disp=0) ECOL(default=16777215, max=200000000, step=1000000000, disp=0) EL(default=40, max=40, disp=0) EX(default=0, min=-1.15, max=1.15, disp=0) EY(default=0.95, min=-0.95, max=0.95, disp=0) OVER1(default=0, max=90, step=60, disp=0) OVER2(default=0, max=800000, step=800000, disp=0) PCOL(default=16777215, max=200000000, step=1000000000, disp=0) PL(default=10, max=10, disp=0) PX(default=0, min=-1.15, max=1.15, disp=0) PY(default=-0.95, min=-0.95, max=-0.75, disp=0) } Key { } Body { Core() { N:Cowl(angle=-30, color=0, effect=#F000) { N:Cowl(angle=120, color=COLBACK, effect=#1000) { W:Cowl(angle=45, color=0, effect=#0000) { } E:Cowl(angle=45, color=0, effect=#0000) { } } } S:Frame(angle=90) { S:Chip(angle=90, name=cut) { S:Chip(angle=over1, color=COLBACK) { S:Frame(option=1) { N:Arm(angle=over1, power=OVER2, option=90000, color=COLBACK) { } } } W:Chip(color=#000000) { } N:Chip(color=#000000) { N:Cowl(angle=150, effect=#F0FB) { N:Cowl(angle=-55, color=col1, effect=#0000) { S:Cowl(angle=70, option=3, color=col1, effect=#0000) { } S:Cowl(angle=70, option=4, color=col1, effect=#0000) { } E:Cowl(angle=110, option=4, color=col1, effect=#0000) { } W:Cowl(angle=100, option=3, color=col1, effect=#0000) { } N:Cowl(angle=20, option=2, color=#000000, effect=#0000) { N:Cowl(angle=179, option=2, color=#FED8A5, effect=#0000) { } S:Cowl(angle=179.3, option=2, color=#000000, effect=#0000) { } } } N:Cowl(angle=120, color=#808080, effect=#0000) { S:Cowl(angle=-120, color=#808080, effect=#0000) { N:Cowl(angle=50, color=#808080, effect=#0000) { } } } } } E:Chip(color=#000000) { } } } } } Lua {PGUN=0 --種類 PGUND=0 --威力 EGUN0=0 EGUN1=0 ENS=0 --敵の行動制御 TIME=0 for i=0,10 do PGUNX0=0 PGUNY0=0 EGUNX0=0 EGUNY0=0 EGUNX1=0 EGUNY1=0 RATE1=0 --撃った弾数 RATE2=0 --当たった弾数 end function main() out(0,"Line-InvaderⅠ+") HANTEI() if PL~=0 then PLAYER() end if PL==0 then out(1,"You failed") COLBACK=16711680 OVER1=OVER1+45 OVER2=OVER2+29000 end if OVER1==90 then _SPLIT(CUT) end if EL~=0 then ENEMY() out(3,"Enemy health　　",EL) TIME=TIME+1 end if EL==0 then out(3,"Clear！　Time　　",TIME) out(4,"　　　　　Shooted shells　　",RATE1) out(5,"　　　　　Accuracy rate　　",RATE2/RATE1*100,"％") out(6,"　　　　　Score　　",1000000*PL*RATE2/RATE1-TIME*100-RATE1*100) EY=0 EX=0 end end function PLAYER() out(1,"Z Rifle　X Missile　C Cannon　V Pulsar") out(2,"Your health　　",PL) PX=PX+(_KEY(3)-_KEY(2))*0.025 PY=PY+(_KEY(0)-_KEY(1))*0.025 _SETCOLOR(PCOL) _MOVE2D(PX,PY+0.05) _LINE2D(PX+0.02,PY-0.019) _MOVE2D(PX+0.02,PY-0.019) _LINE2D(PX-0.02,PY-0.019) _MOVE2D(PX-0.02,PY-0.019) _LINE2D(PX,PY+0.05) if _KEYDOWN(4)==1 and PGUN==0 and EL~=0 then PGUN=1 PGUNY0=PY+0.05 PGUNX0=PX end if _KEYDOWN(5)==1 and PGUN==0 and EL~=0 then PGUN=2 PGUNY0=PY+0.05 PGUNX0=PX end if _KEYDOWN(6)==1 and PGUN==0 and EL~=0 then PGUN=3 PGUNY0=PY+0.05 PGUNX0=PX end if _KEYDOWN(10)==1 and PGUN==0 and EL~=0 then PGUN=4 PGUNY0=PY+0.05 PGUNX0=PX end if PGUN==1 then GUN0() end if PGUN==2 then GUN1() end if PGUN==3 then GUN2() end if PGUN==4 then GUN3() end end function GUN0() PGUND=3 PGUNY0=PGUNY0+0.10 _SETCOLOR(16776960) _MOVE2D(PGUNX0,PGUNY0) _LINE2D(PGUNX0,PGUNY0+0.03) if PGUNY0>1 then PGUNY0=10 PGUN=0 RATE1=RATE1+1 end end function GUN1() PGUND=2 PGUNY0=PGUNY0+0.02 _SETCOLOR(225) if EX-PGUNX0>0.02 and PGUNY0>0 then PGUNX0=PGUNX0+0.04 _MOVE2D(PGUNX0-0.04,PGUNY0) _LINE2D(PGUNX0,PGUNY0+0.04) PGUNY0=PGUNY0+0.02 elseif EX-PGUNX0<-0.02 and PGUNY0>0 then PGUNX0=PGUNX0-0.04 _MOVE2D(PGUNX0+0.04,PGUNY0) _LINE2D(PGUNX0,PGUNY0+0.04) PGUNY0=PGUNY0+0.02 elseif PGUNY0>0 then _MOVE2D(PGUNX0,PGUNY0) _LINE2D(PGUNX0,PGUNY0+0.06) PGUNY0=PGUNY0+0.03 else _MOVE2D(PGUNX0,PGUNY0) _LINE2D(PGUNX0,PGUNY0+0.06) end if PGUNY0>1 then PGUNY0=10 PGUN=0 RATE1=RATE1+1 end end function GUN2() PGUND=10 PGUNY0=PGUNY0+0.02 _SETCOLOR(4473924) _MOVE2D(PGUNX0,PGUNY0+0.03) _LINE2D(PGUNX0+0.015,PGUNY0+0.02) _MOVE2D(PGUNX0,PGUNY0+0.03) _LINE2D(PGUNX0-0.015,PGUNY0+0.02) _MOVE2D(PGUNX0+0.015,PGUNY0+0.02) _LINE2D(PGUNX0+0.017,PGUNY0-0.02) _MOVE2D(PGUNX0-0.015,PGUNY0+0.02) _LINE2D(PGUNX0-0.017,PGUNY0-0.02) _MOVE2D(PGUNX0-0.017,PGUNY0-0.02) _LINE2D(PGUNX0+0.017,PGUNY0-0.02) if PGUNY0>1 then PGUNY0=10 PGUN=0 RATE1=RATE1+1 end end function GUN3(BURE) PGUND=5 BURE=math.cos(PGUNY0*10)*0.01 PGUNY0=PGUNY0+0.05 PGUNX0=PGUNX0+BURE _SETCOLOR(65280) for i=-20,20 do _MOVE2D(PGUNX0+math.cos(PGUNY0*10)*0.2-BURE,PGUNY0+i*0.001) _LINE2D(PGUNX0+math.cos(PGUNY0*10+i*0.01)*0.2-BURE,PGUNY0+(i+1)*0.001) end if PGUNY0>1 then PGUNY0=10 PGUN=0 RATE1=RATE1+1 end end function ENEMY() _SETCOLOR(ECOL) _MOVE2D(EX+0.04,EY+0.02) _LINE2D(EX-0.04,EY+0.02) _MOVE2D(EX,EY+0.05) _LINE2D(EX,EY-0.05) if ENS==0 then EX=EX+0.020+0.001*(40-EL)/2 end if ENS==1 then EX=EX-0.020-0.001*(40-EL)/2 end if EX>1.1 then ENS=1 EY=EY-0.05 end if EX<-1.1 then ENS=0 EY=EY-0.05 end if EY<-1 then PL=0 end if EY<=0.8 and EGUN0==0 then EGUN0=1 EGUNX0=EX EGUNY0=EY-0.03 end if EY<=0.3 and EGUN1==0 then EGUN1=1 EGUNX1=EX EGUNY1=EY-0.03 end if EGUN0==1 then EGUN_0() end if EGUN1==1 then EGUN_1() end end function EGUN_0() EGUNY0=EGUNY0-0.05 _SETCOLOR(225) if PX-EGUNX0>0.02 then EGUNX0=EGUNX0+0.020 _MOVE2D(EGUNX0+0.020,EGUNY0) _LINE2D(EGUNX0,EGUNY0+0.045) elseif PX-EGUNX0<-0.02 then EGUNX0=EGUNX0-0.020 _MOVE2D(EGUNX0-0.020,EGUNY0) _LINE2D(EGUNX0,EGUNY0+0.045) else _MOVE2D(EGUNX0,EGUNY0) _LINE2D(EGUNX0,EGUNY0+0.05) end if EGUNY0<-1 then EGUNY0=10 EGUN0=0 end end function EGUN_1() EGUNY1=EGUNY1-0.1 _SETCOLOR(16776960) _MOVE2D(EGUNX1,EGUNY1) _LINE2D(EGUNX1,EGUNY1-0.03) if EGUNY1<-1 then EGUNY1=10 EGUN1=0 end end function HANTEI() if math.abs(PGUNX0-EX)<0.05 and math.abs(PGUNY0-EY)<0.05 and EL~=0 then EL=EL-PGUND ECOL=16711680 PGUNY0=10 PGUN0=0 RATE1=RATE1+1 RATE2=RATE2+1 end if math.abs(EGUNX0-PX)<0.05 and math.abs(EGUNY0-PY)<0.05 and PL~=0 then PL=PL-1 PCOL=16711680 EGUNY0=10 EGUN0=0 end if math.abs(EGUNX1-PX)<0.05 and math.abs(EGUNY1-PY)<0.05 and PL~=0 then PL=PL-1 PCOL=16711680 EGUNY1=10 EGUN1=0 end end}