Basic4GL Bikin Truk Pemadam Kebakaran 3D Dengan Banyak Tombol Bergerak

    

sub bemper()
     glBegin(GL_QUADS)
   
     glColor3f(1,1,1)
     glVertex3f(0.0,1.0,0.0)
     glVertex3f(2.0,3.0,0.0)
     glVertex3f(2.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(0.0,0.0,-4.0)
     glVertex3f(2.0,0.0,-4.0)
     glVertex3f(2.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)

     glVertex3f(0.0,1.0,-4.0)
     glVertex3f(2.0,3.0,-4.0)
     glVertex3f(2.0,0.0,-4.0)
     glVertex3f(0.0,0.0,-4.0)
    
     glColor3f(1,0,0)
     glVertex3f(0.0,1.0,-4.0)
     glVertex3f(2.0,3.0,-4.0)
     glVertex3f(2.0,3.0,0.0)
     glVertex3f(0.0,1.0,0.0)                     

     glColor3f(1,0,0)
     glVertex3f(0.0,0.0,-4.0)    
     glVertex3f(0.0,1.0,-4.0)
     glVertex3f(0.0,1.0,0.0)                 
     glVertex3f(0.0,0.0,0.0)


    
     glEnd()
     end sub
    
     sub pintu()
     glBegin(GL_QUADS)
    
     glColor3f(1,1,1)
     glVertex3f(0.0,4.0,0.0)
     glVertex3f(4.0,5.0,0.0)
     glVertex3f(4.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(0.0,0.0,-4.0)
     glVertex3f(4.0,0.0,-4.0)
     glVertex3f(4.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     'glColor3f(1,0,0)
     glVertex3f(4.0,4.0,-4.0)
     glVertex3f(4.0,5.0,-4.0)
     glVertex3f(4.0,0.0,-4.0)
     glVertex3f(0.0,0.0,-4.0)
    
     glColor3f(1,0,0)
     glVertex3f(0.0,4.0,-4.0)
     glVertex3f(4.0,5.0,-4.0)
     glVertex3f(4.0,5.0,0.0)
     glVertex3f(0.0,4.0,0.0)
    
     glColor3f(1,1,1)
     glVertex3f(0.0,0.0,-4.0)
     glVertex3f(0.0,4.0,-4.0)
     glVertex3f(0.0,4.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(4.0,5.0,0.0)
     glVertex3f(4.0,5.0,-4.0)
     glVertex3f(4.0,0.0,-4.0)
     glVertex3f(4.0,0.0,0.0)
     glEnd()
     end sub           
    
     sub cerobong()
     glBegin(GL_QUADS)
    glColor3f(1,0,0)
    
     glVertex3f(0.0,0.5,0.0)
     glVertex3f(5.0,0.5,0.0)
     glVertex3f(5.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(0.0,0.0,-1)
     glVertex3f(5.0,0.0,-1)
     glVertex3f(5.0,0.0,0.0)   
     glVertex3f(0.0,0.0,0.0)

     glVertex3f(0.0,0.5,-1)
     glVertex3f(5.0,0.5,-1)
     glVertex3f(5.0,0.0,-1)
     glVertex3f(0.0,0.0,-1)

     glVertex3f(0.0,0.5,-1)
     glVertex3f(5.0,0.5,-1)
     glVertex3f(5.0,0.5,0.0)
     glVertex3f(0.0,0.5,0.0)

     glVertex3f(0.0,0.0,-1)
     glVertex3f(0.0,0.5,-1)
     glVertex3f(0.0,0.5,0.0)   
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(5.0,0.5,0.0)
     glVertex3f(5.0,0.5,-1)
     glVertex3f(5.0,0.0,-1)
     glVertex3f(5.0,0.0,0.0)
                          
     glVertex3f(5.0,0.0,-0.5)                     
     glVertex3f(5.0,0.0,-0.5)                     
     glVertex3f(5.0,0.5,0.0)
     glVertex3f(5.0,0.0,0.0)
    
     glEnd()
     end sub
    

     sub mesin1()
     glBEgin(GL_QUADS) 
     glColor3f(1,1,1)  

     glVertex3f(0.0,2.0,0.0)
     glVertex3f(6.0,2.0,0.0)
     glVertex3f(6.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
                           
     glVErtex3f(0.0,0.0,-4.0)
     glVertex3f(6.0,0.0,-4.0)
     glVertex3f(6.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(0.0,2.0,-4.0)
     glVertex3f(6.0,2.0,-4.0)
     glVertex3f(6.0,0.0,-4.0)
     glVertex3f(0.0,0.0,-4.0)
    
     glVertex3f(0.0,2.0,-4.0)
     glVertex3f(6.0,2.0,-4.0)
     glVertex3f(6.0,2.0,0.0)
     glVertex3f(0.0,2.0,0.0)
    
    
     glVertex3f(6.0,2.0,0.0)
     glVertex3f(6.0,2.0,-4.0)
     glVertex3f(6.0,0.0,-4.0)
     glVertex3f(6.0,0.0,0.0)

     glEnd()
     end sub
    
    
     sub mesin2 ()
     glBegin(GL_QUADS)
    
     glVertex3f(0.0,1.0,0.0)
     glVertex3f(9.0,1.0,0.0)
     glVertex3f(9.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
                           
     glVErtex3f(0.0,0.0,-2.0)
     glVertex3f(9.0,0.0,-2.0)
     glVertex3f(9.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(0.0,1.0,-2.0)
     glVertex3f(9.0,1.0,-2.0)
     glVertex3f(9.0,0.0,-2.0)
     glVertex3f(0.0,0.0,-2.0)
    
     glVertex3f(0.0,1.0,-2.0)
     glVertex3f(9.0,1.0,-2.0)
     glVertex3f(9.0,1.0,0.0)
     glVertex3f(0.0,1.0,0.0)
    
     glVertex3f(0.0,0.0,-2.0)
     glVertex3f(0.0,1.0,-2.0)
     glVertex3f(0.0,1.0,0.0)
     glVertex3f(0.0,0.0,0.0)

     glVertex3f(9.0,1.0,0.0)
     glVertex3f(9.0,1.0,-2.0)
     glVertex3f(9.0,0.0,-2.0)
     glVertex3f(9.0,0.0,0.0)
    
     glEnd()
     end sub
    
     sub roda(heh#)
     glBegin(GL_QUADS)
     glColor3f(1,0,0)  
         
     glVertex3f(0.0,heh#,0.0)
     glVertex3f(heh#,heh#,0.0)
     glVertex3f(heh#,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
                           
     glVErtex3f(0.0,0.0,-0.5)
     glVertex3f(heh#,0.0,-0.5)
     glVertex3f(heh#,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(0.0,heh#,-0.5)
     glVertex3f(heh#,heh#,-0.5)
     glVertex3f(heh#,0.0,-0.5)
     glVertex3f(0.0,0.0,-0.5)
    
     glVertex3f(0.0,heh#,-0.5)
     glVertex3f(heh#,heh#,-0.5)
     glVertex3f(heh#,heh#,0.0)
     glVertex3f(0.0,heh#,0.0)
    
     glVertex3f(0.0,0.0,-0.5)
     glVertex3f(0.0,heh#,-0.5)
     glVertex3f(0.0,heh#,0.0)
     glVertex3f(0.0,0.0,0.0)

     glVertex3f(heh#,heh#,0.0)
     glVertex3f(heh#,heh#,-0.5)
     glVertex3f(heh#,0.0,-0.5)
     glVertex3f(heh#,0.0,0.0)
    
     glEnd()
     end sub
    
    
     sub gandeng()
     glColor3f(1,0,0)  
     glBegin(GL_QUADS)
     glVertex3f(0.0,0.5,2.0)
     glVertex3f(1.0,0.5,2.0)
     glVertex3f(1.0,0.0,2.0)
     glVertex3f(0.0,0.0,2.0)
    
     glVertex3f(0.0,0.0,-2.0)
     glVertex3f(1.0,0.0,-2.0)
     glVertex3f(1.0,0.0,2.0)
     glVertex3f(0.0,0.0,2.0)
    
    
     glVertex3f(0.0,0.5,-2.0)
     glVertex3f(1.0,0.5,-2.0)
     glVertex3f(1.0,0.0,-2.0)
     glVertex3f(0.0,0.0,-2.0)
    
     glVertex3f(0.0,0.5,2.0)
     glVertex3f(0.0,0.5,-2.0)
     glVertex3f(0.0,0.0,-2.0)
     glVertex3f(0.0,0.0,2.0)
    
     glVertex3f(1.0,0.5,2.0)
     glVertex3f(1.0,0.5,-2.0)
     glVertex3f(1.0,0.0,-2.0)
     glVertex3f(1.0,0.0,2.0)
     glEnd()
     end sub
    
     sub box()
     glBegin(GL_QUADS)
     glColor3f(1,1,1)                  
     glVertex3f(-24.0,6.0,0.0)
     glVertex3f(0.0,6.0,0.0)
     glVertex3f(0.0,0.0,0.0)
     glVertex3f(-24.0,0.0,0.0)
     
          glColor3f(1,1,1)
     glVertex3f(-24.0,0.0,-5.0)
     glVertex3f(0.0,0.0,-5.0)
     glVertex3f(0.0,0.0,0.0)
     glVertex3f(-24.0,0.0,0.0)
    
         glColor3f(1,1,1)
     glVertex3f(-24.0,6.0,-5.0)
     glVertex3f(0.0,6.0,-5.0)
     glVertex3f(0.0,0.0,-5.0 )
     glVertex3f(-24.0,0.0,-5.0)
    
        ' glColor3f(1,0,0)
     glVertex3f(-24.0,6.0,-5.0)
     glVertex3f(0.0,6.0,-5.0)
     glVertex3f(0.0,6.0,0.0 )
     glVertex3f(-24.0,6.0,0.0)
    
          glColor3f(1,0,0)
     glVertex3f(-24,0.0,-5.0)
     glVertex3f(-24,6.0,-5.0)
     glVertex3f(-24,6.0,0.0)
     glVertex3f(-24,0.0,0.0 )
    
         glColor3f(1,0,0)
     glVertex3f(0.0,0.0,-5.0)
     glVertex3f(0.0,6.0,-5.0)
     glVertex3f(0.0,6.0,0.0)
     glVertex3f(0.0,0.0,0.0)

     glEnd()

     end sub
    
     sub rangka()
     glBegin(GL_QUADS)
     glColor3f(1,1,1)  

     glVertex3f(0.0,0.5,0.0)
     glVertex3f(14.0,0.5,0.0)
     glVertex3f(14.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(0.0,0.0,-1)
     glVertex3f(14.0,0.0,-1)
     glVertex3f(14.0,0.0,0.0)   
     glVertex3f(0.0,0.0,0.0)

     glVertex3f(0.0,0.5,-1)
     glVertex3f(14.0,0.5,-1)
     glVertex3f(14.0,0.0,-1)
     glVertex3f(0.0,0.0,-1)

     glVertex3f(0.0,0.5,-1)
     glVertex3f(14.0,0.5,-1)
     glVertex3f(14.0,0.5,0.0)
     glVertex3f(0.0,0.5,0.0)

     glVertex3f(0.0,0.0,-1)
     glVertex3f(0.0,0.5,-1)
     glVertex3f(0.0,0.5,0.0)   
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(14.0,0.5,0.0)
     glVertex3f(14.0,0.5,-1)
     glVertex3f(14.0,0.0,-1)
     glVertex3f(14.0,0.0,0.0)
                          
     glVertex3f(14.0,0.0,-0.5)                     
     glVertex3f(14.0,0.0,-0.5)                     
     glVertex3f(14.0,0.5,0.0)
     glVertex3f(14.0,0.0,0.0)
     glEnd()
     end sub

     sub ass()
     glBegin(GL_QUADS)
     glColor3f(1,1,1)  

     glVertex3f(0.0,2.0,0.0)
     glVertex3f(8.0,2.0,0.0)
     glVertex3f(8.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
    
     glVertex3f(0.0,0.0,-4.0)
     glVertex3f(8.0,0.0,-4.0)
     glVertex3f(8.0,0.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
    
     glVertex3f(0.0,2.0,-4.0)
     glVertex3f(8.0,2.0,-4.0)    
     glVertex3f(8.0,0.0,-4.0)
     glVertex3f(0.0,0.0,-4.0)
    
    
     glVertex3f(0.0,0.0,-4.0)
     glVertex3f(0.0,2.0,-4.0)
     glVertex3f(0.0,2.0,0.0)
     glVertex3f(0.0,0.0,0.0)
    
     glVertex3f(8.0,0.0,-4.0)
     glVertex3f(8.0,2.0,-4.0)
     glVertex3f(8.0,2.0,0.0)
     glVertex3f(8.0,0.0,0.0)
    
     glEnd()
     end sub
    
sub beng()                              'Bawah
        glBegin(GL_QUADS)
    glColor3f(1,0,0)         

    glVertex3f(-1.0,1.0,1.0)
    glVertex3f(1.0,1.0,1.0)
    glVertex3f(1.0,-1.0,1.0)
    glVertex3f(-1.0,-1.0,1.0)  
   
    glVertex3f(-1.0,-1.0,-1.0)
    glVertex3f(1.0,-1.0,-1.0)
    glVertex3f(1.0,-1.0,1.0)
    glVertex3f(-1.0,-1.0,1.0)
   
    glVertex3f(-1.0,1.0,-1.0)
    glVertex3f(1.0,1.0,-1.0)
    glVertex3f(1.0,-1.0,-1.0)
    glVertex3f(-1.0,-1.0,-1.0)
   
    glVertex3f(-1.0,1.0,-1.0)
    glVertex3f(1.0,1.0,-1.0)
    glVertex3f(1.0,1.0,1.0)
    glVertex3f(-1.0,1.0,1.0)

    glEnd()
    end sub

                                                 'Paling Atsa
        sub bang()
        glBegin(GL_QUADS)
       glColor3f(1,0,0)  
          
           glVertex3f(0.0,0.5,0.0)
           glVertex3f(12.0,0.5,0.0)
           glVertex3f(12.0,0.0,0.0)
           glVertex3f(0.0,0.0,0.0)
          
          ' glColor3f(1,1,1)
           glVertex3f(0.0,0.0,-2.0)
           glVertex3f(12.0,0.0,-2.0)
           glVertex3f(12.0,0.0,0.0)
           glVertex3f(0.0,0.0,0.0)
          
           'glColor3f(1,0,0)
           glVertex3f(0.0,0.5,-2.0)
           glVertex3f(12.0,0.5,-2.0)
           glVertex3f(12.0,0.0,-2.0)
           glVertex3f(0.0,0.0,-2.0)
          
          'glColor3f(1,1,1)
           glVertex3f(0.0,0.5,-2.0)
           glVertex3f(12.0,0.5,-2.0)
           glVertex3f(12.0,0.5,0.0)
           glVertex3f(0.0,0.5,0.0)
          
          ' glColor3f(1,0,0)
           glVertex3f(0.0,0.0,-2.0)
           glVertex3f(0.0,0.5,-2.0)
           glVertex3f(0.0,0.5,0.0)
           glVertex3f(0.0,0.0,0.0)
          
           glVertex3f(12.0,0.0,-2.0)
           glVertex3f(12.0,0.5,-2.0)
           glVertex3f(12.0,0.5,0.0)
           glVertex3f(12.0,0.0,0.0)

    glEnd()
    end sub
                                                'tangga
    sub bung()
        glBegin(GL_QUADS)
        glColor3f(1,1,1)  
           glVertex3f(0.0,0.5,0.0)
           glVertex3f(9.0,0.5,0.0)
           glVertex3f(9.0,0.0,0.0)
           glVertex3f(0.0,0.0,0.0)

           glVertex3f(0.0,0.0,-1.0)
           glVertex3f(9.0,0.0,-1.0)
           glVertex3f(9.0,0.0,0.0)
           glVertex3f(0.0,0.0,0.0)
          
          
           glVertex3f(0.0,0.5,-1.0)
           glVertex3f(9.0,0.5,-1.0)
           glVertex3f(9.0,0.0,-1.0)
           glVertex3f(0.0,0.0,-1.0)
          
           
           glVertex3f(0.0,0.5,-1.0)
           glVertex3f(9.0,0.5,-1.0)
           glVertex3f(9.0,0.5,0.0)
           glVertex3f(0.0,0.5,0.0)
          
          
           glVertex3f(0.0,0.0,-1.0)
           glVertex3f(0.0,0.5,-1.0)
           glVertex3f(0.0,0.5,0.0)
           glVertex3f(0.0,0.0,0.0)
          
           glVertex3f(9.0,0.0,-1.0)
           glVertex3f(9.0,0.5,-1.0)
           glVertex3f(9.0,0.5,0.0)
           glVertex3f(9.0,0.0,0.0)
          

    glEnd()
    end sub
   
                                             'Pagar
    sub bong()
        glBegin(GL_QUADS)
          glColor3f(1,1,1)
           glVertex3f(0.0,2.0,0.0)
           glVertex3f(3.0,2.0,0.0)
           glVertex3f(3.0,0.0,0.0)
           glVertex3f(0.0,0.0,0.0)
          
          
           glVertex3f(0.0,0.0,-3.0)
           glVertex3f(3.0,0.0,-3.0)
           glVertex3f(3.0,0.0,0.0)
           glVertex3f(0.0,0.0,0.0)

           glVertex3f(0.0,2.0,-3.0)
           glVertex3f(3.0,2.0,-3.0)
           glVertex3f(3.0,0.0,-3.0)
           glVertex3f(0.0,0.0,-3.0)
          
          
           glVertex3f(0.0,1.0,-3.0)
           glVertex3f(3.0,1.0,-3.0)
           glVertex3f(3.0,1.0,0.0)
           glVertex3f(0.0,1.0,0.0)
          
          
           glVertex3f(0.0,0.0,-3.0)
           glVertex3f(0.0,1.0,-3.0)
           glVertex3f(0.0,1.0,0.0)
           glVertex3f(0.0,0.0,0.0)
          
           glVertex3f(3.0,0.0,-3.0)
           glVertex3f(3.0,1.0,-3.0)
           glVertex3f(3.0,1.0,0.0)
           glVertex3f(3.0,0.0,0.0)
          

    glEnd()
    end sub
    
    dim gerak#
    dim gerak2#
    dim teta#
    dim a#
    dim b#
    dim c#
    dim d#
    dim e#
    dim f#
    dim g#
    dim i#
    dim r#
    dim v#

    
    gerak#=0
    gerak2#=0
    teta#=0
    d#=0
    e#=0
    a#=0
    b#=0
    c#=0
    f#=0
    g#=0
    i#=0
    r#=0
    v#=0
 
     while true
     glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)
     glLoadIdentity()
    
     glPushMatrix()

     glTranslatef(gerak#,gerak2#,-30)
     'glRotatef(r#,0,1,0)
     glRotatef(0,0,0,0)
     bemper ()
    
     glTranslatef(2.0,0.0,0.0)
     glRotatef(0,0,0,1)
     pintu()
    
     glTranslatef(3.0,0.0,0.0)
     glRotatef(0,0,0,1)
     mesin1()
     glTranslatef(-4.0,-0.2,-1)
     mesin2()
             

     'Rodanya Depan
      glTranslatef(0.0,-0.5,1.2)
      roda(1.5)        
      glTranslatef(0.0,0.0,-3.9)
      roda(1.5)

      glTranslatef(6.0,0.0,3.9)
      roda(1.5)        
      glTranslatef(0.0,0.0,-3.9)
      roda(1.5)
     
      glTranslatef(2.0,0.0,3.9)
      roda(1.5)        
      glTranslatef(0.0,0.0,-3.9)
      roda(1.5)
     
  
     'Cerobong Asap
     glTranslatef(-3,3,3.8)
     glRotatef(90,0,0,1)
     cerobong ()
    
     glTranslatef(0,0,-3.5)
     glRotatef(0,0,0,1)
     cerobong ()
    

     glTranslatef(-0.4,-3.5,1.4)
     glRotatef(-90,0,0,1)
     gandeng ()
    
     glTranslatef(0.0,-0.5,0.6)
     glRotatef(r#,0,1,0)
     rangka()

     glTranslatef(13, -1.7,1.3)
     glRotatef(0,0,0,1)
     ass()
    
     glTranslatef(0.5,2,-1.9)
     glRotatef(0,0,0,0)
     gandeng ()
    
     glTranslatef(6,0,0)
     glRotatef(0,0,0,1)
     gandeng ()
    
     'Roda Belakang
    
      glTranslatef(-5.5,-2.3,2)
      roda(1.5)        
      glTranslatef(0.0,0.0,-3.9)
      roda(1.5)
     
      glTranslatef(2.0,0.0,3.9)
      roda(1.5)        
      glTranslatef(0.0,0.0,-3.9)
      roda(1.5)
     
      glTranslatef(2.0,0.0,3.9)
      roda(1.5)        
      glTranslatef(0.0,0.0,-3.9)
      roda(1.5)

   
      glTranslatef(3.8.0,2.8,4.4)
      glRotatef(i#,0,0,1)
      box()
   


      'Tangga  Penyelamat
             
      glTranslatef(-2.0,5.5,-3)
      glRotatef(v#,0,1,0)
       glRotatef(d#,1,0,0)
      
       glRotatef(90,0,0,1)

      beng()
             
     glTranslatef(0,0,0.5)
     glRotatef(0+e#,0,0,1)
     bung()
    
     'tangga1
    'glpushmatrix()
    glTranslatef(9.0,0.0,0.0)
    glRotatef(175+b#,0,0,1)
     'glColor3f(0.1,1,1)
     bung() 
   
     'glpopmatrix()
     glTranslatef(9.0,0.0,0.0)
     glRotatef(-175+a#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
    
        glTranslatef(9.0,0.0,0.0)
     glRotatef(175+f#,0,0,1)
   '  glColor3f(1,1,1)
     bung() 
 
        glTranslatef(9.0,0.0,0.0)
     glRotatef(-175+a#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
    
        glTranslatef(9.0,0.0,0.0)
     glRotatef(175+f#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
    
        glTranslatef(9.0,0.0,0.0)
     glRotatef(-175+a#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
    
        glTranslatef(9.0,0.0,0.0)
     glRotatef(175+f#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
      
      glTranslatef(9.0,0.0,0.0)
     glRotatef(-175+a#,0,0,1)
   '  glColor3f(1,1,1)
     bung() 
    
    glTranslatef(9.0,0.0,0.0)
    glRotatef(175+f#,0,0,1)
     'glColor3f(0.1,1,1)
     bung() 
   
     'glpopmatrix()
     glTranslatef(9.0,0.0,0.0)
     glRotatef(-175+a#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
    
        glTranslatef(9.0,0.0,0.0)
     glRotatef(175+f#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
     
     
      glTranslatef(9.0,0.0,0.0)
     glRotatef(-175+a#,0,0,1)
   '  glColor3f(1,1,1)
     bung()
       
    
       glTranslatef(9.0,0.0,0.0)
        glRotatef(175+f#,0,0,1)
     bung()
           
       glTranslatef(9.0,0.0,0.5)
       glRotatef(g#,0,0,1)
        glRotatef(-85+a#,0,0,1)
     bang()
      
       glTranslatef(11.0,-1.0,0.5)
     bong()
           

      SwapBuffers()
       

      'PErgerakan Truk  Kanan Kiri dan Atas Bawah
      if KEyDown("A") then gerak# = gerak# - 0.01 endif
      if KEyDown("D") then gerak# = gerak# + 0.01 endif
      if KEyDown("W") then gerak2# = gerak2# + 0.01 endif
      if KEyDown("S") then gerak2# = gerak2# - 0.01 endif
       

      'Pergerakan Box Container Bagian Belakang Atas dan BAwah
      if KEyDown("U") then i# = i# - 0.02 endif
      if KEyDown("Y") then i# = i# + 0.02endif
       

      'Pergerakan Rangka Belok Kanan Dan Kiri
      if KEyDown("R") then r# = r# - 0.1 endif
      if KEyDown("T") then r# = r# + 0.1 endif
       

      'Tangga Penyelamat
    
     'Pergerakan Tangga Miring
     if KeyDown("F") then v# = v# - 0.03 endif
     if KeyDown("G") then v# = v# + 0.03 endif     
    
     'Peregerakan Ujung Tangga Atas Bawah
     if KeyDown("P") then g# = g# - 0.03 endif
     if KeyDown("O") then g# = g# + 0.03 endif
     
     'Pergerakan Tangga Memanjang dan Memendek
     if KeyDown("M") then f# = f# + 0.02 endif
     if KeyDown("N") then f# = f# - 0.02 endif
     if KeyDown("M") then a# = a# - 0.02 endif      
     if KeyDown("N") then a# = a# + 0.02 endif
     if KeyDown("M") then b# = b# + 0.01 endif
     if KeyDown("N") then b# = b# - 0.01 endif
    
     'Pergerakan Tangga Ke kanan dan Ke Kiri
     if KeyDown("K") then d# = d# - 0.1 endif
     if KeyDown("J") then d# = d# + 0.1 endif
    
     'Pergerakan Tangga Atas dan Bawah
     if KeyDown("H") then e# = e# - 0.01 endif
     if KeyDown("B") then e# = e# + 0.01 endif
      wend