1. VisualBasic / Говнокод #13841

    −79

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    Цикл для игр
    
    ' Декларируем APi
    
    Public Declare Function LockWindowUpdate Lib "user32" _ (ByVal hwndLock As Long) As Long ' Для тех кто рисует стандартными функциями (Чтоб немерцало)
    ' Для цикла
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Public Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long
    
    Public rb As Boolean, FPS& 
    
    Const mFps& = 60
    
    Sub Main()
    
    init ' Инициализация (процедура в которой загружаются объекты)
    
    Load frmMain
    
    frmMain.Show frmMain.Scale (0, 0)-(200, 100): frmMain.AutoRedraw = 1 ' Загрузка формы
    
    Dim t1&, t2&, stp&, stpM&: stpM = 1000 / mFps& ' переменные для цикла
    
    't2 = GetCurrentTime
    
    ' Цикл
    
    Do Until rb ' rb = 1 - Выход из цикла (например ,При выключение программы)
    
    t1 = GetCurrentTime: stp = stpM - (t1 - t2): t2 = t1: If stp > 0 Then Sleep stp: t2 = t2 + stp ' Эта строчка регулирует кол-во ФПС , Fps<=mFps
    
    DoEvents: FPS = FPS + 1
    
    DoGame ' Вся игра
    
    Loop
    
    Unload frmMain
    
    End Sub
    
    Sub DoGame() ' Состав игры
    
    DoControl ' Контроль клавиатурой  
    
    DoFiz ' Физика
    
    Render ' Прорисовка
    
    End Sub

    Вот какие они - таланты нашего гов..городка.
    Ты сука, дол.оеб и девственник

    Запостил: Stertor, 21 Сентября 2013

    Комментарии (7) RSS

    • А в чем говно, Stertor, помимо того, что автор совершенно не знает русский язык?

      Типичный игровой цикл, коих тысячи. Из багов вижу разве что зачем-то закомменченную инициализацию t2 в строке 24. Ну и строку 30 стоило бы разбить на несколько.
      Ответить
    • Три дня тут не был, снова ничего не поменялось. Такое ощущение, словно постоянный день сурка.
      Ответить
      • показать все, что скрытоМы очень по тебе скучали.
        Ответить
      • я рад, если такое не наблюдается везде, только на ГК.
        Ответить
        • Охх... Мне приснился очень странный сон.
          мне приснилось что я - опенок, растущий на опушке под березой. Недавно прошел дождь, и в углублении моей шляпки собралось уж порядочно росы. Усердно покачивая шляпкой чтобы стряхнуть влагу я вдруг услышал треск сучьев и нецензурную брань. Мимо пробежала лисица на трех ногах. Я перестал качать головой и прислушался. Я не сразу увидел, как надо мной вырастает тень. Медленно подняв глаза, я увидел как надо мной широко улыбаясь склонился огромный детина с хитрыми глазами.
          -Масленок, -сказал мужик, и захохотал. -Ты-масленок, я -грибник.
          -Честь имею. Я хотел поклониться но вовремя вспомнил, что ножка у меня тонкая и может обломиться, поэтому лишь слегка кивнул.
          -Ахах, масленок заговорил. Мужичина присел, уперев кулачища в бедра.
          Чего ты тут проседаешь? Пошли ко мне, у меня комп есть под ДОС, покажу.
          -Тоже мне, невидаль. Вчерашним днем живешь, дяденька. У меня вот селерон под винду!!! - соврал я. На самом деле в магнитофоне лопнул пассик и комп придя в негодность валялся где-то рядом в траве.
          -Ты что, прихуел бля? Маслята нынче борзые пошли, наххуй! Мужик осерчал.
          -Извини.
          -Придется тебе заявление писать по собственному желанию, отказаться от должности редактора местной лесной газеты.
          Ответить
          • Я хотел возмутиться - какой же я писака?! , но мужик меня перебил: ты-масленок, я-грибник, не забывай. - ловко подрезал меня и положил в кузовок.
            Скоро мы пришли домой, меня вытащили из кузова и посадили за комп.
            -Какая примитивщина, паутина тут у тебя. Вдруг я увидел себя в зеркале. Лицо у меня почему-то было в странной пыли.
            -Кокаинщик?
            Я еще долго болтал, жал f8, подкалывал мужика. Он был занят своими делами и казалось не замечал меня.
            -А у тебя винда левая! Ахахахах...
            Мужик остолбенело замер, потом медленно повернулся ко мне и широко улыбнулся.
            -Масленок...
            [...]
            Ловкие руки вымыли меня, очистили от кожицы и уложили на тарелку просохнуть.
            Эй, а кто вытирать будет?! Я не вижу у вас осиновых листьев. Я ведь так и простудиться могу.
            -Перебьешься.
            [...]
            Потом меня сварили с лучком и специями - мы еще долго спорили, какой асм лучше. Лук был приверженцем тасма, а я - масма, специи скромно помалкивали - они кодили только на кубейсике. Потом меня подали на тарелке со сметаной.
            Я смутно помню, как мужик долго тыкал мне вилкой в харю...
            Ответить

    Добавить комментарий