Skip to content
This repository
Browse code

[TOUS] (R4)Suppression de nombreux bugs et fautes d'othographes.

  • Loading branch information...
commit 4624b252065c42162b9b6eb877e687aaec0070aa 1 parent 0eb8db2
Baptiste JAMIN authored July 07, 2012

Showing 45 changed files with 419 additions and 343 deletions. Show diff stats Hide diff stats

  1. 8  Client/Client.vbp
  2. 4  Client/Client.vbw
  3. 10  Client/Forms Sources/frmMainMenu.frm
  4. BIN  Client/Forms Sources/frmMainMenu.frx
  5. 8  Client/Forms Sources/frmMirage.frm
  6. 4  Client/Forms Sources/frmPlayerChat.frm
  7. BIN  Client/Forms Sources/frmPlayerChat.frx
  8. 41  Client/Forms Sources/frmadmin.frm
  9. 30  Client/Modules Sources/modClientTCP.bas
  10. BIN  Client/Themes/FRoG Creator 0.6/Login/apropos.png
  11. BIN  Client/Themes/FRoG Creator 0.6/Login/fond.png
  12. 8  Editeur/Editeur.vbp
  13. 8  Editeur/Editeur.vbw
  14. 26  Editeur/Forms Sources/frmBDir.frm
  15. 10  Editeur/Forms Sources/frmBniv.frm
  16. 2  Editeur/Forms Sources/frmChars.frm
  17. 2  Editeur/Forms Sources/frmEditArrows.frm
  18. 26  Editeur/Forms Sources/frmEditeurQuetes.frm
  19. BIN  Editeur/Forms Sources/frmEditeurQuetes.frx
  20. 6  Editeur/Forms Sources/frmIndex.frm
  21. 128  Editeur/Forms Sources/frmItemEditor.frm
  22. BIN  Editeur/Forms Sources/frmItemEditor.frx
  23. 4  Editeur/Forms Sources/frmKeyOpen.frm
  24. 2  Editeur/Forms Sources/frmMapErr.frm
  25. BIN  Editeur/Forms Sources/frmMapErr.frx
  26. 137  Editeur/Forms Sources/frmMapProperties.frm
  27. 10  Editeur/Forms Sources/frmMetier.frm
  28. 16  Editeur/Forms Sources/frmMirage.frm
  29. 50  Editeur/Forms Sources/frmNpcEditor.frm
  30. 2  Editeur/Forms Sources/frmPatch.frm
  31. 8  Editeur/Forms Sources/frmPlayerHelp.frm
  32. 2  Editeur/Forms Sources/frmRecette.frm
  33. 4  Editeur/Forms Sources/frmScript.frm
  34. 14  Editeur/Forms Sources/frmSpellEditor.frm
  35. 6  Editeur/Forms Sources/frmTile.frm
  36. 18  Editeur/Forms Sources/frmadmin.frm
  37. 12  Editeur/Forms Sources/frmclasseseditor.frm
  38. 50  Editeur/Forms Sources/frmoptions.frm
  39. BIN  Editeur/Forms Sources/frmoptions.frx
  40. 26  Editeur/Modules Sources/modClientTCP.bas
  41. 12  Editeur/Modules Sources/modGameLogic.bas
  42. 49  Serveur/Forms Sources/frmServer.frm
  43. 4  Serveur/Guides/4.txt
  44. 9  Serveur/Guides/6.txt
  45. 6  Serveur/Modules Sources/modServerTCP.bas
8  Client/Client.vbp
... ...
@@ -1,11 +1,11 @@
1 1
 Type=Exe
2 2
 Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\Windows\System32\stdole2.tlb#OLE Automation
3  
-Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#..\..\..\..\..\..\PROGRA~1\COMMON~1\MICROS~1\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library
4  
-Reference=*\G{E1211242-8E94-11D1-8808-00C04FC2C602}#1.0#0#..\..\..\..\Windows\SysWow64\dx7vb.dll#DirectX 7 for Visual Basic Type Library
  3
+Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#..\..\..\..\..\..\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library
  4
