From a70c45c115aaf7b958b61296fa362d4c00e366cd Mon Sep 17 00:00:00 2001 From: Dnomd343 Date: Tue, 14 Apr 2020 17:18:49 +0800 Subject: [PATCH] v0.0 --- Form_Game.frm | 630 ++++++++++++++++++++++++++++++++++++++++++++++++++ Form_Game.frx | Bin 0 -> 102090 bytes HRD_Game.vbp | 32 +++ HRD_Game.vbw | 1 + MSSCCPRJ.SCC | 5 + 5 files changed, 668 insertions(+) create mode 100644 Form_Game.frm create mode 100644 Form_Game.frx create mode 100644 HRD_Game.vbp create mode 100644 HRD_Game.vbw create mode 100644 MSSCCPRJ.SCC diff --git a/Form_Game.frm b/Form_Game.frm new file mode 100644 index 0000000..3325cde --- /dev/null +++ b/Form_Game.frm @@ -0,0 +1,630 @@ +VERSION 5.00 +Begin VB.Form Form_Game + AutoRedraw = -1 'True + BorderStyle = 4 'Fixed ToolWindow + Caption = "HRD Game v0.0 by Dnomd343" + ClientHeight = 6990 + ClientLeft = 150 + ClientTop = 495 + ClientWidth = 9660 + Icon = "Form_Game.frx":0000 + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 6990 + ScaleWidth = 9660 + ShowInTaskbar = 0 'False + StartUpPosition = 2 'ÆÁÄ»ÖÐÐÄ + Begin VB.Timer Timer1 + Interval = 200 + Left = 9840 + Top = 240 + End + Begin VB.TextBox Text_Debug + Height = 6735 + Left = 5760 + MultiLine = -1 'True + TabIndex = 0 + Top = 120 + Width = 3735 + End + Begin VB.Menu test + Caption = "test" + End +End +Attribute VB_Name = "Form_Game" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +Private Type Case_Block + address As Integer + style As Integer +End Type +Private Type Block_Address + x As Integer + y As Integer +End Type +Dim Block(0 To 9) As Case_Block +Dim Exist(1 To 4, 1 To 5) As Boolean +Dim Block_index(1 To 4, 1 To 5) As Integer +Dim start_x As Integer, start_y As Integer, square_width As Integer, gap As Integer +Dim block_line_width As Integer, case_line_width As Integer +Dim block_color, block_line_color, case_color, case_line_color +Dim x_split(0 To 4) As Integer, y_split(0 To 5) As Integer +Dim dir_x1 As Integer, dir_y1 As Integer, dir_x2 As Integer, dir_y2 As Integer +Dim block_addr(0 To 2) As Block_Address, move_max_step As Integer +Dim mouse_x As Long, mouse_y As Long +Dim last_move As Integer, move_times As Integer +Dim total_steps As Long +Dim debug_mode As Boolean +Private Sub Form_Click() + Dim m As Integer + If mouse_x < start_x Or mouse_x > start_x + square_width * 4 + gap * 5 Then Exit Sub + If mouse_y < start_y Or mouse_y > start_y + square_width * 5 + gap * 6 Then Exit Sub + m = Block_index(Get_block_x(mouse_x), Get_block_y(mouse_y)) + If m = 10 Then Exit Sub + If m = last_move Then + If move_max_step = 1 Then + If dir_x2 = 0 And dir_y2 = 0 Then + If move_times Mod 2 = 1 Then + Call Move_Block(m, -dir_x1, -dir_y1) + Else + Call Move_Block(m, dir_x1, dir_y1) + End If + Else + If move_times Mod 4 = 0 Then + Call Move_Block(m, dir_x1, dir_y1) + ElseIf move_times Mod 4 = 1 Then + Call Move_Block(m, block_addr(0).x - block_addr(1).x, block_addr(0).y - block_addr(1).y) + ElseIf move_times Mod 4 = 2 Then + Call Move_Block(m, block_addr(2).x - block_addr(0).x, block_addr(2).y - block_addr(0).y) + Else + Call Move_Block(m, block_addr(0).x - block_addr(2).x, block_addr(0).y - block_addr(2).y) + End If + End If + ElseIf move_max_step = 2 Then + If move_times Mod 4 = 0 Then + Call Move_Block(m, dir_x1, dir_y1) + ElseIf move_times Mod 4 = 1 Then + Call Move_Block(m, block_addr(2).x - block_addr(1).x, block_addr(2).y - block_addr(1).y) + ElseIf move_times Mod 4 = 2 Then + Call Move_Block(m, block_addr(1).x - block_addr(2).x, block_addr(1).y - block_addr(2).y) + Else + Call Move_Block(m, block_addr(0).x - block_addr(1).x, block_addr(0).y - block_addr(1).y) + End If + End If + move_times = move_times + 1 + Else + Call Check_Move(m) + move_times = 1 + last_move = m + If move_max_step = 0 Then Exit Sub + total_steps = total_steps + 1 + Call Move_Block(m, dir_x1, dir_y1) + End If + Call Output_Graph +End Sub + +Private Sub Form_DblClick() + Call Form_Click +End Sub + +Private Sub Form_Load() + Me.Icon = LoadPicture("") + Call init + debug_mode = True + Call Analyse("1A9BF0C") + Call Output_Graph +End Sub + +Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) + mouse_x = x + mouse_y = y +End Sub +Private Sub Move_Block(m As Integer, dir_x As Integer, dir_y As Integer) + Dim addr As Integer, style As Integer, x As Integer, y As Integer + addr = Block(m).address + style = Block(m).style + y = Int(addr / 4) + 1 + x = addr - (y - 1) * 4 + 1 + x = x + dir_x + y = y + dir_y + addr = (y - 1) * 4 + x - 1 + Call Clear_Block(m) + Block(m).address = addr + Block(m).style = style + If Block(m).style = 0 Then + Block_index(x, y) = m + Block_index(x, y + 1) = m + Block_index(x + 1, y) = m + Block_index(x + 1, y + 1) = m + End If + If Block(m).style = 1 Then + Block_index(x, y) = m + Block_index(x + 1, y) = m + End If + If Block(m).style = 2 Then + Block_index(x, y) = m + Block_index(x, y + 1) = m + End If + If Block(m).style = 3 Then + Block_index(x, y) = m + End If + For x = 1 To 4 + For y = 1 To 5 + If Block_index(x, y) <> 10 Then Exist(x, y) = True + Next y + Next x +End Sub +Private Sub Check_Move(m As Integer) + Dim addr As Integer, x As Integer, y As Integer + Dim move_once As Boolean + move_once = False + dir_x1 = 0: dir_x2 = 0: dir_y1 = 0: dir_y2 = 0 + move_max_step = 0 + addr = Block(m).address + y = Int(addr / 4) + 1 + x = addr - (y - 1) * 4 + 1 + block_addr(0).x = x: block_addr(0).y = y + block_addr(1).x = x: block_addr(1).y = y + block_addr(2).x = x: block_addr(2).y = y + If Block(m).style = 0 Then + If y > 1 Then + If Exist(x, y - 1) = False And Exist(x + 1, y - 1) = False Then move_max_step = 1: dir_y1 = -1 + End If + If y < 4 Then + If Exist(x, y + 2) = False And Exist(x + 1, y + 2) = False Then move_max_step = 1: dir_y1 = 1 + End If + If x > 1 Then + If Exist(x - 1, y) = False And Exist(x - 1, y + 1) = False Then move_max_step = 1: dir_x1 = -1 + End If + If x < 3 Then + If Exist(x + 2, y) = False And Exist(x + 2, y + 1) = False Then move_max_step = 1: dir_x1 = 1 + End If + ElseIf Block(m).style = 1 Then + If y > 1 Then + If Exist(x, y - 1) = False And Exist(x + 1, y - 1) = False Then move_max_step = 1: dir_y1 = -1 + End If + If y < 5 Then + If Exist(x, y + 1) = False And Exist(x + 1, y + 1) = False Then move_max_step = 1: dir_y1 = 1 + End If + If x > 1 Then + If Exist(x - 1, y) = False Then + move_max_step = 1 + If move_once = False Then dir_x1 = -1 Else dir_x2 = -1 + move_once = True + If x > 2 Then + If Exist(x - 2, y) = False Then move_max_step = 2: dir_x2 = -2 + End If + End If + End If + If x < 3 Then + If Exist(x + 2, y) = False Then + move_max_step = 1 + If move_once = False Then dir_x1 = 1 Else dir_x2 = 1 + move_once = True + If x < 2 Then + If Exist(x + 3, y) = False Then move_max_step = 2: dir_x2 = 2 + End If + End If + End If + ElseIf Block(m).style = 2 Then + If y > 1 Then + If Exist(x, y - 1) = False Then + move_max_step = 1 + If move_once = False Then dir_y1 = -1 Else dir_y2 = -1 + move_once = True + If y > 2 Then + If Exist(x, y - 2) = False Then move_max_step = 2: dir_y2 = -2 + End If + End If + End If + If y < 4 Then + If Exist(x, y + 2) = False Then + move_max_step = 1 + If move_once = False Then dir_y1 = 1 Else dir_y2 = 1 + move_once = True + If y < 3 Then + If Exist(x, y + 3) = False Then move_max_step = 2: dir_y2 = 2 + End If + End If + End If + If x > 1 Then + If Exist(x - 1, y) = False And Exist(x - 1, y + 1) = False Then move_max_step = 1: dir_x1 = -1 + End If + If x < 4 Then + If Exist(x + 1, y) = False And Exist(x + 1, y + 1) = False Then move_max_step = 1: dir_x1 = 1 + End If + ElseIf Block(m).style = 3 Then + If y > 1 Then + If Exist(x, y - 1) = False Then + move_max_step = 1 + If move_once = False Then dir_y1 = -1 Else dir_y2 = -1 + move_once = True + If y > 2 Then + If Exist(x, y - 2) = False Then move_max_step = 2: dir_y2 = -2 + End If + If x > 1 Then + If Exist(x - 1, y - 1) = False Then move_max_step = 2: dir_x2 = -1: dir_y2 = -1 + End If + If x < 4 Then + If Exist(x + 1, y - 1) = False Then move_max_step = 2: dir_x2 = 1: dir_y2 = -1 + End If + End If + End If + If y < 5 Then + If Exist(x, y + 1) = False Then + move_max_step = 1 + If move_once = False Then dir_y1 = 1 Else dir_y2 = 1 + move_once = True + If y < 4 Then + If Exist(x, y + 2) = False Then move_max_step = 2: dir_y2 = 2 + End If + If x > 1 Then + If Exist(x - 1, y + 1) = False Then move_max_step = 2: dir_x2 = -1: dir_y2 = 1 + End If + If x < 4 Then + If Exist(x + 1, y + 1) = False Then move_max_step = 2: dir_x2 = 1: dir_y2 = 1 + End If + End If + End If + If x > 1 Then + If Exist(x - 1, y) = False Then + move_max_step = 1 + If move_once = False Then dir_x1 = -1 Else dir_x2 = -1 + move_once = True + If x > 2 Then + If Exist(x - 2, y) = False Then move_max_step = 2: dir_x2 = -2 + End If + If y > 1 Then + If Exist(x - 1, y - 1) = False Then move_max_step = 2: dir_x2 = -1: dir_y2 = -1 + End If + If y < 5 Then + If Exist(x - 1, y + 1) = False Then move_max_step = 2: dir_x2 = -1: dir_y2 = 1 + End If + End If + End If + If x < 4 Then + If Exist(x + 1, y) = False Then + move_max_step = 1 + If move_once = False Then dir_x1 = 1 Else dir_x2 = 1 + move_once = True + If x < 3 Then + If Exist(x + 2, y) = False Then move_max_step = 2: dir_x2 = 2 + End If + If y > 1 Then + If Exist(x + 1, y - 1) = False Then move_max_step = 2: dir_x2 = 1: dir_y2 = -1 + End If + If y < 5 Then + If Exist(x + 1, y + 1) = False Then move_max_step = 2: dir_x2 = 1: dir_y2 = 1 + End If + End If + End If + End If + block_addr(1).x = block_addr(0).x + dir_x1 + block_addr(1).y = block_addr(0).y + dir_y1 + block_addr(2).x = block_addr(0).x + dir_x2 + block_addr(2).y = block_addr(0).y + dir_y2 +End Sub +Private Function Get_block_x(x As Long) As Integer + Dim i As Integer + For i = 1 To 4 + If x > x_split(i - 1) And x < x_split(i) Then + Get_block_x = i + Exit For + End If + Next i +End Function +Private Function Get_block_y(y As Long) As Integer + Dim i As Integer + For i = 1 To 5 + If y > y_split(i - 1) And y < y_split(i) Then + Get_block_y = i + Exit For + End If + Next i +End Function +Private Sub init() + last_move = 10 + move_times = 0 + total_steps = 0 + start_x = 90 + start_y = 180 + gap = 105 + square_width = 1200 + block_line_width = 1 + case_line_width = 2 + block_line_color = RGB(0, 0, 0) + case_line_color = RGB(0, 0, 0) + block_color = RGB(250, 250, 250) + case_color = RGB(256, 256, 256) + x_split(0) = start_x + x_split(1) = start_x + gap / 2 + square_width + gap + x_split(2) = start_x + gap / 2 + (square_width + gap) * 2 + x_split(3) = start_x + gap / 2 + (square_width + gap) * 3 + x_split(4) = start_x + gap + (square_width + gap) * 4 + y_split(0) = start_y + y_split(1) = start_y + gap / 2 + square_width + gap + y_split(2) = start_y + gap / 2 + (square_width + gap) * 2 + y_split(3) = start_y + gap / 2 + (square_width + gap) * 3 + y_split(4) = start_y + gap / 2 + (square_width + gap) * 4 + y_split(5) = start_y + gap + (square_width + gap) * 5 +End Sub +Private Sub Output_Graph() + Dim m, x, y As Integer + Dim width As Integer, height As Integer + Print_Block start_x, start_y, square_width * 4 + gap * 5, square_width * 5 + gap * 6, case_line_width, case_color, case_line_color + For m = 0 To 9 + If Block(m).address <> 25 Then + x = (Block(m).address Mod 4) * (square_width + gap) + gap + start_x + y = Int(Block(m).address / 4) * (square_width + gap) + gap + start_y + If Block(m).style = 0 Or Block(m).style = 1 Then + width = square_width * 2 + gap + Else + width = square_width + End If + If Block(m).style = 0 Or Block(m).style = 2 Then + height = square_width * 2 + gap + Else + height = square_width + End If + Print_Block x, y, width, height, block_line_width, block_color, block_line_color + End If + Next m +End Sub +Private Sub Print_Block(print_start_x, print_start_y, print_width, print_height, print_line_width, print_color, print_line_color) + If print_width < 0 Or print_height < 0 Then Exit Sub + FillStyle = 0 + DrawWidth = print_line_width + FillColor = print_color + Line (print_start_x, print_start_y)-(print_start_x + print_width, print_start_y + print_height), print_color, B + Line (print_start_x, print_start_y)-(print_start_x + print_width, print_start_y + print_height), print_line_color, B +End Sub +Private Sub Case_init() + Dim i As Integer, j As Integer + For i = 0 To 9 + Block(i).address = 25 + Block(i).style = 4 + Next i + For i = 1 To 4 + For j = 1 To 5 + Exist(i, j) = False + Block_index(i, j) = 10 + Next j + Next i +End Sub +Private Sub Clear_Block(m As Integer) + Dim x As Integer, y As Integer, addr As Integer + addr = Block(m).address + y = Int(addr / 4) + 1 + x = addr - (y - 1) * 4 + 1 + If Block(m).style = 0 Then + Exist(x, y) = False + Exist(x, y + 1) = False + Exist(x + 1, y) = False + Exist(x + 1, y + 1) = False + Block_index(x, y) = 10 + Block_index(x, y + 1) = 10 + Block_index(x + 1, y) = 10 + Block_index(x + 1, y + 1) = 10 + End If + If Block(m).style = 1 Then + Exist(x, y) = False + Exist(x + 1, y) = False + Block_index(x, y) = 10 + Block_index(x + 1, y) = 10 + End If + If Block(m).style = 2 Then + Exist(x, y) = False + Exist(x, y + 1) = False + Block_index(x, y) = 10 + Block_index(x, y + 1) = 10 + End If + If Block(m).style = 3 Then + Exist(x, y) = False + Block_index(x, y) = 10 + End If + Block(m).address = 25 + Block(m).style = 4 +End Sub +Private Sub Analyse(Code As String) + Dim m As Integer, addr As Integer, x As Integer, y As Integer + Call Analyse_Code(Code) + For x = 1 To 4 + For y = 1 To 5 + Block_index(x, y) = 10 + Exist(x, y) = False + Next y + Next x + For m = 0 To 9 + addr = Block(m).address + y = Int(addr / 4) + 1 + x = addr - (y - 1) * 4 + 1 + If Block(m).style = 0 Then + Block_index(x, y) = 0 + Block_index(x, y + 1) = 0 + Block_index(x + 1, y) = 0 + Block_index(x + 1, y + 1) = 0 + End If + If Block(m).style = 1 Then + Block_index(x, y) = m + Block_index(x + 1, y) = m + End If + If Block(m).style = 2 Then + Block_index(x, y) = m + Block_index(x, y + 1) = m + End If + If Block(m).style = 3 Then + Block_index(x, y) = m + End If + Next m + For x = 1 To 4 + For y = 1 To 5 + If Block_index(x, y) <> 10 Then Exist(x, y) = True + Next y + Next x +End Sub +Private Function Check() As Boolean + Dim temp(0 To 19) As Boolean + Dim addr As Integer, i As Integer, j As Integer + For i = 0 To 19 + temp(i) = False + Next i + Check = True + If Block(0).style <> 0 Or Block(0).address > 20 Or Block(0).address < 0 Then + Check = False + Else + addr = Block(0).address + If addr > 14 Or (addr Mod 4 = 3) Then Check = False + temp(addr) = True + temp(addr + 1) = True + temp(addr + 4) = True + temp(addr + 5) = True + End If + For i = 1 To 5 + If Block(i).address > 20 Or Block(i).address < 0 Then + Check = False + ElseIf Block(i).style <> 1 And Block(i).style <> 2 Then + Check = False + Else + addr = Block(i).address + If Block(i).style = 1 Then + If addr > 18 Or (addr Mod 4 = 3) Then Check = False + If temp(addr) = True Or temp(addr + 1) = True Then Check = False + temp(addr) = True + temp(addr + 1) = True + End If + If Block(i).style = 2 Then + If addr > 15 Then Check = False + If temp(addr) = True Or temp(addr + 4) = True Then Check = False + temp(addr) = True + temp(addr + 4) = True + End If + End If + Next i + For i = 6 To 9 + If Block(i).style <> 3 Or Block(i).address > 20 Or Block(i).address < 0 Then + Check = False + Else + addr = Block(i).address + If addr > 19 Then Check = False + If temp(addr) = True Then Check = False + temp(addr) = True + End If + Next i + j = 0 + For i = 0 To 19 + If temp(i) = False Then j = j + 1 + Next i + If j <> 2 Then Check = False +End Function +Private Sub Analyse_Code(Code As String) + On Error Resume Next + Dim temp(1 To 12) As Integer + Dim i, addr, style As Integer + Dim type_1, type_2, type_3 As Integer + Dim Table(0 To 19) As Integer + Dim num As Integer, b1 As Integer, b2 As Integer + Dim dat As String + For i = 1 To 6 + dat = Mid(Code, i + 1, 1) + If Asc(dat) >= 48 And Asc(dat) <= 57 Then num = Int(dat) + If Asc(dat) >= 65 And Asc(dat) <= 70 Then num = Asc(dat) - 55 + b1 = num Mod 4 + b2 = (num - b1) / 4 Mod 4 + temp(i * 2 - 1) = b2 + temp(i * 2) = b1 + Next i + type_1 = 0: type_2 = 0: type_3 = 5 + For i = 0 To 19 + Table(i) = 69 + Next i + For i = 0 To 9 + Block(i).address = 69 + Block(i).style = 69 + Next i + dat = Left(Code, 1) + If Asc(dat) >= 48 And Asc(dat) <= 57 Then num = Int(dat) + If Asc(dat) >= 65 And Asc(dat) <= 70 Then num = Asc(dat) - 55 + Block(0).address = num + Block(0).style = 0 + If Block(0).address > 14 Then GoTo err + Table(Block(0).address) = 0 + Table(Block(0).address + 1) = 0 + Table(Block(0).address + 4) = 0 + Table(Block(0).address + 5) = 0 + addr = 0 + For i = 1 To 11 + Do While Table(addr) <> 69 + If addr < 19 Then + addr = addr + 1 + Else + Exit Do + End If + Loop + style = temp(i) + If style = 0 Then + Table(addr) = 10 + ElseIf style = 1 Then + If type_2 < 5 Then type_2 = type_2 + 1 + If addr > 18 Then GoTo err + Block(type_2).style = 1 + Block(type_2).address = addr + Table(addr) = type_2 + Table(addr + 1) = type_2 + ElseIf style = 2 Then + If type_2 < 5 Then type_2 = type_2 + 1 + If addr > 15 Then GoTo err + Block(type_2).style = 2 + Block(type_2).address = addr + Table(addr) = type_2 + Table(addr + 4) = type_2 + ElseIf style = 3 Then + If type_3 < 9 Then type_3 = type_3 + 1 + Block(type_3).style = 3 + Block(type_3).address = addr + Table(addr) = type_3 + End If + Next i +err: +End Sub +Private Sub Timer1_Timer() + Dim i As Integer, j As Integer, m As Integer, debug_dat As String + For m = 0 To 9 + debug_dat = debug_dat & "Block[" & m & "] -> address = " & Block(m).address & " style = " & Block(m).style + If m <> 9 Then debug_dat = debug_dat & vbCrLf + Next m + debug_dat = debug_dat & vbCrLf & vbCrLf + debug_dat = debug_dat & " exist block_index" & vbCrLf + For j = 1 To 5 + For i = 1 To 4 + If Exist(i, j) Then + debug_dat = debug_dat & "$$ " + Else + debug_dat = debug_dat & "[] " + End If + Next i + debug_dat = debug_dat & " " + For i = 1 To 4 + If Block_index(i, j) = 10 Then + debug_dat = debug_dat & "A " + Else + debug_dat = debug_dat & Trim(Block_index(i, j)) & " " + End If + Next i + debug_dat = debug_dat & vbCrLf & vbCrLf + Next j + debug_dat = debug_dat & "dir_x1=" & dir_x1 & " dir_y1=" & dir_y1 & vbCrLf + debug_dat = debug_dat & "dir_x2=" & dir_x2 & " dir_y2=" & dir_y2 & vbCrLf + debug_dat = debug_dat & "block_addr(0)=(" & block_addr(0).x & "," & block_addr(0).y & ")" & vbCrLf + debug_dat = debug_dat & "block_addr(1)=(" & block_addr(1).x & "," & block_addr(1).y & ")" & vbCrLf + debug_dat = debug_dat & "block_addr(2)=(" & block_addr(2).x & "," & block_addr(2).y & ")" & vbCrLf + debug_dat = debug_dat & "move_max_step=" & move_max_step & vbCrLf + debug_dat = debug_dat & "last_move=" & last_move & vbCrLf + debug_dat = debug_dat & "move_times=" & move_times & vbCrLf + debug_dat = debug_dat & "total_steps=" & total_steps & vbCrLf + Text_Debug = debug_dat +End Sub + diff --git a/Form_Game.frx b/Form_Game.frx new file mode 100644 index 0000000000000000000000000000000000000000..54e19f6d6f3b16c712dec50afb7219af1db158c9 GIT binary patch literal 102090 zcmeI5PpB1Fp2vThnIW0Q1VWH3L~U^f4OxWLW`qzMhXfbn5JKMUf-{?ffWj~g=tAtr zz;kwk#6c)BCN9!pI-xhB60#T`4hchB%8-Q;X#+tpU>f?l=tgMBna?@(s@}a?=lXs> z@2gbOzxzD5s!n~+`F+p#_vcn!pXKNOzDW-Mi^zYo71<?|)Y%kr<6W#v~NN|A;YZ293}%a$#&b?a8yxpSxN z*|SF$78c~-!Gp4Y|9;uKcdslS5Ayo!K~Bqc3BRf3^XtEr>)(7Mr+)EE48_?>T1BfR zO&%vL=qu96Up>96Ui=?@$SjzgWM z4QUl6?-h+c35ikxhXM`-911uTa7dKkP{5&pLji{Z4v8il3OE#SDBw`QAyJ1z0fzz( z1sn=E6s);`M*)u_@d!x)df3LFidNI;k4uJ2iSZIcC6ktLNiuM;TVaeSLs^L<@rG`X}!4v{;sTo)Us_CfV!XFy*;FB6Ib<`tq ziO~?fKpz|e90D8y90D8y98x&Jp@u_%Lx4jK2d1HcheLovfJ1--Q`6{&Lx4koLx4cQ ze$8ZofdNp-93{skJVKf~VoLdm{9FzlIwVJr9+i_PPs*7yXXMJ2D{}t)dAV`phTOV! zOK#u3EqCwUm3#N@$^HBHW#tb+J~(%dJYGcIm;-UceCa688xP}=zg&TS1vcwm{gZ4& zuZ|a=fVS5_X7uC+BDQ(+6YGC%Hp^^T|N417VJGJ6A4F#NzgB^P0&^fU+SPMUGfZI` z$c(RFtH3~x8OV%w^&bBNIc6X;?tiTU136|OGuqXA{tx7sfy}u7wF(U6n1Re_SMT{h zkYffi&{{uN@AT#cNtpWo%W}siQ)vi9~zv`to(2P(SvHzN_p5ADQ>6hXoTme^LoC+Aq z%xH&L6dvtj48&~fSO5D5!lHA_JlY}p)qDPr)|m!k?ti@k2AM}YM8A5^|Is?rK+OHGSHK|iXou)m z@A*GkXBvpP|MdzOWFGAh{pvmcN9#-jG55b-0fWq=9im^o=l^J(X&~nQ*DGLA(e%dDq1UjM7A zp9vh*^7W53{#Bk)ETV;u|MS0Px-nZ{|Jd_?WBlIE>i&2CkNfkljns|Vdi;C*d;F`e zvYM2MVWWK+%&3MKN`&WsbfQXS_rEsoTf9ML)ew(=wE~|1p8sC|R8_|7e_PMBTZ7E1 zA?oV)#Oi-$tg_<%*ZRH18)Q}uasR6o@X!AkoT@1E{BQGFyEVwH8lsMVum7I^p8sC| zR8_|7zqanTc!SKUAzuI03V8kZ`tS8$Rb{;XxAk1RHOQ%Z53Rh9Aj zudVwnUitgUO=c@3TVmgsW~!7?d*A>5!{gr=n3fz+1+&339{*|u3@Us5 zx5U0N%~UC)_P*DDkAGueT5>=Y%m&YR{Hql(sOBdB`(FP&{*8fY$pKX` z8$9FjuU5dIve$o0>>JZel`?AYd;RzLHwLC92UNjq@Qla5S^>C{kO!vG0jvdqxQbne~*7-U|MoO70d?Dc>JpsFsSVH z-xB-AG*hLF+WTJrJ^qb>X~_XqFdIDM@vm0Ept9G0OY9rdOqDWf?|c3C_%{ZoB?nZ& zZ19Z7zghu<%3l91v2RQ>Rm!Nn@Aco~-x!#d98d+b!80EJY6T1`d;Pb>zA?>IDWmqj z*MEpm_1_Zv#xzred!EEr1$G=(ugUVk2EwOJ*GgZo{z3=tks}(S){5bVr^?dp!GF3wi zV1pG)>>JG(7Ni_vBxcpX$GHMOW(C6IzgChy+b1WwpSqrIy8L`p!}Xa65RZ=-5}qF^ zB)mS1yFN_h?f0_V#K*QMl031THpkNYRQ~w+sEO<2@qq%KA2AHPK1_VRj=er^pZsk3 z9VMZi zYVOxJtGO399)D2<|9nax2VNgyFnE24Dy+V|K13nBK6rgV0k4lS8NR>zxS{tfyII;| zT;Hbn=gGJya-i9yclz5GL}cYXk?^~(=~`?CE-t3=@ts{+US4L)j)e3_7{eZoA9kL4 z>M42VnP+7C_U-b*3oppty?f==S6`Jk-grX}9Xce34?oUjTmu{1W)H;4gx|3jTTU z`@p{m{%!Clz@G;H5%^2sFN41Z{wDZ4;9mj%7Wm`f-v$3E_%Fe)fJcx6w8OMhv2>2!NXTe_te-%8D(jPs<@GkHNz!Rh46!;4f z|19`zMB8qn?Ioh^WuomhqHO{E5%5dk&w{@Q{wnzA!S4hACiu6(p8$Uv{72v~fxis? z8u**w?|^>={9E9UgMSzNr{KQ?zXG0|BAx^B9Ej&YJUIlFnC zCZ}MgsZ4{W%ytK+sZ4`9lT$mUsZ4{W%ytK+sZ4`9lT$mUsZ4{W%ytK+sZ4`9lT$mU zsZ4{W%ytK+sZ4`9lT$mUsZ4{W%ytK+sZ4`9lT$mUsZ4{W%ytK+sZ4`9lT$mUsZ4{W z%ytK+sZ4`9lT$mUsZ4{W%ytK+sZ4`9lT$mUsZ4{W%ytK+sZ4`9lT$mUsZ4{W%ytK+ zsZ4`9lT$mUsZ1BGQ)at^IZoBh`J>;-iZ;g+vqa1W%^Xj-{k#HmlsP+9-nvM3&>T;= z{k#HmlsP+9-n#ogE7}}Sxc+$s<|uP^s=RfN|Ey?pJmLE16_}&U*{Sl@#~lCt7r-#? zf6Z8mY5lVX^`D!s{{1#)_0HFRzsmXEdF$W5n%=)HiJkn7N&kpP{8dVJQ2zH9H?PUVnPSDc9-sCm%|)0X;XsN=8yiWYAwU)d3} zR`2IBDreQq;N!CaGpA;2oDJIk6JGx^3S>VqI5F$hFLQRbjCH^N%PQvj&kDc%MN@xZ zdi-S+@c7Gz(yRdN53{VA8TGyXWfk-KH!J+|LE9gg9)B4HJpS^bG%Eo6!z`<2Mt!e; zS;f5m%?iJK(DnzW$6rPPkH35<%?iN&Fw3f$QQzxdRxz)Cv%)VQwEcnU@t0A+<1Zgd zvjVU`%(7}`)c5+ARqRpqum4-~?6>LtaC);NW_jPw4X(f=A42jS4dzxx7I`E~=MO*LSUnyU|4r6T`Xl!Eaa%8<8uQX)efcpzdriLieDm_3>ly3! z#>La4^5cQ?@i}2H(*A+gJ|}GP&pBvcndgKZ`;UK?|NHPC;(O=QeMr!(N`fK`YI%@g@$ARNer)fi4Mag?bqc1)uEt-cz0fzz( z1sn=EBua27;84J!fI|U?L=z4L911uTa46uAsKcRvLji{Z4h0+v3>5Gv;87$Vp;;c* z%k)$6UeoB0ONL8{@e)HNla_EvGH|kFr-Vxhmm~{3N_dp;DB)4UBS{615)LICN;pL6 zN_doTDB)12C&bl_gxG0*I8O3LbxLH8$DxrL+ZCKDj8+(^;8bC|!ghu23fmR7lRJ`a z`mtYOzrucWQHA{qZ7MiaaHx3xT67z#q}9{ImiOpJG^nvx!>xu#jlJaB$O8>(c+`;x z3rp^1Pz{$FE;S@-45ko(OU=LJ9R0?F-L^bLR_8HoC-|7g zf5&~|nU3y&L^pxBI;ua-xOb%MmL-fP1-H zw{FSp+qdQJ-Mez{-o2^kty>j^VsL3xf%ASPW2o#Y#)Aap$)%>-{*WjtzwnM zlw#}CCyi|0(#^!0B5TYiFYo4fevNr+KlQZwJZhT;br&EUHT&JL4d|0^a?<8;kV%cj8=M@%^WNC(d`*{+&42QhaYc;_t*C z^ExUO!LAsj5}1yt>yrheJM4CvG2LNqp0%l`_Y(erw}?m+KJfPFekN+Duko41KiW;N z#@yum>9Z_->@>@7sXWxr_~rv6PPC?5oU8BEq2kU2K0E*9hu?bmY&5=QJ<0#;@INxy a;%CX%PyWqxix{DAq9xqK@#MM5{r?9<-eDL3 literal 0 HcmV?d00001 diff --git a/HRD_Game.vbp b/HRD_Game.vbp new file mode 100644 index 0000000..a1518af --- /dev/null +++ b/HRD_Game.vbp @@ -0,0 +1,32 @@ +Type=Exe +Form=Form_Game.frm +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\Windows\SysWOW64\stdole2.tlb#OLE Automation +IconForm="Form_Game" +Startup="Form_Game" +HelpFile="" +Title="HRD_Game" +ExeName32="HRD_Game.exe" +Command32="" +Name="HRD_Game" +HelpContextID="0" +CompatibleMode="0" +AutoIncrementVer=0 +ServerSupportFiles=0 +VersionCompanyName="Dnomd343" +VersionLegalCopyright="DJNC" +VersionProductName="HRD_Game" +CompilationType=0 +OptimizationType=0 +FavorPentiumPro(tm)=0 +CodeViewDebugInfo=0 +NoAliasing=0 +BoundsCheck=0 +OverflowCheck=0 +FlPointCheck=0 +FDIVCheck=0 +UnroundedFP=0 +StartMode=0 +Unattended=0 +Retained=0 +ThreadPerObject=0 +MaxNumberOfThreads=1 diff --git a/HRD_Game.vbw b/HRD_Game.vbw new file mode 100644 index 0000000..bcff539 --- /dev/null +++ b/HRD_Game.vbw @@ -0,0 +1 @@ +Form_Game = 52, 52, 883, 479, , 26, 26, 857, 453, C diff --git a/MSSCCPRJ.SCC b/MSSCCPRJ.SCC new file mode 100644 index 0000000..b3b67b1 --- /dev/null +++ b/MSSCCPRJ.SCC @@ -0,0 +1,5 @@ +[SCC] +SCC=This is a source code control file +[HRD_Game.vbp] +SCC_Project_Name=this project is not under source code control +SCC_Aux_Path=