main.frm

小宠物－电子鸡源程序

   End
   Begin VB.Image LargeNumber 
      Height          =   225
      Index           =   3
      Left            =   1305
      Top             =   1860
      Visible         =   0   'False
      Width           =   135
   End
   Begin VB.Image LargeNumber 
      Height          =   225
      Index           =   2
      Left            =   1155
      Top             =   1860
      Visible         =   0   'False
      Width           =   135
   End
   Begin VB.Image LargeNumber 
      Height          =   225
      Index           =   1
      Left            =   990
      Top             =   1860
      Visible         =   0   'False
      Width           =   135
   End
   Begin VB.Image LargeNumber 
      Height          =   225
      Index           =   0
      Left            =   870
      Top             =   1860
      Visible         =   0   'False
      Width           =   135
   End
   Begin VB.Image TempIcon 
      Height          =   480
      Index           =   2
      Left            =   990
      Top             =   3960
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image TempIcon 
      Height          =   480
      Index           =   1
      Left            =   525
      Top             =   3945
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image TempIcon 
      Height          =   480
      Index           =   0
      Left            =   60
      Top             =   3945
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image AttendIcon 
      Height          =   270
      Left            =   2475
      Top             =   1065
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamIcon 
      Height          =   270
      Index           =   6
      Left            =   2205
      Top             =   1065
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamIcon 
      Height          =   270
      Index           =   5
      Left            =   1935
      Top             =   1065
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamIcon 
      Height          =   270
      Index           =   4
      Left            =   1665
      Top             =   1065
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamIcon 
      Height          =   270
      Index           =   3
      Left            =   2475
      Top             =   795
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamIcon 
      Height          =   270
      Index           =   2
      Left            =   2205
      Top             =   795
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamIcon 
      Height          =   270
      Index           =   1
      Left            =   1935
      Top             =   795
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamIcon 
      Height          =   270
      Index           =   0
      Left            =   1665
      Top             =   795
      Visible         =   0   'False
      Width           =   270
   End
   Begin VB.Image TamChar 
      Height          =   390
      Left            =   1845
      Top             =   420
      Visible         =   0   'False
      Width           =   420
   End
   Begin VB.Image TamScr 
      Height          =   1020
      Left            =   510
      Top             =   765
      Width           =   1080
   End
   Begin VB.Menu mPopup 
      Caption         =   "Popup"
      Visible         =   0   'False
      Begin VB.Menu mCharacterName 
         Caption         =   "Tamagotchi"
         Enabled         =   0   'False
      End
      Begin VB.Menu mPopupSep0 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mCheats 
         Caption         =   "Cheats"
         Visible         =   0   'False
         Begin VB.Menu mCheatChar 
            Caption         =   "Characters"
            Begin VB.Menu mCheatChar0 
               Caption         =   "Tamagotchi"
            End
            Begin VB.Menu mCheatChar1 
               Caption         =   "Babitchi"
            End
            Begin VB.Menu mCheatChar2 
               Caption         =   "Marutchi"
            End
            Begin VB.Menu mCheatSep0 
               Caption         =   "-"
            End
            Begin VB.Menu mCheatChar3 
               Caption         =   "Tamatchi"
            End
            Begin VB.Menu mCheatChar4 
               Caption         =   "Kuchitamatchi"
            End
            Begin VB.Menu mCheatSep1 
               Caption         =   "-"
            End
            Begin VB.Menu mCheatChar5 
               Caption         =   "Mametchi"
            End
            Begin VB.Menu mCheatChar6 
               Caption         =   "Ginjurutchi"
            End
            Begin VB.Menu mCheatChar7 
               Caption         =   "Masukutchi"
            End
            Begin VB.Menu mCheatChar8 
               Caption         =   "Kuchibatchi"
            End
            Begin VB.Menu mCheatChar9 
               Caption         =   "Nyorutchi"
            End
            Begin VB.Menu mCheatChar10 
               Caption         =   "Tarakotchi"
            End
            Begin VB.Menu mCheatSep2 
               Caption         =   "-"
            End
            Begin VB.Menu mCheatChar11 
               Caption         =   "Gaijintchi (Secret Character)"
            End
            Begin VB.Menu mCheatChar12 
               Caption         =   "Angel (Death)"
            End
         End
         Begin VB.Menu mCheatSep3 
            Caption         =   "-"
         End
         Begin VB.Menu mCheatAttention 
            Caption         =   "Attention"
            Begin VB.Menu mCheatAttention0 
               Caption         =   "Hungry"
            End
            Begin VB.Menu mCheatAttention1 
               Caption         =   "Unhappy"
            End
            Begin VB.Menu mCheatAttention2 
               Caption         =   "Discipline"
            End
         End
         Begin VB.Menu mCheatSep4 
            Caption         =   "-"
         End
         Begin VB.Menu mCheatAction0 
            Caption         =   "Sick"
         End
         Begin VB.Menu mCheatAction1 
            Caption         =   "Poop"
         End
         Begin VB.Menu mCheatAction2 
            Caption         =   "Sleep"
         End
         Begin VB.Menu mCheatAction3 
            Caption         =   "Dying"
         End
      End
      Begin VB.Menu mPopupSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mPopupStatus 
         Caption         =   "Hide"
      End
      Begin VB.Menu mPopupSound 
         Caption         =   "Sound On"
         Checked         =   -1  'True
      End
      Begin VB.Menu mPopupSoundType 
         Caption         =   "Sound Type"
         Begin VB.Menu mPopupWave 
            Caption         =   "Wave"
            Checked         =   -1  'True
         End
         Begin VB.Menu mPopupBeep 
            Caption         =   "Beep"
         End
      End
      Begin VB.Menu mPopupSide 
         Caption         =   "Back"
      End
      Begin VB.Menu mPopupOnTop 
         Caption         =   "Always On Top"
         Checked         =   -1  'True
      End
      Begin VB.Menu mPopupAutoShow 
         Caption         =   "Auto Show"
      End
      Begin VB.Menu mPopupPlayType 
         Caption         =   "Games"
         Begin VB.Menu mPopupPlay0 
            Caption         =   "Game A"
            Checked         =   -1  'True
         End
         Begin VB.Menu mPopupPlay1 
            Caption         =   "Game B"
         End
      End
      Begin VB.Menu mPopupSep3 
         Caption         =   "-"
      End
      Begin VB.Menu mPopupChangeColor 
         Caption         =   "Colors..."
      End
      Begin VB.Menu mPopupPlugins 
         Caption         =   "Plugins..."
      End
      Begin VB.Menu mPopupInstructions 
         Caption         =   "Instructions..."
      End
      Begin VB.Menu mPopupAbout 
         Caption         =   "About..."
      End
      Begin VB.Menu mPopupSep4 
         Caption         =   "-"
      End
      Begin VB.Menu mPopupInsulatingSheet 
         Caption         =   "Insulating Sheet"
      End
      Begin VB.Menu mPopupSep5 
         Caption         =   "-"
      End
      Begin VB.Menu mPopupClose 
         Caption         =   "Close"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Module:   TamSim.frm
