Joyeux Anniv

Heis Spiter · Message par **Heis Spiter** » dim. 11/juil./2004 19:37

J'espère que je ne me trompe pas, mais je crois que c'est l'anniversaire à Oliv ! Donc, si c'est ca :

Il fête ses 17 ans je crois

julien · Message par **julien** » dim. 11/juil./2004 19:43

Je pensai qu'il était plus vieux... bien plus vieux...

Backup · Message par **Backup** » dim. 11/juil./2004 20:14

bon ben bon aniv oliv

Pierre · Message par **Pierre** » lun. 12/juil./2004 16:19

joyeux anniversaire!
'tain il a 17 ans...

garzul · Message par **garzul** » lun. 12/juil./2004 22:28

Héhéhé mon grand retour sur le forum et BON ANIVERSAIRE OLIV

fweil · Message par **fweil** » mer. 14/juil./2004 15:31

Code : Tout sélectionner

Enumeration 1
  #Sprite3D1
  #Window_Main
  #Status_Bar
  #Gadget_Button_ClickMe
  #Sprite1
  #Image_Background
EndEnumeration

  Quit = #FALSE
  nSprites = 10
  Dim ZoomFactor(nSprites)
  Dim Zoom(nSprites)
  Dim AngleFactor(nSprites)
  Dim Angle(nSprites)
  Dim XFactor(nSprites)
  Dim YFactor(nSprites)
  Dim X(nSprites)
  Dim Y(nSprites)
  Dim Transparency(nSprites)
  WindowXSize = GetSystemMetrics_(#SM_CXSCREEN)
  WindowYSize = GetSystemMetrics_(#SM_CYSCREEN)
  WindowedScreenXSize = 800
  WindowedScreenYSize = 600
  For i = 1 To nSprites
    ZoomFactor(i) = 10
    AngleFactor(i) = 1
    XFactor(i) = 1
    YFactor(i) = 1
    Zoom(i) = Random(200)
    Angle(i) = Random(360)
    X(i) = Random(WindowedScreenXSize)
    Y(i) = Random(WindowedScreenYSize)
    Transparency(i) = 100
  Next
  Start = #TRUE
  If InitSprite() And InitSprite3D() And InitKeyboard() And InitMouse()
      If OpenWindow(#Window_Main, 0, 0, WindowXSize, WindowYSize, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered, "Bon anniversaire")
          If CreateGadgetList(WindowID())
              SetGadgetFont(#PB_Default, LoadFont(0, "Verdana", 24, #PB_Font_Bold | #PB_Font_Italic | #PB_Font_HighQuality))
              ButtonGadget(#Gadget_Button_ClickMe, 10, 10, WindowXSize - 20, 60, "Click me")
          EndIf
          BackgroundImageID = CreateImage(#Image_Background, WindowedScreenXSize, WindowedScreenYSize)
          StartDrawing(ImageOutput())
            For x = 0 To WindowedScreenXSize
              LineXY(x, 0, 0, x * WindowedScreenYSize / WindowedScreenXSize, x << 15)
              LineXY(x, WindowedScreenYSize, WindowedScreenXSize, x * WindowedScreenYSize / WindowedScreenXSize, x << 15)
            Next
          StopDrawing()
          hCursor1 = LoadCursor_(0, #IDC_ARROW)
          hCursor2 = LoadCursor_(0, #IDC_CROSS)
          AddKeyboardShortcut(#Window_Main, #PB_Shortcut_Escape, #PB_Shortcut_Escape)
          If OpenWindowedScreen(WindowID(), (WindowXSize - WindowedScreenXSize) / 2, (WindowYSize - WindowedScreenYSize - WindowedScreenBottomMargin) / 2, WindowedScreenXSize, WindowedScreenYSize, 0, 0, 0)
              SpriteWidth = 128
              SpriteHeight = 128
              TransparentSpriteColor(-1, 0, 0, $40)
              CreateSprite(#Sprite1, SpriteWidth, SpriteHeight, #PB_Sprite_Texture)
              StartDrawing(SpriteOutput(#Sprite1))
                DrawingFont(LoadFont(0, "Verdana", 10, #PB_Font_Bold | #PB_Font_Italic | #PB_Font_HighQuality))
                Box(0, 0, SpriteWidth, SpriteHeight, $400000)
                BackColor(0, 0, $40)
                FrontColor($FF, $FF, $C0)
                DrawingMode(1)
                Text.s = "Bon anniversaire"
                Locate((SpriteWidth - TextLength(Text)) / 2, (SpriteHeight - 15) / 2)
                DrawText(Text)
                Text.s = "Oliv"
                Locate((SpriteWidth - TextLength(Text)) / 2, (SpriteHeight + 15) / 2)
                DrawText(Text)
                DrawingMode(4)
                Box(0, 0, SpriteWidth, SpriteHeight, $C0FFFF)
              StopDrawing()
              CreateSprite3D(#Sprite3D1, #Sprite1)
              Sprite3DQuality(1)
              Repeat
                Select WindowEvent()
                  Case #PB_Event_CloseWindow
                    Quit = #TRUE
                  Case #PB_Event_Menu
                    Select EventMenuID()
                      Case #PB_Shortcut_Escape
                        Quit = #TRUE
                    EndSelect
                  Case #PB_Event_Gadget
                    Select EventGadgetID()
                      Case #Gadget_Button_ClickMe
                        If Start
                            Start = #FALSE
                            FreeGadget(#Gadget_Button_ClickMe)
                            ButtonGadget(#Gadget_Button_ClickMe, 10, 10, WindowXSize - 20, 60, "Quit")
                          Else
                            Quit = #TRUE
                        EndIf
                    EndSelect
                EndSelect
                GetCursorPos_(CursorPosition.POINT) - 20
                MouseX = CursorPosition\x - WindowX()
                MouseY = CursorPosition\y - WindowY()
                If MouseX >= WindowXSize - WindowedScreenXSize And MouseX <= WindowXSize And MouseY >= WindowYSize - WindowedScreenYSize And MouseY <= WindowYSize
                    SetCursor_(hCursor2)
                  Else
                    SetCursor_(hCursor1)
                EndIf
                If Start3D()
                    FlipBuffers()
                    ClearScreen($00, $00, $40)
                    StartDrawing(ScreenOutput())
                      DrawImage(BackgroundImageID, 0, 0)
                      If Start = #FALSE
                          DrawingFont(LoadFont(0, "Verdana", 40, #PB_Font_Bold | #PB_Font_Italic | #PB_Font_HighQuality))
                          BackColor(0, 0, $40)
                          FrontColor($FF, $FF, $FF)
                          DrawingMode(1)
                          Text.s = "Bon anniversaire"
                          XText = (WindowedScreenXSize - TextLength(Text)) / 2
                          YText = (WindowedScreenYSize - 60) / 2
                          Locate(XText - 2, YText + 2)
                          DrawText(Text)
                          FrontColor(Red(Color), Green(Color), Blue(Color))
                          Locate(XText, YText)
                          DrawText(Text)
                          FrontColor($FF, $FF, $FF)
                          Text.s = "Oliv"
                          XText = (WindowedScreenXSize - TextLength(Text)) / 2
                          YText = (WindowedScreenYSize + 60) / 2
                          Locate(XText - 2, YText + 2)
                          DrawText(Text)
                          FrontColor(Red(Color), Green(Color), Blue(Color))
                          Locate(XText, YText)
                          DrawText(Text)
                          Color + 7
                          DrawingMode(0)
                          For i = 12 To 1 Step -1
                            XCandle = WindowedScreenXSize / 2 + 300 * Sin(i / 4)
                            YCandle = WindowedScreenYSize / 2 + 150 * Cos(i / 4)
                            For Candle = 10 To 0 Step - 2
                              Box(XCandle - Candle + 5, YCandle + 80, Candle, 35, RGB(150 + 10 * Candle, 150 + 10 * Candle, 150 + 10 * Candle))
                            Next
                            For Light = 25 To 1 Step -1
                              Circle(XCandle + Random(2) - 1, YCandle + 3* Light + Random(2) - 1, Light / 4, RGB(Light * 10, Light * 6, 0))
                            Next
                            XCandle = WindowedScreenXSize / 2 - 300 * Sin(i / 4)
                            YCandle = WindowedScreenYSize / 2 + 150 * Cos(i / 4)
                            For Candle = 10 To 0 Step - 2
                              Box(XCandle - Candle + 5, YCandle + 80, Candle, 35, RGB(150 + 10 * Candle, 150 + 10 * Candle, 150 + 10 * Candle))
                            Next
                            For Light = 25 To 1 Step -1
                              Circle(XCandle + Random(2) - 1, YCandle + 3* Light + Random(2) - 1, Light / 4, RGB(Light * 10, Light * 6, 0))
                            Next
                          Next
                      EndIf
                    StopDrawing()
                    For i = 1 To nSprites
                      ZoomSprite3D(#Sprite3D1, Zoom(i), Zoom(i))
                      RotateSprite3D(#Sprite3D1, Angle(i), 0)
                      DisplaySprite3D(#Sprite3D1, X(i), Y(i), Transparency(i))
                      Transparency(i) = Transparency(i) + 1
                      If Transparency(i) > 255
                          Transparency(i) = 200
                      EndIf
                      Zoom(i) + ZoomFactor(i)
                      If Abs(Zoom(i)) > 256
                          ZoomFactor(i) = -ZoomFactor(i)
                      EndIf
                      Angle(i) + AngleFactor(i)
                      If Angle(i) > 360
                          AngleFactor(i) = -AngleFactor(i)
                      EndIf
                      X(i) + XFactor(i)
                      Y(i) + YFactor(i)
                      If X(i) > WindowedScreenXSize Or X(i) < 0
                          XFactor(i) = -XFactor(i)
                      EndIf
                      If Y(i) > WindowedScreenYSize Or Y(i) < 0
                          YFactor(i) = -YFactor(i)
                      EndIf
                    Next
                    Stop3D()
                EndIf
                ExamineKeyboard()
                If KeyboardPushed(#PB_Key_Escape)
                    Quit = #TRUE
                EndIf
                Delay(1)
              Until Quit
            Else
              MessageRequester("Error", "Can't open the main windowedscreen", 0)
          EndIf
        Else
          MessageRequester("Error", "Can't open the main window", 0)
      EndIf
    Else
      MessageRequester("Error", "Can't init DirectX", 0)
  EndIf
End

Backup · Message par **Backup** » mer. 14/juil./2004 16:20

bravo Fweil !!!

y pas a dire quand le vois ça ,pour moi les pro du pure sont dans le desordre

Denis
Oliv
Cederavic
Heiss
Le Soldat inconnu (maintenant tres connu !!)
Fweil
Hardy
Comtois
Chris

bon je crois que j'ai oublier personne !!

nous autres ont est dans le "groupetto" la bas derriere
mais on vous talonne les gars !!!
attention on arrive !!

heu! comment vous savez que je regarde le Tour de France ??

on devrai faire un "Hall of Fame" avec vote !!

Anonyme2 · Message par **Anonyme2** » jeu. 15/juil./2004 12:54

Tout simplement excellent Fweil

Bon anniversaire OLIV (faudrait pas oublier le principal)

Oliv · Message par **Oliv** » sam. 17/juil./2004 20:35

Désolé de ne pas avoir répondu plus tôt mais j'étais en compétition.
sinon tu ne t'es pas planté ni pour la date ni pour l'heure.
Merci a tous

Je pensai qu'il était plus vieux... bien plus vieux...

vers quel age ??

(on m'a déjà dit 30 par internet alors n'ai pas peur)

julien · Message par **julien** » sam. 17/juil./2004 22:44

la bonne 50n

Oliv · Message par **Oliv** » dim. 18/juil./2004 11:52

Nan, ça c'est mon père

Heis Spiter · Message par **Heis Spiter** » lun. 19/juil./2004 18:02

sinon tu ne t'es pas planté ni pour la date ni pour l'heure.

Ouf

Tout simplement excellent Fweil

+1

y pas a dire quand le vois ça ,pour moi les pro du pure sont dans le desordre

Denis
Oliv
Cederavic
Heiss
Le Soldat inconnu (maintenant tres connu !!)
Fweil
Hardy
Comtois
Chris

Faut pas exagerer, je ne suis pas un pro, mais un bidouilleur, nuance