Improve the last entry

View previous topic View next topic Go down

Improve the last entry

Post by DanielLC on Sat Jul 06, 2013 2:06 pm

Rather than each of us making a vehicle and the best one wins, I want to try something different. Each of us will improve upon what the last guy did. You can add something to it, improve the controls, upgrade part of it, etc.

When nobody is working on the vehicle, the first person to post gets a turn. They have one week to either make their improvement or forfeit. If they don't, their turn ends and it's up to someone else to upgrade the last version.

If you're the competitive type, the last one to modify it before the thread dies wins.

I'll start:

Code:
Val
{
   SPEED(default=0,min=-100,max=100,step=20)
   STRAFE(default=0,min=-100,max=100,step=20)
   JETXNW(default=0,min=-1000000,max=1000000,step=0)
   JETXSW(default=0,min=-1000000,max=1000000,step=0)
   JETXSE(default=0,min=-1000000,max=1000000,step=0)
   JETXNE(default=0,min=-1000000,max=1000000,step=0)
   JETYNW(default=100000,min=-000000,max=1000000,step=0)
   JETYSW(default=100000,min=-000000,max=1000000,step=0)
   JETYSE(default=100000,min=-000000,max=1000000,step=0)
   JETYNE(default=100000,min=-000000,max=1000000,step=0)
   JETZNW(default=0,min=-1000000,max=1000000,step=0)
   JETZSW(default=0,min=-1000000,max=1000000,step=0)
   JETZSE(default=0,min=-1000000,max=1000000,step=0)
   JETZNE(default=0,min=-1000000,max=1000000,step=0)
   ANGLE(default=0,min=-0.1,max=0.1,step=0.1)
   EY(default=0,min=-3.14,max=3.14,step=0)
}
Key
{
   0:SPEED(step=20)
   1:SPEED(step=-20)
   2:ANGLE(step=-0.1)
   3:ANGLE(step=0.1)
   4:STRAFE(step=-20)
   5:STRAFE(step=20)
}
Body {
   Core(){
 N:Frame(option=1){
 N:Frame(option=1){
     W:Frame(option=1){
     W:Jet(name=NW,power=-JETYNW){
   N:Jet(power=JETXNW,ANGLE=90){}
   W:Jet(power=JETZNW,ANGLE=90){}
     }}
     E:Frame(option=1){
     E:Jet(name=NE,power=-JETYNE){
   N:Jet(power=JETXNE,ANGLE=90){}
   E:Jet(power=JETZNE,ANGLE=90){}
     }}
 }}
 S:TrimF(spring=0.2,damper=0.2,option=1){
 S:Frame(option=1){
     W:Frame(option=1){
     W:Jet(name=SW,power=-JETYSW){
   S:Jet(power=JETXSW,ANGLE=90){}
   W:Jet(power=JETZSW,ANGLE=90){}
     }}
     E:Frame(option=1){
     E:Jet(name=SE,power=-JETYSE){
   S:Jet(power=JETXSE,ANGLE=90){}
   E:Jet(power=JETZSE,ANGLE=90){}
     }}
 }}
   }
}
Lua
{
function main()
   DEY=_EY()-EY
   EY=_EY()
   if DEY>3.14 then DEY=DEY-6.28 end
   if DEY<-3.14 then DEY=DEY+6.28 end
   Spin=(ANGLE-DEY)*500000
   Forward=(SPEED+_VZ())*5000
   Sideways=(STRAFE+_VX())*5000
   JETXNE=Forward-Spin
   JETXSW=-Forward-Spin
   JETZNW=-Sideways-Spin
   JETZSE=Sideways-Spin
   JETXNW=Forward+Spin
   JETXSE=-Forward+Spin
   JETZNE=Sideways+Spin
   JETZSW=-Sideways+Spin
   JETYNW=(_H(NW)-0.6)*1000000
   JETYSW=(_H(SW)-0.6)*1000000
   JETYNE=(_H(NE)-0.6)*1000000
   JETYSE=(_H(SE)-0.6)*1000000
   if JETYNW>JETYSW
   then
 Max=JETYNW
 Min=JETYSW
   else
 Max=JETYSW
 Min=JETYNW
   end
   if JETYNE>Max then Max=JETYNE end
   if JETYNE<Min then Min=JETYNE end
   if JETYSE>Max then Max=JETYSE end
   if JETYSE<Min then Min=JETYSE end
   if Max-Min>200000
   then
 JETYNW=Min
 JETYSW=Min
 JETYNE=Min
 JETYSE=Min
    end
end
}

This is my old jet car, modified to use Lua, which is better for scripting.

DanielLC
Tank
Tank

Posts : 78
Join date : 2010-10-23

View user profile

Back to top Go down

Re: Improve the last entry

Post by JosefYurnov99 on Sun Jul 07, 2013 1:29 pm

I don't mean to give the typical response here, but it needs GUNS!!!
So I added them, plus some cowl work.
C fires option 40000 guns
Code:

