Option ExplicitPrivate Sub cmbClass

Option Explicit

Private Sub cmbClass_Click()
newCharClass = cmbClass.ListIndex
newCharSprite = 0
End Sub

Private Sub Form_Load()
Dim tmpTxt As String, tmpArray() As String, i As Long

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

' general menu stuff
Me.Caption = Options.Game_Name

' load news
Open App.Path & "data files
ews.txt" For Input As #1
Line Input #1, tmpTxt
Close #1
' split breaks
tmpArray() = Split(tmpTxt, "
")
lblNews.Caption = vbNullString
For i = 0 To UBound(tmpArray)
lblNews.Caption = lblNews.Caption & tmpArray(i) & vbNewLine
Next

' Load the username + pass
txtLUser.text = Trim$(Options.Username)
If Options.SavePass = 1 Then
txtLPass.text = Trim$(Options.Password)
chkPass.Value = Options.SavePass
End If

' Error handler
Exit Sub
errorhandler:
HandleError "Form_Load", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

resetButtons_Menu

' Error handler
Exit Sub
errorhandler:
HandleError "Form_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

If Not EnteringGame Then DestroyGame

' Error handler
Exit Sub
errorhandler:
HandleError "Form_Unload", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub imgButton_Click(Index As Integer)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

Select Case Index
Case 1
If Not picLogin.Visible Then
' destroy socket, change visiblity
DestroyTCP
picCredits.Visible = False
picLogin.Visible = True
picRegister.Visible = False
picCharacter.Visible = False
picMain.Visible = False

'Login checks server status
If ConnectToServer(1) Then
lblSStatus.Caption = "Online"
lblSStatus.ForeColor = vbGreen
Else
lblSStatus.Caption = "Offline"
lblSStatus.ForeColor = vbRed
End If
' play sound
PlaySound Sound_ButtonClick, -1, -1
End If
Case 2
If Not picRegister.Visible Then
' destroy socket, change visiblity
DestroyTCP
picCredits.Visible = False
picLogin.Visible = False
picRegister.Visible = True
picCharacter.Visible = False
picMain.Visible = False
' play sound
PlaySound Sound_ButtonClick, -1, -1
End If
Case 3
If Not picCredits.Visible Then
' destroy socket, change visiblity
DestroyTCP
picCredits.Visible = True
picLogin.Visible = False
picRegister.Visible = False
picCharacter.Visible = False
picMain.Visible = False
' play sound
PlaySound Sound_ButtonClick, -1, -1
End If
Case 4
Call DestroyGame
End Select

' Error handler
Exit Sub
errorhandler:
HandleError "imgButton_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub imgButton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

' reset other buttons
resetButtons_Menu Index

' change the button we're hovering on
changeButtonState_Menu Index, 2 ' clicked

' Error handler
Exit Sub
errorhandler:
HandleError "imgButton_MouseDown", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub imgButton_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

' reset other buttons
resetButtons_Menu Index

' change the button we're hovering on
If Not MenuButton(Index).state = 2 Then ' make sure we're not clicking
changeButtonState_Menu Index, 1 ' hover
End If

' play sound
If Not LastButtonSound_Menu = Index Then
PlaySound Sound_ButtonHover, -1, -1
LastButtonSound_Menu = Index
End If

' Error handler
Exit Sub
errorhandler:
HandleError "imgButton_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub imgButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

' reset all buttons
resetButtons_Menu -1

' Error handler
Exit Sub
errorhandler:
HandleError "imgButton_MouseUp", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub lblLAccept_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

If isLoginLegal(txtLUser.text, txtLPass.text) Then
Call MenuState(MENU_STATE_LOGIN)
End If

' Error handler
Exit Sub
errorhandler:
HandleError "lblLAccept_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub lblSprite_Click()
Dim spritecount As Long

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

If optMale.Value Then
spritecount = UBound(Class(cmbClass.ListIndex + 1).MaleSprite)
Else
spritecount = UBound(Class(cmbClass.ListIndex + 1).FemaleSprite)
End If

If newCharSprite >= spritecount Then
newCharSprite = 0
Else
newCharSprite = newCharSprite + 1
End If


' Error handler
Exit Sub
errorhandler:
HandleError "lblSprite_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub optFemale_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

newCharClass = cmbClass.ListIndex
newCharSprite = 0

' Error handler
Exit Sub
errorhandler:
HandleError "optFemale_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub optMale_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

newCharClass = cmbClass.ListIndex
newCharSprite = 0

' Error handler
Exit Sub
errorhandler:
HandleError "optMale_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub picCharacter_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

resetButtons_Menu

' Error handler
Exit Sub
errorhandler:
HandleError "picCharacter_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub picCredits_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

resetButtons_Menu

' Error handler
Exit Sub
errorhandler:
HandleError "picCredits_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub picLogin_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

resetButtons_Menu

' Error handler
Exit Sub
errorhandler:
HandleError "picLogin_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub picMain_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

resetButtons_Menu

' Error handler
Exit Sub
errorhandler:
HandleError "picMain_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Private Sub picRegister_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

resetButtons_Menu

' Error handler
Exit Sub
errorhandler:
HandleError "picRegister_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

' Register
Private Sub txtRAccept_Click()
Dim Name As String
Dim Password As String
Dim PasswordAgain As String

ผลลัพธ์ (ไทย) 1:

ตัวเลือกที่ชัดเจน

ย่อยส่วนตัว cmbClass_Click()
newCharClass = cmbClass.ListIndex
newCharSprite = 0
ย่อยสิ้นสุด

Form_Load() ย่อยส่วนตัว
พร่ามัว tmpTxt เป็นสายอักขระ tmpArray() เป็นสาย ฉันเป็นยาว

' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

' เมนูทั่วไปสิ่ง
Me.Caption = Options.Game_Name

' โหลดข่าว
App.Path เปิด& "data files
ewstxt"สำหรับการป้อนข้อมูลเป็น #1
สัญญาณ #1, tmpTxt
#1 ปิด
' แบ่งแบ่ง
tmpArray() =แยก (tmpTxt, " < br / > ")
lblNews.Caption = vbNullString
หา = 0 เพื่อ UBound(tmpArray)
lblNews.Caption = lblNews.Caption & tmpArray(i) & vbNewLine
ถัดไป

' โหลดผ่าน username
txtLUser.text = Trim$(Options.Username)
Options.SavePass ถ้า = 1 แล้ว
txtLPass.text = Trim$(Options.Password)
chkPassค่า = Options.SavePass
สิ้นสุดถ้า

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "Form_Load", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) ย่อยส่วนตัว
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
ถ้า Options.Debug = errorhandler แล้วในข้อผิดพลาดไป 1

