Viking VTOL

Because i think this one is a really nice one im posting it here altho its not finished yet

Steering is explained ingame, but the guns arent working yet (but they are there)

Code:


// [RCD]
Val
{
        SnipeA(default=0, min=-1000)
        SnipeYaw(default=0, min=-1000)
   A(default=0, min=-30)
   AMODE(default=0, min=-30, max=110)
   ARM(default=0, max=20000, step=20000)
   ASTEER(default=0, min=-30, max=30, step=3)
   FJETLEVEL(default=21000)
   FRONTFOOT(default=-180, min=-180, max=-90)
   FRONTJET(default=0)
   GUNMODE(default=180, max=180)
   SnipeMode(default=0)
        JET(default=0)
   JETLEVEL(default=30000)
   JETMODE(default=2)
   JETMODE1(default=0, max=90000, step=90000)
   MODE(default=2)
   ROLLManu(default=0, min=-20, max=20, step=3)
   ROLL(default=0, min=-20, max=20)
}
Key
{
   0:Asteer(step=3)
   1:Asteer(step=-3)
   2:RollManu(step=3)
   3:RollManu(step=-3)
   7:JetMode1(step=90000)
}
Body
{
   Core() {
      S:Jet(power=Frontjet) { }
      N:Cowl(angle=158, color=#8A8A8A) {
         N:Cowl(angle=15, color=#8A8A8A) {
            N:Cowl(angle=7, color=#8A8A8A) { }
            E:Cowl(angle=90.1, option=4, color=#8A8A8A) { }
            W:Cowl(angle=90.1, option=3, color=#8A8A8A) { }
         }
      }
      N:Cowl(angle=-158, color=#FF0000, effect=#60FB) {
         N:Cowl(angle=-15, color=#8A8A8A) {
            N:Cowl(angle=-7, color=#8A8A8A) { }
            E:Cowl(angle=-90.5, option=4, color=#8A8A8A) { }
            W:Cowl(angle=-90.5, option=3, color=#8A8A8A) { }
         }
      }
      S:Chip() {
         S:Chip() {
            S:Chip() {
               S:Chip() {
                  S:Chip() {
                     S:Chip() {
                        W:Rudder(angle=-90) {
                           N:Chip(angle=-90) { }
                           N:Chip(angle=90) { }
                        }
                        E:Rudder(angle=90) {
                           N:Chip(angle=-90) { }
                           N:Chip(angle=90) { }
                        }
                     }
                     W:Trim(angle=-A) {
                        N:Frame(angle=-150) {
                           N:Jet(angle=-120, power=Jet) { }
                        }
                        N:Frame(angle=150) { }
                     }
                     E:Trim(angle=A) {
                        N:Frame(angle=-150) {
                           N:Jet(angle=-120, power=Jet) { }
                        }
                        N:Frame(angle=150) { }
                     }
                  }
                  W:Chip() {
                     N:Cowl(angle=162, color=#6A6A6A) {
                        N:Cowl(angle=6, color=#6A6A6A) {
                           W:Cowl(angle=90, option=3, color=#6A6A6A) { }
                           E:Cowl(angle=90, option=4, color=#6A6A6A) { }
                        }
                     }
                     N:Cowl(angle=-162, color=#6A6A6A) {
                        N:Cowl(angle=-6, color=#6A6A6A) {
                           W:Cowl(angle=-90, option=3, color=#6A6A6A) { }
                           E:Cowl(angle=-90, option=4, color=#6A6A6A) { }
                        }
                     }
                  }
                  E:Chip(angle=0) {
                     N:Cowl(angle=162, color=#6A6A6A) {
                        N:Cowl(angle=6, color=#6A6A6A) {
                           E:Cowl(angle=90, option=4, color=#6A6A6A) { }
                           W:Cowl(angle=90, option=3, color=#6A6A6A) { }
                        }
                     }
                     N:Cowl(angle=-162, color=#6A6A6A) {
                        N:Cowl(angle=-6, color=#6A6A6A) {
                           E:Cowl(angle=-90, option=4, color=#6A6A6A) { }
                           W:Cowl(angle=-90, option=3, color=#6A6A6A) { }
                        }
                     }
                  }
               }
               W:Rudder(angle=-45) {
                  W:Chip() {
                     W:Chip() {
                        W:Chip() { }
                        S:Chip(angle=-Roll) {
                           W:Chip() { }
                        }
                     }
                  }
                  E:Chip() { }
               }
               E:Rudder(angle=45) {
                  E:Chip() {
                     E:Chip() {
                        E:Chip() { }
                        S:Chip(angle=Roll) {
                           E:Chip() { }
                        }
                     }
                  }
                  W:Chip() { }
               }
            }
            S:Trim(angle=90) {
               N:Cowl(angle=150, effect=#F0FB) {
                  N:Cowl(angle=210, color=#8A8A8A) { }
               }
               N:Cowl(angle=-150, effect=#F0FB) {
                  N:Cowl(angle=-210, color=#8A8A8A) {
                     E:Cowl(angle=90, color=#8A8A8A) {
                        S:Cowl(angle=5, color=#8A8A8A) {
                           S:Cowl(angle=5, color=#8A8A8A) {
                              S:Cowl(angle=5, color=#8A8A8A) { }
                           }
                           E:Cowl(angle=90, option=4, color=#8A8A8A) { }
                           W:Cowl(angle=90, option=3, color=#8A8A8A) { }
                        }
                     }
                     W:Cowl(angle=90, color=#8A8A8A) {
                        S:Cowl(angle=5, color=#8A8A8A) {
                           S:Cowl(angle=5, color=#8A8A8A) {
                              S:Cowl(angle=5, color=#8A8A8A) { }
                           }
                           W:Cowl(angle=90, option=3, color=#8A8A8A) { }
                           E:Cowl(angle=90, option=4, color=#8A8A8A) { }
                        }
                     }
                  }
               }
            }
            E:Frame(angle=GunMode, option=1) {
               N:Arm(angle=GunMode, power=ARM, option=20000, color=#FF0000) { }
            }
            W:Frame(angle=GunMode, option=1) {
               N:Arm(angle=-GunMode, power=ARM, option=20000, color=#FF0000) { }
            }
         }
         S:Trim(angle=90) {
            N:Cowl(angle=150, effect=#F0FB) {
               N:Cowl(angle=210, color=#8A8A8A) { }
            }
            N:Cowl(angle=-150, effect=#F0FB) {
               N:Cowl(angle=-210, color=#8A8A8A) { }
            }
            N:Rudder(angle=FrontFoot) { }
            E:Frame(angle=GunMode, option=1) {
               N:Arm(angle=-GunMode, power=ARM, option=20000, color=#FF0000) { }
            }
            W:Frame(angle=GunMode, option=1) {
               N:Arm(angle=GunMode, power=ARM, option=20000, color=#FF0000) { }
            }
         }
      }
   }
}
Script
{
SnipeA=(_my()-488.5)/20
SnipeYaw=(_mx()-639.5)/30

if _key(11)=1 & Mode=1 & AMode=0 {Mode=2}
if _key(11)=1 & Mode=2 & AMode=90 {Mode=1}
if _key(9)=1 & Gunmode=0 {ARM=20000}
if _key(9)=1 & Gunmode>0 {ARM=0}
if Mode=2 & AMode<90 {AMode=AMode+3}
if Mode=1 & AMode>0 {AMode=AMode-3}
if Mode=1 & FrontFoot>-180 {FrontFoot=FrontFoot-6}
if Mode=2 & FrontFoot<-90 {FrontFoot=FrontFoot+6}
if SnipeMode=0 {A=Amode+ASteer}
if SnipeMode=1 {A=SnipeA}
if SnipeMode=0 {Roll=Rollmanu}
if SnipeMode=1 {Roll=_Todeg(AZ(core)}
if Mode=1 {Jet=JetMode1}
if Mode=1 {Frontjet=0}

if Mode=1 & SnipeMode=1 & GunMode>0 {Gunmode=Gunmode-12}

if Mode=2 & GunMode<180 {Gunmode=Gunmode+12}

if Mode=2 & _TODEG(_AX(core))<(0){
Frontjet=FJetLevel-(_AX()*8000)}

if Mode=2 & _TODEG(_AX(core))<(0){
Jet=JetLevel+(_AX()*8000)}

if Mode=2 & _TODEG(_AX(core))>(0){
Frontjet=FJetLevel-(_AX()*8000)}

if Mode=2 & _TODEG(_AX(core))>(0){
Jet=JetLevel+(_AX()*8000)}

if _keydown(10)>0.5 & FJetLevel=25000 & JetMode=1 {Jetmode=2}
if _keydown(10)>0.5 & FJetLevel=20000 & JetMode=2 {Jetmode=1}

if JetMode=1 & FJetLevel<25000 {FJetLevel=FJetLevel+500}
if JetMode=2 & FJetLevel>20000 {FJetLevel=FJetLevel-500}

if JetMode=1 & JetLevel<32000 {JetLevel=JetLevel+1000}
if JetMode=2 & JetLevel>25000 {JetLevel=JetLevel-1000}

Print 0,"Viking VTOL by Warbird (C)2010"
Print 1," Use Arrow Keys to steer"
Print 2," Press A to run the Jets"
Print 3," Press D to fire the Guns"
Print 4," Press B to switch between Hover Mode and Flight Mode"
if Mode=1 {Print 5,"  Flight Mode"}
if Mode=2 {Print 5,"  Hover Mode"}
Print 6," Press V to switch between Rising Mode and Sinking Mode to adjust the Hover Mode"
if JetMode=1 {Print 7,"  Rising Mode"}
if JetMode=2 {Print 7,"  Sinking Mode"}
}


Tested it.

The controls kinda spooked me at first, then I realized it has some serious potential because its actually a stable aircraft which hovers.

Just one question, how can I turn it around while I am hovering on one spot?

you cant. the hovering was actually just meant for start/landing but you can steer it in hover mode using the normal controls while flying forward (or backwards) slowly