'                Main form of Tamagotchi Simulator 2.0
'Author:    Pheeraphat Sawangphian
'E-Mail:     [e-mail]
'URL:       http://www.geocities.com/Hollywood/Lot/6166

Option Explicit

Public InsulatingSheet As Integer
Public SendInsulatingSheetToBack As Boolean
Public InsulatingSheetWidthPushed As Integer
Public CurrentInsulatingSheet As Integer
Private AgeTooltip As String
Private WeightTooltip As String
Private HungryTooltip As String
Private HappyTooltip As String
Private DisciplineTooltip As String
Dim JustStart As Boolean
Public ButtonALeft As Integer
Public ButtonATop As Integer
Public ButtonBLeft As Integer
Public ButtonBTop As Integer
Public ButtonCLeft As Integer
Public ButtonCTop As Integer
Public ResetButtonLeft As Integer
Public ResetButtonTop As Integer

Dim Walk As Boolean
Dim EggLeft As Integer
Dim EggTop As Integer
Dim EggShakeLeft As Integer
Dim EggShakeRight As Integer
Dim EggHatchLeft As Integer
Dim EggHatchTop As Integer
Dim AngelInAgeScreen As Integer
Dim StarsLeft As Integer
Dim StarsTop As Integer
Dim LaidEggLeft As Integer
Dim LaidEggTop As Integer
Dim RArrowSelectMenuLeft As Integer
Dim RArrowSelectMenu0 As Integer
Dim RArrowSelectMenu1 As Integer
Dim MealSnackLeft As Integer
Dim MealSnack0Top As Integer
Dim MealSnack1Top As Integer
Dim RightArrowLeft As Integer
Dim RightArrowTop As Integer
Dim LeftArrowLeft As Integer
Dim LeftArrowTop As Integer
Dim DarkWidth As Integer
Dim WaterLeft As Integer
Dim WaterTop As Integer
Dim AngelLeft As Integer
Dim AgeDigit0DeathLeft As Integer
Dim AgeDigit0DeathTop As Integer
Dim AgeDigit1DeathLeft As Integer
Dim AgeDigit1DeathTop As Integer
Dim AgeDigit0Left As Integer
Dim AgeDigit0Top As Integer
Dim AgeDigit1Left As Integer
Dim AgeDigit1Top As Integer

Public TamagotchiName As String
Public PluginsForm As Boolean
Public OKButtonText As String
Public CancelButtonText As String
Public CurrentColor As String
Public DisciplineWhenNeed As Integer
Public SnackCount As Integer
Public PlayCounter As Integer
Public NeedCount As Integer
Public CareWhenNeed As Integer
Public DyingTimeLeft As Integer
Public DelayValue As Integer
Public SecondCount As Integer
Public MinuteCount As Long
Public CharacterNo As Integer
Public TotalNeedCount As Integer
Public Weight As Integer
Public Discipline As Integer
Public MinuteToChangeCharacter As Integer
Public Plugins As String
Dim MinWeight As Integer
Dim MaxMinutes As Integer
Dim TamagotchiHour As Integer
Dim OriginalLeft As Integer
Dim OriginalTop As Integer
Dim EatLeft As Integer
Dim EatTop As Integer
Dim NegativeLeft As Integer
Dim NegativeTop As Integer
Dim SickLeft As Integer
Dim SickTop As Integer
Dim HappyLeft As Integer
Dim HappyTop As Integer
Dim UnhappyLeft As Integer
Dim UnhappyTop As Integer
Dim PlayLeft As Integer
Dim PlayTop As Integer
Dim SleepLeft As Integer
Dim SleepTop As Integer
Dim DyingLeft As Integer
Dim DyingTop As Integer
Dim ShakeLeft As Integer
Dim ShakeTop As Integer
Dim StoolLeft As Integer
Dim StoolTop As Integer
Dim LayLeft As Integer
Dim LayTop As Integer

Public CharacterName As String
Dim PlayRndNumber As Integer
Dim CurrentSystemTrayIcon As Integer
Dim NextCharacter As Integer
Dim Changing As Integer
Dim PlayCount As Integer
Dim PlayAction As Integer
Dim PlayScore As Integer
Dim PlayTurn As Integer
Dim Dropping As Boolean
Dim SickIndex As Integer
Dim StartMove As Boolean
Dim DifferenceX As Single
Dim DifferenceY As Single
Dim OldSecond As Integer