VB.NET GAME4 비주얼 베이직(vb.net)으로 슈팅게임 만들기 - 5. 적 추가 안녕하세요 Printed입니다. 거의 일주일 만에 돌아왔네요; 이제 진짜 시험이 열흘도 안남아서 다음 일지는 이번보다 늦게 올라올 것 같습니다. 이번에는 적과 플레이어의 오토 공격 기능을 추가했습니다! 바로 영상 보시죠. 사방에서 적들이 랜덤 스폰되고(아이템 랜덤스폰 알고리즘과 동일), 플레이어를 향해 몰려옵니다. 여러분은 플레이어를 움직이기만 하면 됩니다! 자동으로 가장 가까운 적을 향해 투사체가 발사됩니다. Imports System.Math Public Class Enemy : Inherits ObjectBase Private enemyHp As Integer Private enemyspd, damage_touch, damage_shot As Int16 Private touchKill As Bool.. 2020. 10. 17. 비주얼 베이직(vb.net)으로 슈팅게임 만들기 - 4. 오브젝트 추가 저번 글에서 예고했던 대로 아이템과 적을 추가했습니다. ... 사실 적은 틀만 잡아 두었구요. 제대로 구현되진 않았습니다. 하지만 아이템은 제대로 구현되어 있습니다! 영상입니다. 영상에서 보시다시피 화면 크기를 640 -> 960으로 변경했습니다. 나중에 난이도를 설정할 때 화면 크기를 옵션으로 넣는것도 좋아 보이네요 ㅎㅎ 추가된 중요한 부분들을 설명해 드리겠습니다. Public Class ObjectBase Implements IDisposable Protected disposed As Boolean = False Public kill As Boolean = False Public rec As Rectangle Public spr As SpriteSheet Public spr_index As Int16.. 2020. 10. 12. 비주얼 베이직(vb.net)으로 슈팅게임 만들기 - 3. HP, exp바 안녕하세요! 3번째 일지입니다. 시험기간이 코앞이라 학과 공부하느라 프로젝트 진행이 더디네요.. 그래도 시험 전에 끝내버리도록 하겠습니다! 바로 영상입니다. 애니메이션을 위한 스프라이트 시트 클래스가 추가되었습니다. 새로 추가된 getSprite 함수로 비트맵 배열을 생성해 받아옵니다. Public Function GetSprite(ByVal file_name As String, ByVal number As Int16) As SpriteSheet Dim strImageName As String = Application.ExecutablePath strImageName = strImageName.Substring(0, strImageName.LastIndexOf("\bin")) & "\image\" & f.. 2020. 10. 9. 비주얼 베이직(vb.net)으로 슈팅게임 만들기 - 2. 캐릭터 이동 이번에는 캐릭터의 이동 부분을 구현해 보았습니다. 영상 먼저 보시죠. 마우스를 클릭하면, 배경의 선이 움직입니다. 네. 사실 캐릭터가 이동하는 것이 아닌 배경이 움직이는 것입니다. 이후에 등장할 적(enmey)들도 이렇게 구현할 생각입니다. Public Function GetAngleTwoPoint(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) Dim dx As Integer = x2 - x1 Dim dy As Integer = y2 - y1 Dim angle As Double = Atan2(dy, dx) Return angle End Function Public Function GetCoordCirc.. 2020. 10. 4. 이전 1 다음
