R-76C / HR-76D

View previous topic View next topic Go down

R-76C / HR-76D

Post by Echo_Delta_Oscar on Sat May 05, 2012 8:56 am



I was never able to build a satisfying propeller powered Hydroplane, so I crafted the HR-76 serie. The airframe was good, and I decided to use it for a conventional plane on which to test a "turboprop" engine. Here the models, both analog controlled.

HR-76D

How to take off the easy way:
1 - Switch both engines on and give about 10% throttle; wait for the plane to float properly;
2 - Switch AUTO LEVEL on, set trim at about 25°;
3 - Set throttle at 40%. The plane will speed up; wait for the floats to defalte automatically;
4 - Set throttle at 95% (100% if unbreakable is on), wait for the take off;
5 - Once airborne decrease throttle to 90%, then raise the floats;
6 - Climb to desired altutide; then retract Flaps, set throttle to 80% and switch ALTITUDE HOLD AUTOPILOT on;

Congratulation! You are now in level flight, safe & sound!

Otherwise, you can take off manually; be careful, the engines are above the CG, the plane is likely to dive in water.

Code:


Val
{
   RollE(default=0,min=-25,max=25,step=4)
   RollW(default=0,min=-25,max=25,step=4)
   ViewA(default=0,min=-180,max=180)
   ViewB(default=0,min=-15,max=15)
   PBar(default=0,min=-30,max=30,step=4)
   Pitch(default=0,min=-30,max=30)
   Yaw(default=0, min=-20, max=20, step=2)
   Rudd(default=0, min=-20, max=20, step=0)
   Ster(default=0, min=-20, max=20)
   Trim(default=0, min=-360, max=360, step=0)
   TailE(default=0, min=-50, max=50)
   TailW(default=0, min=-50, max=50)
   Throttle(default=0, min=0, max=198000, step=0)
   Engine1(default=0, min=0, max=200000, step=0)
   Chocke1(default=0, min=0, max=2000, step=0)
   Engine2(default=0, min=0, max=200000, step=0)
   Chocke2(default=0, min=0, max=2000, step=0)
   Prop1(default=45, min=45, max=90)
   Feat1(default=45, min=0, max=45)
   Prop2(default=45, min=45, max=90)
   Feat2(default=45, min=0, max=45)
   SO1(default=0)
   SO2(default=0)
   Gear(default=0, min=0, max=1, step=0)
   Gear1(default=20, min=0, max=20)
   Gear2(default=120, min=120, max=180)
   Gear3(default=90, min=0, max=90)
   Gear4(default=95, min=0, max=95)
   Infl(default=1500, max=1500, step=10)
   Flap(default=0)
   FLP(default=30, min=0, max=30)
   ALVL(default=0, min=0, max=1, step=0)
   AALT(default=0, min=0, max=1, step=0)
   EB1(max=10)
   EB2(max=10)
   Ypar(default=0)
   BRK(default=0, min=0, max=200, step=200)
   ABR(default=180, min=135, max=180, step=3)
   EX1(default=0, min=0, max=100, step=100)
   EX2(default=0, min=0, max=100, step=100)
   Smoke(default=1, min=1, max=4)
   Col1(default=#101050)
   Col1C(default=#202060)
   Col2(default=#cc4000)
   Col2C(default=#ee6000)
   Timer()

   
}

Key
{
   7:Yaw(step=-2)
   9:Yaw(step=2)
   2:ViewA(step=5)
   3:ViewA(step=-5)
   0:ViewB(step=-1)
   1:ViewB(step=1)
   16:BRK(step=10)   
}

Body {
   Core(){

      N:Frame(angle=ViewB, option=1){S:RudderF(angle=ViewA, option=1){
      S:Frame(angle=160, option=1){S:Frame(angle=-160, option=1){

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=90, color=Col1){}
      S:Cowl(angle=90, color=Col1){N:Cowl(angle=46, color=Col1){}}
      E:Cowl(angle=90, color=Col2){W:Cowl(option=3, color=Col2){}}
      W:Cowl(angle=90, color=Col2){E:Cowl(option=4, color=Col2){}}}

      N:Frame(option=1){

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=90, color=Col1){}
      S:Cowl(angle=90, color=Col1){}
      E:Cowl(angle=90, color=Col2){}
      W:Cowl(angle=90, color=Col2){}}

      N:Weight(option=3, color=Col1C){

      S:Cowl(angle=-45, effect=#a000){S:Cowl(angle=45, color=Col1){
      E:Cowl(angle=91, effect=#a000){N:Cowl(option=3, effect=#a000){}}
      W:Cowl(angle=91, effect=#a000){N:Cowl(option=4, effect=#a000){}}
      S:Cowl(color=Col1){E:Cowl(angle=91, effect=#a000){}W:Cowl(angle=91, effect=#a000){}
      S:Cowl(angle=45, color=Col1){E:Cowl(angle=91, option=3, color=Col2){}W:Cowl(angle=91, option=4, color=Col2){}}}}}
      S:Cowl(angle=90, option=1){
      S:Cowl(angle=90, color=Col1){}
      E:Cowl(angle=90, color=Col2){}
      W:Cowl(angle=90, color=Col2){}}

      N:Weight(color=Col1C){

      S:Cowl(angle=90, option=1){
      S:Cowl(angle=90, color=Col1){}
      E:Cowl(angle=90, color=Col2){}
      W:Cowl(angle=90, color=Col2){}}

      N:Frame(name=Nose, option=1){

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=120, color=Col1){E:Cowl(angle=91, option=3, color=Col2){}W:Cowl(angle=91, option=4, color=Col2){}}
      S:Cowl(angle=120, color=Col1){E:Cowl(angle=91, option=4, color=Col2){}W:Cowl(angle=91, option=3, color=Col2){}}}

      S:Chip(angle=FLP){}}}}}
      E:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}
      E:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}

      N:Cowl(angle=-20, color=Col1){E:Cowl(angle=-92, option=3, color=Col1){}W:Cowl(angle=-92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=110, color=Col1){E:Cowl(angle=92, option=3, color=Col1){}W:Cowl(angle=92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}
      E:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}
      W:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}}}
      S:Cowl(angle=-30, option=5, color=#303030){}

      S:Frame(option=1){
      S:RLW(name=ENG21, angle=-90, power=Engine2, brake=EB2){N:Trim(angle=-Prop2, color=#300000){}S:Trim(angle=-Prop2, color=#300000){}

      N:Cowl(angle=-120, option=5, color=#000000){}
      S:Cowl(angle=-120, option=5, color=#000000){}
      E:Cowl(angle=-120, option=5, color=#300000){}
      W:Cowl(angle=-120, option=5, color=#300000){}}

      S:RLW(name=ENG22, angle=-90, power=-Engine2, brake=EB2){N:Trim(angle=Prop2, color=#300000){}S:Trim(angle=Prop2, color=#300000){}

      N:Cowl(angle=120, option=5, color=#300000){}
      S:Cowl(angle=120, option=5, color=#300000){}
      E:Cowl(angle=120, option=5, color=#000000){}
      W:Cowl(angle=120, option=5, color=#000000){}}

      S:Jet(angle=-90, power=Ex2, effect=Smoke){}}

      W:Frame(angle=Gear3, option=1){E:RudderF(angle=Gear1, option=1){W:Frame(option=1){

      E:Cowl(angle=160, color=Col2){E:Cowl(color=Col2){}}

      W:RudderF(angle=-Gear1, option=1){
      N:Jet(option=2, power=Infl, color=Col1C){N:Jet(option=2, power=Infl, color=Col1C){}S:Jet(option=2, power=Infl, color=Col1C){}}}
      W:Frame(option=1){W:Chip(angle=Gear2, color=Col2C){}}}}}
      E:Chip(name=EW, color=Col2C){

      E:Cowl(color=Col2){E:Cowl(option=3, color=Col2){}}

      S:Chip(angle=RollE, color=Col1C){E:Chip(color=Col1C){E:Chip(color=Col1C){}}}}}}
      W:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}
      W:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}

      N:Cowl(angle=-20, color=Col1){E:Cowl(angle=-92, option=3, color=Col1){}W:Cowl(angle=-92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=110, color=Col1){E:Cowl(angle=92, option=3, color=Col1){}W:Cowl(angle=92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}
      E:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}
      W:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}}}
      S:Cowl(angle=-30, option=5, color=#303030){}

      S:Frame(option=1){
      S:RLW(name=ENG11, angle=-90, power=-Engine1, brake=EB1){N:Trim(angle=Prop1, color=#300000){}S:Trim(angle=Prop1, color=#300000){}

      N:Cowl(angle=-120, option=5, color=#000000){}
      S:Cowl(angle=-120, option=5, color=#000000){}
      E:Cowl(angle=-120, option=5, color=#300000){}
      W:Cowl(angle=-120, option=5, color=#300000){}}

      S:RLW(name=ENG12, angle=-90, power=Engine1, brake=EB1){N:Trim(angle=-Prop1, color=#300000){}S:Trim(angle=-Prop1, color=#300000){}

      N:Cowl(angle=120, option=5, color=#300000){}
      S:Cowl(angle=120, option=5, color=#300000){}
      E:Cowl(angle=120, option=5, color=#000000){}
      W:Cowl(angle=120, option=5, color=#000000){}}

      S:Jet(angle=-90, power=Ex1, effect=Smoke){}}

      E:Frame(angle=Gear3, option=1){W:RudderF(angle=-Gear1, option=1){E:Frame(option=1){

      W:Cowl(angle=160, color=Col2){W:Cowl(color=Col2){}}

      E:RudderF(angle=Gear1, option=1){
      N:Jet(option=2, power=Infl, color=Col1C){N:Jet(option=2, power=Infl, color=Col1C){}S:Jet(option=2, power=Infl, color=Col1C){}}}
      E:Frame(option=1){E:Chip(angle=Gear2, color=Col2C){}}}}}
      W:Chip(name=WW, color=Col2C){

      W:Cowl(color=Col2){W:Cowl(option=4, color=Col2){}}

      S:Chip(angle=RollW, color=Col1C){W:Chip(color=Col1C){W:Chip(color=Col1C){}}}}
      }}}}
      S:Frame(option=1){S:Frame(option=1){

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=90, color=Col1){N:Cowl(angle=10, color=Col1){}}
      S:Cowl(angle=90, color=Col1){S:Cowl(angle=10, color=Col1){}N:Cowl(angle=45, color=Col1){}}
      E:Cowl(angle=90, color=Col2){E:Cowl(angle=10, color=Col2){}W:Cowl(option=3, color=Col2){}}
      W:Cowl(angle=90, color=Col2){W:Cowl(angle=10, color=Col2){}E:Cowl(option=4, color=Col2){}}}

      S:Frame(option=1){

      N:Cowl(angle=180, color=Col1){}
      S:Cowl(color=Col1){E:Cowl(option=3, color=Col2){}W:Cowl(option=4, color=Col2){}}

      S:Frame(name=Tail, option=1){S:TrimF(angle=-90, option=1){
      N:RudderF(angle=Gear3, option=1){

      N:Cowl(angle=180, option=5, color=Col2){}

      N:RudderF(angle=-Gear4, option=1){

      S:Cowl(angle=178, option=5, color=Col2){}
      S:Cowl(angle=-178, option=5, color=Col2){}

      E:Chip(angle=Gear2, color=Col2C){}E:Chip(angle=-Gear2, color=Col2C){}}}}
      S:Chip(angle=Pitch, color=Col1C){E:Chip(color=Col1C){E:Chip(color=Col1C){}}W:Chip(color=Col1C){W:Chip(color=Col1C){}}}
      E:Frame(option=1){E:Frame(angle=-90, option=1){S:Chip(angle=Yaw, color=Col1C){W:Chip(color=Col1C){}}}}
      W:Frame(option=1){W:Frame(angle=-90, option=1){S:Chip(angle=-Yaw, color=Col1C){E:Chip(color=Col1C){}}}}}}}}}}
}}

Script(){

   print 0,"Cleared to Proceed, ANALOG CONTROLLED"
   print 1,"3P RULE!"
   print 2,"Power at ", (Throttle+(Chocke1+Chocke2)/2)/2000,"%"
   print 3,"Speed: ", _VEL()*3600/1852," knots, ",_VEL()," m/s"
   print 4,"RPM 1: ",_ABS(_WY(ENG11)-_WY(ENG12))*5," RPM 2: ",_ABS(_WY(ENG21)-_WY(ENG22))*5
   print 5,"Head, L/R: ",ViewA," , U/D: ",ViewB
   print 6,"Mass: ",_WEIGHT()," kg, Fuel:",_FUEL()
   print 7,"Fuel LVL: ",_FUEL()/775000,"%"
   print 8,"Heading: ",_TODEG(_AY(Nose))

   print 14,"Max Speed: 145 kts"
   print 15,"Route Home: ",90-_TODEG(_ATAN2(_Z(), _X()))
   print 16,"Distance Home: ", _LEN2(_Z(),_X()), " m"
   print 9,"Trim: ",Trim,", Rudd: ",Rudd

   print 21,"Z,X to start/stop Engines"
   print 22,"A/D for Yaw, W/S to adjust trim with Auto Level"
   print 23,"V for Flaps, F for Gear"
   print 24,"G to toggle Auto Level, B to toggle Altitude Hold Autopilot"
   print 25,"Arrow keys to look around!"

   RollE=_ANALOG(0)/40
   RollW=-_ANALOG(0)/40
   Pbar=_ANALOG(1)/40
   Throttle=(_ANALOG(2)+1000)*99

   SO1=_MOD(SO1+_KEYDOWN(4),2)
   SO2=_MOD(SO2+_KEYDOWN(5),2)
   Prop1=45+_VEL()/(9-Gear-Flap)*2+Feat1
   Prop2=45+_VEL()/(9-Gear-Flap)*2+Feat2

   if SO1=(1){
   Chocke1=2000
   Engine1=Throttle+Chocke1
   Feat1=Feat1-1/3
   Ex1=100}

   if SO1=(0){
   Chocke1=0
   Engine1=0
   Feat1=Feat1+1/3
   EB1=EB1+1/10
   Ex1=0}

   if SO2=(1){
   Chocke2=2000
   Engine2=Throttle+Chocke2
   Feat2=Feat2-1/3
   Ex2=100}

   if SO2=(0){
   Chocke2=0
   Engine2=0
   Feat2=Feat2+1/3
   EB2=EB2+1/10
   Ex2=0}

   ALVL=_MOD(ALVL+_KEYDOWN(13),2)
   AALT=_MOD(AALT+_KEYDOWN(11),2)

   if ALVL=(0){
   Pitch=Pbar
   Trim=_TODEG(_AX(Nose))}

   Flap=_MOD(Flap+_KEYDOWN(10),2)

   if Flap=(0){
   FLP=FLP+1/2}

   if Flap=(1){
   FLP=FLP-1/2}

   if _VEL()>(15){
   Infl=Infl-10}

   Gear=_MOD(Gear+_KEYDOWN(12),2)

   if Gear=(0){
   Gear1=Gear1+1
   Gear2=Gear2-3
   Gear3=Gear3+5/2
   Gear4=Gear4+5/2
   Ster=Yaw}

   if Gear=(1){
   Gear1=Gear1-1
   Gear2=Gear2+3
   Gear3=Gear3-5/2
   Gear4=Gear4-5/2
   Ster=0
   BRK=BRK+1}

   if ALVL=(1) & AALT=(0){
   Yaw=Rudd
   Pitch=-Trim+_TODEG(_AX(Nose))
   RollE=-_TODEG(_AZ(Nose))-Yaw*4-_VY(EW)
   RollW=_TODEG(_AZ(Nose))+Yaw*4-_VY(WW)
   print 12,"AUTO LEVEL ON"}

   if AALT=(0){
   Ypar=_Y(Control)}

   if ALVL=(1){
   Yaw=Rudd
   RollE=-_TODEG(_AZ(Nose))-Yaw*2-_VY(EW)
   RollW=_TODEG(_AZ(Nose))+Yaw*2-_VY(WW)
   print 12,"AUTO LEVEL ON"}

   if ALVL=(1) & AALT=(1) & _ABS(Ypar-_Y())<20{
   Ypar=Ypar+Trim/100
   Pitch=((_Y())-(Ypar+13))+_TODEG(_AX(Nose))+(_VY(Nose)-_VY(Tail))
   print 13,"AUTO ALTITUDE ON, FL: ", Ypar," m"}

   if ALVL=(1) & AALT=(1) & Ypar-_Y()>20{
   Ypar=Ypar+Trim/100
   Pitch=-33+_TODEG(_AX(Nose))+(_VY(Nose)-_VY(Tail))
   print 13,"AUTO ALTITUDE ON, FL: ", Ypar," m"}

   if ALVL=(1) & AALT=(1) & Ypar-_Y()<(-20){
   Ypar=Ypar+Trim/100
   Pitch=33+_TODEG(_AX(Nose))+(_VY(Nose)-_VY(Tail))
   print 13,"AUTO ALTITUDE ON, FL: ", Ypar," m"}

   if ALVL=(1) & _KEY(9)>0{
   Rudd=Rudd+1/4}

   if ALVL=(1) & _KEY(7)>0{
   Rudd=Rudd-1/4}

   if ALVL=(1) & _KEY(15)>0{
   Trim=Trim-1/2}

   if ALVL=(1) & _KEY(8)>0{
   Trim=Trim+1/2}

   if ALVL=(0){
   Rudd=0
   print 12,"AUTO LEVEL OFF"}

   if Throttle>(0){
   Smoke=1}

   if Throttle>(100000){
   Smoke=2}

   if Throttle>(150000){
   Smoke=3}

   if Throttle>(180000){
   Smoke=4}

   if _KEY(11)>(0){
   Trim=0}

   if Throttle>(170000) & SO1=(1) | SO2=(1){
   Timer=Timer+1/2}

   if Throttle>(178000) & SO1=(1) | SO2=(1){
   Timer=Timer+1}

   if Throttle>(190000) & SO1=(1) | SO2=(1){
   Timer=Timer+2}

   if Throttle<(170000){
   Timer=0}

   if Timer>(21){
   print 11,"POSSIBLE PROPELLER FAILURE!!!"}

   if Timer<(21) & Timer >(0){
   print 10,"CAUTION!!! ENGINE OVERHEATING!!!"}

   if Timer>=(41){
   Timer=1}

   if _ABS(_WY(ENG11)-_WY(ENG12))>=(170) | _ABS(_WY(ENG11)-_WY(ENG12))<=(1) & SO1=(1){
   Timer=0
   print 19,"ENGINE 1 FAILURE DETECTED!"}

   if _ABS(_WY(ENG21)-_WY(ENG22))>=(170) | _ABS(_WY(ENG21)-_WY(ENG22))<=(1) & SO2=(1){
   Timer=0
   print 20,"ENGINE 2 FAILURE DETECTED!"}

   if Feat1>(0){
   print 17,"Propeller 1, Feather Position! Caution!"}

   if Feat2>(0){
   print 18,"Propeller 2, Feather Position! Caution!"}

}


This is the R-76C; it is almost the same plane, but if you climb to 500m, the exhaust will have a major contribution in thrust, making it a turboprop.

Code:


Val
{
   RollE(default=0,min=-25,max=25,step=4)
   RollW(default=0,min=-25,max=25,step=4)
   ViewA(default=0,min=-180,max=180)
   ViewB(default=0,min=-15,max=15)
   PBar(default=0,min=-30,max=30,step=4)
   Pitch(default=0,min=-30,max=30)
   Yaw(default=0, min=-20, max=20, step=2)
   Rudd(default=0, min=-20, max=20, step=0)
   Ster(default=0, min=-20, max=20)
   Trim(default=0, min=-360, max=360, step=0)
   TailE(default=0, min=-50, max=50)
   TailW(default=0, min=-50, max=50)
   Throttle(default=0, min=0, max=198000, step=0)
   Engine1(default=0, min=0, max=200000, step=0)
   Chocke1(default=0, min=0, max=2000, step=0)
   Engine2(default=0, min=0, max=200000, step=0)
   Chocke2(default=0, min=0, max=2000, step=0)
   Prop1(default=45, min=45, max=90)
   Feat1(default=45, min=0, max=45)
   Prop2(default=45, min=45, max=90)
   Feat2(default=45, min=0, max=45)
   SO1(default=0)
   SO2(default=0)
   Gear(default=0, min=0, max=1, step=0)
   Gear1(default=30, min=0, max=30)
   Gear2(default=40, min=-90, max=40)
   Gear3(default=90, min=0, max=90)
   Gear4(default=120, min=0, max=120)
   Flap(default=0)
   FLP(default=30, min=0, max=30)
   ALVL(default=0, min=0, max=1, step=0)
   AALT(default=0, min=0, max=1, step=0)
   EB1(max=10)
   EB2(max=10)
   Ypar(default=0)
   BRK(default=0, min=0, max=200, step=200)
   ABR(default=180, min=135, max=180, step=3)
   EX1(default=0, min=0, max=20000)
   EX2(default=0, min=0, max=20000)
   Smoke(default=1, min=1, max=4)
   Col1(default=#000000)
   Col1C(default=#000000)
   Col2(default=#250000)
   Col2C(default=#300000)
   Timer()

   
}

Key
{
   7:Yaw(step=-2)
   9:Yaw(step=2)
   2:ViewA(step=5)
   3:ViewA(step=-5)
   0:ViewB(step=-1)
   1:ViewB(step=1)
   16:BRK(step=10)
   
}

Body {
   Core(){

      N:Frame(angle=ViewB, option=1){S:RudderF(angle=ViewA, option=1){
      S:Frame(angle=160, option=1){S:Frame(angle=-160, option=1){

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=90, color=Col1){}
      S:Cowl(angle=90, color=Col1){N:Cowl(angle=46, color=Col1){}}
      E:Cowl(angle=90, color=Col2){W:Cowl(option=3, color=Col2){}}
      W:Cowl(angle=90, color=Col2){E:Cowl(option=4, color=Col2){}}}

      N:Frame(option=1){

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=90, color=Col1){}
      S:Cowl(angle=90, color=Col1){}
      E:Cowl(angle=90, color=Col2){}
      W:Cowl(angle=90, color=Col2){}}

      N:Weight(option=3, color=Col1C){

      S:Cowl(angle=-45, effect=#a000){S:Cowl(angle=45, color=Col1){
      E:Cowl(angle=91, effect=#a000){N:Cowl(option=3, effect=#a000){}}
      W:Cowl(angle=91, effect=#a000){N:Cowl(option=4, effect=#a000){}}
      S:Cowl(color=Col1){E:Cowl(angle=91, effect=#a000){}W:Cowl(angle=91, effect=#a000){}
      S:Cowl(angle=45, effect=#a000){E:Cowl(angle=91, option=3, color=Col2){}W:Cowl(angle=91, option=4, color=Col2){}}}}}
      S:Cowl(angle=90, option=1){
      S:Cowl(angle=90, color=Col1){}
      E:Cowl(angle=90, color=Col2){}
      W:Cowl(angle=90, color=Col2){}}

      N:Weight(option=2, color=Col1C){

      S:Cowl(angle=90, option=1){
      S:Cowl(angle=90, color=Col1){}
      E:Cowl(angle=90, color=Col2){}
      W:Cowl(angle=90, color=Col2){}}

      N:Frame(name=Nose, option=1){S:TrimF(angle=90, option=1){W:RudderF(angle=Gear2, option=1){
      W:TrimF(angle=Ster, option=1){

      E:Cowl(option=3, color=Col1){}

      S:Wheel(angle=180, brake=Gear){}}}}

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=120, color=Col1){E:Cowl(angle=91, option=3, color=Col2){}W:Cowl(angle=91, option=4, color=Col2){}}
      S:Cowl(angle=120, color=Col1){E:Cowl(angle=91, option=4, color=Col2){}W:Cowl(angle=91, option=3, color=Col2){}}}

      S:Chip(angle=FLP){}}}}}
      E:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}
      E:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}

      N:Cowl(angle=-20, color=Col1){E:Cowl(angle=-92, option=3, color=Col1){}W:Cowl(angle=-92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=110, color=Col1){E:Cowl(angle=92, option=3, color=Col1){}W:Cowl(angle=92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}
      E:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}
      W:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}}}
      S:Cowl(angle=-30, option=5, color=#303030){}

      S:Frame(option=1){
      S:RLW(name=ENG11, angle=-90, power=Engine2, brake=EB2){N:Trim(angle=-Prop2, color=#300000){}S:Trim(angle=-Prop2, color=#300000){}

      N:Cowl(angle=-120, option=5, color=#000000){}
      S:Cowl(angle=-120, option=5, color=#000000){}
      E:Cowl(angle=-120, option=5, color=#300000){}
      W:Cowl(angle=-120, option=5, color=#300000){}}

      S:RLW(name=ENG12, angle=-90, power=-Engine2, brake=EB2){N:Trim(angle=Prop2, color=#300000){}S:Trim(angle=Prop2, color=#300000){}

      N:Cowl(angle=110, option=5, color=#300000){}
      S:Cowl(angle=110, option=5, color=#300000){}
      E:Cowl(angle=110, option=5, color=#000000){}
      W:Cowl(angle=110, option=5, color=#000000){}}

      S:Jet(angle=-90, power=Ex2, effect=Smoke){}}
      W:Frame(angle=Gear3, option=1){E:RudderF(angle=-Gear1, option=1){W:Frame(option=1){

      E:Cowl(angle=180, option=5, color=Col1){}

      W:Wheel(brake=BRK, effect=2){}}}}
      E:Chip(name=EW, color=Col2C){

      E:Cowl(color=Col2){E:Cowl(option=3, color=Col2){}}

      S:Chip(angle=RollE, color=Col1C){E:Chip(color=Col1C){E:Chip(color=Col1C){}}}}}}
      W:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}
      W:Chip(color=Col2C){S:Chip(angle=FLP, color=Col1C){}

      N:Cowl(angle=-20, color=Col1){E:Cowl(angle=-92, option=3, color=Col1){}W:Cowl(angle=-92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=110, color=Col1){E:Cowl(angle=92, option=3, color=Col1){}W:Cowl(angle=92, option=4, color=Col1){}}
      N:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}
      E:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}
      W:Cowl(angle=-90, color=Col1){N:Cowl(angle=-30, option=5, color=#303030){}}}}
      S:Cowl(angle=-30, option=5, color=#303030){}

      S:Frame(option=1){
      S:RLW(name=ENG21, angle=-90, power=-Engine1, brake=EB1){N:Trim(angle=Prop1, color=#300000){}S:Trim(angle=Prop1, color=#300000){}

      N:Cowl(angle=-120, option=5, color=#000000){}
      S:Cowl(angle=-120, option=5, color=#000000){}
      E:Cowl(angle=-120, option=5, color=#300000){}
      W:Cowl(angle=-120, option=5, color=#300000){}}

      S:RLW(name=ENG22, angle=-90, power=Engine1, brake=EB1){N:Trim(angle=-Prop1, color=#300000){}S:Trim(angle=-Prop1, color=#300000){}

      N:Cowl(angle=110, option=5, color=#300000){}
      S:Cowl(angle=110, option=5, color=#300000){}
      E:Cowl(angle=110, option=5, color=#000000){}
      W:Cowl(angle=110, option=5, color=#000000){}}

      S:Jet(angle=-90, power=Ex1, effect=Smoke){}}
      E:Frame(angle=Gear3, option=1){W:RudderF(angle=Gear1, option=1){E:Frame(option=1){

      W:Cowl(angle=180, option=5, color=Col1){}

      E:Wheel(brake=BRK, effect=2){}}}}
      W:Chip(name=WW, color=Col2C){

      W:Cowl(color=Col2){W:Cowl(option=4, color=Col2){}}

      S:Chip(angle=RollW, color=Col1C){W:Chip(color=Col1C){W:Chip(color=Col1C){}}}}
      }}}}
      S:Frame(option=1){S:Frame(option=1){

      S:Cowl(angle=90, option=1){
      N:Cowl(angle=90, color=Col1){N:Cowl(angle=10, color=Col1){}}
      S:Cowl(angle=90, color=Col1){S:Cowl(angle=10, color=Col1){}N:Cowl(angle=45, color=Col1){}}
      E:Cowl(angle=90, color=Col2){E:Cowl(angle=10, color=Col2){}W:Cowl(option=3, color=Col2){}}
      W:Cowl(angle=90, color=Col2){W:Cowl(angle=10, color=Col2){}E:Cowl(option=4, color=Col2){}}}

      S:Frame(option=1){

      N:Cowl(angle=180, color=Col1){}
      S:Cowl(color=Col1){E:Cowl(option=3, color=Col2){}W:Cowl(option=4, color=Col2){}}

      S:Frame(name=Tail, option=1){
      S:Chip(angle=Pitch, color=Col1C){E:Chip(color=Col1C){E:Chip(color=Col1C){}}W:Chip(color=Col1C){W:Chip(color=Col1C){}}}
      E:Frame(option=1){E:Frame(angle=-90, option=1){S:Chip(angle=Yaw, color=Col1C){W:Chip(color=Col1C){}}}}
      W:Frame(option=1){W:Frame(angle=-90, option=1){S:Chip(angle=-Yaw, color=Col1C){E:Chip(color=Col1C){}}}}}}}}}}
}}

Script(){

   print 0,"Cleared to Proceed, ANALOG CONTROLLED"
   print 1,"3P RULE!"
   print 2,"Power at ", (Throttle+(Chocke1+Chocke2)/2)/2000,"%"
   print 3,"Speed: ", _VEL()*3600/1852," knots, ",_VEL()," m/s"
   print 4,"RPM 1: ",_ABS(_WY(ENG11)-_WY(ENG12))*5," RPM 2: ",_ABS(_WY(ENG21)-_WY(ENG22))*5
   print 5,"Head, L/R: ",ViewA," , U/D: ",ViewB
   print 6,"Mass: ",_WEIGHT()," kg, Fuel:",_FUEL()
   print 7,"Fuel LVL: ",_FUEL()/775000,"%"
   print 8,"Heading: ",_TODEG(_AY(Nose))

   print 15,"Route Home: ",90-_TODEG(_ATAN2(_Z(), _X()))
   print 16,"Distance Home: ", _LEN2(_Z(),_X()), " m"
   print 9,"Trim: ",Trim,", Rudd:

   print 21,"Z,X to start/stop Engines"
   print 22,"A/D for Yaw, W/S to adjust trim with Auto Level"
   print 23,"V for Flaps, F for Gear"
   print 24,"G to toggle Auto Level, B to toggle Altitude Hold Autopilot"
   print 25,"Arrow keys to look around!"

   RollE=_ANALOG(0)/40
   RollW=-_ANALOG(0)/40
   Pbar=_ANALOG(1)/40
   Throttle=(_ANALOG(2)+1000)*99

   SO1=_MOD(SO1+_KEYDOWN(4),2)
   SO2=_MOD(SO2+_KEYDOWN(5),2)
   Prop1=45+_VEL()/(9-Gear-Flap)*2+Feat1
   Prop2=45+_VEL()/(9-Gear-Flap)*2+Feat2

   if SO1=(1){
   Chocke1=2000
   Engine1=Throttle+Chocke1
   Feat1=Feat1-1/3
   Ex1=(Throttle+Chocke1)/(5+_ABS(105-_VEL())/20+_ABS(500-_Y()))}

   if SO1=(0){
   Chocke1=0
   Engine1=0
   Feat1=Feat1+1/3
   EB1=EB1+1/10
   Ex1=0}

   if SO2=(1){
   Chocke2=2000
   Engine2=Throttle+Chocke2
   Feat2=Feat2-1/3
   Ex2=(Throttle+Chocke2)/(5+_ABS(105-_VEL())/20+_ABS(500-_Y()))}

   if SO2=(0){
   Chocke2=0
   Engine2=0
   Feat2=Feat2+1/3
   EB2=EB2+1/10
   Ex2=0}

   ALVL=_MOD(ALVL+_KEYDOWN(13),2)
   AALT=_MOD(AALT+_KEYDOWN(11),2)

   if ALVL=(0){
   Pitch=Pbar
   Trim=_TODEG(_AX(Nose))}

   Flap=_MOD(Flap+_KEYDOWN(10),2)

   if Flap=(0){
   FLP=FLP+1/2}

   if Flap=(1){
   FLP=FLP-1/2}

   Gear=_MOD(Gear+_KEYDOWN(12),2)

   if Gear=(0){
   Gear1=Gear1+1
   Gear2=Gear2+3
   Gear3=Gear3+5/2
   Gear4=Gear4+5/2
   Ster=Yaw}

   if Gear=(1){
   Gear1=Gear1-1
   Gear2=Gear2-3
   Gear3=Gear3-5/2
   Gear4=Gear4-5/2
   Ster=0
   BRK=BRK+1}

   if ALVL=(1) & AALT=(0){
   Yaw=Rudd
   Pitch=-Trim+_TODEG(_AX(Nose))
   RollE=-_TODEG(_AZ(NOse))-Yaw*4-_VY(EW)
   RollW=_TODEG(_AZ(Nose))+Yaw*4-_VY(WW)
   print 12,"AUTO LEVEL ON"}

   if AALT=(0){
   Ypar=_Y(Control)}

   if ALVL=(1){
   Yaw=Rudd
   RollE=-_TODEG(_AZ(Nose))-Yaw*2-_VY(EW)
   RollW=_TODEG(_AZ(Nose))+Yaw*2-_VY(WW)
   print 12,"AUTO LEVEL ON"}

   if ALVL=(1) & AALT=(1) & _ABS(Ypar-_Y())<20{
   Ypar=Ypar+Trim/100
   Pitch=((_Y())-(Ypar+13))+_TODEG(_AX(Nose))+(_VY(Nose)-_VY(Tail))
   print 13,"AUTO ALTITUDE ON, FL: ", Ypar," m"}

   if ALVL=(1) & AALT=(1) & Ypar-_Y()>20{
   Ypar=Ypar+Trim/100
   Pitch=-33+_TODEG(_AX(Nose))+(_VY(Nose)-_VY(Tail))
   print 13,"AUTO ALTITUDE ON, FL: ", Ypar," m"}

   if ALVL=(1) & AALT=(1) & Ypar-_Y()<(-20){
   Ypar=Ypar+Trim/100
   Pitch=33+_TODEG(_AX(Nose))+(_VY(Nose)-_VY(Tail))
   print 13,"AUTO ALTITUDE ON, FL: ", Ypar," m"}
   if ALVL=(1) & _KEY(9)>0{
   Rudd=Rudd+1/4}

   if ALVL=(1) & _KEY(7)>0{
   Rudd=Rudd-1/4}

   if ALVL=(1) & _KEY(15)>0{
   Trim=Trim-1/2}

   if ALVL=(1) & _KEY(8)>0{
   Trim=Trim+1/2}

   if ALVL=(0){
   Rudd=0
   print 12,"AUTO LEVEL OFF"}

   if Throttle>(0){
   Smoke=1}

   if Throttle>(100000){
   Smoke=2}

   if Throttle>(150000){
   Smoke=3}

   if Throttle>(180000){
   Smoke=4}

   if _KEY(11)>(0){
   Trim=0}

   if Throttle>(170000) & SO1=(1) | SO2=(1){
   Timer=Timer+1/2}

   if Throttle>(178000) & SO1=(1) | SO2=(1){
   Timer=Timer+1}

   if Throttle>(190000) & SO1=(1) | SO2=(1){
   Timer=Timer+2}

   if Throttle<(170000){
   Timer=0}

   if Timer>(21){
   print 11,"POSSIBLE PROPELLER FAILURE!!!"}

   if Timer<(21) & Timer >(0){
   print 10,"CAUTION!!! ENGINE OVERHEATING!!!"}

   if Timer>=(41){
   Timer=1}

   if _ABS(_WY(ENG11)-_WY(ENG12))>=(170) | _ABS(_WY(ENG11)-_WY(ENG12))<=(1) & SO1=(1){
   Timer=0
   print 19,"ENGINE 1 FAILURE DETECTED!"}

   if _ABS(_WY(ENG21)-_WY(ENG22))>=(170) | _ABS(_WY(ENG21)-_WY(ENG22))<=(1) & SO2=(1){
   Timer=0
   print 20,"ENGINE 2 FAILURE DETECTED!"}

   if Feat1>(0){
   print 17,"Propeller 1, Feather Position! Caution!"}

   if Feat2>(0){
   print 18,"Propeller 2, Feather Position! Caution!"}

}

avatar
Echo_Delta_Oscar
Hover
Hover

Posts : 105
Join date : 2011-03-24

View user profile

Back to top Go down

View previous topic View next topic Back to top


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