Permalink
Browse files

Ajout d'une option pour choisir le temps de display des bulles.

  • Loading branch information...
1 parent 52bfe2b commit 3f93ea5412c28e621d2b1bf26cb332b0195025e2 @mywaystar mywaystar committed Apr 25, 2012
Showing with 758 additions and 720 deletions.
  1. +1 −0 Client/Config/Client.ini
  2. +742 −710 Client/Forms Sources/frmMirage.frm
  3. +5 −0 Client/Modules Sources/ModINI.bas
  4. +10 −10 Client/Modules Sources/modTypes.bas
View
1 Client/Config/Client.ini
@@ -3,6 +3,7 @@ WebSite=www.frogcreator.fr
Music= 0
jeu=1
Version=0.6.2
+bubbletime=4000
[CREDIT]
CreditLine1=
CreditLine2=
View
1,452 Client/Forms Sources/frmMirage.frm
@@ -28,160 +28,55 @@ Begin VB.Form frmMirage
ScaleMode = 3 'Pixel
ScaleWidth = 799
Visible = 0 'False
- Begin VB.PictureBox pictMetier
+ Begin VB.PictureBox picOptions
Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H80000005&
+ BackColor = &H00FFFFFF&
ForeColor = &H80000008&
- Height = 1995
+ Height = 5745
Left = 0
- Picture = "frmMirage.frx":17D2A
- ScaleHeight = 1965
- ScaleWidth = 3600
- TabIndex = 241
- Top = 1320
+ ScaleHeight = 381
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 173
+ TabIndex = 143
+ Top = 0
Visible = 0 'False
- Width = 3630
- Begin VB.Label lblmetier
- BackStyle = 0 'Transparent
- Caption = "Label41"
- Height = 615
- Index = 3
- Left = 120
- TabIndex = 249
- Top = 1080
- Width = 3375
- End
- Begin VB.Label lblOublierMetier
- BackStyle = 0 'Transparent
- Caption = "Oublier le Metier"
- Height = 255
- Left = 1440
- TabIndex = 248
- Top = 1680
- Width = 1335
- End
- Begin VB.Label lblendmetier
- Alignment = 2 'Center
- BackStyle = 0 'Transparent
- Height = 255
- Left = 3240
- TabIndex = 247
- Top = 0
- Width = 375
- End
- Begin VB.Label lblmetierEnd
- Alignment = 2 'Center
- BackStyle = 0 'Transparent
- Caption = "Fermer"
- Height = 255
- Left = 2760
- TabIndex = 245
- Top = 1680
- Width = 735
- End
- Begin VB.Label lblmetier
- BackStyle = 0 'Transparent
- Caption = "Label41"
- Height = 255
- Index = 2
+ Width = 2625
+ Begin VB.TextBox txtTempsBulles
+ Appearance = 0 'Flat
+ Height = 285
Left = 120
- TabIndex = 244
- Top = 840
- Width = 3255
+ TabIndex = 251
+ Top = 3600
+ Width = 2295
End
- Begin VB.Label lblmetier
- BackStyle = 0 'Transparent
- Caption = "Label41"
+ Begin VB.CommandButton Command1
+ Caption = "Ok"
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 6.75
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
Height = 255
- Index = 1
Left = 120
- TabIndex = 243
- Top = 600
- Width = 3375
+ TabIndex = 144
+ Top = 5400
+ Width = 2415
End
- Begin VB.Label lblmetier
- BackStyle = 0 'Transparent
- Caption = "Label41"
+ Begin VB.CommandButton CmdoptTouche
+ Caption = "Configurer les touches"
Height = 255
- Index = 0
Left = 120
- TabIndex = 242
- Top = 360
- Width = 3375
- End
- End
- Begin VB.PictureBox PicMenuQuitter
- Appearance = 0 'Flat
- AutoRedraw = -1 'True
- AutoSize = -1 'True
- BackColor = &H80000005&
- BorderStyle = 0 'None
- ForeColor = &H80000008&
- Height = 1965
- Left = 3480
- Picture = "frmMirage.frx":2EDDC
- ScaleHeight = 1965
- ScaleWidth = 3600
- TabIndex = 212
- Top = 2640
- Visible = 0 'False
- Width = 3600
- Begin VB.Label lblCdP
- BackStyle = 0 'Transparent
- Height = 495
- Left = 0
- TabIndex = 216
- Top = 360
- Width = 3615
- End
- Begin VB.Label lblDeco
- BackStyle = 0 'Transparent
- Height = 495
- Left = 0
- TabIndex = 215
- Top = 840
- Width = 3615
- End
- Begin VB.Label lblQuitter
- BackStyle = 0 'Transparent
- Height = 495
- Left = 0
- TabIndex = 214
- Top = 1320
- Width = 3615
- End
- Begin VB.Label Label27
- BackStyle = 0 'Transparent
- Height = 255
- Left = 3360
- TabIndex = 213
- Top = 0
- Width = 255
- End
- End
- Begin VB.PictureBox pictTouche
- Appearance = 0 'Flat
- BackColor = &H80000005&
- ForeColor = &H80000008&
- Height = 4035
- Left = 0
- ScaleHeight = 267
- ScaleMode = 3 'Pixel
- ScaleWidth = 511
- TabIndex = 165
- Top = 1320
- Visible = 0 'False
- Width = 7695
- Begin VB.CommandButton cmdOTA
- Caption = "Annuler"
- Height = 255
- Left = 6840
- TabIndex = 185
- Top = 3720
- Width = 735
+ TabIndex = 145
+ Top = 5160
+ Width = 2415
End
- Begin VB.ComboBox cbth
+ Begin VB.CheckBox chknobj
+ BackColor = &H00FFFFFF&
+ Caption = "Nom des objets aux sol (quand la souris le survole)"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -191,14 +86,17 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Left = 930
- TabIndex = 184
- Text = "Combo1"
- Top = 240
- Width = 2775
+ Height = 315
+ Left = 120
+ TabIndex = 159
+ ToolTipText = "Petit barre afficher au dessu de vous"
+ Top = 960
+ Value = 1 'Checked
+ Width = 2400
End
- Begin VB.ComboBox cbtb
+ Begin VB.CheckBox chkplayerbar
+ BackColor = &H00FFFFFF&
+ Caption = "Mini barre de vie"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -208,14 +106,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Left = 930
- TabIndex = 183
- Text = "Combo1"
- Top = 480
- Width = 2775
+ Height = 195
+ Left = 120
+ TabIndex = 158
+ Top = 720
+ Value = 1 'Checked
+ Width = 1440
End
- Begin VB.ComboBox cbtg
+ Begin VB.CheckBox chkplayername
+ BackColor = &H00FFFFFF&
+ Caption = "Nom"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -225,14 +125,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Left = 930
- TabIndex = 182
- Text = "Combo1"
- Top = 720
- Width = 2775
+ Height = 195
+ Left = 120
+ TabIndex = 157
+ Top = 240
+ Value = 1 'Checked
+ Width = 765
End
- Begin VB.ComboBox cbtd
+ Begin VB.CheckBox chknpcname
+ BackColor = &H00FFFFFF&
+ Caption = "Noms"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -242,14 +144,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Left = 930
- TabIndex = 181
- Text = "Combo1"
- Top = 960
- Width = 2775
+ Height = 225
+ Left = 120
+ TabIndex = 156
+ Top = 1440
+ Value = 1 'Checked
+ Width = 765
End
- Begin VB.ComboBox cbta
+ Begin VB.CheckBox chkbubblebar
+ BackColor = &H00FFFFFF&
+ Caption = "Bulles de dialogue"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -259,14 +163,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Left = 930
- TabIndex = 180
- Text = "Combo1"
- Top = 1200
- Width = 2775
+ Height = 195
+ Left = 120
+ TabIndex = 155
+ Top = 3120
+ Value = 1 'Checked
+ Width = 1725
End
- Begin VB.ComboBox cbtc
+ Begin VB.CheckBox chknpcbar
+ BackColor = &H00FFFFFF&
+ Caption = "Affichés leur mini barre de vie"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -276,22 +182,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Left = 930
- TabIndex = 209
- Text = "Combo1"
- Top = 1440
- Width = 2775
- End
- Begin VB.CommandButton cmdOTO
- Caption = "Ok"
- Height = 255
- Left = 6120
- TabIndex = 186
- Top = 3720
- Width = 735
+ Height = 225
+ Left = 120
+ TabIndex = 154
+ Top = 1920
+ Value = 1 'Checked
+ Width = 2400
End
- Begin VB.ComboBox cbtr
+ Begin VB.CheckBox chkplayerdamage
+ BackColor = &H00FFFFFF&
+ Caption = "Dégâts affichés au dessus de la tête"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -301,15 +201,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 0
- Left = 4905
- TabIndex = 179
- Text = "Combo1"
- Top = 225
- Width = 2655
+ Height = 195
+ Left = 120
+ TabIndex = 153
+ Top = 480
+ Value = 1 'Checked
+ Width = 2565
End
- Begin VB.ComboBox cbtr
+ Begin VB.CheckBox chknpcdamage
+ BackColor = &H00FFFFFF&
+ Caption = "Dégâts affichés au dessus de la tête"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -319,15 +220,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 1
- Left = 4905
- TabIndex = 178
- Text = "Combo1"
- Top = 480
- Width = 2655
+ Height = 225
+ Left = 120
+ TabIndex = 152
+ Top = 1680
+ Value = 1 'Checked
+ Width = 2595
End
- Begin VB.ComboBox cbtr
+ Begin VB.CheckBox chkmusic
+ BackColor = &H00FFFFFF&
+ Caption = "Musique"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -337,15 +239,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 2
- Left = 4905
- TabIndex = 177
- Text = "Combo1"
- Top = 720
- Width = 2655
+ Height = 225
+ Left = 120
+ TabIndex = 151
+ Top = 2400
+ Value = 1 'Checked
+ Width = 1335
End
- Begin VB.ComboBox cbtr
+ Begin VB.CheckBox chksound
+ BackColor = &H00FFFFFF&
+ Caption = "Effets sonores"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -355,15 +258,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 3
- Left = 4905
- TabIndex = 176
- Text = "Combo1"
- Top = 960
- Width = 2655
+ Height = 225
+ Left = 120
+ TabIndex = 150
+ Top = 2640
+ Value = 1 'Checked
+ Width = 1365
End
- Begin VB.ComboBox cbtr
+ Begin VB.CheckBox chkAutoScroll
+ BackColor = &H00FFFFFF&
+ Caption = "Défilement automatique"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -373,15 +277,35 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 4
- Left = 4905
- TabIndex = 175
- Text = "Combo1"
- Top = 1200
- Width = 2655
+ Height = 195
+ Left = 120
+ TabIndex = 149
+ Top = 4440
+ Value = 1 'Checked
+ Width = 1845
End
- Begin VB.ComboBox cbtr
+ Begin VB.CommandButton Command2
+ Caption = "Actualiser le thème"
+ Height = 255
+ Left = 120
+ TabIndex = 148
+ Top = 4920
+ Visible = 0 'False
+ Width = 2415
+ End
+ Begin VB.HScrollBar scrlBltText
+ Height = 255
+ Left = 240
+ Max = 20
+ Min = 4
+ TabIndex = 147
+ Top = 4125
+ Value = 6
+ Width = 2055
+ End
+ Begin VB.CheckBox chkLowEffect
+ BackColor = &H00FFFFFF&
+ Caption = "Désactiver les effets avancé"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -391,15 +315,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 5
- Left = 4905
- TabIndex = 174
- Text = "Combo1"
- Top = 1440
- Width = 2655
+ Height = 195
+ Left = 120
+ TabIndex = 146
+ Top = 4680
+ Width = 2325
End
- Begin VB.ComboBox cbtr
+ Begin VB.Label lblBulle
+ BackStyle = 0 'Transparent
+ Caption = "Temps d'affichage des bulles:"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -409,15 +333,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 6
- Left = 4905
- TabIndex = 173
- Text = "Combo1"
- Top = 1695
- Width = 2655
+ Height = 255
+ Left = 120
+ TabIndex = 250
+ Top = 3360
+ Width = 2175
End
- Begin VB.ComboBox cbtr
+ Begin VB.Label lblLines
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Caption = "Nombre de ligne écrite sur l'écran: 6"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -427,87 +352,251 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 7
- Left = 4905
- TabIndex = 172
- Text = "Combo1"
- Top = 1935
- Width = 2655
+ Height = 165
+ Left = 120
+ TabIndex = 164
+ Top = 3960
+ Width = 2220
End
- Begin VB.ComboBox cbtr
+ Begin VB.Label Label6
+ Alignment = 2 'Center
+ BackColor = &H00808080&
+ BackStyle = 0 'Transparent
+ Caption = "-Affichage du Joueur-"
BeginProperty Font
Name = "Tahoma"
- Size = 6.75
+ Size = 8.25
Charset = 0
- Weight = 400
+ Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 8
- Left = 4905
- TabIndex = 171
- Text = "Combo1"
- Top = 2175
+ ForeColor = &H00FF0000&
+ Height = 210
+ Left = -120
+ TabIndex = 163
+ Top = 0
Width = 2655
End
- Begin VB.ComboBox cbtr
+ Begin VB.Label Label14
+ Alignment = 2 'Center
+ BackColor = &H00808080&
+ BackStyle = 0 'Transparent
+ Caption = "-Musique/Sons-"
BeginProperty Font
Name = "Tahoma"
- Size = 6.75
+ Size = 8.25
Charset = 0
- Weight = 400
+ Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 9
- Left = 4905
- TabIndex = 170
- Text = "Combo1"
- Top = 2415
+ ForeColor = &H00FF0000&
+ Height = 210
+ Left = -120
+ TabIndex = 162
+ Top = 2160
Width = 2655
End
- Begin VB.ComboBox cbtr
+ Begin VB.Label Label18
+ Alignment = 2 'Center
+ BackColor = &H00808080&
+ BackStyle = 0 'Transparent
+ Caption = "-Affichage du Chat-"
BeginProperty Font
Name = "Tahoma"
- Size = 6.75
+ Size = 8.25
Charset = 0
- Weight = 400
+ Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 10
- Left = 4905
- TabIndex = 169
- Text = "Combo1"
- Top = 2640
+ ForeColor = &H00FF0000&
+ Height = 210
+ Left = 0
+ TabIndex = 161
+ Top = 2880
Width = 2655
End
- Begin VB.ComboBox cbtr
+ Begin VB.Label Label9
+ Alignment = 2 'Center
+ BackColor = &H00808080&
+ BackStyle = 0 'Transparent
+ Caption = "-Affichage des NPCs-"
BeginProperty Font
Name = "Tahoma"
- Size = 6.75
+ Size = 8.25
Charset = 0
- Weight = 400
+ Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 285
- Index = 11
- Left = 4905
- TabIndex = 168
- Text = "Combo1"
- Top = 2895
+ ForeColor = &H00FF0000&
+ Height = 210
+ Left = 0
+ TabIndex = 160
+ Top = 1275
Width = 2655
End
- Begin VB.ComboBox cbtr
+ End
+ Begin VB.PictureBox pictMetier
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H80000005&
+ ForeColor = &H80000008&
+ Height = 1995
+ Left = 3960
+ Picture = "frmMirage.frx":17D2A
+ ScaleHeight = 1965
+ ScaleWidth = 3600
+ TabIndex = 241
+ Top = 600
+ Visible = 0 'False
+ Width = 3630
+ Begin VB.Label lblmetier
+ BackStyle = 0 'Transparent
+ Caption = "Label41"
+ Height = 615
+ Index = 3
+ Left = 120
+ TabIndex = 249
+ Top = 1080
+ Width = 3375
+ End
+ Begin VB.Label lblOublierMetier
+ BackStyle = 0 'Transparent
+ Caption = "Oublier le Metier"
+ Height = 255
+ Left = 1440
+ TabIndex = 248
+ Top = 1680
+ Width = 1335
+ End
+ Begin VB.Label lblendmetier
+ Alignment = 2 'Center
+ BackStyle = 0 'Transparent
+ Height = 255
+ Left = 3240
+ TabIndex = 247
+ Top = 0
+ Width = 375
+ End
+ Begin VB.Label lblmetierEnd
+ Alignment = 2 'Center
+ BackStyle = 0 'Transparent
+ Caption = "Fermer"
+ Height = 255
+ Left = 2760
+ TabIndex = 245
+ Top = 1680
+ Width = 735
+ End
+ Begin VB.Label lblmetier
+ BackStyle = 0 'Transparent
+ Caption = "Label41"
+ Height = 255
+ Index = 2
+ Left = 120
+ TabIndex = 244
+ Top = 840
+ Width = 3255
+ End
+ Begin VB.Label lblmetier
+ BackStyle = 0 'Transparent
+ Caption = "Label41"
+ Height = 255
+ Index = 1
+ Left = 120
+ TabIndex = 243
+ Top = 600
+ Width = 3375
+ End
+ Begin VB.Label lblmetier
+ BackStyle = 0 'Transparent
+ Caption = "Label41"
+ Height = 255
+ Index = 0
+ Left = 120
+ TabIndex = 242
+ Top = 360
+ Width = 3375
+ End
+ End
+ Begin VB.PictureBox PicMenuQuitter
+ Appearance = 0 'Flat
+ AutoRedraw = -1 'True
+ AutoSize = -1 'True
+ BackColor = &H80000005&
+ BorderStyle = 0 'None
+ ForeColor = &H80000008&
+ Height = 1965
+ Left = 3480
+ Picture = "frmMirage.frx":2EDDC
+ ScaleHeight = 1965
+ ScaleWidth = 3600
+ TabIndex = 212
+ Top = 2640
+ Visible = 0 'False
+ Width = 3600
+ Begin VB.Label lblCdP
+ BackStyle = 0 'Transparent
+ Height = 495
+ Left = 0
+ TabIndex = 216
+ Top = 360
+ Width = 3615
+ End
+ Begin VB.Label lblDeco
+ BackStyle = 0 'Transparent
+ Height = 495
+ Left = 0
+ TabIndex = 215
+ Top = 840
+ Width = 3615
+ End
+ Begin VB.Label lblQuitter
+ BackStyle = 0 'Transparent
+ Height = 495
+ Left = 0
+ TabIndex = 214
+ Top = 1320
+ Width = 3615
+ End
+ Begin VB.Label Label27
+ BackStyle = 0 'Transparent
+ Height = 255
+ Left = 3360
+ TabIndex = 213
+ Top = 0
+ Width = 255
+ End
+ End
+ Begin VB.PictureBox pictTouche
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ ForeColor = &H80000008&
+ Height = 4035
+ Left = 0
+ ScaleHeight = 267
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 511
+ TabIndex = 165
+ Top = 1320
+ Visible = 0 'False
+ Width = 7695
+ Begin VB.CommandButton cmdOTA
+ Caption = "Annuler"
+ Height = 255
+ Left = 6840
+ TabIndex = 185
+ Top = 3720
+ Width = 735
+ End
+ Begin VB.ComboBox cbth
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -518,14 +607,13 @@ Begin VB.Form frmMirage
Strikethrough = 0 'False
EndProperty
Height = 285
- Index = 12
- Left = 4905
- TabIndex = 167
+ Left = 930
+ TabIndex = 184
Text = "Combo1"
- Top = 3135
- Width = 2655
+ Top = 240
+ Width = 2775
End
- Begin VB.ComboBox cbtr
+ Begin VB.ComboBox cbtb
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -536,14 +624,13 @@ Begin VB.Form frmMirage
Strikethrough = 0 'False
EndProperty
Height = 285
- Index = 13
- Left = 4905
- TabIndex = 166
+ Left = 930
+ TabIndex = 183
Text = "Combo1"
- Top = 3375
- Width = 2655
+ Top = 480
+ Width = 2775
End
- Begin VB.ComboBox cbtra
+ Begin VB.ComboBox cbtg
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -555,12 +642,12 @@ Begin VB.Form frmMirage
EndProperty
Height = 285
Left = 930
- TabIndex = 211
+ TabIndex = 182
Text = "Combo1"
- Top = 1680
+ Top = 720
Width = 2775
End
- Begin VB.ComboBox cbtac
+ Begin VB.ComboBox cbtd
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -572,14 +659,12 @@ Begin VB.Form frmMirage
EndProperty
Height = 285
Left = 930
- TabIndex = 218
+ TabIndex = 181
Text = "Combo1"
- Top = 1920
+ Top = 960
Width = 2775
End
- Begin VB.Label Label40
- BackStyle = 0 'Transparent
- Caption = "Action :"
+ Begin VB.ComboBox cbta
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -589,15 +674,14 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 120
- TabIndex = 217
- Top = 1950
- Width = 735
+ Height = 285
+ Left = 930
+ TabIndex = 180
+ Text = "Combo1"
+ Top = 1200
+ Width = 2775
End
- Begin VB.Label Label39
- BackStyle = 0 'Transparent
- Caption = "Ramasser :"
+ Begin VB.ComboBox cbtc
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -607,15 +691,22 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
+ Height = 285
+ Left = 930
+ TabIndex = 209
+ Text = "Combo1"
+ Top = 1440
+ Width = 2775
+ End
+ Begin VB.CommandButton cmdOTO
+ Caption = "Ok"
Height = 255
- Left = 120
- TabIndex = 210
- Top = 1710
+ Left = 6120
+ TabIndex = 186
+ Top = 3720
Width = 735
End
- Begin VB.Label Label38
- BackStyle = 0 'Transparent
- Caption = "Courir :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -625,57 +716,51 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 120
- TabIndex = 208
- Top = 1470
- Width = 735
+ Height = 285
+ Index = 0
+ Left = 4905
+ TabIndex = 179
+ Text = "Combo1"
+ Top = 225
+ Width = 2655
End
- Begin VB.Label Label1
- Alignment = 2 'Center
- BackColor = &H00808080&
- BackStyle = 0 'Transparent
- Caption = "- Touche de Jeu -"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
- Size = 8.25
+ Size = 6.75
Charset = 0
- Weight = 700
+ Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- ForeColor = &H00FF0000&
- Height = 210
- Left = 0
- TabIndex = 207
- Top = 0
- Width = 3735
+ Height = 285
+ Index = 1
+ Left = 4905
+ TabIndex = 178
+ Text = "Combo1"
+ Top = 480
+ Width = 2655
End
- Begin VB.Label Label2
- Alignment = 2 'Center
- BackColor = &H00808080&
- BackStyle = 0 'Transparent
- Caption = "- Touche de Racourci -"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
- Size = 8.25
+ Size = 6.75
Charset = 0
- Weight = 700
+ Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- ForeColor = &H00FF0000&
- Height = 210
- Left = 3840
- TabIndex = 206
- Top = 0
- Width = 3735
+ Height = 285
+ Index = 2
+ Left = 4905
+ TabIndex = 177
+ Text = "Combo1"
+ Top = 720
+ Width = 2655
End
- Begin VB.Label Label7
- BackStyle = 0 'Transparent
- Caption = "Haut :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -685,15 +770,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 120
- TabIndex = 205
- Top = 270
- Width = 735
+ Height = 285
+ Index = 3
+ Left = 4905
+ TabIndex = 176
+ Text = "Combo1"
+ Top = 960
+ Width = 2655
End
- Begin VB.Label Label13
- BackStyle = 0 'Transparent
- Caption = "Bas :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -703,15 +788,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 120
- TabIndex = 204
- Top = 510
- Width = 735
+ Height = 285
+ Index = 4
+ Left = 4905
+ TabIndex = 175
+ Text = "Combo1"
+ Top = 1200
+ Width = 2655
End
- Begin VB.Label Label20
- BackStyle = 0 'Transparent
- Caption = "Gauche :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -721,15 +806,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 120
- TabIndex = 203
- Top = 750
- Width = 735
+ Height = 285
+ Index = 5
+ Left = 4905
+ TabIndex = 174
+ Text = "Combo1"
+ Top = 1440
+ Width = 2655
End
- Begin VB.Label Label21
- BackStyle = 0 'Transparent
- Caption = "Droite :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -739,15 +824,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 120
- TabIndex = 202
- Top = 990
- Width = 735
+ Height = 285
+ Index = 6
+ Left = 4905
+ TabIndex = 173
+ Text = "Combo1"
+ Top = 1695
+ Width = 2655
End
- Begin VB.Label Label22
- BackStyle = 0 'Transparent
- Caption = "Attaque :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -757,15 +842,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 120
- TabIndex = 201
- Top = 1230
- Width = 735
+ Height = 285
+ Index = 7
+ Left = 4905
+ TabIndex = 172
+ Text = "Combo1"
+ Top = 1935
+ Width = 2655
End
- Begin VB.Label Label23
- BackStyle = 0 'Transparent
- Caption = "Raccourci 1 :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -775,15 +860,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 200
- Top = 270
- Width = 855
+ Height = 285
+ Index = 8
+ Left = 4905
+ TabIndex = 171
+ Text = "Combo1"
+ Top = 2175
+ Width = 2655
End
- Begin VB.Label Label24
- BackStyle = 0 'Transparent
- Caption = "Raccourci 2 :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -793,15 +878,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 199
- Top = 510
- Width = 855
+ Height = 285
+ Index = 9
+ Left = 4905
+ TabIndex = 170
+ Text = "Combo1"
+ Top = 2415
+ Width = 2655
End
- Begin VB.Label Label25
- BackStyle = 0 'Transparent
- Caption = "Raccourci 3 :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -811,15 +896,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 198
- Top = 750
- Width = 855
+ Height = 285
+ Index = 10
+ Left = 4905
+ TabIndex = 169
+ Text = "Combo1"
+ Top = 2640
+ Width = 2655
End
- Begin VB.Label Label26
- BackStyle = 0 'Transparent
- Caption = "Raccourci 4 :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -829,15 +914,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 197
- Top = 990
- Width = 855
+ Height = 285
+ Index = 11
+ Left = 4905
+ TabIndex = 168
+ Text = "Combo1"
+ Top = 2895
+ Width = 2655
End
- Begin VB.Label Label28
- BackStyle = 0 'Transparent
- Caption = "Raccourci 8 :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -847,15 +932,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 196
- Top = 1950
- Width = 855
+ Height = 285
+ Index = 12
+ Left = 4905
+ TabIndex = 167
+ Text = "Combo1"
+ Top = 3135
+ Width = 2655
End
- Begin VB.Label Label29
- BackStyle = 0 'Transparent
- Caption = "Raccourci 7 :"
+ Begin VB.ComboBox cbtr
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -865,15 +950,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 195
- Top = 1710
- Width = 855
+ Height = 285
+ Index = 13
+ Left = 4905
+ TabIndex = 166
+ Text = "Combo1"
+ Top = 3375
+ Width = 2655
End
- Begin VB.Label Label30
- BackStyle = 0 'Transparent
- Caption = "Raccourci 6 :"
+ Begin VB.ComboBox cbtra
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -883,15 +968,14 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 194
- Top = 1470
- Width = 855
+ Height = 285
+ Left = 930
+ TabIndex = 211
+ Text = "Combo1"
+ Top = 1680
+ Width = 2775
End
- Begin VB.Label Label31
- BackStyle = 0 'Transparent
- Caption = "Raccourci 5 :"
+ Begin VB.ComboBox cbtac
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -901,15 +985,16 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 193
- Top = 1230
- Width = 855
+ Height = 285
+ Left = 930
+ TabIndex = 218
+ Text = "Combo1"
+ Top = 1920
+ Width = 2775
End
- Begin VB.Label Label32
+ Begin VB.Label Label40
BackStyle = 0 'Transparent
- Caption = "Raccourci 12 :"
+ Caption = "Action :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -920,14 +1005,14 @@ Begin VB.Form frmMirage
Strikethrough = 0 'False
EndProperty
Height = 255
- Left = 3960
- TabIndex = 192
- Top = 2910
- Width = 855
+ Left = 120
+ TabIndex = 217
+ Top = 1950
+ Width = 735
End
- Begin VB.Label Label33
+ Begin VB.Label Label39
BackStyle = 0 'Transparent
- Caption = "Raccourci 11 :"
+ Caption = "Ramasser :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -938,14 +1023,14 @@ Begin VB.Form frmMirage
Strikethrough = 0 'False
EndProperty
Height = 255
- Left = 3960
- TabIndex = 191
- Top = 2670
- Width = 855
+ Left = 120
+ TabIndex = 210
+ Top = 1710
+ Width = 735
End
- Begin VB.Label Label34
+ Begin VB.Label Label38
BackStyle = 0 'Transparent
- Caption = "Raccourci 10 :"
+ Caption = "Courir :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -956,50 +1041,56 @@ Begin VB.Form frmMirage
Strikethrough = 0 'False
EndProperty
Height = 255
- Left = 3960
- TabIndex = 190
- Top = 2430
- Width = 855
+ Left = 120
+ TabIndex = 208
+ Top = 1470
+ Width = 735
End
- Begin VB.Label Label35
+ Begin VB.Label Label1
+ Alignment = 2 'Center
+ BackColor = &H00808080&
BackStyle = 0 'Transparent
- Caption = "Raccourci 9 :"
+ Caption = "- Touche de Jeu -"
BeginProperty Font
Name = "Tahoma"
- Size = 6.75
+ Size = 8.25
Charset = 0
- Weight = 400
+ Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 189
- Top = 2190
- Width = 855
+ ForeColor = &H00FF0000&
+ Height = 210
+ Left = 0
+ TabIndex = 207
+ Top = 0
+ Width = 3735
End
- Begin VB.Label Label36
+ Begin VB.Label Label2
+ Alignment = 2 'Center
+ BackColor = &H00808080&
BackStyle = 0 'Transparent
- Caption = "Raccourci 14 :"
+ Caption = "- Touche de Racourci -"
BeginProperty Font
Name = "Tahoma"
- Size = 6.75
+ Size = 8.25
Charset = 0
- Weight = 400
+ Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 255
- Left = 3960
- TabIndex = 188
- Top = 3390
- Width = 855
+ ForeColor = &H00FF0000&
+ Height = 210
+ Left = 3840
+ TabIndex = 206
+ Top = 0
+ Width = 3735
End
- Begin VB.Label Label37
+ Begin VB.Label Label7
BackStyle = 0 'Transparent
- Caption = "Raccourci 13 :"
+ Caption = "Haut :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1010,27 +1101,14 @@ Begin VB.Form frmMirage
Strikethrough = 0 'False
EndProperty
Height = 255
- Left = 3960
- TabIndex = 187
- Top = 3150
- Width = 855
+ Left = 120
+ TabIndex = 205
+ Top = 270
+ Width = 735
End
- End
- Begin VB.PictureBox picOptions
- Appearance = 0 'Flat
- BackColor = &H00FFFFFF&
- ForeColor = &H80000008&
- Height = 5385
- Left = 0
- ScaleHeight = 357
- ScaleMode = 3 'Pixel
- ScaleWidth = 173
- TabIndex = 143
- Top = 0
- Visible = 0 'False
- Width = 2625
- Begin VB.CommandButton Command1
- Caption = "Ok"
+ Begin VB.Label Label13
+ BackStyle = 0 'Transparent
+ Caption = "Bas :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1042,21 +1120,13 @@ Begin VB.Form frmMirage
EndProperty
Height = 255
Left = 120
- TabIndex = 144
- Top = 5040
- Width = 2415
- End
- Begin VB.CommandButton CmdoptTouche
- Caption = "Configurer les touches"
- Height = 255
- Left = 120
- TabIndex = 145
- Top = 4800
- Width = 2415
+ TabIndex = 204
+ Top = 510
+ Width = 735
End
- Begin VB.CheckBox chknobj
- BackColor = &H00FFFFFF&
- Caption = "Nom des objets aux sol (quand la souris le survole)"
+ Begin VB.Label Label20
+ BackStyle = 0 'Transparent
+ Caption = "Gauche :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1066,17 +1136,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 315
+ Height = 255
Left = 120
- TabIndex = 159
- ToolTipText = "Petit barre afficher au dessu de vous"
- Top = 960
- Value = 1 'Checked
- Width = 2400
+ TabIndex = 203
+ Top = 750
+ Width = 735
End
- Begin VB.CheckBox chkplayerbar
- BackColor = &H00FFFFFF&
- Caption = "Mini barre de vie"
+ Begin VB.Label Label21
+ BackStyle = 0 'Transparent
+ Caption = "Droite :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1086,16 +1154,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 195
+ Height = 255
Left = 120
- TabIndex = 158
- Top = 720
- Value = 1 'Checked
- Width = 1440
+ TabIndex = 202
+ Top = 990
+ Width = 735
End
- Begin VB.CheckBox chkplayername
- BackColor = &H00FFFFFF&
- Caption = "Nom"
+ Begin VB.Label Label22
+ BackStyle = 0 'Transparent
+ Caption = "Attaque :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1105,16 +1172,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 195
+ Height = 255
Left = 120
- TabIndex = 157
- Top = 240
- Value = 1 'Checked
- Width = 765
+ TabIndex = 201
+ Top = 1230
+ Width = 735
End
- Begin VB.CheckBox chknpcname
- BackColor = &H00FFFFFF&
- Caption = "Noms"
+ Begin VB.Label Label23
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 1 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1124,16 +1190,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 225
- Left = 120
- TabIndex = 156
- Top = 1440
- Value = 1 'Checked
- Width = 765
+ Height = 255
+ Left = 3960
+ TabIndex = 200
+ Top = 270
+ Width = 855
End
- Begin VB.CheckBox chkbubblebar
- BackColor = &H00FFFFFF&
- Caption = "Bulles de dialogue"
+ Begin VB.Label Label24
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 2 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1143,16 +1208,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 195
- Left = 120
- TabIndex = 155
- Top = 3120
- Value = 1 'Checked
- Width = 1725
+ Height = 255
+ Left = 3960
+ TabIndex = 199
+ Top = 510
+ Width = 855
End
- Begin VB.CheckBox chknpcbar
- BackColor = &H00FFFFFF&
- Caption = "Affichés leur mini barre de vie"
+ Begin VB.Label Label25
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 3 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1162,16 +1226,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 225
- Left = 120
- TabIndex = 154
- Top = 1920
- Value = 1 'Checked
- Width = 2400
+ Height = 255
+ Left = 3960
+ TabIndex = 198
+ Top = 750
+ Width = 855
End
- Begin VB.CheckBox chkplayerdamage
- BackColor = &H00FFFFFF&
- Caption = "Dégâts affichés au dessus de la tête"
+ Begin VB.Label Label26
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 4 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1181,16 +1244,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 195
- Left = 120
- TabIndex = 153
- Top = 480
- Value = 1 'Checked
- Width = 2565
+ Height = 255
+ Left = 3960
+ TabIndex = 197
+ Top = 990
+ Width = 855
End
- Begin VB.CheckBox chknpcdamage
- BackColor = &H00FFFFFF&
- Caption = "Dégâts affichés au dessus de la tête"
+ Begin VB.Label Label28
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 8 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1200,16 +1262,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 225
- Left = 120
- TabIndex = 152
- Top = 1680
- Value = 1 'Checked
- Width = 2595
+ Height = 255
+ Left = 3960
+ TabIndex = 196
+ Top = 1950
+ Width = 855
End
- Begin VB.CheckBox chkmusic
- BackColor = &H00FFFFFF&
- Caption = "Musique"
+ Begin VB.Label Label29
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 7 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1219,16 +1280,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 225
- Left = 120
- TabIndex = 151
- Top = 2400
- Value = 1 'Checked
- Width = 1335
+ Height = 255
+ Left = 3960
+ TabIndex = 195
+ Top = 1710
+ Width = 855
End
- Begin VB.CheckBox chksound
- BackColor = &H00FFFFFF&
- Caption = "Effets sonores"
+ Begin VB.Label Label30
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 6 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1238,16 +1298,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 225
- Left = 120
- TabIndex = 150
- Top = 2640
- Value = 1 'Checked
- Width = 1365
+ Height = 255
+ Left = 3960
+ TabIndex = 194
+ Top = 1470
+ Width = 855
End
- Begin VB.CheckBox chkAutoScroll
- BackColor = &H00FFFFFF&
- Caption = "Défilement automatique"
+ Begin VB.Label Label31
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 5 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1257,35 +1316,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 195
- Left = 120
- TabIndex = 149
- Top = 3960
- Value = 1 'Checked
- Width = 1845
- End
- Begin VB.CommandButton Command2
- Caption = "Actualiser le thème"
- Height = 255
- Left = 120
- TabIndex = 148
- Top = 4560
- Visible = 0 'False
- Width = 2415
- End
- Begin VB.HScrollBar scrlBltText
Height = 255
- Left = 240
- Max = 20
- Min = 4
- TabIndex = 147
- Top = 3600
- Value = 6
- Width = 2055
+ Left = 3960
+ TabIndex = 193
+ Top = 1230
+ Width = 855
End
- Begin VB.CheckBox chkLowEffect
- BackColor = &H00FFFFFF&
- Caption = "Désactiver les effets avancé"
+ Begin VB.Label Label32
+ BackStyle = 0 'Transparent
+ Caption = "Raccourci 12 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1295,16 +1334,15 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 195
- Left = 120
- TabIndex = 146
- Top = 4245
- Width = 2325
+ Height = 255
+ Left = 3960
+ TabIndex = 192
+ Top = 2910
+ Width = 855
End
- Begin VB.Label lblLines
- AutoSize = -1 'True
+ Begin VB.Label Label33
BackStyle = 0 'Transparent
- Caption = "Nombre de ligne écrite sur l'écran: 6"
+ Caption = "Raccourci 11 :"
BeginProperty Font
Name = "Tahoma"
Size = 6.75
@@ -1314,95 +1352,83 @@ Begin VB.Form frmMirage
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- Height = 165
- Left = 120
- TabIndex = 164
- Top = 3420
- Width = 2220
+ Height = 255
+ Left = 3960
+ TabIndex = 191
+ Top = 2670
+ Width = 855
End
- Begin VB.Label Label6
- Alignment = 2 'Center
- BackColor = &H00808080&
+ Begin VB.Label Label34
BackStyle = 0 'Transparent
- Caption = "-Affichage du Joueur-"
+ Caption = "Raccourci 10 :"
BeginProperty Font
Name = "Tahoma"
- Size = 8.25
+ Size = 6.75
Charset = 0
- Weight = 700
+ Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- ForeColor = &H00FF0000&
- Height = 210
- Left = 0
- TabIndex = 163
- Top = 0
- Width = 2655
+ Height = 255
+ Left = 3960
+ TabIndex = 190
+ Top = 2430
+ Width = 855
End
- Begin VB.Label Label14
- Alignment = 2 'Center
- BackColor = &H00808080&
+ Begin VB.Label Label35
BackStyle = 0 'Transparent
- Caption = "-Musique/Sons-"
+ Caption = "Raccourci 9 :"
BeginProperty Font
Name = "Tahoma"
- Size = 8.25
+ Size = 6.75
Charset = 0
- Weight = 700
+ Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- ForeColor = &H00FF0000&
- Height = 210
- Left = -120
- TabIndex = 162
- Top = 2160
- Width = 2655
+ Height = 255
+ Left = 3960
+ TabIndex = 189
+ Top = 2190
+ Width = 855
End
- Begin VB.Label Label18
- Alignment = 2 'Center
- BackColor = &H00808080&
+ Begin VB.Label Label36
BackStyle = 0 'Transparent
- Caption = "-Affichage du Chat-"
+ Caption = "Raccourci 14 :"
BeginProperty Font
Name = "Tahoma"
- Size = 8.25
+ Size = 6.75
Charset = 0
- Weight = 700
+ Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- ForeColor = &H00FF0000&
- Height = 210
- Left = 0
- TabIndex = 161
- Top = 2880
- Width = 2655
+ Height = 255
+ Left = 3960
+ TabIndex = 188
+ Top = 3390
+ Width = 855
End
- Begin VB.Label Label9
- Alignment = 2 'Center
- BackColor = &H00808080&
+ Begin VB.Label Label37
BackStyle = 0 'Transparent
- Caption = "-Affichage des NPCs-"
+ Caption = "Raccourci 13 :"
BeginProperty Font
Name = "Tahoma"
- Size = 8.25
+ Size = 6.75
Charset = 0
- Weight = 700
+ Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
- ForeColor = &H00FF0000&
- Height = 210
- Left = 0
- TabIndex = 160
- Top = 1275
- Width = 2655
+ Height = 255
+ Left = 3960
+ TabIndex = 187
+ Top = 3150
+ Width = 855
End
End
Begin VB.PictureBox picRac
@@ -4922,7 +4948,7 @@ Dim Qq As Long
If FileExiste(Rep_Theme & "\info" & Ending) Then frmMirage.Picture = LoadPNG(App.Path & Rep_Theme & "\info" & Ending)
If FileExiste(Rep_Theme & "\Jeu\Info" & Ending) Then Image1.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Info" & Ending)
If FileExiste(Rep_Theme & "\Jeu\inventaire" & Ending) Then Image3.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\inventaire" & Ending)
- If FileExiste(Rep_Theme & "\Jeu\Carte" & Ending) Then imgcarte.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Carte" & Ending)
+ If FileExiste(Rep_Theme & "\Jeu\Carte" & Ending) Then imgCarte.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Carte" & Ending)
If FileExiste(Rep_Theme & "\Jeu\quitter" & Ending) Then PicMenuQuitter.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\quitter" & Ending)
If FileExiste(Rep_Theme & "\Jeu\quete" & Ending) Then picquete.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\quete" & Ending)
If FileExiste(Rep_Theme & "\Jeu\metier" & Ending) Then pictMetier.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\metier" & Ending)
@@ -5933,6 +5959,12 @@ Private Sub TxtQ2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then KeyAscii = 0: txtQ.Visible = False
End Sub
+Private Sub txtTempsBulles_Change()
+If IsNumeric(txtTempsBulles.Text) Then
+WriteINI "CONFIG", "bubbletime", txtTempsBulles, App.Path & "\Config\Client.ini"
+End If
+End Sub
+
Private Sub Up_Click()
If VScroll1.Value = 0 Then Exit Sub
VScroll1.Value = VScroll1.Value - 1
View
5 Client/Modules Sources/ModINI.bas
@@ -38,5 +38,10 @@ On Error Resume Next
AccOpt.Autoscroll = CBool(ReadINI("CONFIG", "AutoScroll", App.Path & "\Config\Account.ini"))
AccOpt.NomObjet = CBool(ReadINI("CONFIG", "NomObjet", App.Path & "\Config\Account.ini"))
AccOpt.LowEffect = CBool(ReadINI("CONFIG", "LowEffect", App.Path & "\Config\Account.ini"))
+ DISPLAY_BUBBLE_TIME = ReadINI("CONFIG", "bubbletime", App.Path & "\Config\Client.ini")
+ If (Not IsNumeric(DISPLAY_BUBBLE_TIME)) And (Not DISPLAY_BUBBLE_TIME > 0) Then
+ DISPLAY_BUBBLE_TIME = 4000
+ End If
+ frmMirage.txtTempsBulles.Text = DISPLAY_BUBBLE_TIME
End Sub
View
20 Client/Modules Sources/modTypes.bas
@@ -185,7 +185,7 @@ Public Const NPC_BEHAVIOR_GUARD As Byte = 4
Public Const NPC_BEHAVIOR_QUETEUR As Byte = 5
' Speach bubble constants
-Public Const DISPLAY_BUBBLE_TIME As Integer = 4000 ' In milliseconds.
+Public DISPLAY_BUBBLE_TIME ' In milliseconds.
Public DISPLAY_BUBBLE_WIDTH As Byte
Public Const MAX_BUBBLE_WIDTH As Byte = 16 ' In tiles. Includes corners.
Public Const MAX_LINE_LENGTH As Byte = 20 ' In characters.
@@ -281,7 +281,7 @@ Type PlayerRec
Guild As String
Guildaccess As Byte
Class As Long
- sprite As Long
+ Sprite As Long
level As Long
exp As Long
Access As Byte
@@ -543,7 +543,7 @@ Type NpcRec
name As String * NAME_LENGTH
AttackSay As String
- sprite As Long
+ Sprite As Long
SpawnSecs As Long
Behavior As Byte
Range As Byte
@@ -600,7 +600,7 @@ Type TradeItemRec
GiveItem As Long
GiveValue As Long
GetItem As Long
- GetValue As Long
+ getValue As Long
End Type
Type TradeItemsRec
@@ -665,7 +665,7 @@ End Type
Type PetsRec
nom As String
- sprite As Long
+ Sprite As Long
addForce As Byte
addDefence As Byte
End Type
@@ -935,7 +935,7 @@ With Player(Index)
.Guildaccess = 0
.Class = 0
.level = 0
- .sprite = 0
+ .Sprite = 0
.exp = 0
.Access = 0
.PK = NO
@@ -1236,11 +1236,11 @@ Sub SetPlayerClass(ByVal Index As Long, ByVal ClassNum As Long)
End Sub
Function GetPlayerSprite(ByVal Index As Long) As Long
- GetPlayerSprite = Player(Index).sprite
+ GetPlayerSprite = Player(Index).Sprite
End Function
-Sub SetPlayerSprite(ByVal Index As Long, ByVal sprite As Long)
- Player(Index).sprite = sprite
+Sub SetPlayerSprite(ByVal Index As Long, ByVal Sprite As Long)
+ Player(Index).Sprite = Sprite
End Sub
Function GetPlayerLevel(ByVal Index As Long) As Long
@@ -1450,7 +1450,7 @@ End Sub
Sub ClearPet(ByVal Index As Long)
Pets(Index).nom = ""
- Pets(Index).sprite = 0
+ Pets(Index).Sprite = 0
Pets(Index).addForce = 0
Pets(Index).addDefence = 0
End Sub

0 comments on commit 3f93ea5

Please sign in to comment.