Посмотрите (движение спрайта на purebasic)

[newart]

newart, а мою программку переделаешь под то как оно должно правильно выглядеть?

Я тут в Самаре человека с дискетами нашел. Перегонишь?
Их немного и потому слать в питер, а потом обратно как то накладно...

[Advertiser]

[thims]

По просьбе newart, вот на XNA/VB (хотя я, лично, предпочитаю С#):

Module Program
    Private Class MyGame
        Inherits Game

        Private graphics As GraphicsDeviceManager
        Private batch As SpriteBatch
        Private background As Texture2D
        Private sprite As Texture2D
        Private frame As Integer

        Public Sub New()
            graphics = New GraphicsDeviceManager(Me)
            graphics.PreferredBackBufferWidth = 388
            graphics.PreferredBackBufferHeight = 462

            TargetElapsedTime = TimeSpan.FromMilliseconds(1000 / 16)
        End Sub

        Protected Overrides Sub LoadContent()
            batch = New SpriteBatch(GraphicsDevice)
            background = Texture2D.FromStream(GraphicsDevice, File.OpenRead("dizzy pic.png"))
            sprite = Texture2D.FromStream(GraphicsDevice, File.OpenRead("dizzy1.png"))
        End Sub

        Protected Overrides Sub Update(gameTime As GameTime)
            Dim state = Keyboard.GetState()

            frame = frame Xor 1

            MyBase.Update(gameTime)
        End Sub

        Protected Overrides Sub Draw(gameTime As GameTime)
            GraphicsDevice.Clear(Color.Black)

            batch.Begin()
            batch.Draw(background, Vector2.Zero, Color.White)
            batch.Draw(sprite, New Vector2(220, 238), New Rectangle(frame * 23, 74, 23, 20), Color.White)
            batch.End()

            MyBase.Draw(gameTime)
        End Sub
    End Class

    Sub Main(ByVal args As String())
        Using game As New MyGame()
            game.Run()
        End Using
    End Sub
End Module

Но в смысле поддержки, расширяемости, удобства IDE, количества библиотек и размера комьюнити заруливает по полной. Никакие пуребасики и рядом не валялись.

[женя999]

стучи в аську

ок

[newart]

Но в смысле поддержки, расширяемости, удобства IDE, количества библиотек и размера комьюнити заруливает по полной.

Домыслы.

[zx_demon]

кому он его только непредлагал.

Эт точно!

---------- Post added at 16:44 ---------- Previous post was at 16:39 ----------

Ооо, слышу слова прямо-таки Илиты, которая никак на баннер сверху крестик поставить не может, чтобы желающие могли его убрать.

Согласен, баннер нервирует.

---------- Post added at 16:50 ---------- Previous post was at 16:44 ----------

newart ты бы хоть учебник нормальный по PureBasic подкинул, а то я так нормальный и не нашёл.

[женя999]

newart ты бы хоть учебник нормальный по PureBasic подкинул, а то я так нормальный и не нашёл.

Да ,сам замучился,там конечно есть офигенная справка,но без помощи людей,я бы не сдвинулся. например

Color = Point(x, y)
вроде должно работать,но откуда я знал что надо так писать-
StartDrawing
Color = Point(x, y)
StopDrawing()

[jerri]

женя999, там же в примерах описано

[женя999]

Вот теперь диззи идёт вправо не скользя,через один пиксель,перерисовывал спрайты.
разрешение 640х480

[Rindex]

разрешение 640х480

Не увидел такого, просто растянут экран на весь монитор. И очень часто идя справа-налево происходит такое.

Скрытый текст

[свернуть]

Хотя вот нажав на принт скрин экран отобразился 640х480, а на мониторе был растянут на полную.

[женя999]

Я имею ввиду монитор переключается в режим 640х480 (просто у кого-то 320х240 не работала),а картика (игровое поле ) на верху растянуто в длинну. Но это не важно. Мне главное посмотрите движение вправо ,я спрайты изменил ,их теперь больше и диззи движется через 1 пиксель.
Скорость передвижения вправо как ?