PureBasic Forums - English

Code: Select all

material points
{
   receive_shadows off
   technique
   {
      pass
      {
         point_sprites on
         point_size 45
         lighting of
       texture_unit
       {
         texture flare.jpg
       }
      }
   }
}

Code: Select all

;It's written in the stars :-)
;Move with WASD keys and mouse to navigate yourself into the right position
;to see the objects..
;Save script and image at the same position as the code.
;In case you can't run it..
;Try OpenGL as subsystem - otherwise -
;Have a very Merry Christmas and a Happy newyear

DeclareModule xmas
  UseJPEGImageDecoder()
  UseJPEGImageEncoder()
  Declare.i Init()
  Declare.i Screen()
  Declare.i Run()
EndDeclareModule

Module xmas
  Global med.i = -1
  Global Dim ob.i(4)
  Declare.f RandomF(Min.f, Max.f, Res.i = 100000)
  Declare.i CreateObject(num.i)
  Declare.i Sky()
  
  Structure Pos
    x.i
    y.i
    z.f
  EndStructure
  Global NewList p.Pos()
  
  Structure _par
    id.i
    ma.i
    tx.i
  EndStructure
  Global pa._par
  
  Procedure.i Init()
    If InitEngine3D(#PB_Engine3D_DebugLog) = 0 Or InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
      ProcedureReturn 0
    EndIf
    If InitNetwork() > 0 And InitMovie() > 0
      med = ReceiveHTTPFile("http://yuletidetunes.com/song/download/2849", "Jingle_Bell_Rock.mp3")
      If med <> 0
        med = LoadMovie(#PB_Any, "Jingle_Bell_Rock.mp3")
      EndIf
    EndIf
    ProcedureReturn #True
  EndProcedure
  
  Procedure.i Screen()
    ExamineDesktops()
    Add3DArchive(".", #PB_3DArchive_FileSystem)
    OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0), "Star messages", #PB_Window_BorderLess)
    OpenWindowedScreen(WindowID(0), 0, 0,  DesktopWidth(0), DesktopHeight(0))
    CreateCamera(0, 0, 0, 100, 100)
    Parse3DScripts()
    sky()
  EndProcedure
  
  Procedure.i Sky()
    Protected im.i = CreateImage(#PB_Any, 2048, 2048)
    Protected x.i
    StartDrawing(ImageOutput(im))
    DrawingMode(#PB_2DDrawing_AlphaBlend)
    For x = 0 To 30000
      Plot(Random(2047, 1), Random(2047, 1), RGBA(255, 255, 255, Random(255,50)))
    Next x
    StopDrawing()
    SaveImage(im, "sky_LF.jpg", #PB_ImagePlugin_JPEG, 8)
    SaveImage(im, "sky_RT.jpg", #PB_ImagePlugin_JPEG, 8)
    SaveImage(im, "sky_UP.jpg", #PB_ImagePlugin_JPEG, 8)
    SaveImage(im, "sky_DN.jpg", #PB_ImagePlugin_JPEG, 8)
    SaveImage(im, "sky_BK.jpg", #PB_ImagePlugin_JPEG, 8)
    SaveImage(im, "sky_FR.jpg", #PB_ImagePlugin_JPEG, 8)
    SkyBox("sky.jpg")
  EndProcedure
  
  Procedure.i Run()
    Protected ev.i, ret.i, x.i, mx.f, my.f, KeyX.f, KeyY.f
    For x = 0 To 4
      ob(x) = CreateObject(x)
      If x = 0
        MoveEntity(ob(x), 900, 0, 200)
      ElseIf x = 1
        MoveEntity(ob(x), 0, 0, 900)
      ElseIf  x = 2
        MoveEntity(ob(x), 0, 900, 800)
      ElseIf x = 3
        MoveEntity(ob(x), 0, -200, -800)
      Else
        MoveEntity(ob(x), -500, 100, 700)
      EndIf
      RotateEntity(ob(x), 180, 0, 0)
    Next x
    If IsMovie(med) : PlayMovie(med, WindowID(0)) : EndIf
    
    pa\id = CreateParticleEmitter(#PB_Any, 1500, 1500, 1500, #PB_Particle_Box)
    pa\tx = LoadTexture(#PB_Any, "flare.jpg")
    pa\ma = CreateMaterial(#PB_Any, TextureID(pa\tx))
    MaterialBlendingMode(pa\ma, #PB_Material_Add)
    ParticleMaterial(pa\id, MaterialID(pa\ma))
    ParticleSize(pa\id, 8, 8)
    ParticleEmitterAngle(pa\id, 180)
    ParticleEmissionRate(pa\id, 600)
    ParticleTimeToLive(pa\id, 8, 20)
    ParticleVelocity(pa\id, #PB_Particle_MinimumVelocity, 10)
    ParticleVelocity(pa\id, #PB_Particle_Velocity, 20)
    ParticleVelocity(pa\id, #PB_Particle_MaximumVelocity, 30)
    
    Repeat
      Repeat
        ev = WindowEvent()
      Until ev = 0
      ExamineMouse()
      mx = -MouseDeltaX()  * 0.1
      my = -MouseDeltaY()  * 0.1
      ExamineKeyboard()
      If KeyboardPushed(#PB_Key_A)
        KeyX = -2
      ElseIf KeyboardPushed(#PB_Key_D)
        KeyX = 2
      Else
        KeyX = 0
      EndIf
      
      If KeyboardPushed(#PB_Key_W)
        KeyY = -2
      ElseIf KeyboardPushed(#PB_Key_S)
        KeyY = 2
      Else
        KeyY = 0
      EndIf
      RotateCamera(0, my, mx, 0, #PB_Relative)
      MoveCamera(0, KeyX, 0, KeyY)
      
      RenderWorld()
      
      FlipBuffers()
      
    Until KeyboardPushed(#PB_Key_Escape)
    
  EndProcedure
  
  Procedure.i CreateObject(num.i)
    Protected x.i, z.f, en.i, ob.i, col.i
    GetScriptMaterial(num, "points")
    MaterialBlendingMode(num, #PB_Material_Add)
    Select num
      Case 0
        Restore Object1
        For x = 0 To 455
          AddElement(p())
          Read.i p()\x
          Read.i p()\y
          p()\z = RandomF(-30, 30)
        Next x
      Case 1
        Restore Object2
        For x = 0 To 367
          AddElement(p())
          Read.i p()\x
          Read.i p()\y
          p()\z = RandomF(-30, 30)
        Next x
      Case 2
        Restore Object3
        For x = 0 To 825
          AddElement(p())
          Read.i p()\x
          Read.i p()\y
          p()\z = RandomF(-30, 30)
        Next x
      Case 3
        Restore Object4
        For x = 0 To 325
          AddElement(p())
          Read.i p()\x
          Read.i p()\y
          p()\z = RandomF(-30, 30)
        Next x
      Case 4
        Restore Object5
        For x = 0 To 1439
          AddElement(p())
          Read.i p()\x
          Read.i p()\y
          p()\z = RandomF(-30, 30)
        Next x
    EndSelect
    ob = CreateMesh(#PB_Any,#PB_Mesh_PointList, #PB_Mesh_Static)
    ForEach p()
      MeshVertexPosition(p()\x, p()\y, p()\z)
    Next
    FinishMesh(#True)
    en = CreateEntity(#PB_Any, MeshID(ob), MaterialID(num))
    ClearList(p())
    ProcedureReturn en
  EndProcedure  
  
  Procedure.f RandomF(Min.f, Max.f, Res.i = 100000)
    ProcedureReturn (Min + (Max - Min) * Random(Res) / Res)
  EndProcedure
  
  DataSection
    Object1:
    ;Total: 455
    Data.i 134,1,123,2,138,2,138,3,123,5,133,6,143,6,121,8,135,8,134,9,129,10,88,11,123,11,87,12,131,12,90,13,132,13,120,14,87,15,130,15,86,16,77,17,114,17,116,18,85,19,120,19,75,20,123,20,133,20,84,21,122,21,132,21,117,22,127,22,79,23,126,23,74,24,105,24,122,24,133,24
    Data.i 107,25,131,25,105,26,118,26,132,26,104,27,123,27,79,28,113,28,123,28,78,29,109,29,126,29,84,30,124,30,83,31,133,31,114,32,74,33,108,33,116,33,72,34,105,34,45,35,81,35,119,35,73,36,106,36,114,36,73,37,104,37,47,38,83,38,105,38,44,39,87,39,106,39,47,40,47,41,90,41,70,42
    Data.i 88,42,71,43,87,43,71,44,83,44,44,45,85,45,74,46,86,46,46,47,77,47,10,48,43,48,62,48,89,48,44,49,86,49,14,50,29,50,66,50,85,50,22,51,64,51,71,51,82,51,17,52,48,52,70,52,15,53,27,53,50,53,59,53,75,53,20,54,52,54,82,54,12,55,36,55,0,56,20,56,54,56
    Data.i 51,57,86,57,10,58,54,58,2,59,54,59,9,60,35,60,65,60,0,61,49,61,70,61,36,62,67,62,83,62,64,63,26,65,51,65,27,66,42,66,32,67,30,68,35,70,26,71,17,72,21,73,18,74,8,75,13,76,70,76,61,77,18,78,71,78,6,80,3,81,4,82,0,84,70,86,4,88,66,88,9,90
    Data.i 26,91,66,92,21,93,24,94,10,95,31,95,39,98,33,99,44,100,40,104,71,107,72,109,79,110,78,112,79,113,41,115,39,116,75,117,76,119,33,121,208,121,78,122,79,123,216,123,34,125,38,126,36,127,36,128,95,128,86,129,202,129,85,130,95,130,216,130,192,131,206,131,95,132,215,132,98,133,207,133,93,134
    Data.i 91,135,37,136,190,136,97,137,121,137,186,137,97,138,181,138,108,139,170,140,209,141,34,144,209,145,212,146,205,147,205,148,213,149,203,151,196,153,35,154,36,155,38,157,35,158,36,160,33,164,35,166,35,169,201,171,36,173,196,176,200,177,38,180,38,181,34,184,192,186,193,187,192,188,193,189,196,190,196,191,34,193
    Data.i 79,193,195,193,125,194,36,195,83,195,120,195,39,196,115,196,194,196,79,197,108,197,128,197,30,198,78,198,194,198,76,199,72,201,135,202,75,203,30,204,27,205,25,206,27,207,26,208,54,208,24,209,142,209,31,210,139,210,24,211,192,211,138,212,43,213,198,213,49,214,143,214,43,215,138,215,17,216,140,216,22,217
    Data.i 140,217,20,218,58,218,171,218,35,219,144,219,20,220,173,220,35,221,173,221,145,222,206,222,169,223,181,224,205,224,172,225,56,226,172,226,62,227,172,227,204,227,75,228,204,228,147,229,59,230,205,230,151,231,187,231,28,232,153,232,21,233,173,233,204,233,152,234,187,234,20,235,65,235,188,235,30,236,186,236,66,237
    Data.i 205,237,64,238,156,238,189,238,66,239,204,239,154,240,188,240,80,241,154,241,24,242,38,242,157,242,26,243,150,243,207,243,32,244,151,244,34,245,148,245,27,246,83,246,203,246,149,247,28,248,156,248,38,249,155,249,28,250,76,250,156,250,205,250,37,251,78,251,32,252,146,252,25,253,45,253,76,253,153,253,34,254
    Data.i 67,254,157,254,145,255,203,255,53,256,195,256,48,257,76,257,144,257,36,258,52,258,151,258,48,259,142,259,33,260,69,260,143,260,52,261,198,261,55,262,43,263,137,263,75,264,69,265,147,265,60,266,145,266,75,267,41,268,139,268,148,269,70,270,45,271,51,272,145,272,52,273,146,273,60,274,191,274,52,275,190,275
    Data.i 58,276,191,276,145,277,70,278,148,278,193,278,137,279,75,280,189,280,74,281,188,281,142,282,191,282,77,283,189,283,75,284,140,284,69,285,190,285,68,286,141,286,188,286,140,287,194,287,149,288,62,289,148,289,193,289,136,290,179,290,66,291,149,291,78,292,180,292,195,292,144,293,192,293,74,294,177,294,63,295,189,295
    Data.i 72,296,186,296,180,297,176,298,69,299
    
    Object2:
    ;Total: 367
    Data.i 20,5,28,5,30,5,35,7,56,7,37,9,47,11,39,12,56,12,141,12,144,12,50,13,130,13,172,13,183,13,40,14,128,14,170,14,45,15,52,15,132,15,141,15,158,15,166,15,168,15,25,16,54,16,145,16,180,16,22,17,54,17,148,17,175,17,190,17,116,18,121,18,128,18,172,18,115,19,191,19
    Data.i 115,20,124,20,131,20,133,20,170,20,26,21,117,21,121,21,136,21,155,21,30,22,139,22,118,23,120,23,123,23,132,23,141,23,190,23,138,24,143,24,55,25,116,25,144,25,190,25,106,26,118,26,130,26,146,26,160,26,183,26,108,27,150,27,179,27,50,28,104,28,115,28,143,28,170,28,188,28,103,29,114,29
    Data.i 148,29,150,29,162,29,52,30,113,30,122,30,152,30,177,30,60,31,111,31,170,31,188,31,99,32,112,32,170,32,43,33,113,33,141,33,151,33,187,33,65,34,110,34,123,34,147,34,165,34,46,35,87,35,127,35,170,35,43,36,124,36,154,36,179,36,90,37,111,37,166,37,183,37,130,38,150,38,166,38,129,39
    Data.i 151,39,154,39,169,39,122,40,69,41,103,41,124,41,155,41,34,42,122,42,127,42,67,43,83,43,132,43,136,43,139,43,101,44,126,44,141,44,168,44,106,45,143,45,168,45,144,46,66,47,110,47,120,47,150,47,71,48,133,48,148,48,157,48,72,49,104,49,150,49,165,49,105,50,148,50,157,50,167,50,123,51
    Data.i 142,51,157,51,161,51,62,52,124,52,157,52,117,53,148,53,41,54,119,54,149,54,161,54,57,56,147,56,164,57,143,58,166,58,49,59,163,59,138,60,158,65,49,66,50,68,154,69,154,71,164,72,68,74,55,75,59,78,151,79,54,83,53,84,148,85,146,87,49,89,52,90,51,91,144,91,46,93,183,93,75,94
    Data.i 56,95,49,96,47,97,64,97,53,98,80,98,185,98,135,99,65,100,134,100,132,101,92,102,94,102,129,102,53,103,125,103,60,104,80,104,115,104,107,105,110,105,119,105,186,107,91,108,38,110,43,110,96,110,47,111,113,112,130,112,135,112,55,113,148,113,108,114,54,115,116,115,41,116,117,116,46,117,115,117,35,118
    Data.i 154,118,78,119,131,119,85,121,35,122,132,122,113,123,28,124,156,125,24,126,37,126,39,126,41,126,110,126,156,126,46,127,133,127,27,128,156,128,21,129,62,130,67,131,71,132,74,133,21,134,84,136,20,137,108,138,16,139,150,139,130,140,155,140,24,141,144,141,22,142,102,142,43,143,47,144,107,144,28,145,30,145
    Data.i 39,146,113,146,116,147,64,148,18,149,121,149,71,150,19,151,74,151,20,152,154,152,80,153,83,154,86,155,31,156,138,156,93,158,32,160,99,160,155,160,102,161,155,161,38,163,54,163,48,165,48,168,157,168,158,169,123,170,129,172,62,173,84,176,166,176,139,177,166,177,69,179,70,180,71,181,163,183,162,186,148,188
    Data.i 78,189,147,190,155,190,161,193,160,194,150,195,157,196,102,198,146,199,99,203,90,204,137,205,95,206,145,206,131,207,94,208,107,211,140,211,122,214,118,217,93,221,123,221,123,222,89,224,91,226,92,227,88,228,123,228,107,229,122,230,109,231,87,233,94,233,116,233,136,233,119,234,135,234,123,235,132,237,130,239
    
    Object3:
    ;Total: 826
    Data.i 108,6,258,7,258,8,255,9,239,10,237,11,239,12,91,13,237,13,254,13,98,14,254,14,98,15,245,15,92,16,87,17,103,17,250,17,100,18,252,18,87,19,249,19,104,20,90,21,237,21,99,22,253,22,86,23,236,23,81,24,97,24,247,24,236,25,84,26,234,26,80,27,99,27,249,27,90,28,247,28
    Data.i 96,29,242,30,83,31,86,31,89,31,230,31,79,32,229,32,217,33,220,33,59,34,62,34,65,34,82,35,85,35,57,37,79,38,212,38,232,38,64,39,84,39,65,40,66,41,67,42,207,42,69,43,205,44,57,45,227,45,404,45,188,46,227,46,69,47,79,47,86,47,89,47,97,47,100,47,207,47,35,48,111,48
    Data.i 114,48,216,48,219,48,402,48,124,49,188,49,211,49,235,49,66,50,133,50,203,50,241,50,46,51,104,51,139,51,142,51,191,51,244,51,391,51,41,52,116,52,147,52,150,52,192,52,203,52,230,52,249,52,400,52,130,53,158,53,190,53,200,53,236,53,252,53,390,53,56,54,136,54,167,54,170,54,192,54,226,54
    Data.i 256,54,387,54,36,55,125,55,144,55,213,55,247,55,382,55,36,56,54,56,128,56,153,56,251,56,386,56,36,57,128,57,162,57,212,57,255,57,267,57,381,57,36,58,77,58,174,58,177,58,180,58,269,58,278,58,393,58,36,59,108,59,203,59,399,59,79,60,230,60,256,60,382,60,32,61,102,61,202,61,251,61
    Data.i 278,61,30,62,85,62,201,62,238,62,241,62,244,62,247,62,376,62,396,62,124,63,274,63,371,63,49,64,180,64,287,64,354,64,387,64,48,65,279,65,359,65,393,65,121,66,282,66,371,66,374,66,28,67,195,67,285,67,379,67,27,68,177,68,272,68,352,68,41,69,181,69,184,69,187,69,290,69,354,69,28,70
    Data.i 174,70,210,70,374,70,27,71,170,71,207,71,378,71,15,72,18,72,157,72,299,72,6,73,180,73,201,73,311,73,372,73,198,74,314,74,374,74,6,75,157,75,307,75,7,76,160,76,180,76,309,76,11,77,34,77,164,77,197,77,312,77,14,78,120,78,177,78,315,78,359,78,547,78,124,79,186,79,210,79,213,79
    Data.i 256,79,269,79,540,79,560,79,167,80,191,80,216,80,320,80,539,80,26,81,180,81,251,81,284,81,333,81,543,81,550,81,553,81,131,82,202,82,271,82,274,82,287,82,336,82,557,82,32,83,134,83,182,83,224,83,328,83,364,83,565,83,136,84,176,84,228,84,331,84,364,84,562,84,45,85,141,85,176,85,235,85
    Data.i 282,85,332,85,350,85,29,86,52,86,145,86,258,86,291,86,348,86,539,86,25,87,36,87,180,87,183,87,186,87,189,87,201,87,274,87,332,87,570,87,25,88,42,88,202,88,536,88,575,88,48,89,208,89,259,89,287,89,535,89,577,89,56,90,155,90,215,90,261,90,372,90,375,90,63,91,222,91,385,91,388,91
    Data.i 391,91,492,91,12,92,72,92,175,92,205,92,227,92,413,92,416,92,419,92,422,92,425,92,428,92,431,92,434,92,437,92,440,92,443,92,446,92,449,92,452,92,455,92,458,92,461,92,464,92,467,92,470,92,473,92,476,92,479,92,482,92,485,92,488,92,533,92,77,93,82,93,158,93,175,93,213,93,232,93,331,93
    Data.i 371,93,531,93,584,93,595,93,74,94,94,94,97,94,100,94,145,94,148,94,151,94,220,94,290,94,378,94,381,94,534,94,25,95,161,95,240,95,326,95,397,95,400,95,526,95,567,95,177,96,227,96,243,96,326,96,525,96,10,97,178,97,216,97,227,97,247,97,326,97,371,97,528,97,567,97,10,98,205,98,251,98
    Data.i 373,98,503,98,564,98,596,98,53,99,201,99,241,99,295,99,378,99,395,99,411,99,504,99,526,99,573,99,576,99,587,99,8,100,49,100,185,100,195,100,225,100,297,100,386,100,414,100,582,100,585,100,39,101,42,101,224,101,261,101,480,101,525,101,72,102,264,102,406,102,491,102,563,102,267,103,307,103,413,103,522,103
    Data.i 562,103,259,104,312,104,486,104,560,104,221,105,319,105,474,105,520,105,5,106,265,106,410,106,510,106,558,106,221,107,302,107,407,107,494,107,558,107,221,108,304,108,323,108,477,108,517,108,558,108,11,109,157,109,305,109,338,109,467,109,494,109,515,109,561,109,70,110,277,110,334,110,495,110,558,110,70,111,290,111,344,111
    Data.i 479,111,512,111,517,111,9,112,282,112,322,112,346,112,491,112,561,112,145,113,285,113,317,113,404,113,490,113,558,113,14,114,288,114,333,114,466,114,502,114,7,115,147,115,290,115,330,115,456,115,493,115,558,115,16,116,144,116,308,116,353,116,462,116,558,116,54,117,72,117,141,117,304,117,356,117,481,117,10,118,75,118
    Data.i 153,118,164,118,298,118,402,118,458,118,20,119,78,119,149,119,200,119,230,119,300,119,334,119,381,119,384,119,447,119,11,120,58,120,148,120,169,120,219,120,226,120,305,120,368,120,371,120,374,120,445,120,25,121,59,121,139,121,208,121,314,121,443,121,481,121,12,122,31,122,37,122,84,122,134,122,138,122,176,122,300,122
    Data.i 449,122,558,122,96,123,180,123,183,123,186,123,239,123,331,123,447,123,482,123,14,124,74,124,92,124,150,124,234,124,388,124,445,124,476,124,556,124,144,125,224,125,324,125,432,125,479,125,560,125,563,125,576,125,143,126,221,126,327,126,429,126,471,126,581,126,142,127,236,127,387,127,437,127,474,127,567,127,570,127,11,128
    Data.i 210,128,213,128,387,128,472,128,559,128,562,128,576,128,586,128,90,129,243,129,418,129,471,129,475,129,17,130,96,130,101,130,299,130,389,130,453,130,583,130,15,131,238,131,310,131,424,131,452,131,350,132,421,132,249,133,356,133,398,133,451,133,253,134,367,134,370,134,382,134,385,134,388,134,391,134,241,135,407,135,420,135
    Data.i 585,135,401,136,580,136,244,137,363,137,391,137,394,137,464,137,591,137,363,138,377,138,421,138,585,138,247,139,250,139,421,139,579,139,324,140,571,140,296,141,340,141,362,141,575,141,296,142,422,142,573,142,453,143,571,143,293,144,418,144,425,144,566,144,358,145,456,145,565,145,460,146,286,147,429,147,564,147,354,148,283,149
    Data.i 350,149,566,149,350,150,563,150,296,151,353,151,563,151,305,152,457,152,282,153,308,153,454,153,563,153,311,154,332,154,451,154,304,155,322,155,453,155,464,155,340,156,461,156,309,157,333,157,336,157,460,157,315,158,325,158,338,158,346,159,280,160,563,160,346,161,563,161,337,162,463,162,566,162,350,163,354,164,357,164,458,164
    Data.i 336,165,454,165,457,166,281,167,564,167,337,168,471,168,284,169,342,169,345,169,361,169,472,169,368,170,564,170,455,171,564,171,455,172,369,173,472,173,484,173,364,174,469,174,452,175,482,175,485,175,488,175,491,175,495,175,571,176,466,177,453,178,506,178,480,179,508,179,366,180,494,180,563,180,478,181,501,181,560,181,372,182
    Data.i 375,182,455,182,484,182,504,182,540,182,547,182,462,183,489,183,511,183,457,184,497,184,458,185,512,185,378,186,479,186,500,186,371,187,494,187,512,187,376,188,496,188,579,188,478,189,579,189,482,190,468,191,498,191,471,192,508,192,474,193,503,193,506,193,577,194,576,195,491,197,496,198,501,199,506,200,511,201,517,202,567,202
    Data.i 525,203,560,203,534,204,537,204,545,204,548,204,551,204  
    
    Object4:
    ;Total: 328
    Data.i 178,18,177,19,177,21,186,26,190,27,192,27,194,27,169,28,171,28,189,28,191,28,193,28,195,28,198,28,195,36,194,37,193,38,165,46,175,48,174,49,170,50,172,50,174,50,196,50,165,51,169,51,172,51,188,51,194,51,196,51,166,52,168,52,189,52,170,53,191,53,169,54,191,54,168,55,166,56,194,56
    Data.i 165,57,163,58,162,59,158,61,203,61,156,62,205,62,154,63,207,63,207,64,152,66,207,66,205,67,154,68,204,68,155,69,157,69,202,69,204,69,201,70,160,71,159,72,200,72,200,73,158,74,158,75,157,76,156,77,204,77,156,78,154,79,205,79,206,80,206,81,150,82,207,82,150,83,209,84,210,85,141,89,140,90
    Data.i 139,91,138,92,133,94,132,95,131,96,230,96,231,97,132,99,232,99,231,100,230,101,137,102,229,102,139,103,226,103,228,103,224,104,141,105,224,105,141,106,140,107,225,107,225,108,225,109,137,111,233,120,123,121,235,121,122,122,235,122,120,123,236,123,116,124,118,124,116,125,239,126,113,127,113,128,113,129,244,129,243,130
    Data.i 242,131,116,132,239,132,241,132,118,133,236,133,238,133,118,134,236,134,234,135,117,136,235,136,236,137,236,138,115,139,238,139,239,140,261,157,263,157,264,158,266,159,269,161,95,162,271,162,94,163,273,164,274,165,91,166,91,167,273,168,271,169,94,170,269,170,271,170,97,171,267,171,269,171,98,172,100,172,106,172,265,172
    Data.i 267,172,101,173,103,173,107,173,110,173,257,173,259,173,261,173,263,173,109,174,111,174,256,174,109,175,109,176,107,177,256,177,106,178,257,179,103,180,258,180,100,183,98,185,280,203,281,204,282,205,284,206,286,207,288,209,64,211,288,211,63,212,287,212,62,213,60,214,284,214,281,215,58,216,279,216,57,217,273,217,275,217
    Data.i 278,217,271,218,273,218,275,218,57,219,271,219,58,220,271,220,59,221,60,222,62,222,62,223,64,223,272,223,65,224,67,224,69,224,68,225,70,225,72,225,74,225,76,225,78,225,80,225,74,226,76,226,78,226,274,226,275,227,276,228,278,230,292,240,294,241,296,242,298,243,300,244,304,246,306,248,307,249,305,251,303,253
    Data.i 60,255,301,255,60,256,298,256,57,257,296,257,298,257,296,258,293,260,293,261,292,263,293,264,293,265,45,266,41,268,41,269,41,272,42,273,43,274,45,275,300,276,301,277,302,278,50,279,51,280,304,280,53,281,54,282,56,283,58,284,308,284,314,284,61,285,311,285,61,286,314,286,65,287,314,287,67,288,311,288,68,289
    Data.i 310,289,308,290,307,291,76,292,305,292,314,292,81,293,302,293,304,293,82,294,299,294,301,294,314,294,297,295,299,295,294,296,296,296,291,297,293,297,314,297,96,298,288,298,290,298,292,298,99,299,101,299,287,299,101,300,282,300,285,300,273,302,275,302,272,303,149,309,151,309,149,310,151,310,153,310,155,310,157,310,159,310
    Data.i 161,310   
    
    Object5:
    ;Total: 1439
    Data.i 253,84,250,85,253,85,256,85,282,85,367,85,370,85,373,85,245,86,248,86,251,86,254,86,257,86,269,86,281,86,362,86,365,86,368,86,371,86,374,86,377,86,242,87,245,87,248,87,258,87,268,87,280,87,283,87,360,87,363,87,366,87,369,87,377,87,238,88,241,88,244,88,258,88,267,88,270,88,281,88
    Data.i 284,88,359,88,362,88,377,88,380,88,237,89,240,89,256,89,259,89,268,89,278,89,281,89,353,89,358,89,361,89,376,89,379,89,233,90,236,90,239,90,258,90,267,90,277,90,281,90,351,90,356,90,359,90,368,90,375,90,410,90,225,91,232,91,235,91,256,91,264,91,267,91,276,91,280,91,283,91,354,91,357,91
    Data.i 368,91,373,91,410,91,413,91,230,92,233,92,255,92,263,92,266,92,269,92,277,92,282,92,354,92,365,92,368,92,371,92,409,92,412,92,228,93,231,93,256,93,263,93,267,93,275,93,280,93,351,93,354,93,364,93,367,93,370,93,410,93,224,94,227,94,254,94,261,94,265,94,268,94,275,94,281,94,352,94,365,94
    Data.i 368,94,410,94,224,95,235,95,255,95,261,95,265,95,273,95,278,95,281,95,351,95,362,95,365,95,409,95,222,96,225,96,255,96,261,96,265,96,272,96,278,96,348,96,351,96,360,96,363,96,366,96,404,96,407,96,410,96,413,96,221,97,224,97,254,97,259,97,264,97,271,97,277,97,280,97,294,97,304,97,349,97
    Data.i 355,97,358,97,363,97,369,97,375,97,388,97,409,97,425,97,222,98,252,98,258,98,263,98,266,98,272,98,278,98,293,98,302,98,305,98,349,98,353,98,356,98,363,98,371,98,375,98,387,98,406,98,409,98,251,99,254,99,259,99,265,99,270,99,277,99,283,99,286,99,293,99,296,99,299,99,305,99,308,99,316,99
    Data.i 324,99,347,99,350,99,353,99,363,99,375,99,378,99,384,99,387,99,396,99,399,99,408,99,414,99,420,99,438,99,442,99,452,99,455,99,222,100,226,100,251,100,256,100,262,100,265,100,270,100,277,100,283,100,286,100,289,100,293,100,296,100,299,100,303,100,306,100,309,100,315,100,321,100,324,100,346,100,349,100,361,100
    Data.i 364,100,369,100,374,100,377,100,380,100,385,100,394,100,397,100,400,100,405,100,408,100,415,100,420,100,426,100,436,100,439,100,442,100,451,100,454,100,457,100,225,101,251,101,255,101,262,101,265,101,269,101,277,101,282,101,285,101,289,101,294,101,299,101,304,101,309,101,315,101,321,101,341,101,344,101,347,101,362,101,367,101
    Data.i 370,101,375,101,380,101,385,101,393,101,396,101,405,101,412,101,415,101,419,101,424,101,427,101,434,101,437,101,443,101,450,101,453,101,225,102,249,102,252,102,255,102,262,102,266,102,274,102,277,102,282,102,289,102,294,102,298,102,304,102,308,102,314,102,319,102,322,102,340,102,343,102,346,102,361,102,364,102,367,102,370,102
    Data.i 377,102,380,102,385,102,392,102,395,102,401,102,406,102,413,102,416,102,419,102,424,102,432,102,435,102,441,102,448,102,451,102,457,102,250,103,253,103,261,103,264,103,267,103,276,103,280,103,283,103,290,103,296,103,303,103,307,103,314,103,319,103,322,103,340,103,346,103,361,103,364,103,367,103,374,103,378,103,383,103,390,103
    Data.i 393,103,400,103,404,103,411,103,414,103,417,103,420,103,424,103,432,103,435,103,441,103,447,103,450,103,457,103,249,104,252,104,255,104,263,104,266,104,274,104,279,104,282,104,292,104,296,104,302,104,306,104,312,104,315,104,320,104,337,104,345,104,359,104,362,104,366,104,369,104,376,104,379,104,384,104,391,104,403,104,406,104
    Data.i 413,104,416,104,419,104,423,104,431,104,434,104,440,104,447,104,450,104,250,105,253,105,261,105,264,105,272,105,275,105,280,105,286,105,289,105,295,105,301,105,305,105,311,105,314,105,319,105,336,105,345,105,353,105,361,105,366,105,373,105,377,105,382,105,389,105,392,105,405,105,412,105,415,105,418,105,421,105,424,105,431,105
    Data.i 437,105,440,105,446,105,449,105,249,106,252,106,261,106,264,106,272,106,275,106,280,106,283,106,291,106,294,106,301,106,304,106,311,106,314,106,318,106,321,106,337,106,347,106,359,106,365,106,372,106,375,106,381,106,384,106,391,106,395,106,398,106,403,106,410,106,413,106,417,106,420,106,423,106,431,106,436,106,439,106,446,106
    Data.i 449,106,453,106,247,107,250,107,259,107,262,107,271,107,274,107,279,107,291,107,295,107,301,107,305,107,311,107,315,107,318,107,323,107,336,107,346,107,359,107,363,107,366,107,372,107,376,107,381,107,385,107,389,107,392,107,395,107,398,107,403,107,410,107,413,107,417,107,420,107,424,107,429,107,432,107,436,107,439,107,446,107
    Data.i 449,107,452,107,455,107,460,107,248,108,251,108,261,108,271,108,274,108,279,108,289,108,293,108,299,108,303,108,309,108,312,108,316,108,319,108,323,108,335,108,346,108,358,108,364,108,370,108,374,108,380,108,383,108,389,108,392,108,396,108,400,108,403,108,409,108,412,108,417,108,421,108,427,108,430,108,434,108,438,108,444,108
    Data.i 447,108,450,108,454,108,458,108,247,109,250,109,259,109,262,109,272,109,278,109,287,109,292,109,295,109,299,109,304,109,308,109,311,109,314,109,318,109,322,109,335,109,348,109,358,109,364,109,369,109,374,109,378,109,381,109,387,109,392,109,395,109,398,109,401,109,408,109,411,109,416,109,421,109,426,109,429,109,432,109,435,109
    Data.i 440,109,447,109,450,109,453,109,456,109,245,110,248,110,259,110,265,110,272,110,279,110,285,110,288,110,294,110,298,110,304,110,308,110,311,110,314,110,318,110,321,110,346,110,356,110,359,110,365,110,373,110,377,110,380,110,384,110,390,110,393,110,396,110,399,110,403,110,408,110,412,110,416,110,422,110,426,110,430,110,433,110
    Data.i 439,110,443,110,449,110,452,110,455,110,245,111,248,111,269,111,272,111,281,111,284,111,292,111,295,111,302,111,305,111,309,111,312,111,317,111,334,111,348,111,357,111,364,111,367,111,374,111,377,111,382,111,385,111,393,111,402,111,405,111,408,111,415,111,423,111,429,111,432,111,440,111,448,111,451,111,244,112,247,112,270,112
    Data.i 314,112,317,112,335,112,350,112,365,112,369,112,372,112,375,112,403,112,245,113,269,113,311,113,314,113,317,113,350,113,364,113,367,113,370,113,373,113,376,113,379,113,269,114,310,114,313,114,316,114,351,114,354,114,357,114,360,114,363,114,366,114,369,114,268,115,308,115,311,115,315,115,354,115,357,115,360,115,363,115,269,116
    Data.i 308,116,312,116,315,116,308,117,311,117,314,117,308,118,311,118,317,118,309,119,267,200,266,202,375,202,381,202,373,203,376,203,366,204,245,205,248,205,251,205,264,205,363,205,378,205,242,206,245,206,248,206,251,206,254,206,265,206,364,206,371,206,380,206,241,207,244,207,254,207,263,207,362,207,365,207,235,208,239,208,242,208
    Data.i 254,208,263,208,362,208,365,208,380,208,237,209,252,209,255,209,263,209,362,209,365,209,380,209,234,210,237,210,253,210,262,210,361,210,364,210,379,210,232,211,235,211,253,211,261,211,360,211,363,211,378,211,230,212,233,212,252,212,261,212,360,212,363,212,377,212,380,212,230,213,250,213,253,213,261,213,360,213,364,213,378,213
    Data.i 228,214,249,214,252,214,261,214,360,214,363,214,377,214,226,215,249,215,252,215,260,215,358,215,362,215,365,215,378,215,227,216,250,216,259,216,358,216,363,216,376,216,379,216,226,217,249,217,258,217,356,217,359,217,364,217,376,217,402,217,446,217,225,218,248,218,252,218,258,218,355,218,358,218,364,218,376,218,401,218,444,218
    Data.i 448,218,226,219,249,219,258,219,265,219,269,219,276,219,281,219,284,219,292,219,297,219,306,219,321,219,357,219,364,219,375,219,383,219,386,219,401,219,407,219,415,219,425,219,436,219,439,219,443,219,448,219,451,219,239,220,242,220,245,220,248,220,251,220,254,220,257,220,263,220,266,220,269,220,272,220,278,220,282,220,285,220
    Data.i 292,220,296,220,299,220,306,220,312,220,330,220,333,220,355,220,362,220,365,220,376,220,382,220,385,220,388,220,394,220,401,220,406,220,409,220,415,220,422,220,425,220,428,220,436,220,439,220,442,220,447,220,450,220,453,220,239,221,242,221,246,221,252,221,255,221,260,221,263,221,269,221,275,221,278,221,281,221,285,221,291,221
    Data.i 294,221,298,221,305,221,311,221,328,221,331,221,334,221,353,221,356,221,364,221,374,221,380,221,383,221,387,221,393,221,402,221,407,221,412,221,415,221,422,221,425,221,429,221,435,221,441,221,444,221,451,221,454,221,245,222,248,222,256,222,260,222,263,222,269,222,276,222,279,222,285,222,291,222,297,222,300,222,305,222,310,222
    Data.i 313,222,328,222,331,222,338,222,353,222,362,222,372,222,375,222,380,222,387,222,391,222,394,222,402,222,407,222,412,222,415,222,421,222,428,222,433,222,436,222,442,222,448,222,452,222,246,223,255,223,260,223,266,223,269,223,275,223,278,223,284,223,289,223,292,223,298,223,304,223,309,223,312,223,327,223,337,223,353,223,362,223
    Data.i 372,223,377,223,380,223,387,223,391,223,395,223,400,223,405,223,410,223,413,223,419,223,422,223,429,223,434,223,440,223,443,223,450,223,244,224,247,224,255,224,259,224,265,224,268,224,275,224,282,224,288,224,291,224,298,224,304,224,309,224,312,224,327,224,351,224,354,224,364,224,372,224,378,224,386,224,391,224,396,224,401,224
    Data.i 405,224,410,224,413,224,419,224,427,224,432,224,438,224,441,224,447,224,451,224,245,225,254,225,257,225,260,225,266,225,273,225,276,225,283,225,288,225,295,225,298,225,303,225,308,225,311,225,326,225,351,225,362,225,370,225,373,225,378,225,384,225,389,225,392,225,396,225,401,225,405,225,410,225,413,225,419,225,425,225,430,225
    Data.i 433,225,439,225,446,225,450,225,244,226,250,226,254,226,258,226,263,226,266,226,273,226,280,226,283,226,289,226,296,226,302,226,306,226,309,226,324,226,349,226,352,226,363,226,371,226,377,226,380,226,383,226,390,226,394,226,399,226,403,226,406,226,410,226,413,226,419,226,422,226,430,226,435,226,438,226,441,226,447,226,450,226
    Data.i 245,227,254,227,258,227,262,227,265,227,272,227,275,227,281,227,287,227,293,227,296,227,302,227,306,227,309,227,314,227,326,227,351,227,363,227,370,227,376,227,388,227,393,227,396,227,402,227,405,227,409,227,412,227,417,227,428,227,431,227,435,227,438,227,444,227,448,227,454,227,243,228,251,228,254,228,258,228,262,228,266,228
    Data.i 272,228,278,228,281,228,286,228,292,228,295,228,300,228,304,228,307,228,310,228,314,228,326,228,350,228,362,228,365,228,370,228,375,228,378,228,388,228,392,228,395,228,399,228,403,228,407,228,410,228,414,228,417,228,428,228,431,228,435,228,439,228,445,228,448,228,454,228,244,229,253,229,258,229,261,229,266,229,271,229,274,229
    Data.i 277,229,280,229,284,229,287,229,290,229,293,229,297,229,300,229,303,229,307,229,311,229,324,229,348,229,362,229,367,229,370,229,377,229,385,229,388,229,392,229,395,229,398,229,402,229,405,229,409,229,413,229,416,229,419,229,428,229,431,229,434,229,439,229,444,229,448,229,452,229,242,230,250,230,253,230,258,230,261,230,268,230
    Data.i 271,230,274,230,277,230,280,230,283,230,286,230,289,230,292,230,295,230,298,230,301,230,304,230,308,230,311,230,346,230,349,230,363,230,368,230,377,230,383,230,386,230,390,230,395,230,398,230,402,230,405,230,409,230,412,230,418,230,425,230,429,230,432,230,438,230,442,230,447,230,451,230,242,231,251,231,257,231,265,231,268,231
    Data.i 271,231,274,231,277,231,285,231,288,231,291,231,300,231,305,231,308,231,325,231,347,231,362,231,366,231,369,231,379,231,382,231,389,231,395,231,398,231,403,231,408,231,411,231,420,231,423,231,429,231,432,231,440,231,446,231,449,231,241,232,250,232,269,232,272,232,285,232,304,232,307,232,325,232,344,232,347,232,363,232,366,232
    Data.i 405,232,408,232,242,233,251,233,270,233,284,233,302,233,305,233,325,233,343,233,346,233,363,233,366,233,404,233,407,233,252,234,269,234,282,234,285,234,302,234,305,234,327,234,344,234,362,234,365,234,393,234,403,234,406,234,268,235,280,235,284,235,300,235,304,235,327,235,341,235,344,235,362,235,365,235,401,235,405,235,408,235
    Data.i 268,236,281,236,284,236,299,236,303,236,325,236,330,236,339,236,342,236,362,236,365,236,401,236,405,236,266,237,269,237,281,237,296,237,299,237,302,237,330,237,333,237,336,237,339,237,342,237,364,237,400,237,403,237,406,237,267,238,280,238,283,238,298,238,301,238,323,238,334,238,337,238,360,238,399,238,402,238,405,238,267,239
    Data.i 281,239,298,239,301,239,401,239,267,240,282,240
  EndDataSection
  
EndModule

ret.i = xmas::Init()
If ret > 0
  xmas::Screen()
  xmas::Run()
EndIf