Skip to content
This repository has been archived by the owner on Aug 22, 2021. It is now read-only.

Commit

Permalink
添加战斗
Browse files Browse the repository at this point in the history
  • Loading branch information
buger404 committed Jun 26, 2019
1 parent 12b6bef commit cd23a58
Show file tree
Hide file tree
Showing 18 changed files with 367 additions and 66 deletions.
5 changes: 3 additions & 2 deletions IcelollySnake.vbw
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
GPage = -606, 159, 365, 589, Z
GPage = -606, 159, 365, 589,
Gdiplus = 32, 32, 1003, 462,
Bass = 0, 0, 0, 0, C
GCore = 96, 96, 849, 472,
Expand All @@ -24,5 +24,6 @@ Animations = 0, 0, 0, 0, C
GameWindow = 64, 64, 817, 440, , 32, 32, 785, 408, C
MainPage = 128, 128, 881, 504,
Dialog = 96, 96, 849, 472,
BattlePage = 160, 160, 913, 536,
BattlePage = 148, 160, 913, 593, Z
GameOverPage = 32, 32, 785, 408,
GCrashBox = 192, 192, 1163, 622,
Binary file modified app.exe
Binary file not shown.
Binary file added assets/0.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/1.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/2.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/3.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/4.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/5.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/6.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/7.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/8.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/9.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified assets/icebig.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added assets/miss.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
421 changes: 360 additions & 61 deletions code/BattlePage.cls

Large diffs are not rendered by default.

7 changes: 4 additions & 3 deletions code/MainPage.cls
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ Attribute VB_Exposed = False
Dim Page As GPage
Dim br As Single, bg As Single, bb As Single, bt As Long
Dim tr As Single, tg As Single, tb As Single
Dim OpenTime As Long, BattleTime As Long
Dim openTime As Long, BattleTime As Long
Dim NoLoop As Boolean
'======================================

Expand Down Expand Up @@ -84,7 +84,7 @@ Public Sub Update()
Page.DrawImageEx "icebig.png", GW / 2, GH / 2 - 80, 128, 128, Pos:=posOnCenter
End If

If GetTickCount - OpenTime >= 8000 And Dialog.diaChar = "" Then
If GetTickCount - openTime >= 8000 And Dialog.diaChar = "" Then
Dialog.NewDialog "你好,我是冰棍。", "say.wav", 100
Dialog.NewDialog "你最好的朋友,冰棍。", "say.wav", 80
Dialog.NewDialog "...", "say.wav", 200
Expand Down Expand Up @@ -135,12 +135,13 @@ Private Sub Class_Initialize()

Set BGM = New GMusic
BGM.Create App.path & "\music\Barrier.mp3"
BGM.Volume = 0.3
BGM.Play

'创建页面
ECore.Add Page, "MainPage"

OpenTime = GetTickCount
openTime = GetTickCount

'===============================================
' 如果需要添加动画,请放置在此处
Expand Down
Binary file added music/Hopes and Dreams.mp3
Binary file not shown.
Binary file removed music/SpiderDance.mp3
Binary file not shown.

0 comments on commit cd23a58

Please sign in to comment.