// [RCD]
Val
{
ANGLE(default=0, min=-0.1, max=0.1, step=0.1)
COLOR(default=#2D2D2D)
EY(default=0, min=-3.14, max=3.14)
GUN(default=0, max=40000, step=40000)
JETXNE(default=0, min=-1000000, max=1000000)
JETXNW(default=0, min=-1000000, max=1000000)
JETXSE(default=0, min=-1000000, max=1000000)
JETXSW(default=0, min=-1000000, max=1000000)
JETYNE(default=100000, max=1000000)
JETYNW(default=100000, max=1000000)
JETYSE(default=100000, max=1000000)
JETYSW(default=100000, max=1000000)
JETZNE(default=0, min=-1000000, max=1000000)
JETZNW(default=0, min=-1000000, max=1000000)
JETZSE(default=0, min=-1000000, max=1000000)
JETZSW(default=0, min=-1000000, max=1000000)
SPEED(default=0, min=-100, max=100, step=20)
STRAFE(default=0, min=-100, max=100, step=20)
}
Key
{
0:SPEED(step=20)
1:SPEED(step=-20)
2:ANGLE(step=-0.1)
3:ANGLE(step=0.1)
4:STRAFE(step=-20)
5:STRAFE(step=20)
6:GUN(step=40000)
}
Body
{
Core(color=Color) {
N:Frame(option=1) {
N:Frame(option=1) {
W:Frame(option=1) {
W:Jet(color=Color, name=NW, power=-JETYNW) {
N:Jet(power=JETXNW, angle=90, color=Color) { }
W:Jet(power=JETZNW, angle=90, color=Color) { }
N:Arm(power=Gun, option=40000, color=Color) { }
}
}
E:Frame(option=1) {
E:Jet(color=Color, name=NE, power=-JETYNE) {
N:Jet(power=JETXNE, angle=90, color=Color) { }
E:Jet(power=JETZNE, angle=90, color=Color) { }
N:Arm(power=Gun, option=40000, color=Color) { }
}
}
}
}
S:TrimF(spring=0.2, damper=0.2, option=1) {
S:Frame(option=1) {
W:Frame(option=1) {
W:Jet(color=Color, name=SW, power=-JETYSW) {
S:Jet(power=JETXSW, angle=90, color=Color) { }
W:Jet(power=JETZSW, angle=90, color=Color) { }
}
}
E:Frame(option=1) {
E:Jet(color=Color, name=SE, power=-JETYSE) {
S:Jet(power=JETXSE, angle=90, color=Color) { }
E:Jet(power=JETZSE, angle=90, color=Color) { }
}
}
}
}
N:TrimF(angle=45, option=1) {
N:Cowl(angle=180, color=#FF0000, effect=#5000) { }
}
N:TrimF(angle=-45, option=1) {
N:Cowl(angle=180, color=#FF0000, effect=#5000) { }
}
S:Trim(angle=90, color=Color) {
S:Chip(color=Color) {
E:Cowl(option=3, color=Color) { }
S:Cowl(option=4, color=Color) {
E:Cowl(color=Color) { }
}
}
E:Cowl(angle=135, color=Color) {
N:Cowl(color=Color) {
N:Cowl(option=4, color=Color) { }
}
E:Cowl(angle=135, color=Color) {
N:Cowl(color=Color) { }
}
}
E:Cowl(angle=-135, color=Color) {
N:Cowl(color=Color) {
N:Cowl(option=4, color=Color) { }
}
S:Cowl(angle=-90, option=3, color=Color) { }
E:Cowl(angle=-135, color=Color) {
N:Cowl(color=Color) { }
}
}
}
}
}
Lua
{
function main()
  DEY=_EY()-EY
  EY=_EY()
  if DEY>3.14 then DEY=DEY-6.28 end
  if DEY<-3.14 then DEY=DEY+6.28 end
  Spin=(ANGLE-DEY)*500000
  Forward=(SPEED+_VZ())*5000
  Sideways=(STRAFE+_VX())*5000
  JETXNE=Forward-Spin
  JETXSW=-Forward-Spin
  JETZNW=-Sideways-Spin
  JETZSE=Sideways-Spin
  JETXNW=Forward+Spin
  JETXSE=-Forward+Spin
  JETZNE=Sideways+Spin
  JETZSW=-Sideways+Spin
  JETYNW=(_H(NW)-0.6)*1000000
  JETYSW=(_H(SW)-0.6)*1000000
  JETYNE=(_H(NE)-0.6)*1000000
  JETYSE=(_H(SE)-0.6)*1000000
  if JETYNW>JETYSW
  then
Max=JETYNW
Min=JETYSW
  else
Max=JETYSW
Min=JETYNW
  end
  if JETYNE>Max then Max=JETYNE end
  if JETYNE<Min then Min=JETYNE end
  if JETYSE>Max then Max=JETYSE end
  if JETYSE<Min then Min=JETYSE end
  if Max-Min>200000
  then
JETYNW=Min
JETYSW=Min
JETYNE=Min
JETYSE=Min
   end
end
}
avatar
JosefYurnov99
Plane
Plane

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

View user profile

Back to top Go down

Re: Improve the last entry

Post by RA2lover on Sun Jul 07, 2013 6:07 pm

upgraded guns from 40k to 50k
zoomed view out
added changelog

Code:
Val{
   ANGLE(min=-0.1,max=0.1,step=0.1)
   COLOR(default=2960685)
   EY(min=-3.14,max=3.14)
   GUN(max=50000,step=50000)
   JETXNE(min=-1000000,max=1000000)
   JETXNW(min=-1000000,max=1000000)
   JETXSE(min=-1000000,max=1000000)
   JETXSW(min=-1000000,max=1000000)
   JETYNE(default=100000,max=1000000)
   JETYNW(default=100000,max=1000000)
   JETYSE(default=100000,max=1000000)
   JETYSW(default=100000,max=1000000)
   JETZNE(min=-1000000,max=1000000)
   JETZNW(min=-1000000,max=1000000)
   JETZSE(min=-1000000,max=1000000)
   JETZSW(min=-1000000,max=1000000)
   SPEED(min=-100,max=100,step=20)
   STRAFE(min=-100,max=100,step=20)
}
Key{
   0:SPEED(step=20)
   1:SPEED(step=-20)
   2:ANGLE(step=-0.100000001)
   3:ANGLE(step=0.100000001)
   4:STRAFE(step=-20)
   5:STRAFE(step=20)
   6:GUN(step=50000)
}
Body{
   Core(Color=COLOR){
      N:Frame(Option=1){
         N:Frame(Option=1){
            W:Frame(Option=1){
               W:Jet(Name=NW,Color=COLOR,Power=-JETYNW){
                  N:Jet(Color=COLOR,Angle=90,Power=JETXNW){}
                  W:Jet(Color=COLOR,Angle=90,Power=JETZNW){}
                  N:Arm(Color=COLOR,Power=GUN,Option=50000){}
               }
            }
            E:Frame(Option=1){
               E:Jet(Name=NE,Color=COLOR,Power=-JETYNE){
                  N:Jet(Color=COLOR,Angle=90,Power=JETXNE){}
                  E:Jet(Color=COLOR,Angle=90,Power=JETZNE){}
                  N:Arm(Color=COLOR,Power=GUN,Option=50000){}
               }
            }
         }
      }
      S:TrimF(Damper=0.2,Spring=0.2,Option=1){
         S:Frame(Option=1){
            W:Frame(Option=1){
               W:Jet(Name=SW,Color=COLOR,Power=-JETYSW){
                  S:Jet(Color=COLOR,Angle=90,Power=JETXSW){}
                  W:Jet(Color=COLOR,Angle=90,Power=JETZSW){}
               }
            }
            E:Frame(Option=1){
               E:Jet(Name=SE,Color=COLOR,Power=-JETYSE){
                  S:Jet(Color=COLOR,Angle=90,Power=JETXSE){}
                  E:Jet(Color=COLOR,Angle=90,Power=JETZSE){}
               }
            }
         }
      }
      N:TrimF(Angle=45,Option=1){
         N:Cowl(Color=#FF0000,Angle=180,Effect=#005000){}
      }
      N:TrimF(Angle=-45,Option=1){
         N:Cowl(Color=#FF0000,Angle=180,Effect=#005000){}
      }
      S:Trim(Color=COLOR,Angle=90){
         S:Chip(Color=COLOR){
            E:Cowl(Color=COLOR,Option=3){}
            S:Cowl(Color=COLOR,Option=4){
               E:Cowl(Color=COLOR){}
            }
         }
         E:Cowl(Color=COLOR,Angle=135){
            N:Cowl(Color=COLOR){
               N:Cowl(Color=COLOR,Option=4){}
            }
            E:Cowl(Color=COLOR,Angle=135){
               N:Cowl(Color=COLOR){}
            }
         }
         E:Cowl(Color=COLOR,Angle=-135){
            N:Cowl(Color=COLOR){
               N:Cowl(Color=COLOR,Option=4){}
            }
            S:Cowl(Color=COLOR,Angle=-90,Option=3){}
            E:Cowl(Color=COLOR,Angle=-135){
               N:Cowl(Color=COLOR){}
            }
         }
      }
   }
}
Lua{
--[[changelog
      v1(DanielLC)
      -basic model

   v2(JosefYurnov99)
      -added cowling
      -added 40k guns

   v3(RA2lover)
      -upgraded guns from 40k to 50k
      -zoomed view out
      -added changelog
/changelog]]


_ZOOM(75)
function main()
  DEY=_EY()-EY
  EY=_EY()
  if DEY>3.14 then DEY=DEY-6.28 end
  if DEY<-3.14 then DEY=DEY+6.28 end
  Spin=(ANGLE-DEY)*500000
  Forward=(SPEED+_VZ())*5000
  Sideways=(STRAFE+_VX())*5000
  JETXNE=Forward-Spin
  JETXSW=-Forward-Spin
  JETZNW=-Sideways-Spin
  JETZSE=Sideways-Spin
  JETXNW=Forward+Spin
  JETXSE=-Forward+Spin
  JETZNE=Sideways+Spin
  JETZSW=-Sideways+Spin
  JETYNW=(_H(NW)-0.6)*1000000
  JETYSW=(_H(SW)-0.6)*1000000
  JETYNE=(_H(NE)-0.6)*1000000
  JETYSE=(_H(SE)-0.6)*1000000
  if JETYNW>JETYSW
  then
Max=JETYNW
Min=JETYSW
  else
Max=JETYSW
Min=JETYNW
  end
  if JETYNE>Max then Max=JETYNE end
  if JETYNE<Min then Min=JETYNE end
  if JETYSE>Max then Max=JETYSE end
  if JETYSE<Min then Min=JETYSE end
  if Max-Min>200000
  then
JETYNW=Min
JETYSW=Min
JETYNE=Min
JETYSE=Min
  end
end
}



Last edited by RA2lover on Sun Jul 07, 2013 6:09 pm; edited 1 time in total (Reason for editing : changed to actual model file)
avatar
RA2lover
Walker
Walker

Posts : 382
Join date : 2010-10-11
Age : 22
Location : Brazil

View user profile

Back to top Go down

Re: Improve the last entry

Post by Fox Explorer on Mon Jul 08, 2013 3:33 pm

I like this idea.

guns shoot at different times
modifided controls
added controls on screen
added colors

Code:


// [RCD]
Val
{
   ANGLE(default=0, min=-0.1, max=0.1, step=0.1)
   CC(default=0, max=3)
   COLOR(default=2960685)
   EY(default=0, min=-3.14, max=3.14)
   GC(default=0, max=8, step=8)
   GUN1(default=0, max=50000, step=50000)
   GUN2(default=0, max=50000, step=50000)
   JETXNE(default=0, min=-1000000, max=1000000)
   JETXNW(default=0, min=-1000000, max=1000000)
   JETXSE(default=0, min=-1000000, max=1000000)
   JETXSW(default=0, min=-1000000, max=1000000)
   JETYNE(default=100000, max=1000000)
   JETYNW(default=100000, max=1000000)
   JETYSE(default=100000, max=1000000)
   JETYSW(default=100000, max=1000000)
   JETZNE(default=0, min=-1000000, max=1000000)
   JETZNW(default=0, min=-1000000, max=1000000)
   JETZSE(default=0, min=-1000000, max=1000000)
   JETZSW(default=0, min=-1000000, max=1000000)
   SPEED(default=0, min=-100, max=100, step=20)
   STRAFE(default=0, min=-100, max=100, step=20)
}
Key
{
   0:SPEED(step=20)
   1:SPEED(step=-20)
   2:ANGLE(step=-0.100000001)
   3:ANGLE(step=0.100000001)
   4:STRAFE(step=-20)
   5:GC(step=0.25)
   6:STRAFE(step=20)
}
Body
{
   Core(color=COLOR) {
      N:Frame(option=1) {
         N:Frame(option=1) {
            W:Frame(option=1) {
               W:Jet(name=NW, color=COLOR, power=-JETYNW) {
                  N:Jet(color=COLOR, angle=90, power=JETXNW) { }
                  W:Jet(color=COLOR, angle=90, power=JETZNW) { }
                  N:Arm(color=COLOR, power=GUN1, option=50000) { }
               }
            }
            E:Frame(option=1) {
               E:Jet(name=NE, color=COLOR, power=-JETYNE) {
                  N:Jet(color=COLOR, angle=90, power=JETXNE) { }
                  E:Jet(color=COLOR, angle=90, power=JETZNE) { }
                  N:Arm(color=COLOR, power=GUN2, option=50000) { }
               }
            }
         }
      }
      S:TrimF(damper=0.2, spring=0.2, option=1) {
         S:Frame(option=1) {
            W:Frame(option=1) {
               W:Jet(name=SW, color=COLOR, power=-JETYSW) {
                  S:Jet(color=COLOR, angle=90, power=JETXSW) { }
                  W:Jet(color=COLOR, angle=90, power=JETZSW) { }
               }
            }
            E:Frame(option=1) {
               E:Jet(name=SE, color=COLOR, power=-JETYSE) {
                  S:Jet(color=COLOR, angle=90, power=JETXSE) { }
                  E:Jet(color=COLOR, angle=90, power=JETZSE) { }
               }
            }
         }
      }
      N:TrimF(angle=45, option=1) {
         N:Cowl(color=#FF0000, angle=180, effect=#005000) { }
      }
      N:TrimF(angle=-45, option=1) {
         N:Cowl(color=#FF0000, angle=180, effect=#005000) { }
      }
      S:Trim(color=COLOR, angle=90) {
         S:Chip(color=COLOR) {
            E:Cowl(color=COLOR, option=3) { }
            S:Cowl(color=COLOR, option=4) {
               E:Cowl(color=COLOR) { }
            }
         }
         E:Cowl(color=COLOR, angle=135) {
            N:Cowl(color=COLOR) {
               N:Cowl(color=COLOR, option=4) { }
            }
            E:Cowl(color=COLOR, angle=135) {
               N:Cowl(color=COLOR) { }
            }
         }
         E:Cowl(color=COLOR, angle=-135) {
            N:Cowl(color=COLOR) {
               N:Cowl(color=COLOR, option=4) { }
            }
            S:Cowl(color=COLOR, angle=-90, option=3) { }
            E:Cowl(color=COLOR, angle=-135) {
               N:Cowl(color=COLOR) { }
            }
         }
      }
   }
}
Lua
{
--[[changelog
      v1(DanielLC)
      -basic model

   v2(JosefYurnov99)
      -added cowling
      -added 40k guns

   v3(RA2lover)
      -upgraded guns from 40k to 50k
      -zoomed view out
      -added changelog

  v4(Fox Explorer)
    -guns shoot at different times
    -modifided controls
    -added controls on screen
    -added colors
/changelog]]


_ZOOM(75)
function main()
  DEY=_EY()-EY
  EY=_EY()
  if DEY>3.14 then DEY=DEY-6.28 end
  if DEY<-3.14 then DEY=DEY+6.28 end
  Spin=(ANGLE-DEY)*500000
  Forward=(SPEED+_VZ())*5000
  Sideways=(STRAFE+_VX())*5000
  JETXNE=Forward-Spin
  JETXSW=-Forward-Spin
  JETZNW=-Sideways-Spin
  JETZSE=Sideways-Spin
  JETXNW=Forward+Spin
  JETXSE=-Forward+Spin
  JETZNE=Sideways+Spin
  JETZSW=-Sideways+Spin
  JETYNW=(_H(NW)-0.6)*1000000
  JETYSW=(_H(SW)-0.6)*1000000
  JETYNE=(_H(NE)-0.6)*1000000
  JETYSE=(_H(SE)-0.6)*1000000
  if JETYNW>JETYSW
  then
Max=JETYNW
Min=JETYSW
  else
Max=JETYSW
Min=JETYNW
  end
  if JETYNE>Max then Max=JETYNE end
  if JETYNE<Min then Min=JETYNE end
  if JETYSE>Max then Max=JETYSE end
  if JETYSE<Min then Min=JETYSE end
  if Max-Min>200000
  then
JETYNW=Min
JETYSW=Min
JETYNE=Min
JETYSE=Min
  end
if GC==1 then GUN1=50000 end
if GC==3 then GUN2=50000 end
if GC==4 then GC=0 end

if _KEYDOWN(7)>0 then CC=CC+1 end
if _KEYDOWN(8)>0 then CC=CC-1 end

if CC==0 then COLOR=2960685 end
if CC==1 then COLOR=909090 end
if CC==2 then COLOR=9000000 end

if COLOR==2960685 then out(7,"Color = Black") end
if COLOR==909090 then out(7,"Color = Green") end
if COLOR==9000000 then out(7,"Color = Tan") end

out(2,"Arrow Keys = Drive")
out(3,"Z/C = Strafe")
out(4,"X = Guns")
out(5,"A/S = Color")


end}


avatar
Fox Explorer
Plane
Plane

Posts : 25
Join date : 2011-06-08

View user profile

Back to top Go down

Re: Improve the last entry

Post by DanielLC on Fri Jul 12, 2013 10:57 pm

I replaced each 50k gun with duel seven-barreled 115k gatling guns. Also, I fixed the balance issues caused by these gigantic guns, and I made it turn faster.

If anyone wants to add more barrels, be warned that each parent can only have fourteen children. You're going to have to essentially have two separate bases each holding half the barrels for it to work.

Code:
// [RCD]
Val
{
   GUNPITCHW(default=90, min=45, max=135, step=0)
   GUNPITCHE(default=90, min=45, max=135, step=0)
   ANGLE(default=0, min=-0.1, max=0.1, step=0.1)
   CC(default=0, max=2)
   COLOR(default=2960685)
   EY(default=0, min=-3.14, max=3.14)
   JETXNE(default=0, min=-4000000, max=4000000)
   JETXNW(default=0, min=-4000000, max=4000000)
   JETXSE(default=0, min=-1000000, max=1000000)
   JETXSW(default=0, min=-1000000, max=1000000)
   JETYNE(default=0, max=4000000)
   JETYNW(default=0, max=4000000)
   JETYSE(default=0, max=1000000)
   JETYSW(default=0, max=1000000)
   JETZNE(default=0, min=-4000000, max=4000000)
   JETZNW(default=0, min=-4000000, max=4000000)
   JETZSE(default=0, min=-1000000, max=1000000)
   JETZSW(default=0, min=-1000000, max=1000000)
   SPEED(default=0, min=-100, max=100, step=20)
   STRAFE(default=0, min=-100, max=100, step=20)



GUN0(default=0,min=0,max=200000,step=200000)
ANGLE0(default=-180,min=-180,max=180)
TIME0(default=-180,min=-180,max=180)
 
GUN1(default=0,min=0,max=200000,step=200000)
ANGLE1(default=-180,min=-180,max=180)
TIME1(default=-180,min=-180,max=180)
 
GUN2(default=0,min=0,max=200000,step=200000)
ANGLE2(default=-180,min=-180,max=180)
TIME2(default=-180,min=-180,max=180)
 
GUN3(default=0,min=0,max=200000,step=200000)
ANGLE3(default=-180,min=-180,max=180)
TIME3(default=-180,min=-180,max=180)
 
GUN4(default=0,min=0,max=200000,step=200000)
ANGLE4(default=-180,min=-180,max=180)
TIME4(default=-180,min=-180,max=180)
 
GUN5(default=0,min=0,max=200000,step=200000)
ANGLE5(default=-180,min=-180,max=180)
TIME5(default=-180,min=-180,max=180)
FIRE(default=0,min=0,max=1,step=1)
TIME(default=0,max=10,step=1)
INDEX(default=0,max=6)
}
Key
{
   0:SPEED(step=20)
   1:SPEED(step=-20)
   2:ANGLE(step=-0.500000001)
   3:ANGLE(step=0.500000001)
   4:STRAFE(step=-20)
   5:GC(step=0.25)
   5:FIRE(step=10)
   6:STRAFE(step=20)
}
Body
{
   Core(color=COLOR) {
      N:Frame(color=COLOR, option=1) {
         N:Frame(color=COLOR, option=1) {
            W:Frame(color=COLOR, option=1) {
               W:Jet(name=NW, color=COLOR, power=-JETYNW) {
                  N:Jet(color=COLOR, ANGLE=90, power=JETXNW) { }
                  W:Jet(color=COLOR, ANGLE=90, power=JETZNW) { }
                  S:Chip(name=WPITCH, color=COLOR, angle=-90){
                     S:Frame(color=COLOR, option=1, angle=GUNPITCHW, option=1){

                        E:Frame(color=COLOR, option=1, angle=ANGLE0){
                           N:Arm(color=COLOR, power=GUN0, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE1){
                           N:Arm(color=COLOR, power=GUN1, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE2){
                           N:Arm(color=COLOR, power=GUN2, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE3){
                           N:Arm(color=COLOR, power=GUN3, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE4){
                           N:Arm(color=COLOR, power=GUN4, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE5){
                           N:Arm(color=COLOR, power=GUN5, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE0){
                           N:Arm(color=COLOR, power=GUN0, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE1){
                           N:Arm(color=COLOR, power=GUN1, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE2){
                           N:Arm(color=COLOR, power=GUN2, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE3){
                           N:Arm(color=COLOR, power=GUN3, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE4){
                           N:Arm(color=COLOR, power=GUN4, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE5){
                           N:Arm(color=COLOR, power=GUN5, option=115000){}
                        }
                     }
                  }
               }
            }
            E:Frame(color=COLOR, option=1) {
               E:Jet(name=NE, color=COLOR, power=-JETYNE) {
                  N:Jet(color=COLOR, ANGLE=90, power=JETXNE) { }
                  E:Jet(color=COLOR, ANGLE=90, power=JETZNE) { }
                  S:Chip(color=COLOR, angle=-90){
                     S:Frame(name=EPITCH, color=COLOR, option=1, angle=GUNPITCHE, option=1){

                        E:Frame(color=COLOR, option=1, angle=ANGLE0){
                           N:Arm(color=COLOR, power=GUN0, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE1){
                           N:Arm(color=COLOR, power=GUN1, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE2){
                           N:Arm(color=COLOR, power=GUN2, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE3){
                           N:Arm(color=COLOR, power=GUN3, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE4){
                           N:Arm(color=COLOR, power=GUN4, option=115000){}
                        }
 
                        E:Frame(color=COLOR, option=1, angle=ANGLE5){
                           N:Arm(color=COLOR, power=GUN5, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE0){
                           N:Arm(color=COLOR, power=GUN0, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE1){
                           N:Arm(color=COLOR, power=GUN1, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE2){
                           N:Arm(color=COLOR, power=GUN2, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE3){
                           N:Arm(color=COLOR, power=GUN3, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE4){
                           N:Arm(color=COLOR, power=GUN4, option=115000){}
                        }
 
                        W:Frame(color=COLOR, option=1, angle=ANGLE5){
                           N:Arm(color=COLOR, power=GUN5, option=115000){}
                        }
                     }
                  }
               }
            }
         }
      }
      S:TrimF(damper=0.2, spring=0.2, option=1) {
         S:Frame(color=COLOR, option=1) {
            W:Frame(color=COLOR, option=1) {
               W:Jet(name=SW, color=COLOR, power=-JETYSW) {
                  S:Jet(color=COLOR, ANGLE=90, power=JETXSW) { }
                  W:Jet(color=COLOR, ANGLE=90, power=JETZSW) { }
               }
            }
            E:Frame(color=COLOR, option=1) {
               E:Jet(name=SE, color=COLOR, power=-JETYSE) {
                  S:Jet(color=COLOR, ANGLE=90, power=JETXSE) { }
                  E:Jet(color=COLOR, ANGLE=90, power=JETZSE) { }
               }
            }
         }
      }
      N:TrimF(ANGLE=45, option=1) {
         N:Cowl(color=#FF0000, ANGLE=180, effect=#005000) { }
      }
      N:TrimF(ANGLE=-45, option=1) {
         N:Cowl(color=#FF0000, ANGLE=180, effect=#005000) { }
      }
      S:Trim(color=COLOR, ANGLE=90) {
         S:Chip(color=COLOR) {
            E:Cowl(color=COLOR, option=3) { }
            S:Cowl(color=COLOR, option=4) {
               E:Cowl(color=COLOR) { }
            }
         }
         E:Cowl(color=COLOR, ANGLE=135) {
            N:Cowl(color=COLOR) {
               N:Cowl(color=COLOR, option=4) { }
            }
            E:Cowl(color=COLOR, ANGLE=135) {
               N:Cowl(color=COLOR) { }
            }
         }
         E:Cowl(color=COLOR, ANGLE=-135) {
            N:Cowl(color=COLOR) {
               N:Cowl(color=COLOR, option=4) { }
            }
            S:Cowl(color=COLOR, ANGLE=-90, option=3) { }
            E:Cowl(color=COLOR, ANGLE=-135) {
               N:Cowl(color=COLOR) { }
            }
         }
      }
   }
}
Lua
{
--[[changelog
      v1(DanielLC)
      -basic model

   v2(JosefYurnov99)
      -added cowling
      -added 40k guns

   v3(RA2lover)
      -upgraded guns from 40k to 50k
      -zoomed view out
      -added changelog

  v4(Fox Explorer)
    -guns shoot at different TIMEs
    -modifided controls
    -added controls on screen
    -added colors
/changelog]]


_ZOOM(75)
function main()
  DEY=_EY()-EY
  EY=_EY()
  if DEY>3.14 then DEY=DEY-6.28 end
  if DEY<-3.14 then DEY=DEY+6.28 end
  Spin=(ANGLE-DEY)*500000
  Forward=(SPEED+_VZ())*5000
  Sideways=(STRAFE+_VX())*5000
  JETXNE=(Forward-Spin)*4
  JETXSW=-Forward-Spin
  JETZNW=(-Sideways-Spin)*4
  JETZSE=Sideways-Spin
  JETXNW=(Forward+Spin)*4
  JETXSE=-Forward+Spin
  JETZNE=(Sideways+Spin)*4
  JETZSW=-Sideways+Spin
  JETYNW=(_H(NW)-0.6)*100+Forward*100
  JETYSW=(_H(SW)-0.6)*100
  JETYNE=(_H(NE)-0.6)*100+Forward*100
  JETYSE=(_H(SE)-0.6)*100
  if JETYNW>JETYSW
  then
Max=JETYNW
Min=JETYSW
  else
Max=JETYSW
Min=JETYNW
  end
  if JETYNE>Max then Max=JETYNE end
  if JETYNE<Min then Min=JETYNE end
  if JETYSE>Max then Max=JETYSE end
  if JETYSE<Min then Min=JETYSE end
  if Max-Min>200000
  then
JETYNW=Min
JETYSW=Min
JETYNE=Min
JETYSE=Min
  end
JETYNW=10*JETYNW
JETYNE=10*JETYNE
if GC==1 then GUN1=50000 end
if GC==3 then GUN2=50000 end
if GC==4 then GC=0 end

if _KEYDOWN(7)>0 then CC=CC+1 end
if _KEYDOWN(8)>0 then CC=CC-1 end

if CC==0 then COLOR=2960685 end
if CC==1 then COLOR=909090 end
if CC==2 then COLOR=9000000 end

if COLOR==2960685 then out(7,"Color = Black") end
if COLOR==909090 then out(7,"Color = Green") end
if COLOR==9000000 then out(7,"Color = Tan") end

out(2,"Arrow Keys = Drive")
out(3,"Z/C = Strafe")
out(4,"X = Guns")
out(5,"A/S = Color")


 --[[changelog
      v1(DanielLC)
      -basic model

   v2(JosefYurnov99)
      -added cowling
      -added 40k guns

   v3(RA2lover)
      -upgraded guns from 40k to 50k
      -zoomed view out
      -added changelog

  v4(Fox Explorer)
    -guns shoot at different TIMEs
    -modifided controls
    -added controls on screen
    -added colors

      v5(DanielLC)
      -replaced each 50k gun with dual 7-barrel 115k gatling guns
      -fixed the balance problems caused by gigantic guns
      -increased turn speed
      -I attempted (and failed) to fix the tilting of the guns while going forward. I left the GUNPITCH variables there in case anyone else wants to give it a go.
/changelog]]


_ZOOM(75)
function main()
  DEY=_EY()-EY
  EY=_EY()
  if DEY>3.14 then DEY=DEY-6.28 end
  if DEY<-3.14 then DEY=DEY+6.28 end
  Spin=(ANGLE-DEY)*500000
  Forward=(SPEED+_VZ())*5000
  Sideways=(STRAFE+_VX())*5000
  JETXNE=Forward-Spin
  JETXSW=-Forward-Spin
  JETZNW=-Sideways-Spin
  JETZSE=Sideways-Spin
  JETXNW=Forward+Spin
  JETXSE=-Forward+Spin
  JETZNE=Sideways+Spin
  JETZSW=-Sideways+Spin
  JETYNW=(_H(NW)-0.6)*400000
  JETYNE=(_H(NE)-0.6)*400000
  JETYSW=(_H(SW)-0.6)*100000
  JETYSE=(_H(SE)-0.6)*100000
  if Forward>0 then
    JETYNW=JETYNW+Forward*8
    JETYNE=JETYNE+Forward*8
  else
    JETYSW=JETYSW-Forward*2
    JETYSE=JETYSE-Forward*2
  end

if _KEYDOWN(7)>0 then CC=CC+1 end
if _KEYDOWN(8)>0 then CC=CC-1 end

if CC==0 then COLOR=2960685 end
if CC==1 then COLOR=909090 end
if CC==2 then COLOR=9000000 end

if COLOR==2960685 then out(7,"Color = Black") end
if COLOR==909090 then out(7,"Color = Green") end
if COLOR==9000000 then out(7,"Color = Tan") end

out(2,"Arrow Keys = Drive")
out(3,"Z/C = Strafe")
out(4,"X = Guns")
out(5,"A/S = Color")

  if ANGLE0>-180 then ANGLE0=ANGLE0+30 end
  if ANGLE0==0 then GUN0=800000 end
  if ANGLE0>=180 then ANGLE0=-180 end
  if FIRE==1 and INDEX==0 and TIME==0
  then
    ANGLE0=ANGLE0+30
    INDEX=INDEX+1
    TIME=3
   end
  if INDEX==6 then INDEX=0 end
 
  if ANGLE1>-180 then ANGLE1=ANGLE1+30 end
  if ANGLE1==0 then GUN1=800000 end
  if ANGLE1>=180 then ANGLE1=-180 end
  if FIRE==1 and INDEX==1 and TIME==0
  then
    ANGLE1=ANGLE1+30
    INDEX=INDEX+1
    TIME=3
   end
  if INDEX==6 then INDEX=0 end
 
  if ANGLE2>-180 then ANGLE2=ANGLE2+30 end
  if ANGLE2==0 then GUN2=800000 end
  if ANGLE2>=180 then ANGLE2=-180 end
  if FIRE==1 and INDEX==2 and TIME==0
  then
    ANGLE2=ANGLE2+30
    INDEX=INDEX+1
    TIME=3
   end
  if INDEX==6 then INDEX=0 end
 
  if ANGLE3>-180 then ANGLE3=ANGLE3+30 end
  if ANGLE3==0 then GUN3=800000 end
  if ANGLE3>=180 then ANGLE3=-180 end
  if FIRE==1 and INDEX==3 and TIME==0
  then
    ANGLE3=ANGLE3+30
    INDEX=INDEX+1
    TIME=3
   end
  if INDEX==6 then INDEX=0 end
 
  if ANGLE4>-180 then ANGLE4=ANGLE4+30 end
  if ANGLE4==0 then GUN4=800000 end
  if ANGLE4>=180 then ANGLE4=-180 end
  if FIRE==1 and INDEX==4 and TIME==0
  then
    ANGLE4=ANGLE4+30
    INDEX=INDEX+1
    TIME=3
   end
  if INDEX==6 then INDEX=0 end
 
  if ANGLE5>-180 then ANGLE5=ANGLE5+30 end
  if ANGLE5==0 then GUN5=800000 end
  if ANGLE5>=180 then ANGLE5=-180 end
  if FIRE==1 and INDEX==5 and TIME==0
  then
    ANGLE5=ANGLE5+30
    INDEX=INDEX+1
    TIME=3
   end
  if INDEX==6 then INDEX=0 end
end
end
}

DanielLC
Tank
Tank

Posts : 78
Join date : 2010-10-23

View user profile

Back to top Go down

Re: Improve the last entry

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