Temporary Archive (Read Only): Chat In A Text Box Instead Of On-Screen

Print Page | Close Window

Chat In A Text Box Instead Of On-Screen

Printed From: Mirage Source
Category: Tutorials
Forum Name: Temporary Archive (Read Only)
Forum Discription: Temporary 3.0.3 archive tutorials, will be deleted when converted.
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=184
Printed Date: 20 December 2006 at 5:53pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com

Topic: Chat In A Text Box Instead Of On-Screen

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