none
Столкновение пули с объектом... как это сделать? RRS feed

  • Общие обсуждения

  • хочу сделать типа стрелялку, но столкнулся с проблемой столкновения пули с обьектом, помогите, пожалуйста, кто знает как это сделать!

    game()
    Sub game
    Graphicswindow.Width = 600
    Graphicswindow.Height = 870
    Timer.Interval = 5000
    Timer.Tick = tick
    backgrounder = ImageList.LoadImage(Program.Directory + "/nebo.jpg")
    background = Shapes.AddImage(backgrounder)
    Shapes.Move(background, 0, -870)
    blast = ImageList.LoadImage(Program.Directory + "/blast.jpg")
    blastw = ImageList.LoadImage(Program.Directory + "/blastw.jpg")
    spaceship = Shapes.AddImage(blast)
    Shapes.Move(spaceship, 300, 780)
    Graphicswindow.MouseMove = move
    Graphicswindow.MouseDown = click
    go:
    yme = Shapes.GetTop(background)
    x = Shapes.GetLeft(spaceship) + 10
    y = Shapes.GetTop(spaceship) + 10
    If pulaleft >= wragx and pulaleft <= wragx + 50 and pulay >= wragy and pulay <= wragy + 50 then
    Graphicswindow.ShowMessage("Здесь потом будет действие","x")
    EndIf
    Goto go
    EndSub
    Sub move
    mx = Graphicswindow.MouseX
    Shapes.Move(spaceship, mx - 10, Graphicswindow.Height - 50)
    EndSub
    Sub click
    If Mouse.IsLeftButtonDown = "True" Then
    s = Shapes.AddRectangle(3,10)
    Shapes.Move(s, x, y)
    pulaleft = Shapes.GetLeft(s)
    pulay = Shapes.GetTop(s)
    Shapes.Animate(s, pulaleft, pulay - 1000, 3333)
    EndIf
    EndSub

    Sub tick
    spaceshipw = Shapes.AddImage(blastw)
    Shapes.Zoom(spaceshipw, 1.5, 1.5)
    random = Math.GetRandomNumber(600)
    Shapes.Move(spaceshipw, random, -50)
    Shapes.Animate(spaceshipw,random,1000,10000)
    wragx = Shapes.GetLeft(spaceshipw)
    wragy = Shapes.GetTop(spaceshipw)
    EndSub

    без картинок не заработает: http://ifolder.ru/17457164
    не могу сделать столкновение пули (s) и вражеского корабля (blastw)
    поможете?

    • Перемещено SachinW 1 октября 2010 г. 20:11 MSDN Forums Consolidation (От:Small Basic. Российское сообщество для начинающих рахработчиков.)
    • Изменен тип Maksim MarinovMicrosoft contingent staff, Moderator 13 марта 2013 г. 12:40 Тема не активна
    27 апреля 2010 г. 10:37