Line Invader

View previous topic View next topic Go down

Line Invader

Post by orrrrz on 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}

Arrow key  move
ZXCV key weapons

orrrrz
Tank
Tank

Posts : 55
Join date : 2012-06-19
Age : 22
Location : Tokyo

View user profile

Back to top Go down

Re: Line Invader

Post by orrrrz on Tue Jun 19, 2012 6:46 am

My high score is 32401304
can you be over me?

orrrrz
Tank
Tank

Posts : 55
Join date : 2012-06-19
Age : 22
Location : Tokyo

View user profile

Back to top Go down

Re: Line Invader

Post by orrrrz on Fri Jun 29, 2012 4:56 pm

Please use View H
The game image

orrrrz
Tank
Tank

Posts : 55
Join date : 2012-06-19
Age : 22
Location : Tokyo

View user profile

Back to top Go down

Re: Line Invader

Post by JosefYurnov99 on Wed Jan 02, 2013 1:59 pm

This game is difficult. But very fun!

Also, what does the Pulsar do?
avatar
JosefYurnov99
Plane
Plane

Posts : 43
Join date : 2011-03-11
Age : 21
Location : America

View user profile

Back to top Go down

Re: Line Invader

Post by Sponsored content


Sponsored content


Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum