Paul Class Submarine

This is the latest Paul Class vessel, and hasn't got any weapon.



Arrow keys to steer and dive;
F/V to select dive planes control mode (attitude, horizontal dive or automatic attitude manteineance);
Z/X for engines;
Q/A and A/D for ballast control;
G/B to select depth;

Code:


Val{

   Ballast(default=2000, min=100, max=2000, step=0)
   CBallast1(default=1700, min=1000, max=2000, step=0)
   CBallast2(default=2000, min=1000, max=2000, step=0)
   Eng(default=0, min=-5000, max=40000, step=0)
   Bank(default=0, min=-20, max=20, step=0)
   DiveB(default=0, min=-30, max=30, step=5)
   DiveS(default=0, min=-20, max=20, step=5)
   DMC(default=1, min=0, max=2, step=0)
   Depth(default=-10, min=-10, max=200, step=0)


}

Key{

   14:CBallast1(step=10)
   7:CBallast1(step=-10)
   16:CBallast2(step=10)
   9:Cballast2(step=-10)
   4:Eng(step=100)
   5:Eng(step=-100)
   2:Bank(step=1)
   3:Bank(step=-1)
   0:DiveS(step=5)
   1:DiveS(step=-5)
   12:DMC(step=1)
   10:DMC(step=-1)
   11:Depth(step=1)
   13:Depth(step=-1)

}