+Reference=*\G{E1211242-8E94-11D1-8808-00C04FC2C602}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\dx7vb.dll#DirectX 7 for Visual Basic Type Library
5 5
 Object={D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0; Flash32_11_3_370_178.ocx
6 6
 Object={6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0; wmp.dll
7  
-Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
8  
-Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
  7
+Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; mswinsck.ocx
  8
+Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; richtx32.ocx
9 9
 Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
10 10
 Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
11 11
 Module=modText; Modules Sources\modText.bas
4  Client/Client.vbw
@@ -19,7 +19,7 @@ frmPlayerHelp = 176, 200, 697, 668, , 62, 222, 634, 708, C
19 19
 frmServerChooser = 30, 179, 1029, 602, , 176, 208, 719, 692, C
20 20
 frmbank = 63, 144, 635, 630, , 61, 135, 633, 621, C
21 21
 frmMirage = 129, 165, 970, 653, , 64, 45, 977, 657, C
22  
-modGameLogic = 17, 30, 759, 624, 
  22
+modGameLogic = 17, 30, 759, 624, Z
23 23
 frmCarte = 66, 75, 587, 543, , 276, 168, 848, 654, C
24 24
 transparence = 153, 148, 1189, 616, 
25 25
 fullscreen = 509, 211, 1025, 682, 
@@ -28,4 +28,4 @@ frmsplash = 78, 202, 599, 670, , 140, 169, 712, 655, C
28 28
 frmFixItem = 10, 73, 558, 557, , 118, 98, 666, 582, C
29 29
 frmcraft = 0, 0, 787, 612, C, 148, 146, 935, 758, C
30 30
 modXp = 52, 52, 634, 378, 
31  
-frmSplashScreen = 75, 75, 793, 687, , 50, 50, 768, 666, C
  31
+frmSplashScreen = 75, 75, 793, 687, , 50, 50, 768, 662, C
10  Client/Forms Sources/frmMainMenu.frm
@@ -60,9 +60,9 @@ Begin VB.Form frmMainMenu
60 60
          EndProperty
61 61
          ForeColor       =   &H00000000&
62 62
          Height          =   930
63  
-         ItemData        =   "frmMainMenu.frx":FD82D
  63
+         ItemData        =   "frmMainMenu.frx":3706B
64 64
          Left            =   120
65  
-         List            =   "frmMainMenu.frx":FD82F
  65
+         List            =   "frmMainMenu.frx":3706D
66 66
          TabIndex        =   6
67 67
          Top             =   640
68 68
          Width           =   3135
@@ -135,7 +135,7 @@ Begin VB.Form frmMainMenu
135 135
          Height          =   3600
136 136
          Left            =   0
137 137
          MousePointer    =   5  'Size
138  
-         Picture         =   "frmMainMenu.frx":FD831
  138
+         Picture         =   "frmMainMenu.frx":3706F
139 139
          Top             =   0
140 140
          Width           =   3390
141 141
       End
@@ -302,7 +302,7 @@ Begin VB.Form frmMainMenu
302 302
          Height          =   2265
303 303
          Left            =   0
304 304
          MousePointer    =   5  'Size
305  
-         Picture         =   "frmMainMenu.frx":1255F3
  305
+         Picture         =   "frmMainMenu.frx":5EE31
306 306
          Top             =   0
307 307
          Width           =   3390
308 308
       End
@@ -441,7 +441,7 @@ Begin VB.Form frmMainMenu
441 441
          Height          =   3150
442 442
          Left            =   0
443 443
          MousePointer    =   5  'Size
444  
-         Picture         =   "frmMainMenu.frx":13E74D
  444
+         Picture         =   "frmMainMenu.frx":77F8B
445 445
          Top             =   0
446 446
          Width           =   3390
447 447
       End
BIN  Client/Forms Sources/frmMainMenu.frx
Binary file not shown
8  Client/Forms Sources/frmMirage.frm
@@ -4950,7 +4950,7 @@ Dim Qq As Long
4950 4950
         If FileExiste(Rep_Theme & "\info" & Ending) Then frmMirage.Picture = LoadPNG(App.Path & Rep_Theme & "\info" & Ending)
4951 4951
         If FileExiste(Rep_Theme & "\Jeu\Info" & Ending) Then Image1.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Info" & Ending)
4952 4952
         If FileExiste(Rep_Theme & "\Jeu\inventaire" & Ending) Then Image3.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\inventaire" & Ending)
4953  
-        If FileExiste(Rep_Theme & "\Jeu\Carte" & Ending) Then imgcarte.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Carte" & Ending)
  4953
+        If FileExiste(Rep_Theme & "\Jeu\Carte" & Ending) Then imgCarte.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\Carte" & Ending)
4954 4954
         If FileExiste(Rep_Theme & "\Jeu\quitter" & Ending) Then PicMenuQuitter.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\quitter" & Ending)
4955 4955
         If FileExiste(Rep_Theme & "\Jeu\quete" & Ending) Then picquete.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\quete" & Ending)
4956 4956
         If FileExiste(Rep_Theme & "\Jeu\metier" & Ending) Then pictMetier.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\metier" & Ending)
@@ -5464,7 +5464,7 @@ Dim tp As Long
5464 5464
 
5465 5465
     Call CheckInput(0, KeyCode, Shift)
5466 5466
     
5467  
-    If (KeyCode = optTouche(CByte(Val(ReadINI("TJEU", "action", App.Path & "\Config\Option.ini")))).Value) Then
  5467
+    If (frmMirage.txtMyTextBox.Visible = False) And (KeyCode = optTouche(CByte(Val(ReadINI("TJEU", "action", App.Path & "\Config\Option.ini")))).Value) Then
5468 5468
         PX = 0
5469 5469
         PY = 0
5470 5470
         If Player(MyIndex).y - 1 > -1 And PX = 0 And PY = 0 Then
@@ -5812,7 +5812,7 @@ If Seco <= 0 And Minu > 0 Then
5812 5812
     Seco = 59
5813 5813
     seconde.Caption = Seco
5814 5814
     Minu = Minu - 1
5815  
-    If Len(STR$(Minu)) > 2 Then Minute.Caption = Minu & ":" Else Minute.Caption = "0" & Minu & ":"
  5815
+    If Len(STR$(Minu)) > 2 Then minute.Caption = Minu & ":" Else minute.Caption = "0" & Minu & ":"
5816 5816
 End If
5817 5817
 If Seco <= 0 And Minu <= 0 Then
5818 5818
     seconde.Caption = 0
@@ -5857,7 +5857,7 @@ Private Sub Form_KeyPress(KeyAscii As Integer)
5857 5857
     If ConOff = True Then Exit Sub
5858 5858
     Call HandleKeypresses(KeyAscii)
5859 5859
     If (KeyAscii = vbKeyReturn) Then KeyAscii = 0
5860  
-    If (KeyAscii = optTouche(CByte(Val(ReadINI("TJEU", "action", App.Path & "\Config\Option.ini")))).Value) Then KeyAscii = 0
  5860
+    If (frmMirage.txtMyTextBox.Visible = False) And (KeyAscii = optTouche(CByte(Val(ReadINI("TJEU", "action", App.Path & "\Config\Option.ini")))).Value) Then KeyAscii = 0
5861 5861
     If KeyAscii = vbKeyEscape Then
5862 5862
         If fra_fenetre.Visible = True Then fra_fenetre.Visible = False
5863 5863
         If fra_info.Visible = True Then fra_info.Visible = False
4  Client/Forms Sources/frmPlayerChat.frm
... ...
@@ -1,5 +1,5 @@
1 1
 VERSION 5.00
2  
-Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  2
+Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
3 3
 Begin VB.Form frmPlayerChat 
4 4
    BorderStyle     =   0  'None
5 5
    Caption         =   "Discutions"
@@ -137,7 +137,7 @@ End Sub
137 137
 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
138 138
 On Error Resume Next
139 139
 If dr Then DoEvents: If dr Then Call Me.Move(Me.Left + (x - drx), Me.Top + (y - dry))
140  
-If Me.Left > Screen.Width Or Me.Top > Screen.Height Then Me.Top = Screen.Height \ 2: Me.Left = Screen.Width \ 2
  140
+If Me.Left > Screen.Width Or Me.Top > Screen.height Then Me.Top = Screen.height \ 2: Me.Left = Screen.Width \ 2
141 141
 End Sub
142 142
 
143 143
 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
BIN  Client/Forms Sources/frmPlayerChat.frx
Binary file not shown
41  Client/Forms Sources/frmadmin.frm
@@ -40,7 +40,6 @@ Begin VB.Form frmadmin
40 40
       _ExtentX        =   8070
41 41
       _ExtentY        =   9128
42 42
       _Version        =   393216
43  
-      Tab             =   1
44 43
       TabsPerRow      =   4
45 44
       TabHeight       =   353
46 45
       TabMaxWidth     =   1940
@@ -55,17 +54,23 @@ Begin VB.Form frmadmin
55 54
       EndProperty
56 55
       TabCaption(0)   =   "Commande"
57 56
       TabPicture(0)   =   "frmadmin.frx":17D2A
58  
-      Tab(0).ControlEnabled=   0   'False
  57
+      Tab(0).ControlEnabled=   -1  'True
59 58
       Tab(0).Control(0)=   "Label5"
  59
+      Tab(0).Control(0).Enabled=   0   'False
60 60
       Tab(0).Control(1)=   "Line1"
  61
+      Tab(0).Control(1).Enabled=   0   'False
61 62
       Tab(0).Control(2)=   "Frame1"
  63
+      Tab(0).Control(2).Enabled=   0   'False
62 64
       Tab(0).Control(3)=   "Frame2"
  65
+      Tab(0).Control(3).Enabled=   0   'False
63 66
       Tab(0).Control(4)=   "Frame7"
  67
+      Tab(0).Control(4).Enabled=   0   'False
64 68
       Tab(0).Control(5)=   "Frame11"
  69
+      Tab(0).Control(5).Enabled=   0   'False
65 70
       Tab(0).ControlCount=   6
66 71
       TabCaption(1)   =   "Commande"
67 72
       TabPicture(1)   =   "frmadmin.frx":17D46
68  
-      Tab(1).ControlEnabled=   -1  'True
  73
+      Tab(1).ControlEnabled=   0   'False
69 74
       Tab(1).Control(0)=   "Label7"
70 75
       Tab(1).Control(0).Enabled=   0   'False
71 76
       Tab(1).Control(1)=   "Frame5"
@@ -80,9 +85,9 @@ Begin VB.Form frmadmin
80 85
       TabCaption(2)   =   "Aide"
81 86
       TabPicture(2)   =   "frmadmin.frx":17D62
82 87
       Tab(2).ControlEnabled=   0   'False
83  
-      Tab(2).Control(0)=   "Frame8"
  88
+      Tab(2).Control(0)=   "Label16"
84 89
       Tab(2).Control(1)=   "Frame6"
85  
-      Tab(2).Control(2)=   "Label16"
  90
+      Tab(2).Control(2)=   "Frame8"
86 91
       Tab(2).ControlCount=   3
87 92
       Begin VB.Frame Frame11 
88 93
          Caption         =   "Environnement"
@@ -96,7 +101,7 @@ Begin VB.Form frmadmin
96 101
             Strikethrough   =   0   'False
97 102
          EndProperty
98 103
          Height          =   1455
99  
-         Left            =   -72600
  104
+         Left            =   2400
100 105
          TabIndex        =   60
101 106
          Top             =   2760
102 107
          Width           =   2055
@@ -180,7 +185,7 @@ Begin VB.Form frmadmin
180 185
             Strikethrough   =   0   'False
181 186
          EndProperty
182 187
          Height          =   1455
183  
-         Left            =   2400
  188
+         Left            =   -72600
184 189
          TabIndex        =   55
185 190
          Top             =   2160
186 191
          Width           =   2055
@@ -264,7 +269,7 @@ Begin VB.Form frmadmin
264 269
             Strikethrough   =   0   'False
265 270
          EndProperty
266 271
          Height          =   3495
267  
-         Left            =   120
  272
+         Left            =   -74880
268 273
          TabIndex        =   42
269 274
          Top             =   1440
270 275
          Width           =   2055
@@ -486,7 +491,7 @@ Begin VB.Form frmadmin
486 491
          EndProperty
487 492
          ForeColor       =   &H000000FF&
488 493
          Height          =   855
489  
-         Left            =   120
  494
+         Left            =   -74880
490 495
          TabIndex        =   39
491 496
          Top             =   600
492 497
          Width           =   2055
@@ -536,7 +541,7 @@ Begin VB.Form frmadmin
536 541
             Strikethrough   =   0   'False
537 542
          EndProperty
538 543
          Height          =   1455
539  
-         Left            =   2400
  544
+         Left            =   -72600
540 545
          TabIndex        =   34
541 546
          Top             =   600
542 547
          Width           =   2055
@@ -731,7 +736,7 @@ Begin VB.Form frmadmin
731 736
          EndProperty
732 737
          ForeColor       =   &H000000FF&
733 738
          Height          =   855
734  
-         Left            =   -74880
  739
+         Left            =   120
735 740
          TabIndex        =   17
736 741
          Top             =   1080
737 742
          Width           =   2055
@@ -781,7 +786,7 @@ Begin VB.Form frmadmin
781 786
             Strikethrough   =   0   'False
782 787
          EndProperty
783 788
          Height          =   2055
784  
-         Left            =   -72600
  789
+         Left            =   2400
785 790
          TabIndex        =   10
786 791
          Top             =   600
787 792
          Width           =   2055
@@ -837,7 +842,7 @@ Begin VB.Form frmadmin
837 842
             Width           =   1815
838 843
          End
839 844
          Begin VB.CommandButton btnLOC 
840  
-            Caption         =   "Location"
  845
+            Caption         =   "Localisation"
841 846
             BeginProperty Font 
842 847
                Name            =   "Segoe UI"
843 848
                Size            =   6.75
@@ -899,7 +904,7 @@ Begin VB.Form frmadmin
899 904
             Strikethrough   =   0   'False
900 905
          EndProperty
901 906
          Height          =   2415
902  
-         Left            =   -74880
  907
+         Left            =   120
903 908
          TabIndex        =   3
904 909
          Top             =   2040
905 910
          Width           =   2055
@@ -1068,15 +1073,15 @@ Begin VB.Form frmadmin
1068 1073
             Strikethrough   =   0   'False
1069 1074
          EndProperty
1070 1075
          Height          =   255
1071  
-         Left            =   120
  1076
+         Left            =   -74880
1072 1077
          TabIndex        =   16
1073 1078
          Top             =   360
1074 1079
          Width           =   2175
1075 1080
       End
1076 1081
       Begin VB.Line Line1 
1077 1082
          BorderColor     =   &H80000010&
1078  
-         X1              =   -72720
1079  
-         X2              =   -72720
  1083
+         X1              =   2280
  1084
+         X2              =   2280
1080 1085
          Y1              =   360
1081 1086
          Y2              =   4995
1082 1087
       End
@@ -1092,7 +1097,7 @@ Begin VB.Form frmadmin
1092 1097
             Strikethrough   =   0   'False
1093 1098
          EndProperty
1094 1099
          Height          =   255
1095  
-         Left            =   -74880
  1100
+         Left            =   120
1096 1101
          TabIndex        =   2
1097 1102
          Top             =   600
1098 1103
          Width           =   2175
30  Client/Modules Sources/modClientTCP.bas
@@ -135,7 +135,7 @@ On Error Resume Next
135 135
             Load frmMirage.picInv(i)
136 136
             x = Int(i / 3)
137 137
             frmMirage.picInv(i).Top = 8 + 40 * x
138  
-            frmMirage.picInv(i).left = 8 + (i - x * 3) * 40
  138
+            frmMirage.picInv(i).Left = 8 + (i - x * 3) * 40
139 139
             frmMirage.picInv(i).Visible = True
140 140
         Next
141 141
         
@@ -146,7 +146,7 @@ On Error Resume Next
146 146
             
147 147
             x = Int(i / 3)
148 148
             frmMirage.picspell(i).Top = 8 + 40 * x
149  
-            frmMirage.picspell(i).left = 8 + (i - x * 3) * 40
  149
+            frmMirage.picspell(i).Left = 8 + (i - x * 3) * 40
150 150
             frmMirage.picspell(i).Visible = True
151 151
         Next
152 152
         
@@ -325,9 +325,9 @@ On Error Resume Next
325 325
             frmMainMenu.PicChar.height = 960
326 326
         End If
327 327
         If frmMainMenu.PicChar.Width > 480 Then
328  
-            frmMainMenu.PicChar.left = 840 - frmMainMenu.PicChar.Width + 480
  328
+            frmMainMenu.PicChar.Left = 840 - frmMainMenu.PicChar.Width + 480
329 329
         Else
330  
-            frmMainMenu.PicChar.left = 840
  330
+            frmMainMenu.PicChar.Left = 840
331 331
         End If
332 332
         If charSelect(charSelectNum).name <> "" Then
333 333
             frmMainMenu.lblCharNom.Caption = charSelect(charSelectNum).name
@@ -1014,8 +1014,8 @@ mont:
1014 1014
             .Moral = Val(Parse(n + 3))
1015 1015
             .Up = Val(Parse(n + 4))
1016 1016
             .Down = Val(Parse(n + 5))
1017  
-            .left = Val(Parse(n + 6))
1018  
-            .right = Val(Parse(n + 7))
  1017
+            .Left = Val(Parse(n + 6))
  1018
+            .Right = Val(Parse(n + 7))
1019 1019
             .Music = Parse(n + 8)
1020 1020
             .BootMap = Val(Parse(n + 9))
1021 1021
             .BootX = Val(Parse(n + 10))
@@ -1477,7 +1477,7 @@ mont:
1477 1477
             Seco = Val(Parse(1)) - ((Val(Parse(1)) \ 60) * 60)
1478 1478
             Minu = Val(Parse(1)) \ 60
1479 1479
             frmMirage.tmpsquete.Visible = True
1480  
-            If Len(STR$(Minu)) > 2 Then frmMirage.minute.Caption = Minu & ":" Else frmMirage.minute.Caption = "0" & Minu & ":"
  1480
+            If Len(STR$(Minu)) > 2 Then frmMirage.Minute.Caption = Minu & ":" Else frmMirage.Minute.Caption = "0" & Minu & ":"
1481 1481
             If Len(STR$(Seco)) > 2 Then frmMirage.seconde.Caption = Seco Else frmMirage.seconde.Caption = "0" & Seco
1482 1482
             frmMirage.quetetimersec.Enabled = True
1483 1483
             Exit Sub
@@ -1593,10 +1593,10 @@ mont:
1593 1593
         
1594 1594
         Trade(1).Selected = YES
1595 1595
                     
1596  
-        frmTrade.shopType.Top = frmTrade.label(1).Top
1597  
-        frmTrade.shopType.left = frmTrade.label(1).left
1598  
-        frmTrade.shopType.height = frmTrade.label(1).height
1599  
-        frmTrade.shopType.Width = frmTrade.label(1).Width
  1596
+        frmTrade.shopType.Top = frmTrade.Label(1).Top
  1597
+        frmTrade.shopType.Left = frmTrade.Label(1).Left
  1598
+        frmTrade.shopType.height = frmTrade.Label(1).height
  1599
+        frmTrade.shopType.Width = frmTrade.Label(1).Width
1600 1600
         Trade(1).SelectedItem = 1
1601 1601
         
1602 1602
         NumShop = ShopNum
@@ -1860,7 +1860,13 @@ mont:
1860 1860
     ' :::::::::::::::::::
1861 1861
     ' :: Prompt Packet ::
1862 1862
     ' :::::::::::::::::::
1863  
-    If LCase$(Parse(0)) = "prompt" Then i = MsgBox(Trim$(Parse(1)), vbYesNo): Call SendData("prompt" & SEP_CHAR & i & SEP_CHAR & Val(Parse(2)) & END_CHAR): Exit Sub
  1863
+    If LCase$(Parse(0)) = "prompt" Then
  1864
+    i = MsgBox(Trim$(Parse(1)), vbYesNo)
  1865
+    If i = vbYes Then
  1866
+    Call SendData("prompt" & SEP_CHAR & i & SEP_CHAR & Val(Parse(2)) & END_CHAR)
  1867
+    End If
  1868
+    Exit Sub
  1869
+    End If
1864 1870
     
1865 1871
     If (LCase$(Parse(0)) = "updateemoticon") Then
1866 1872
         n = Val(Parse(1))
BIN  Client/Themes/FRoG Creator 0.6/Login/apropos.png
BIN  Client/Themes/FRoG Creator 0.6/Login/fond.png
8  Editeur/Editeur.vbp
... ...
@@ -1,10 +1,10 @@
1 1
 Type=Exe
2 2
 Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\Windows\System32\stdole2.tlb#OLE Automation
3  
-Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#..\..\..\..\..\..\PROGRA~1\COMMON~1\MICROS~1\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library
4  
-Reference=*\G{E1211242-8E94-11D1-8808-00C04FC2C602}#1.0#0#..\..\..\..\Windows\SysWow64\dx7vb.dll#DirectX 7 for Visual Basic Type Library
  3
+Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#..\..\..\..\..\..\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library
  4
+Reference=*\G{E1211242-8E94-11D1-8808-00C04FC2C602}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\dx7vb.dll#DirectX 7 for Visual Basic Type Library
5 5
 Object={6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0; wmp.dll
6  
-Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
7  
-Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
  6
+Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; mswinsck.ocx
  7
+Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; richtx32.ocx
8 8
 Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
9 9
 Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
10 10
 Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
8  Editeur/Editeur.vbw
@@ -13,7 +13,7 @@ frmMapItem = 130, 130, 712, 456, , 26, 26, 608, 352, C
13 13
 modDatabase = 156, 156, 738, 482, 
14 14
 frmNpcEditor = 0, 0, 582, 326, , 52, 52, 634, 378, C
15 15
 frmMapKey = 26, 26, 608, 352, , 78, 78, 660, 404, C
16  
-modSound = 0, 0, 0, 0, C
  16
+modSound = 78, 78, 670, 414, 
17 17
 frmShopEditor = 52, 52, 634, 378, , 104, 104, 686, 430, C
18 18
 frmTrade = 78, 78, 660, 404, , 130, 130, 712, 456, C
19 19
 frmFixItem = 104, 104, 686, 430, , 156, 156, 738, 482, C
@@ -48,11 +48,11 @@ frmcoffre = 52, 52, 634, 378, , 130, 130, 712, 456, C
48 48
 frmBniv = 78, 78, 660, 404, , 156, 156, 738, 482, C
49 49
 frmCpnjmouv = 78, 78, 686, 343, , 0, 0, 582, 326, C
50 50
 frmEditeurQuetes = 52, 52, 660, 317, , 26, 26, 608, 352, C
51  
-frmaMOTD = 0, 0, 0, 0, C, 52, 52, 634, 378, C
  51
+frmaMOTD = 52, 52, 649, 378, , 52, 52, 634, 378, C
52 52
 frmmsg = 130, 130, 738, 395, , 78, 78, 660, 404, C
53 53
 frmsplash = 156, 156, 738, 482, , 130, 130, 712, 456, C
54 54
 frmPatch = 78, 78, 686, 343, , 130, 130, 712, 456, C
55  
-frmBguilde = 0, 0, 0, 0, C, 156, 156, 738, 482, C
  55
+frmBguilde = 104, 104, 701, 430, , 156, 156, 738, 482, C
56 56
 frmPerso = 130, 130, 667, 444, , 0, 0, 582, 326, C
57 57
 frmBDir = 0, 0, 0, 0, C, 26, 26, 608, 352, C
58 58
 frmTile = 0, 0, 608, 265, , 52, 52, 634, 378, C
@@ -65,5 +65,5 @@ frmMetier = 50, 50, 768, 662, , 26, 26, 608, 352, C
65 65
 frmRecette = 0, 0, 893, 451, , 52, 52, 634, 378, C
66 66
 frmcraft = 0, 0, 718, 612, , 78, 78, 660, 404, C
67 67
 modXp = 26, 26, 608, 352, 
68  
-frmadmin = 156, 156, 738, 482, , 52, 52, 634, 378, C
  68
+frmadmin = 156, 156, 738, 482, Z, 52, 52, 634, 378, C
69 69
 ctlProgressBar = 26, 26, 634, 291, , 130, 130, 738, 395, C
26  Editeur/Forms Sources/frmBDir.frm
... ...
@@ -1,5 +1,5 @@
1 1
 VERSION 5.00
2  
-Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL3N.OCX"
  2
+Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
3 3
 Begin VB.Form frmBDir 
4 4
    BorderStyle     =   1  'Fixed Single
5 5
    Caption         =   "Bloquer une direction"
@@ -122,7 +122,7 @@ Begin VB.Form frmBDir
122 122
       Begin VB.Label Label1 
123 123
          Alignment       =   1  'Right Justify
124 124
          AutoSize        =   -1  'True
125  
-         Caption         =   "Direction accepté :"
  125
+         Caption         =   "Direction acceptée:"
126 126
          BeginProperty Font 
127 127
             Name            =   "Segoe UI"
128 128
             Size            =   6.75
@@ -132,16 +132,16 @@ Begin VB.Form frmBDir
132 132
             Italic          =   0   'False
133 133
             Strikethrough   =   0   'False
134 134
          EndProperty
135  
-         Height          =   165
136  
-         Left            =   240
  135
+         Height          =   180
  136
+         Left            =   255
137 137
          TabIndex        =   5
138 138
          Top             =   360
139  
-         Width           =   1140
  139
+         Width           =   1125
140 140
       End
141 141
       Begin VB.Label Label2 
142 142
          Alignment       =   1  'Right Justify
143 143
          AutoSize        =   -1  'True
144  
-         Caption         =   "Direction accepté :"
  144
+         Caption         =   "Direction acceptée:"
145 145
          BeginProperty Font 
146 146
             Name            =   "Segoe UI"
147 147
             Size            =   6.75
@@ -151,16 +151,16 @@ Begin VB.Form frmBDir
151 151
             Italic          =   0   'False
152 152
             Strikethrough   =   0   'False
153 153
          EndProperty
154  
-         Height          =   165
155  
-         Left            =   240
  154
+         Height          =   180
  155
+         Left            =   255
156 156
          TabIndex        =   4
157 157
          Top             =   1080
158  
-         Width           =   1140
  158
+         Width           =   1125
159 159
       End
160 160
       Begin VB.Label Label3 
161 161
          Alignment       =   1  'Right Justify
162 162
          AutoSize        =   -1  'True
163  
-         Caption         =   "Direction accepté :"
  163
+         Caption         =   "Direction acceptée:"
164 164
          BeginProperty Font 
165 165
             Name            =   "Segoe UI"
166 166
             Size            =   6.75
@@ -170,11 +170,11 @@ Begin VB.Form frmBDir
170 170
             Italic          =   0   'False
171 171
             Strikethrough   =   0   'False
172 172
          EndProperty
173  
-         Height          =   165
174  
-         Left            =   240
  173
+         Height          =   180
  174
+         Left            =   255
175 175
          TabIndex        =   3
176 176
          Top             =   1800
177  
-         Width           =   1140
  177
+         Width           =   1125
178 178
       End
179 179
    End
180 180
 End
10  Editeur/Forms Sources/frmBniv.frm
@@ -112,7 +112,7 @@ Begin VB.Form frmBniv
112 112
       Begin VB.Label Label1 
113 113
          Alignment       =   1  'Right Justify
114 114
          AutoSize        =   -1  'True
115  
-         Caption         =   "Bloquer si le joueur est en dessou du niveau :"
  115
+         Caption         =   "Bloquer si le joueur est en dessous du niveau :"
116 116
          BeginProperty Font 
117 117
             Name            =   "Segoe UI"
118 118
             Size            =   6.75
@@ -122,11 +122,11 @@ Begin VB.Form frmBniv
122 122
             Italic          =   0   'False
123 123
             Strikethrough   =   0   'False
124 124
          EndProperty
125  
-         Height          =   165
126  
-         Left            =   270
  125
+         Height          =   180
  126
+         Left            =   420
127 127
          TabIndex        =   4
128 128
          Top             =   360
129  
-         Width           =   2820
  129
+         Width           =   2670
130 130
       End
131 131
    End
132 132
 End
@@ -151,7 +151,7 @@ End Sub
151 151
 
152 152
 Private Sub Form_Load()
153 153
 scrlNum1.Max = MAX_LEVEL
154  
-If NivMin < scrlNum1.min Then NivMin = scrlNum1.min
  154
+If NivMin < scrlNum1.Min Then NivMin = scrlNum1.Min
155 155
 scrlNum1.value = NivMin
156 156
 lblNum1.Caption = scrlNum1.value
157 157
 End Sub
2  Editeur/Forms Sources/frmChars.frm
@@ -86,7 +86,7 @@ End Sub
86 86
 
87 87
 Private Sub picUseChar_Click()
88 88
     If lstChars.List(lstChars.ListIndex) = "Emplacement libre" Then
89  
-        MsgBox "Il n'y a pas de personnage à cette emplacement."
  89
+        MsgBox "Il n'y a pas de personnage à cet emplacement."
90 90
         Exit Sub
91 91
     End If
92 92
     Call MenuState(MENU_STATE_USECHAR)
2  Editeur/Forms Sources/frmEditArrows.frm
@@ -70,7 +70,7 @@ Begin VB.Form frmEditArrows
70 70
          Height          =   255
71 71
          Left            =   240
72 72
          TabIndex        =   9
73  
-         ToolTipText     =   "Nom du PNJ"
  73
+         ToolTipText     =   "Nom de la flèche"
74 74
          Top             =   720
75 75
          Width           =   2775
76 76
       End
26  Editeur/Forms Sources/frmEditeurQuetes.frm
@@ -2,7 +2,7 @@ VERSION 5.00
2 2
 Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
3 3
 Begin VB.Form frmEditeurQuetes 
4 4
    BorderStyle     =   1  'Fixed Single
5  
-   Caption         =   "Editeur de Quetes"
  5
+   Caption         =   "Editeur de Quêtes"
6 6
    ClientHeight    =   8730
7 7
    ClientLeft      =   -15
8 8
    ClientTop       =   375
@@ -176,12 +176,12 @@ Begin VB.Form frmEditeurQuetes
176 176
          End
177 177
          Begin VB.Label Label23 
178 178
             AutoSize        =   -1  'True
179  
-            Caption         =   "Numéros de l'objet3 :"
  179
+            Caption         =   "Numéro de l'objet3 :"
180 180
             Height          =   195
181 181
             Left            =   240
182 182
             TabIndex        =   69
183 183
             Top             =   2280
184  
-            Width           =   1485
  184
+            Width           =   1410
185 185
          End
186 186
          Begin VB.Label Label21 
187 187
             AutoSize        =   -1  'True
@@ -194,12 +194,12 @@ Begin VB.Form frmEditeurQuetes
194 194
          End
195 195
          Begin VB.Label Label18 
196 196
             AutoSize        =   -1  'True
197  
-            Caption         =   "Numéros de l'objet2 :"
  197
+            Caption         =   "Numéro de l'objet2 :"
198 198
             Height          =   195
199 199
             Left            =   240
200 200
             TabIndex        =   67
201 201
             Top             =   1560
202  
-            Width           =   1485
  202
+            Width           =   1410
203 203
          End
204 204
          Begin VB.Label Label17 
205 205
             AutoSize        =   -1  'True
@@ -212,12 +212,12 @@ Begin VB.Form frmEditeurQuetes
212 212
          End
213 213
          Begin VB.Label Label16 
214 214
             AutoSize        =   -1  'True
215  
-            Caption         =   "Numéros de l'objet1 :"
  215
+            Caption         =   "Numéro de l'objet1 :"
216 216
             Height          =   195
217 217
             Left            =   240
218 218
             TabIndex        =   65
219 219
             Top             =   840
220  
-            Width           =   1485
  220
+            Width           =   1410
221 221
          End
222 222
          Begin VB.Label Label14 
223 223
             AutoSize        =   -1  'True
@@ -365,31 +365,31 @@ Begin VB.Form frmEditeurQuetes
365 365
          End
366 366
          Begin VB.Label Label15 
367 367
             AutoSize        =   -1  'True
368  
-            Caption         =   "Index du PNJ (pour la Quete) :"
  368
+            Caption         =   "Index du PNJ (pour la quête) :"
369 369
             Height          =   195
370 370
             Left            =   240
371 371
             TabIndex        =   53
372 372
             Top             =   360
373  
-            Width           =   2145
  373
+            Width           =   2115
374 374
          End
375 375
          Begin VB.Label tp 
376 376
             AutoSize        =   -1  'True
377  
-            Caption         =   "Temps pour réalisée la Quete :"
  377
+            Caption         =   "Temps pour réaliser la quête :"
378 378
             Height          =   195
379 379
             Index           =   4
380 380
             Left            =   3360
381 381
             TabIndex        =   52
382 382
             Top             =   360
383  
-            Width           =   2160
  383
+            Width           =   2085
384 384
          End
385 385
          Begin VB.Label Label13 
386 386
             AutoSize        =   -1  'True
387  
-            Caption         =   "Numéros du PNJ :"
  387
+            Caption         =   "Numéro du PNJ :"
388 388
             Height          =   195
389 389
             Left            =   240
390 390
             TabIndex        =   51
391 391
             Top             =   1200
392  
-            Width           =   1290
  392
+            Width           =   1215
393 393
          End
394 394
       End
395 395
       Begin VB.Frame frtp 
BIN  Editeur/Forms Sources/frmEditeurQuetes.frx
Binary file not shown
6  Editeur/Forms Sources/frmIndex.frm
@@ -125,7 +125,7 @@ Begin VB.Form frmIndex
125 125
       End
126 126
       Begin VB.Label Label1 
127 127
          AutoSize        =   -1  'True
128  
-         Caption         =   "Rechercher (numéros ou nom) :"
  128
+         Caption         =   "Rechercher (numéro ou nom) :"
129 129
          BeginProperty Font 
130 130
             Name            =   "Segoe UI"
131 131
             Size            =   8.25
@@ -139,7 +139,7 @@ Begin VB.Form frmIndex
139 139
          Left            =   840
140 140
          TabIndex        =   5
141 141
          Top             =   2670
142  
-         Width           =   2280
  142
+         Width           =   2325
143 143
       End
144 144
    End
145 145
    Begin VB.Menu edit 
@@ -388,7 +388,7 @@ Else
388 388
 End If
389 389
 Exit Sub
390 390
 er:
391  
-MsgBox "Numéros ou Nom introuvable.", vbCritical
  391
+MsgBox "Numéro ou Nom introuvable.", vbCritical
392 392
 End Sub
393 393
 
394 394
 Private Sub Text1_GotFocus()
128  Editeur/Forms Sources/frmItemEditor.frm
... ...
@@ -1,6 +1,6 @@
1 1
 VERSION 5.00
2  
-Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL3N.OCX"
3  
-Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  2
+Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3
+Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
4 4
 Begin VB.Form frmItemEditor 
5 5
    BorderStyle     =   1  'Fixed Single
6 6
    Caption         =   "Éditeur d'objets"
@@ -170,9 +170,9 @@ Begin VB.Form frmItemEditor
170 170
             Strikethrough   =   0   'False
171 171
          EndProperty
172 172
          Height          =   5055
173  
-         Left            =   5540
  173
+         Left            =   5520
174 174
          TabIndex        =   64
175  
-         Top             =   1005
  175
+         Top             =   960
176 176
          Visible         =   0   'False
177 177
          Width           =   2355
178 178
          Begin VB.HScrollBar scrlSexReq 
@@ -274,7 +274,7 @@ Begin VB.Form frmItemEditor
274 274
          Begin VB.Label Label34 
275 275
             Alignment       =   1  'Right Justify
276 276
             BackStyle       =   0  'Transparent
277  
-            Caption         =   "Sex Req :"
  277
+            Caption         =   "Sexe requis :"
278 278
             BeginProperty Font 
279 279
                Name            =   "Segoe UI"
280 280
                Size            =   6.75
@@ -285,7 +285,7 @@ Begin VB.Form frmItemEditor
285 285
                Strikethrough   =   0   'False
286 286
             EndProperty
287 287
             Height          =   375
288  
-            Left            =   120
  288
+            Left            =   240
289 289
             TabIndex        =   109
290 290
             ToolTipText     =   "Classe requise"
291 291
             Top             =   3840
@@ -293,7 +293,7 @@ Begin VB.Form frmItemEditor
293 293
          End
294 294
          Begin VB.Label Label2 
295 295
             Alignment       =   1  'Right Justify
296  
-            Caption         =   "Durabilité :"
  296
+            Caption         =   "Durabilité:"
297 297
             BeginProperty Font 
298 298
                Name            =   "Segoe UI"
299 299
                Size            =   6.75
@@ -304,14 +304,14 @@ Begin VB.Form frmItemEditor
304 304
                Strikethrough   =   0   'False
305 305
             EndProperty
306 306
             Height          =   255
307  
-            Left            =   300
  307
+            Left            =   240
308 308
             TabIndex        =   85
309 309
             Top             =   240
310 310
             Width           =   735
311 311
          End
312 312
          Begin VB.Label Label3 
313 313
             Alignment       =   1  'Right Justify
314  
-            Caption         =   "Dommage :"
  314
+            Caption         =   "Dommage:"
315 315
             BeginProperty Font 
316 316
                Name            =   "Segoe UI"
317 317
                Size            =   6.75
@@ -322,7 +322,7 @@ Begin VB.Form frmItemEditor
322 322
                Strikethrough   =   0   'False
323 323
             EndProperty
324 324
             Height          =   375
325  
-            Left            =   300
  325
+            Left            =   240
326 326
             TabIndex        =   84
327 327
             ToolTipText     =   "Dommage infliger par l'objet"
328 328
             Top             =   840
@@ -368,7 +368,7 @@ Begin VB.Form frmItemEditor
368 368
          Begin VB.Label Label8 
369 369
             Alignment       =   1  'Right Justify
370 370
             BackStyle       =   0  'Transparent
371  
-            Caption         =   "Force Req :"
  371
+            Caption         =   "Force requise:"
372 372
             BeginProperty Font 
373 373
                Name            =   "Segoe UI"
374 374
                Size            =   6.75
@@ -379,16 +379,16 @@ Begin VB.Form frmItemEditor
379 379
                Strikethrough   =   0   'False
380 380
             EndProperty
381 381
             Height          =   375
382  
-            Left            =   300
  382
+            Left            =   0
383 383
             TabIndex        =   81
384 384
             ToolTipText     =   "Force requise"
385 385
             Top             =   1440
386  
-            Width           =   735
  386
+            Width           =   1095
387 387
          End
388 388
          Begin VB.Label Label9 
389 389
             Alignment       =   1  'Right Justify
390 390
             BackStyle       =   0  'Transparent
391  
-            Caption         =   "Defense Req :"
  391
+            Caption         =   "Défense requise:"
392 392
             BeginProperty Font 
393 393
                Name            =   "Segoe UI"
394 394
                Size            =   6.75
@@ -399,11 +399,11 @@ Begin VB.Form frmItemEditor
399 399
                Strikethrough   =   0   'False
400 400
             EndProperty
401 401
             Height          =   375
402  
-            Left            =   240
  402
+            Left            =   0
403 403
             TabIndex        =   80
404 404
             ToolTipText     =   "Défense requise"
405 405
             Top             =   2040
406  
-            Width           =   975
  406
+            Width           =   1335
407 407
          End
408 408
          Begin VB.Label Label11 
409 409
             Alignment       =   1  'Right Justify
@@ -465,7 +465,7 @@ Begin VB.Form frmItemEditor
465 465
          Begin VB.Label Label10 
466 466
             Alignment       =   1  'Right Justify
467 467
             BackStyle       =   0  'Transparent
468  
-            Caption         =   "Vitesse Req :"
  468
+            Caption         =   "Vitesse requise:"
469 469
             BeginProperty Font 
470 470
                Name            =   "Segoe UI"
471 471
                Size            =   6.75
@@ -476,7 +476,7 @@ Begin VB.Form frmItemEditor
476 476
                Strikethrough   =   0   'False
477 477
             EndProperty
478 478
             Height          =   375
479  
-            Left            =   180
  479
+            Left            =   320
480 480
             TabIndex        =   76
481 481
             ToolTipText     =   "Vitesse requise"
482 482
             Top             =   2640
@@ -485,7 +485,7 @@ Begin VB.Form frmItemEditor
485 485
          Begin VB.Label Label14 
486 486
             Alignment       =   1  'Right Justify
487 487
             BackStyle       =   0  'Transparent
488  
-            Caption         =   "Classe Req :"
  488
+            Caption         =   "Classe requise :"
489 489
             BeginProperty Font 
490 490
                Name            =   "Segoe UI"
491 491
                Size            =   6.75
@@ -496,7 +496,7 @@ Begin VB.Form frmItemEditor
496 496
                Strikethrough   =   0   'False
497 497
             EndProperty
498 498
             Height          =   375
499  
-            Left            =   180
  499
+            Left            =   240
500 500
             TabIndex        =   75
501 501
             ToolTipText     =   "Classe requise"
502 502
             Top             =   3240
@@ -505,7 +505,7 @@ Begin VB.Form frmItemEditor
505 505
          Begin VB.Label Label15 
506 506
             Alignment       =   1  'Right Justify
507 507
             BackStyle       =   0  'Transparent
508  
-            Caption         =   "Access Req :"
  508
+            Caption         =   "Accès Requis:"
509 509
             BeginProperty Font 
510 510
                Name            =   "Segoe UI"
511 511
                Size            =   6.75
@@ -537,11 +537,11 @@ Begin VB.Form frmItemEditor
537 537
                Strikethrough   =   0   'False
538 538
             EndProperty
539 539
             Height          =   165
540  
-            Left            =   1080
  540
+            Left            =   1200
541 541
             TabIndex        =   73
542 542
             ToolTipText     =   "Classe requise"
543 543
             Top             =   3240
544  
-            Width           =   1125
  544
+            Width           =   1005
545 545
          End
546 546
          Begin VB.Label Label17 
547 547
             Alignment       =   1  'Right Justify
@@ -578,7 +578,7 @@ Begin VB.Form frmItemEditor
578 578
          Height          =   5715
579 579
          Left            =   8040
580 580
          TabIndex        =   5
581  
-         Top             =   900
  581
+         Top             =   960
582 582
          Visible         =   0   'False
583 583
          Width           =   3195
584 584
          Begin VB.HScrollBar scrlAttackSpeed 
@@ -674,7 +674,7 @@ Begin VB.Form frmItemEditor
674 674
          Begin VB.Label lblAttackSpeed 
675 675
             AutoSize        =   -1  'True
676 676
             BackStyle       =   0  'Transparent
677  
-            Caption         =   "1000 Milleseconds"
  677
+            Caption         =   "1000 Millisecondes"
678 678
             BeginProperty Font 
679 679
                Name            =   "Segoe UI"
680 680
                Size            =   6.75
@@ -684,12 +684,12 @@ Begin VB.Form frmItemEditor
684 684
                Italic          =   0   'False
685 685
                Strikethrough   =   0   'False
686 686
             EndProperty
687  
-            Height          =   165
  687
+            Height          =   180
688 688
             Left            =   1500
689 689
             TabIndex        =   42
690 690
             ToolTipText     =   "Intervalle entre 2 coups d'une arme en milliseconde (1000milliseconde = 1seconde)"
691 691
             Top             =   5100
692  
-            Width           =   1110
  692
+            Width           =   1125
693 693
          End
694 694
          Begin VB.Label Label28 
695 695
             Alignment       =   1  'Right Justify
@@ -724,15 +724,15 @@ Begin VB.Form frmItemEditor
724 724
                Strikethrough   =   0   'False
725 725
             EndProperty
726 726
             Height          =   375
727  
-            Left            =   1080
  727
+            Left            =   1680
728 728
             TabIndex        =   29
729  
-            Top             =   2220
  729
+            Top             =   2160
730 730
             Width           =   495
731 731
          End
732 732
          Begin VB.Label Label25 
733 733
             Alignment       =   1  'Right Justify
734 734
             BackStyle       =   0  'Transparent
735  
-            Caption         =   "Ajout d'EXP"
  735
+            Caption         =   "Ajout d'EXP:"
736 736
             BeginProperty Font 
737 737
                Name            =   "Segoe UI"
738 738
                Size            =   6.75
@@ -743,7 +743,7 @@ Begin VB.Form frmItemEditor
743 743
                Strikethrough   =   0   'False
744 744
             EndProperty
745 745
             Height          =   375
746  
-            Left            =   120
  746
+            Left            =   240
747 747
             TabIndex        =   28
748 748
             Top             =   2220
749 749
             Width           =   855
@@ -761,14 +761,14 @@ Begin VB.Form frmItemEditor
761 761
                Strikethrough   =   0   'False
762 762
             EndProperty
763 763
             Height          =   375
764  
-            Left            =   1080
  764
+            Left            =   1560
765 765
             TabIndex        =   26
766 766
             Top             =   1560
767 767
             Width           =   495
768 768
          End
769 769
          Begin VB.Label Label24 
770 770
             Alignment       =   1  'Right Justify
771  
-            Caption         =   "Ajout de SP"
  771
+            Caption         =   "Ajout de SP:"
772 772
             BeginProperty Font 
773 773
                Name            =   "Segoe UI"
774 774
                Size            =   6.75
@@ -779,7 +779,7 @@ Begin VB.Form frmItemEditor
779 779
                Strikethrough   =   0   'False
780 780
             EndProperty
781 781
             Height          =   375
782  
-            Left            =   120
  782
+            Left            =   240
783 783
             TabIndex        =   24
784 784
             Top             =   1560
785 785
             Width           =   855
@@ -797,10 +797,10 @@ Begin VB.Form frmItemEditor
797 797
                Strikethrough   =   0   'False
798 798
             EndProperty
799 799
             Height          =   375
800  
-            Left            =   1080
  800
+            Left            =   1560
801 801
             TabIndex        =   23
802 802
             ToolTipText     =   "Ajouter de la vitesse"
803  
-            Top             =   4560
  803
+            Top             =   4440
804 804
             Width           =   495
805 805
          End
806 806
          Begin VB.Label lblAddMagi 
@@ -816,7 +816,7 @@ Begin VB.Form frmItemEditor
816 816
                Strikethrough   =   0   'False
817 817
             EndProperty
818 818
             Height          =   375
819  
-            Left            =   1080
  819
+            Left            =   1560
820 820
             TabIndex        =   22
821 821
             ToolTipText     =   "Ajouter de la magie"
822 822
             Top             =   3960
@@ -835,7 +835,7 @@ Begin VB.Form frmItemEditor
835 835
                Strikethrough   =   0   'False
836 836
             EndProperty
837 837
             Height          =   375
838  
-            Left            =   1080
  838
+            Left            =   1560
839 839
             TabIndex        =   21
840 840
             ToolTipText     =   "Ajouter de la défense "
841 841
             Top             =   3360
@@ -854,7 +854,7 @@ Begin VB.Form frmItemEditor
854 854
                Strikethrough   =   0   'False
855 855
             EndProperty
856 856
             Height          =   375
857  
-            Left            =   1080
  857
+            Left            =   1560
858 858
             TabIndex        =   20
859 859
             ToolTipText     =   "Ajouter de la force"
860 860
             Top             =   2760
@@ -873,7 +873,7 @@ Begin VB.Form frmItemEditor
873 873
                Strikethrough   =   0   'False
874 874
             EndProperty
875 875
             Height          =   375
876  
-            Left            =   1080
  876
+            Left            =   1560
877 877
             TabIndex        =   19
878 878
             ToolTipText     =   "Ajouter des points de magie"
879 879
             Top             =   960
@@ -892,7 +892,7 @@ Begin VB.Form frmItemEditor
892 892
                Strikethrough   =   0   'False
893 893
             EndProperty
894 894
             Height          =   375
895  
-            Left            =   1080
  895
+            Left            =   1560
896 896
             TabIndex        =   18
897 897
             ToolTipText     =   "Ajouter des points de vie"
898 898
             Top             =   360
@@ -901,7 +901,7 @@ Begin VB.Form frmItemEditor
901 901
          Begin VB.Label Label23 
902 902
             Alignment       =   1  'Right Justify
903 903
             BackStyle       =   0  'Transparent
904  
-            Caption         =   "Ajout de Vit"
  904
+            Caption         =   "Ajout de vitesse:"
905 905
             BeginProperty Font 
906 906
                Name            =   "Segoe UI"
907 907
                Size            =   6.75
@@ -912,15 +912,15 @@ Begin VB.Form frmItemEditor
912 912
                Strikethrough   =   0   'False
913 913
             EndProperty