Mirage Source

Posted By: Sync
Subject: Chat In A Text Box Instead Of On-Screen
Date Posted: 11 February 2006 at 3:21pm
Difficulty: Easy 1/5

Originaly Posted By: Sonire

In frmMirage:

Make a text box and name it txtMyTextBox

In modGameLogic:

In the game loop find:

' Blit the text they are putting in

And Replace with:

' Blit the text they are putting in

frmMirage.txtMyTextBox.Text = MyText
If Len(MyText) > 4 Then
frmMirage.txtMyTextBox.SelStart = Len(frmMirage.txtMyTextBox.Text) + 1
End If

Then Find:



Sub ResizeGUI()

And Replace the Sub with:

'Sub ResizeGUI()
'If frmMirage.WindowState <> vbMinimized Then
'frmMirage.txtChat.Height = Int(frmMirage.Height / Screen.TwipsPerPixelY) - frmMirage.txtChat.top - 32
'frmMirage.txtChat.Width = Int(frmMirage.Width / Screen.TwipsPerPixelX) - 8
'End If
'End Sub

Then Find:

Sub GameInit()

And Replace the whole sub with:

Sub GameInit()
frmMirage.Visible = True
frmSendGetData.Visible = False
'Call ResizeGUI
Call InitDirectX
End Sub