Body{

   Core(color=#000005){   
      //SAIL//
      N:Cowl(option=5, color=#000005){}
      E:Cowl(angle=90, color=#000005){
      E:Cowl(color=#000005){
      S:Cowl(angle=30, color=#000005){W:Cowl(color=#000005){}}}
      N:cowl(angle=30, color=#000005, effect=#a0fb){E:Cowl(color=#000005){}}}
      W:Cowl(angle=90, color=#000005){
      W:Cowl(color=#000005){
      S:Cowl(angle=30, color=#000005){E:Cowl(color=#000005){}}}
      N:Cowl(angle=30, color=#000005, effect=#a0fb){W:Cowl(color=#000005){}}}
      S:Chip(color=#000005){}
      S:Frame(angle=90){S:Frame(){S:Frame(){S:Frame(){S:Weight(angle=-90, option=6){}
      S:Weight(angle=90, option=3){E:Weight(angle=90){}W:Weight(angle=90){}}}
      
      
      S:Frame(angle=-90){
      W:Cowl(option=1){W:Cowl(angle=120, color=#000005){N:Cowl(color=#000005){}}W:Cowl(angle=-120, color=#000005){N:Cowl(color=#000005){}}}
      E:Cowl(option=1){E:Cowl(angle=120, color=#000005){N:Cowl(color=#000005){}}E:Cowl(angle=-120, color=#000005){N:Cowl(color=#000005){}}}
      
      //BOW//
      N:Frame(){
      S:Jet(option=2, power=Ballast, color=#000005){}
      N:Frame(){
      W:Cowl(option=1){W:Cowl(angle=120, color=#000005){}W:Cowl(angle=-120, color=#000005){}}
      E:Cowl(option=1){E:Cowl(angle=120, color=#000005){}E:Cowl(angle=-120, color=#000005){}}
      S:Trim(angle=90){
      N:Cowl(option=1){
      W:Cowl(option=1){W:Cowl(angle=120, color=#000005){}W:Cowl(angle=-120, color=#000005){}}
      E:Cowl(option=1){E:Cowl(angle=120, color=#000005){}E:Cowl(angle=-120, color=#000005){}}
      N:Cowl(option=1){
      W:Cowl(option=1){
      W:Cowl(angle=120, color=#000005){N:Cowl(angle=20, option=4, color=#000005){}}
      W:Cowl(angle=-120, color=#000005){N:Cowl(angle=-20, option=4, color=#000005){}}}
      E:Cowl(option=1){
      E:Cowl(angle=120, color=#000005){N:Cowl(angle=20, option=3, color=#000005){}}
      E:Cowl(angle=-120, color=#000005){N:Cowl(angle=-20, option=3, color=#000005){}}}}}}
      S:Jet(option=2, power=Ballast, color=#000005){}
      N:Frame(){
      W:Cowl(option=1){
      W:Cowl(angle=120, color=#000005){N:Cowl(angle=20, option=4, color=#000005){}}
      W:Cowl(angle=-120, color=#000005){N:Cowl(angle=-20, option=4, color=#000005){}}}
      E:Cowl(option=1){
      E:Cowl(angle=120, color=#000005){N:Cowl(angle=20, option=3, color=#000005){}}
      E:Cowl(angle=-120, color=#000005){N:Cowl(angle=-20, option=3, color=#000005){}}}
      S:Jet(option=2, power=Ballast, color=#000005){}
      N:Frame(){S:Jet(option=2, power=Ballast, color=#000005){}
      N:Chip(color=#000005){
      
      
      
      //Bow Dive Planes//
      E:Frame(){E:Trim(angle=-DiveB, color=#000005){}}
      W:Frame(){W:Trim(angle=DiveB, color=#000005){}}
      
      S:Jet(option=2, power=CBallast1, color=#000005){}}}}}}
      
      //STERN//
      S:Frame(){
      W:Cowl(option=1){W:Cowl(angle=120, color=#000005){}W:Cowl(angle=-120, color=#000005){}}
      E:Cowl(option=1){E:Cowl(angle=120, color=#000005){}E:Cowl(angle=-120, color=#000005){}}
      N:Trim(angle=90){
      S:Cowl(option=1){
      W:Cowl(option=1){
      W:Cowl(angle=120, color=#000005){N:Cowl(color=#000005){N:Cowl(color=#000005){}}}
      W:Cowl(angle=-120, color=#000005){N:Cowl(color=#000005){N:Cowl(color=#000005){}}}}
      E:Cowl(option=1){
      E:Cowl(angle=120, color=#000005){N:Cowl(color=#000005){N:Cowl(color=#000005){}}}
      E:Cowl(angle=-120, color=#000005){N:Cowl(color=#000005){N:Cowl(color=#000005){}}}}
      S:Cowl(option=1){
      W:Cowl(option=1){
      W:Cowl(angle=120, color=#000005){S:Cowl(angle=20, option=3, color=#000005){}}
      W:Cowl(angle=-120, color=#000005){S:Cowl(angle=-20, option=3, color=#000005){}}}
      E:Cowl(option=1){
      E:Cowl(angle=120, color=#000005){S:Cowl(angle=20, option=4, color=#000005){}}
      E:Cowl(angle=-120, color=#000005){S:Cowl(angle=-20, option=4, color=#000005){}}}}}}
      S:Frame(){
      W:Cowl(option=1){
      W:Cowl(angle=120, color=#000005){S:Cowl(angle=20, option=3, color=#000005){}}
      W:Cowl(angle=-120, color=#000005){S:Cowl(angle=-20, option=3, color=#000005){}}}
      E:Cowl(option=1){
      E:Cowl(angle=120, color=#000005){S:Cowl(angle=20, option=4, color=#000005){}}
      E:Cowl(angle=-120, color=#000005){S:Cowl(angle=-20, option=4, color=#000005){}}}
      N:Jet(option=2, power=Ballast, color=#000005){}
      S:Frame(){N:Jet(option=2, power=Ballast, color=#000005){}
      S:Weight(option=2, color=#000005){

      //Stern Dive Planes//
      E:Frame(){E:Trim(angle=DiveS, color=#000005){}}
      W:Frame(){W:Trim(angle=-DiveS, color=#000005){}}

      N:Jet(option=2, power=CBallast2, color=#000005){}
      S:Trim(angle=90, color=#000005){
      S:Cowl(angle=-160, option=5, color=#000005){}
      S:Cowl(angle=160, option=5, color=#000005){}
      
      //Rudder//
      E:Trim(angle=-Bank, color=#000005){}W:Trim(angle=Bank, color=#000005){}

      //Propellers//
      S:RLW(angle=90, power=Eng, effect=4, color=#000010){N:Trim(angle=30, color=#000010){}S:Trim(angle=30, color=#000010){}}
      S:RLW(angle=-90, power=Eng, effect=4, color=#000010){N:Trim(angle=-30, color=#000010){}S:Trim(angle=-30, color=#000010){}}}}}}}

}}}}


}

}

Script{

   print 0,"Man the Deck"
   print 1,"Submarines RULE!"
   print 2,"Engine at ", Eng/400,"%"
   print 3,"Speed= ", _VEL()*3600/1852," knots"
   print 4,"Dive Speed= ", _VY(), "m/s"
   print 5,"Dive Attitude: ", _AX()/314159*18000000
   print 6,"  Width=",_WIDTH(),"  Height=",_HEIGHT()," Weight=",_WEIGHT()
   print 8,"Reference Ballast Value= Main: 1000, Bow: 1520, Stern=2000"
   print 9,"Full Emersion= 2000"
   
   if DMC=(2){
   print 7,"AUTO DEPTH MANTEINEANCE CONTROL ON"
   DiveB=_AX()/314159*180000000}

   if DMC=(1){
   print 7,"MANUAL ATTITUDE CONTROL ON"

   DiveB=DiveS}

   if DMC=(0){
   print 7,"COLLAB DIVE ON"
   DiveB=-DiveS*15/10}

   
   if _Y()>(-Depth){
   Ballast=Ballast-50}

   
   if _Y()<(-Depth){
   Ballast=Ballast+25}


   
}



I have yet to look into this little beauty, but once I do, do you mind if I dismantle the scripting for parts in an attempt to improve the roll-levelling system I'm trying to work onto one of Maurice's subs?

Don't worry, have fun. Also, I am about to release two new subrarine classes, the Franz and the Mark, both with telescopic periscope.