resetButtons_Menu

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "Form_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

Form_Unload(Cancel As Integer) ย่อยส่วนตัว
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
ถ้า Options.Debug = errorhandler แล้วในข้อผิดพลาดไป 1

ถ้าไม่ EnteringGame แล้ว DestroyGame

' ตัวจัดการข้อผิดพลาด
ออกย่อย
errorhandler:
HandleError "Form_Unload", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย imgButton_Click (ดัชนีเป็นจำนวนเต็ม)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด แล้วจบออก
ถ้า Options.Debug = errorhandler แล้วในข้อผิดพลาดไป 1

เลือกกรณีดัชนี
1 กรณี
ถ้าไม่ picLogin.Visible แล้ว
' ทำลายหนวด เปลี่ยน visiblity
DestroyTCP
picCredits.Visible = False
picLogin.Visible = True
picRegister.Visible = False
picCharacter.Visible = False
picMain.Visible = False

' เข้าสู่ระบบตรวจสอบสถานะของเซิร์ฟเวอร์
ถ้า ConnectToServer(1) แล้ว
lblSStatus.Caption = "ออนไลน์"
lblSStatus.ForeColor = vbGreen
Else
lblSStatus.Caption = "ออฟไลน์"
lblSStatus.ForeColor = vbRed
สิ้นสุดถ้า
' เสียง
PlaySound Sound_ButtonClick, -1, -1
จบถ้า
2 กรณี
ถ้าไม่ picRegister.Visible แล้ว
' ทำลายหนวด เปลี่ยน visiblity
DestroyTCP
picCredits.Visible = False
picLogin.Visible = False
picRegister.Visible = True
picCharacter.Visible = False
picMain.Visible = False
' เสียง
PlaySound Sound_ButtonClick, -1, -1
สิ้นสุดถ้า
3 กรณี
ถ้าไม่ picCredits.Visible แล้ว
' ทำลายหนวด เปลี่ยน visiblity
DestroyTCP
picCreditsเห็น =จริง
picLogin.Visible = False
picRegister.Visible = False
picCharacter.Visible = False
picMain.Visible = False
' เสียง
PlaySound Sound_ButtonClick, -1, -1
สิ้นสุดถ้า
4 กรณี
โทร DestroyGame
เลือกสิ้นสุด

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "imgButton_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย imgButton_MouseDown (ดัชนีเป็นเลขจำนวนเต็ม ปุ่มเป็นจำนวนเต็ม กะเป็นจำนวนเต็ม X เป็นเดี่ยว y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

' รีเซ็ตปุ่มอื่น ๆ
resetButtons_Menu ดัชนี

' เปลี่ยนปุ่มที่เราจะสามารถโฉบบน
ดัชนี changeButtonState_Menu 2 ' คลิก

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "imgButton_MouseDown", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย imgButton_MouseMove (ดัชนีเป็นเลขจำนวนเต็ม ปุ่มเป็นจำนวนเต็ม กะเป็นจำนวนเต็ม X เป็นเดี่ยว y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

' ตั้งค่าปุ่มอื่น ๆ
resetButtons_Menu ดัชนี

' เปลี่ยนปุ่มที่เราจะสามารถโฉบบน
.state MenuButton ถ้าไม่ (ดัชนี) = 2 แล้ว ' ให้แน่ใจว่า เราไม่ต้องคลิก
changeButtonState_Menu ดัชนี 1 ' เวอร์
สิ้นสุดถ้า

' เสียง
LastButtonSound_Menu ถ้าไม่ =ดัชนีแล้ว
PlaySound Sound_ButtonHover, -1, -1
LastButtonSound_Menu =ดัชนี
สิ้นสุดถ้า

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "imgButton_MouseMove", "frmMenu", Err.Number, Errอธิบาย Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย imgButton_MouseUp (ดัชนีเป็นเลขจำนวนเต็ม ปุ่มเป็นจำนวนเต็ม กะเป็นจำนวนเต็ม X เป็นเดี่ยว y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

' รีเซ็ตปุ่มทั้งหมด
resetButtons_Menu -1

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "imgButton_MouseUp", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

lblLAccept_Click() ย่อยส่วนตัว
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
ถ้า Options.Debug = errorhandler แล้วในข้อผิดพลาดไป 1

ถ้า isLoginLegal (txtLUser.text, txtLPass.text) แล้ว
โทร MenuState(MENU_STATE_LOGIN)
สิ้นสุดถ้า

' ตัวจัดการข้อผิดพลาด
ย่อยออกจาก
errorhandler:
HandleError "lblLAccept_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย lblSprite_Click ()
พร่ามัวเป็นยาว spritecount

' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

ถ้า optMale.Value แล้ว
spritecount = UBound (คลา (cmbClass.ListIndex 1)MaleSprite)
อื่น
spritecount = UBound (คลา (cmbClass.ListIndex 1)FemaleSprite)
สิ้นสุดถ้า

ถ้า newCharSprite > = spritecount แล้ว
newCharSprite = 0
Else
newCharSprite = newCharSprite 1
สิ้นสุดถ้า


' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "lblSprite_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย optFemale_Click()
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

newCharClass = cmbClass.ListIndex
newCharSprite = 0

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "optFemale_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

optMale_Click() ย่อยส่วนตัว
' ถ้าโหมดการตรวจแก้จุดบกพร่อง จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

newCharClass = cmbClass.ListIndex
newCharSprite = 0

' ตัวจัดการข้อผิดพลาด
ย่อยออกจาก
errorhandler:
HandleError "optMale_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย picCharacter_MouseMove (ปุ่มเป็นจำนวนเต็ม กะเป็นเลขจำนวนเต็ม X เป็น หนึ่ง y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

resetButtons_Menu

' ตัวจัดการข้อผิดพลาด
ย่อยออกจาก
errorhandler:
HandleError "picCharacter_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย picCredits_MouseMove (ปุ่มเป็นจำนวนเต็ม กะเป็นเลขจำนวนเต็ม X เป็น หนึ่ง y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

resetButtons_Menu

' ตัวจัดการข้อผิดพลาด
ย่อยออกจาก
errorhandler:
HandleError "picCredits_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย picLogin_MouseMove (ปุ่มเป็นจำนวนเต็ม กะเป็นเลขจำนวนเต็ม X เป็น หนึ่ง y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

resetButtons_Menu

' ตัวจัดการข้อผิดพลาด
ย่อยออกจาก
errorhandler:
HandleError "picLogin_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย picMain_MouseMove (ปุ่มเป็นจำนวนเต็ม กะเป็นเลขจำนวนเต็ม X เป็น หนึ่ง y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

resetButtons_Menu

' ตัวจัดการข้อผิดพลาด
ย่อยออกจาก
errorhandler:
HandleError "picMain_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

ส่วนตัวย่อย picRegister_MouseMove (ปุ่มเป็นจำนวนเต็ม กะเป็นเลขจำนวนเต็ม X เป็น หนึ่ง y เป็นเดียว)
' ถ้าโหมดดีบัก จัดการข้อผิดพลาด นั้นออกจากออก
Options.Debug ถ้า = errorhandler แล้วในข้อผิดพลาดไป 1

resetButtons_Menu

' ตัวจัดการข้อผิดพลาด
ย่อยออก
errorhandler:
HandleError "picRegister_MouseMove", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
ออกย่อย
ย่อยสิ้นสุด

' ลงทะเบียน
txtRAccept_Click() ย่อยส่วนตัว
ชื่อมิติเป็นสตริ
มิติผ่านเป็นสตริ
มิติ PasswordAgain เป็นสตริง

ผลลัพธ์ (ไทย) 3:

ตัวเลือกที่ชัดเจน

ส่วนตัวย่อย cmbclass_click()
newcharclass = cmbclass . listindex
newcharsprite = 0 =


จบซบเรือดำน้ำส่วนตัว form_load()
มัว tmptxt เป็นสตริง , tmparray() เป็นสตริง , ผมยาว

" ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นไปข้อผิดพลาด errorhandler

ทั่วไป เมนูของ
ฉันตัวเลือกคำบรรยาย = . game_name

' โหลดข่าว
เปิด App . เส้นทาง& " ข้อมูลแฟ้มข่าว .ข้อความ " ใส่#อินพุตสาย# 1
1
1
' # tmptxt ใกล้แยกแบ่ง
tmparray() = แยก ( tmptxt " < br / > " )
lblnews . คำบรรยาย = vbnullstring
สำหรับฉัน = 0 เพื่อ ubound ( tmparray )
lblnews . คำบรรยาย = lblnews . พิธีกร& tmparray ( ฉัน ) & vbnewline
ต่อไป

' โหลดผู้ใช้ผ่าน
txtluser.text = ตัด $ ( ตัวเลือก ผู้ใช้ ) = 1 แล้ว

ถ้า options.savepass txtlpass.text = ตัด $ ( รหัสผ่านตัวเลือก )
chkpass .ตัวเลือกค่า = . savepass
ถ้าในที่สุด

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " form_load " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย form_mousemove ( ปุ่มเป็นจำนวนเต็ม เปลี่ยนเป็นจำนวนเต็ม x เป็นคนเดียว , Y เป็นเดียว )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

resetbuttons_menu

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " form_mousemove " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย form_unload ( ยกเลิกเป็นจำนวนเต็ม )
' ถ้า debug โหมด , จัดการ ข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

ถ้าไม่ enteringgame แล้ว destroygame


' ข้อผิดพลาด แฮนด์เลอร์ออกจากซับ errorhandler :

handleerror " form_unload " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย imgbutton_click ( ดัชนีเป็นจำนวนเต็ม )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก . debug = 1 จากนั้นไปข้อผิดพลาด errorhandler

เลือกกรณีดัชนี

ถ้าไม่ piclogin กรณี 1 . มองเห็นแล้ว

เปลี่ยน visiblity ' ทำลายซ็อกเก็ตdestroytcp
piccredits . มองเห็น = เท็จ
piclogin ที่มองเห็นได้ picregister จริง =

= เท็จ ที่มองเห็นได้ piccharacter . มองเห็น = เท็จ
picmain . มองเห็น = เท็จ

' การตรวจสอบการเข้าสู่ระบบเซิร์ฟเวอร์สถานะ
ถ้า connecttoserver ( 1 ) แล้ว
lblsstatus . คำบรรยาย = " ออนไลน์ "
lblsstatus.forecolor = vbgreen
อีก
lblsstatus คำบรรยาย = . " ครับ "
lblsstatus.forecolor =

' vbred จบ ถ้าเสียงเล่น
playsound sound_buttonclick , - 1 , - 1
ถ้าสุดท้าย กรณี 2

ถ้าไม่ picregister . มองเห็นแล้ว
' ทำลายซ็อกเก็ต เปลี่ยน destroytcp visiblity

piccredits . มองเห็น = เท็จ
piclogin . มองเห็น = เท็จ
picregister ที่มองเห็นได้ piccharacter จริง =

= เท็จ ที่มองเห็นได้ picmain . มองเห็น = เท็จ

" เล่นเสียง playsound sound_buttonclick , - 1 , - 1

3
ถ้าคดีจบ ถ้าไม่ piccredits . มองเห็นแล้ว
' ทำลายซ็อกเก็ต เปลี่ยน destroytcp visiblity

piccredits .เห็นจริง =

= เท็จ piclogin ที่มองเห็นได้ picregister . มองเห็น = เท็จ
piccharacter . มองเห็น = เท็จ
picmain . มองเห็น = เท็จ

" เล่นเสียง playsound sound_buttonclick , - 1 , - 1
4

จบถ้ากรณีเรียก destroygame
สุดท้ายเลือก

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " imgbutton_click " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext
เอ่อ ล้างออก ซับ



จบซับimgbutton_mousedown เรือดำน้ำส่วนตัว ( ดัชนีเป็นจำนวนเต็ม , ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นเดียวเดียวเป็น y )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

' ปุ่มรีเซ็ต
ดัชนีอื่น ๆ resetbuttons_menu

' เปลี่ยนปุ่มที่เราอยู่ในดัชนี changebuttonstate_menu
2

' คลิก ' ข้อผิดพลาดผู้ดูแล
ทางออกย่อย :

errorhandlerhandleerror " imgbutton_mousedown " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย imgbutton_mousemove ( ดัชนีเป็นจำนวนเต็ม , ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นคนเดียว , Y เป็นเดียว )
' ถ้าดีบั๊ก โหมดจัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

' ตั้งค่าปุ่มอื่น ๆ resetbuttons_menu


ดัชนีเปลี่ยนปุ่ม เราก็โฉบบน
ถ้าไม่ menubutton ( ดัชนี ) รัฐ = 2 แล้ว ' ให้แน่ใจว่าเราไม่ได้คลิก
ดัชนี changebuttonstate_menu 1 ' โฉบ
ถ้าในที่สุด


ถ้าไม่เล่นเสียง lastbuttonsound_menu = ดัชนีแล้ว
playsound sound_buttonhover , - 1 , - 1

จบ lastbuttonsound_menu = ดัชนี ถ้าผู้ดูแล


' ข้อผิดพลาดออกจากซับ
errorhandler :
handleerror " imgbutton_mousemove " , " frmmenu " เอ่อ เบอร์ เอ่อ .รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย imgbutton_mouseup ( ดัชนีเป็นจำนวนเต็ม , ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นเดียวเดียวเป็น y )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้น บนไปข้อผิดพลาด errorhandler

' ปุ่มรีเซ็ตทั้งหมด resetbuttons_menu
1

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " imgbutton_mouseup " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย lbllaccept_click()
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

ถ้า isloginlegal ( txtlpass ข้อความ txtluser.text ) แล้วเรียก menustate ( menu_state_login )

ถ้าในที่สุด

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " lbllaccept_click " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย lblsprite_click()
มัว spritecount นาน

" ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้า debug = 1 ตัว แล้วความผิดพลาดไป errorhandler

ถ้า optmale มูลค่าแล้ว
spritecount = ubound ( คลาส ( cmbclass.listindex 1 ) malesprite

) อีกspritecount = ubound ( คลาส ( cmbclass.listindex 1 ) femalesprite )

ถ้าจบ ถ้า newcharsprite > = spritecount แล้ว
newcharsprite = 0 =

=
newcharsprite newcharsprite อีก 1 จบ ถ้า




' ข้อผิดพลาดจัดการทางออกย่อย errorhandler :
handleerror " lblsprite_click " , " frmmenu " เอ่อ เบอร์ เอ่อรายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย optfemale_click()
ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

newcharclass = cmbclass . listindex
newcharsprite = 0 =



' ข้อผิดพลาดจัดการทางออกย่อย errorhandler :
handleerror " optfemale_click " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด เอ่อ . แหล่งที่มา เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย optmale_click()
' ถ้า debug โหมดจัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

newcharclass = cmbclass . listindex
newcharsprite = 0 =



' ข้อผิดพลาดจัดการทางออกย่อย errorhandler :
handleerror " optmale_click " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง helpcontext เอ่อ .


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย piccharacter_mousemove ( ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นเดี่ยวY เป็นเดียว )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

resetbuttons_menu

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " piccharacter_mousemove " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย piccredits_mousemove ( ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นเดี่ยวY เป็นเดียว )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

resetbuttons_menu

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " piccredits_mousemove " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย piclogin_mousemove ( ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นเดี่ยวY เป็นเดียว )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

resetbuttons_menu

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " piclogin_mousemove " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย picmain_mousemove ( ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นเดี่ยวY เป็นเดียว )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

resetbuttons_menu

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " picmain_mousemove " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

ส่วนตัวย่อย picregister_mousemove ( ปุ่มเป็นจำนวนเต็ม , เปลี่ยนเป็นจำนวนเต็ม x เป็นเดี่ยวY เป็นเดียว )
' ถ้าโหมดดีบัก , จัดการข้อผิดพลาดแล้วออก
ถ้าตัวเลือก debug = 1 จากนั้นในความผิดพลาดไป errorhandler

resetbuttons_menu

'

errorhandler ข้อผิดพลาดจัดการทางออกย่อย :
handleerror " picregister_mousemove " , " frmmenu " เอ่อ จํานวน คือ รายละเอียด คือ แหล่ง เอ่อ . helpcontext


เออ ล้างออก ซับจบ sub

' ลงทะเบียน

มัว txtraccept_click() เรือดำน้ำส่วนตัวชื่อเป็นสตริงเป็นสตริงรหัสผ่าน

มัวมัว passwordagain เป็น String