Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

RAZ OK

  • Loading branch information...
commit e7d2b66ec5a85650a6a9ce8efadc2c0051cfccaf 1 parent 6fc9a56
@Dahevos authored
Showing with 14,793 additions and 0 deletions.
  1. +1 −0  .gitignore
  2. +76 −0 Client/Client.vbp
  3. +29 −0 Client/Client.vbw
  4. +16 −0 Client/Config/Account.ini
  5. +17 −0 Client/Config/Client.ini
  6. +28 −0 Client/Config/Ecriture.ini
  7. +25 −0 Client/Config/Option.ini
  8. +4 −0 Client/Config/Serveur.ini
  9. +9 −0 Client/Config/Temps/.ini
  10. +9 −0 Client/Config/Temps/Administrateur.ini
  11. +26 −0 Client/Config/Updater.ini
  12. +9 −0 Client/Config/info.ini
  13. +41 −0 Client/Forms Sources/frmCarte.frm
  14. BIN  Client/Forms Sources/frmCarte.frx
  15. +200 −0 Client/Forms Sources/frmFixItem.frm
  16. BIN  Client/Forms Sources/frmFixItem.frx
  17. +140 −0 Client/Forms Sources/frmFlash.frm
  18. BIN  Client/Forms Sources/frmFlash.frx
  19. +50 −0 Client/Forms Sources/frmGestionMariage.frm
  20. +129 −0 Client/Forms Sources/frmGuild.frm
  21. BIN  Client/Forms Sources/frmGuild.frx
  22. +916 −0 Client/Forms Sources/frmMainMenu.frm
  23. BIN  Client/Forms Sources/frmMainMenu.frx
  24. +42 −0 Client/Forms Sources/frmMapReport.frm
  25. BIN  Client/Forms Sources/frmMapReport.frx
  26. +107 −0 Client/Forms Sources/frmMariage.frm
  27. +5,903 −0 Client/Forms Sources/frmMirage.frm
  28. BIN  Client/Forms Sources/frmMirage.frx
  29. +1 −0  Client/Forms Sources/frmMirage.log
  30. +595 −0 Client/Forms Sources/frmNewChar.frm
  31. BIN  Client/Forms Sources/frmNewChar.frx
  32. +193 −0 Client/Forms Sources/frmPlayerChat.frm
  33. BIN  Client/Forms Sources/frmPlayerChat.frx
  34. +199 −0 Client/Forms Sources/frmPlayerHelp.frm
  35. BIN  Client/Forms Sources/frmPlayerHelp.frx
  36. +299 −0 Client/Forms Sources/frmPlayerTrade.frm
  37. BIN  Client/Forms Sources/frmPlayerTrade.frx
  38. +178 −0 Client/Forms Sources/frmServerChooser.frm
  39. BIN  Client/Forms Sources/frmServerChooser.frx
  40. BIN  Client/Forms Sources/frmSplash.frx
  41. +2,420 −0 Client/Forms Sources/frmTrade.frm
  42. BIN  Client/Forms Sources/frmTrade.frx
  43. +1,400 −0 Client/Forms Sources/frmadmin.frm
  44. BIN  Client/Forms Sources/frmadmin.frx
  45. +1,375 −0 Client/Forms Sources/frmbank.frm
  46. BIN  Client/Forms Sources/frmbank.frx
  47. +256 −0 Client/Forms Sources/frmcraft.frm
  48. BIN  Client/Forms Sources/frmcraft.frx
  49. +100 −0 Client/Forms Sources/frmsplash.frm
  50. BIN  Client/GFX/BigSpells/BigSpells0.png
  51. BIN  Client/GFX/BigSpells/BigSpells1.png
  52. BIN  Client/GFX/BigSpells/Thumbs.db
  53. BIN  Client/GFX/Outils.png
  54. BIN  Client/GFX/Paperdolls/Paperdolls0.png
  55. BIN  Client/GFX/Paperdolls/Paperdolls1.png
  56. BIN  Client/GFX/Paperdolls/Paperdolls10.png
  57. BIN  Client/GFX/Paperdolls/Paperdolls11.png
  58. BIN  Client/GFX/Paperdolls/Paperdolls12.png
  59. BIN  Client/GFX/Paperdolls/Paperdolls2.png
  60. BIN  Client/GFX/Paperdolls/Paperdolls3.png
  61. BIN  Client/GFX/Paperdolls/Paperdolls4.png
  62. BIN  Client/GFX/Paperdolls/Paperdolls5.png
  63. BIN  Client/GFX/Paperdolls/Paperdolls6.png
  64. BIN  Client/GFX/Paperdolls/Paperdolls7.png
  65. BIN  Client/GFX/Paperdolls/Paperdolls8.png
  66. BIN  Client/GFX/Paperdolls/Paperdolls9.png
  67. BIN  Client/GFX/Paperdolls/Thumbs.db
  68. BIN  Client/GFX/Pets/Pet0.png
  69. BIN  Client/GFX/Pets/Pet1.png
  70. BIN  Client/GFX/Pets/Pet2.png
  71. BIN  Client/GFX/Pets/Pet3.png
  72. BIN  Client/GFX/Pets/Thumbs.db
  73. BIN  Client/GFX/Spells/Spells0.png
  74. BIN  Client/GFX/Spells/Spells1.png
  75. BIN  Client/GFX/Spells/Spells2.png
  76. BIN  Client/GFX/Spells/Thumbs.db
  77. BIN  Client/GFX/Sprites/Sprites0.png
  78. BIN  Client/GFX/Sprites/Sprites1.png
  79. BIN  Client/GFX/Sprites/Sprites10.png
  80. BIN  Client/GFX/Sprites/Sprites100.png
  81. BIN  Client/GFX/Sprites/Sprites101.png
  82. BIN  Client/GFX/Sprites/Sprites102.png
  83. BIN  Client/GFX/Sprites/Sprites103.png
  84. BIN  Client/GFX/Sprites/Sprites104.png
  85. BIN  Client/GFX/Sprites/Sprites105.png
  86. BIN  Client/GFX/Sprites/Sprites106.png
  87. BIN  Client/GFX/Sprites/Sprites107.png
  88. BIN  Client/GFX/Sprites/Sprites108.png
  89. BIN  Client/GFX/Sprites/Sprites109.png
  90. BIN  Client/GFX/Sprites/Sprites11.png
  91. BIN  Client/GFX/Sprites/Sprites110.png
  92. BIN  Client/GFX/Sprites/Sprites111.png
  93. BIN  Client/GFX/Sprites/Sprites112.png
  94. BIN  Client/GFX/Sprites/Sprites113.png
  95. BIN  Client/GFX/Sprites/Sprites114.png
  96. BIN  Client/GFX/Sprites/Sprites115.png
  97. BIN  Client/GFX/Sprites/Sprites116.png
  98. BIN  Client/GFX/Sprites/Sprites117.png
  99. BIN  Client/GFX/Sprites/Sprites118.png
  100. BIN  Client/GFX/Sprites/Sprites119.png
  101. BIN  Client/GFX/Sprites/Sprites12.png
  102. BIN  Client/GFX/Sprites/Sprites120.png
  103. BIN  Client/GFX/Sprites/Sprites121.png
  104. BIN  Client/GFX/Sprites/Sprites122.png
  105. BIN  Client/GFX/Sprites/Sprites123.png
  106. BIN  Client/GFX/Sprites/Sprites124.png
  107. BIN  Client/GFX/Sprites/Sprites125.png
  108. BIN  Client/GFX/Sprites/Sprites126.png
  109. BIN  Client/GFX/Sprites/Sprites127.png
  110. BIN  Client/GFX/Sprites/Sprites128.png
  111. BIN  Client/GFX/Sprites/Sprites129.png
  112. BIN  Client/GFX/Sprites/Sprites13.png
  113. BIN  Client/GFX/Sprites/Sprites130.png
  114. BIN  Client/GFX/Sprites/Sprites131.png
  115. BIN  Client/GFX/Sprites/Sprites132.png
  116. BIN  Client/GFX/Sprites/Sprites133.png
  117. BIN  Client/GFX/Sprites/Sprites134.png
  118. BIN  Client/GFX/Sprites/Sprites135.png
  119. BIN  Client/GFX/Sprites/Sprites136.png
  120. BIN  Client/GFX/Sprites/Sprites137.png
  121. BIN  Client/GFX/Sprites/Sprites138.png
  122. BIN  Client/GFX/Sprites/Sprites139.png
  123. BIN  Client/GFX/Sprites/Sprites14.png
  124. BIN  Client/GFX/Sprites/Sprites140.png
  125. BIN  Client/GFX/Sprites/Sprites141.png
  126. BIN  Client/GFX/Sprites/Sprites142.png
  127. BIN  Client/GFX/Sprites/Sprites143.png
  128. BIN  Client/GFX/Sprites/Sprites144.png
  129. BIN  Client/GFX/Sprites/Sprites145.png
  130. BIN  Client/GFX/Sprites/Sprites146.png
  131. BIN  Client/GFX/Sprites/Sprites147.png
  132. BIN  Client/GFX/Sprites/Sprites148.png
  133. BIN  Client/GFX/Sprites/Sprites149.png
  134. BIN  Client/GFX/Sprites/Sprites15.png
  135. BIN  Client/GFX/Sprites/Sprites150.png
  136. BIN  Client/GFX/Sprites/Sprites151.png
  137. BIN  Client/GFX/Sprites/Sprites152.png
  138. BIN  Client/GFX/Sprites/Sprites153.png
  139. BIN  Client/GFX/Sprites/Sprites154.png
  140. BIN  Client/GFX/Sprites/Sprites155.png
  141. BIN  Client/GFX/Sprites/Sprites156.png
  142. BIN  Client/GFX/Sprites/Sprites157.png
  143. BIN  Client/GFX/Sprites/Sprites158.png
  144. BIN  Client/GFX/Sprites/Sprites159.png
  145. BIN  Client/GFX/Sprites/Sprites16.png
  146. BIN  Client/GFX/Sprites/Sprites160.png
  147. BIN  Client/GFX/Sprites/Sprites161.png
  148. BIN  Client/GFX/Sprites/Sprites162.png
  149. BIN  Client/GFX/Sprites/Sprites163.png
  150. BIN  Client/GFX/Sprites/Sprites164.png
  151. BIN  Client/GFX/Sprites/Sprites165.png
  152. BIN  Client/GFX/Sprites/Sprites166.png
  153. BIN  Client/GFX/Sprites/Sprites167.png
  154. BIN  Client/GFX/Sprites/Sprites168.png
  155. BIN  Client/GFX/Sprites/Sprites169.png
  156. BIN  Client/GFX/Sprites/Sprites17.png
  157. BIN  Client/GFX/Sprites/Sprites170.png
  158. BIN  Client/GFX/Sprites/Sprites171.png
  159. BIN  Client/GFX/Sprites/Sprites172.png
  160. BIN  Client/GFX/Sprites/Sprites173.png
  161. BIN  Client/GFX/Sprites/Sprites174.png
  162. BIN  Client/GFX/Sprites/Sprites175.png
  163. BIN  Client/GFX/Sprites/Sprites176.png
  164. BIN  Client/GFX/Sprites/Sprites177.png
  165. BIN  Client/GFX/Sprites/Sprites178.png
  166. BIN  Client/GFX/Sprites/Sprites179.png
  167. BIN  Client/GFX/Sprites/Sprites18.png
  168. BIN  Client/GFX/Sprites/Sprites180.png
  169. BIN  Client/GFX/Sprites/Sprites181.png
  170. BIN  Client/GFX/Sprites/Sprites182.png
  171. BIN  Client/GFX/Sprites/Sprites183.png
  172. BIN  Client/GFX/Sprites/Sprites184.png
  173. BIN  Client/GFX/Sprites/Sprites185.png
  174. BIN  Client/GFX/Sprites/Sprites186.png
  175. BIN  Client/GFX/Sprites/Sprites187.png
  176. BIN  Client/GFX/Sprites/Sprites188.png
  177. BIN  Client/GFX/Sprites/Sprites189.png
  178. BIN  Client/GFX/Sprites/Sprites19.png
  179. BIN  Client/GFX/Sprites/Sprites190.png
  180. BIN  Client/GFX/Sprites/Sprites191.png
  181. BIN  Client/GFX/Sprites/Sprites192.png
  182. BIN  Client/GFX/Sprites/Sprites193.png
  183. BIN  Client/GFX/Sprites/Sprites194.png
  184. BIN  Client/GFX/Sprites/Sprites195.png
  185. BIN  Client/GFX/Sprites/Sprites196.png
  186. BIN  Client/GFX/Sprites/Sprites197.png
  187. BIN  Client/GFX/Sprites/Sprites198.png
  188. BIN  Client/GFX/Sprites/Sprites199.png
  189. BIN  Client/GFX/Sprites/Sprites2.png
  190. BIN  Client/GFX/Sprites/Sprites20.png
  191. BIN  Client/GFX/Sprites/Sprites200.png
  192. BIN  Client/GFX/Sprites/Sprites201.png
  193. BIN  Client/GFX/Sprites/Sprites202.png
  194. BIN  Client/GFX/Sprites/Sprites203.png
  195. BIN  Client/GFX/Sprites/Sprites204.png
  196. BIN  Client/GFX/Sprites/Sprites205.png
  197. BIN  Client/GFX/Sprites/Sprites206.png
  198. BIN  Client/GFX/Sprites/Sprites207.png
  199. BIN  Client/GFX/Sprites/Sprites208.png
  200. BIN  Client/GFX/Sprites/Sprites209.png
  201. BIN  Client/GFX/Sprites/Sprites21.png
  202. BIN  Client/GFX/Sprites/Sprites210.png
  203. BIN  Client/GFX/Sprites/Sprites211.png
  204. BIN  Client/GFX/Sprites/Sprites212.png
  205. BIN  Client/GFX/Sprites/Sprites213.png
  206. BIN  Client/GFX/Sprites/Sprites214.png
  207. BIN  Client/GFX/Sprites/Sprites215.png
  208. BIN  Client/GFX/Sprites/Sprites216.png
  209. BIN  Client/GFX/Sprites/Sprites217.png
  210. BIN  Client/GFX/Sprites/Sprites218.png
  211. BIN  Client/GFX/Sprites/Sprites219.png
  212. BIN  Client/GFX/Sprites/Sprites22.png
  213. BIN  Client/GFX/Sprites/Sprites220.png
  214. BIN  Client/GFX/Sprites/Sprites221.png
  215. BIN  Client/GFX/Sprites/Sprites222.png
  216. BIN  Client/GFX/Sprites/Sprites223.png
  217. BIN  Client/GFX/Sprites/Sprites224.png
  218. BIN  Client/GFX/Sprites/Sprites225.png
  219. BIN  Client/GFX/Sprites/Sprites226.png
  220. BIN  Client/GFX/Sprites/Sprites227.png
  221. BIN  Client/GFX/Sprites/Sprites228.png
  222. BIN  Client/GFX/Sprites/Sprites229.png
  223. BIN  Client/GFX/Sprites/Sprites23.png
  224. BIN  Client/GFX/Sprites/Sprites230.png
  225. BIN  Client/GFX/Sprites/Sprites231.png
  226. BIN  Client/GFX/Sprites/Sprites232.png
  227. BIN  Client/GFX/Sprites/Sprites233.png
  228. BIN  Client/GFX/Sprites/Sprites234.png
  229. BIN  Client/GFX/Sprites/Sprites235.png
  230. BIN  Client/GFX/Sprites/Sprites236.png
  231. BIN  Client/GFX/Sprites/Sprites237.png
  232. BIN  Client/GFX/Sprites/Sprites238.png
  233. BIN  Client/GFX/Sprites/Sprites239.png
  234. BIN  Client/GFX/Sprites/Sprites24.png
  235. BIN  Client/GFX/Sprites/Sprites240.png
  236. BIN  Client/GFX/Sprites/Sprites241.png
  237. BIN  Client/GFX/Sprites/Sprites242.png
  238. BIN  Client/GFX/Sprites/Sprites243.png
  239. BIN  Client/GFX/Sprites/Sprites244.png
  240. BIN  Client/GFX/Sprites/Sprites245.png
  241. BIN  Client/GFX/Sprites/Sprites246.png
  242. BIN  Client/GFX/Sprites/Sprites247.png
  243. BIN  Client/GFX/Sprites/Sprites248.png
  244. BIN  Client/GFX/Sprites/Sprites249.png
  245. BIN  Client/GFX/Sprites/Sprites25.png
  246. BIN  Client/GFX/Sprites/Sprites250.png
  247. BIN  Client/GFX/Sprites/Sprites251.png
  248. BIN  Client/GFX/Sprites/Sprites252.png
  249. BIN  Client/GFX/Sprites/Sprites253.png
  250. BIN  Client/GFX/Sprites/Sprites254.png
  251. BIN  Client/GFX/Sprites/Sprites255.png
  252. BIN  Client/GFX/Sprites/Sprites256.png
  253. BIN  Client/GFX/Sprites/Sprites257.png
  254. BIN  Client/GFX/Sprites/Sprites258.png
  255. BIN  Client/GFX/Sprites/Sprites259.png
  256. BIN  Client/GFX/Sprites/Sprites26.png
  257. BIN  Client/GFX/Sprites/Sprites260.png
  258. BIN  Client/GFX/Sprites/Sprites261.png
  259. BIN  Client/GFX/Sprites/Sprites262.png
  260. BIN  Client/GFX/Sprites/Sprites263.png
  261. BIN  Client/GFX/Sprites/Sprites264.png
  262. BIN  Client/GFX/Sprites/Sprites265.png
  263. BIN  Client/GFX/Sprites/Sprites266.png
  264. BIN  Client/GFX/Sprites/Sprites267.png
  265. BIN  Client/GFX/Sprites/Sprites268.png
  266. BIN  Client/GFX/Sprites/Sprites269.png
  267. BIN  Client/GFX/Sprites/Sprites27.png
  268. BIN  Client/GFX/Sprites/Sprites270.png
  269. BIN  Client/GFX/Sprites/Sprites271.png
  270. BIN  Client/GFX/Sprites/Sprites272.png
  271. BIN  Client/GFX/Sprites/Sprites273.png
  272. BIN  Client/GFX/Sprites/Sprites274.png
  273. BIN  Client/GFX/Sprites/Sprites275.png
  274. BIN  Client/GFX/Sprites/Sprites276.png
  275. BIN  Client/GFX/Sprites/Sprites277.png
  276. BIN  Client/GFX/Sprites/Sprites278.png
  277. BIN  Client/GFX/Sprites/Sprites279.png
  278. BIN  Client/GFX/Sprites/Sprites28.png
  279. BIN  Client/GFX/Sprites/Sprites280.png
  280. BIN  Client/GFX/Sprites/Sprites281.png
  281. BIN  Client/GFX/Sprites/Sprites282.png
  282. BIN  Client/GFX/Sprites/Sprites283.png
  283. BIN  Client/GFX/Sprites/Sprites284.png
  284. BIN  Client/GFX/Sprites/Sprites285.png
  285. BIN  Client/GFX/Sprites/Sprites286.png
  286. BIN  Client/GFX/Sprites/Sprites287.png
  287. BIN  Client/GFX/Sprites/Sprites288.png
  288. BIN  Client/GFX/Sprites/Sprites289.png
  289. BIN  Client/GFX/Sprites/Sprites29.png
  290. BIN  Client/GFX/Sprites/Sprites290.png
  291. BIN  Client/GFX/Sprites/Sprites291.png
  292. BIN  Client/GFX/Sprites/Sprites292.png
  293. BIN  Client/GFX/Sprites/Sprites293.png
  294. BIN  Client/GFX/Sprites/Sprites294.png
  295. BIN  Client/GFX/Sprites/Sprites295.png
  296. BIN  Client/GFX/Sprites/Sprites296.png
  297. BIN  Client/GFX/Sprites/Sprites297.png
  298. BIN  Client/GFX/Sprites/Sprites298.png
  299. BIN  Client/GFX/Sprites/Sprites299.png
  300. BIN  Client/GFX/Sprites/Sprites3.png
Sorry, we could not display the entire diff because too many files (1,977) changed.
View
1  .gitignore
@@ -0,0 +1 @@
+*.exe
View
76 Client/Client.vbp
@@ -0,0 +1,76 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
+Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#..\..\..\..\..\..\WINDOWS\system32\DAO350.DLL#Microsoft DAO 3.51 Object Library
+Reference=*\G{E1211242-8E94-11D1-8808-00C04FC2C602}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\dx7vb.dll#DirectX 7 for Visual Basic Type Library
+Object={D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0; Flash32_11_2_202_228.ocx
+Object={6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0; wmp.dll
+Reference=*\G{B69FE5C4-9F53-11D2-B13F-444553540000}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\PaintX.dll#PaintX 1.0 Type Library
+Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
+Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
+Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL3N.OCX
+Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
+Module=modText; Modules Sources\modText.bas
+Module=modTypes; Modules Sources\modTypes.bas
+Form=Forms Sources\frmMainMenu.frm
+Module=modClientTCP; Modules Sources\modClientTCP.bas
+Form=Forms Sources\frmNewChar.frm
+Module=modDirectX; Modules Sources\modDirectX.bas
+Module=modDatabase; Modules Sources\modDatabase.bas
+Module=modSound; Modules Sources\modSound.bas
+Form=Forms Sources\frmTrade.frm
+Form=Forms Sources\frmadmin.frm
+Module=ModINI; Modules Sources\modINI.bas
+Form=Forms Sources\frmGuild.frm
+Form=Forms Sources\frmPlayerTrade.frm
+Form=Forms Sources\frmPlayerChat.frm
+Form=Forms Sources\frmFlash.frm
+Module=modSCapture; Modules Sources\modSCapture.bas
+Form=Forms Sources\frmMapReport.frm
+Form=Forms Sources\frmPlayerHelp.frm
+Form=Forms Sources\frmServerChooser.frm
+Form=Forms Sources\frmbank.frm
+Form=Forms Sources\frmMirage.frm
+Module=modGameLogic; Modules Sources\modGameLogic.bas
+Form=Forms Sources\frmCarte.frm
+Module=transparence; Modules Sources\transparence.bas
+Module=fullscreen; Modules Sources\fullscreen.bas
+Module=ModPNG; Modules Sources\modPNG.bas
+Form=Forms Sources\frmsplash.frm
+Form=Forms Sources\frmFixItem.frm
+Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
+Form=Forms Sources\frmcraft.frm
+IconForm="frmMirage"
+Startup="Sub Main"
+HelpFile=""
+Title="FRoG"
+ExeName32="Client.exe"
+Command32=""
+Name="FRoG"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=0
+MinorVer=6
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="FROG TEAM"
+VersionLegalCopyright="� Frog Creator 2006"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+DebugStartupOption=0
+
+[MS Transaction Server]
+AutoRefresh=1
View
29 Client/Client.vbw
@@ -0,0 +1,29 @@
+modText = 54, 87, 626, 573,
+modTypes = 299, 133, 871, 614,
+frmMainMenu = 44, 151, 616, 637, , 99, 67, 782, 553, C
+modClientTCP = 86, 108, 1012, 788,
+frmNewChar = 35, 103, 607, 589, , 105, 186, 677, 672, C
+modDirectX = 10, 36, 943, 505,
+modDatabase = 22, 29, 804, 746,
+modSound = 72, 173, 593, 641,
+frmTrade = -16, 325, 996, 830, , 7, 150, 579, 636, C
+frmadmin = 76, 191, 648, 677, , 110, 145, 682, 631, C
+ModINI = 99, 171, 620, 639,
+frmGuild = 77, 73, 649, 533, , 132, 174, 704, 660, C
+frmPlayerTrade = 19, 149, 705, 577, , 93, 54, 665, 540, C
+frmPlayerChat = 9, 0, 530, 408, , 0, 0, 572, 486, C
+frmFlash = 47, 56, 619, 542, , 61, 34, 633, 520, C
+modSCapture = 176, 200, 697, 668,
+frmMapReport = 198, 225, 719, 693, C, 44, 58, 616, 544, C
+frmPlayerHelp = 176, 200, 697, 668, , 62, 222, 634, 708, C
+frmServerChooser = 30, 179, 1029, 602, , 176, 208, 719, 692, C
+frmbank = 63, 144, 635, 630, , 61, 135, 633, 621, C
+frmMirage = 129, 165, 970, 653, , 64, 45, 977, 704, C
+modGameLogic = 17, 30, 759, 624,
+frmCarte = 66, 75, 587, 543, , 276, 168, 848, 654, C
+transparence = 153, 148, 1221, 616,
+fullscreen = 509, 211, 1025, 682,
+ModPNG = 132, 150, 653, 618,
+frmsplash = 78, 202, 599, 670, , 140, 169, 712, 655, C
+frmFixItem = 10, 73, 558, 557, , 118, 98, 666, 582, C
+frmcraft = 0, 0, 787, 655, , 148, 146, 935, 801, C
View
16 Client/Config/Account.ini
@@ -0,0 +1,16 @@
+[INFO]
+Account=Admin
+Password=admin
+[CONFIG]
+SpeechBubbles=1
+NpcBar=1
+NPCName=1
+NPCDamage=1
+PlayerBar=1
+PlayerName=1
+PlayerDamage=1
+MapGrid=1
+Music=0
+Sound=1
+AutoScroll=1
+NomObjet=0
View
17 Client/Config/Client.ini
@@ -0,0 +1,17 @@
+[CONFIG]
+WebSite=www.frog-creator.new.fr
+Music= 0
+jeu=1
+[CREDIT]
+CreditLine1=Vous pouvez inscrire vos credits ici.
+CreditLine2=Vous pouvez inscrire vos credits ici.
+CreditLine3=Vous pouvez inscrire vos credits ici.
+CreditLine4=Vous pouvez inscrire vos credits ici.
+CreditLine5=Vous pouvez inscrire vos credits ici.
+CreditLine6=Vous pouvez inscrire vos credits ici.
+CreditLine7=Vous pouvez inscrire vos credits ici.
+CreditLine8=Vous pouvez inscrire vos credits ici.
+CreditLine9=Vous pouvez inscrire vos credits ici.
+CreditLine10=Vous pouvez inscrire vos credits ici.
+CreditLine11=Fichier Client.ini dans Config.
+
View
28 Client/Config/Ecriture.ini
@@ -0,0 +1,28 @@
+[POLICE]
+Police=MS Sans Serif
+PoliceSize=8
+PoliceChat=MS Sans Serif
+[CHATBOX]
+R=255
+G=255
+B=255
+[CHATTEXTBOX]
+R=255
+G=255
+B=255
+[BACKGROUND]
+R=255
+G=255
+B=255
+[SPELLLIST]
+R=255
+G=255
+B=255
+[WHOLIST]
+R=255
+G=255
+B=255
+[NEWCHAR]
+R=255
+G=255
+B=255
View
25 Client/Config/Option.ini
@@ -0,0 +1,25 @@
+[TJEU]
+haut=25
+bas=18
+gauche=16
+droite=3
+attaque=4
+courir=50
+ramasser=51
+action=0
+[TRAC]
+rac1=27
+rac2=28
+rac3=29
+rac4=30
+rac5=31
+rac6=32
+rac7=33
+rac8=34
+rac9=35
+rac10=26
+rac11=36
+rac12=37
+rac13=38
+rac14=39
+raci=39
View
4 Client/Config/Serveur.ini
@@ -0,0 +1,4 @@
+[SERVER0]
+Name=FRoG Server
+IP=127.0.0.1
+Port=4000
View
9 Client/Config/Temps/.ini
@@ -0,0 +1,9 @@
+[RAC_]
+rac0=0
+type0=0
+rac1=0
+type1=0
+rac2=0
+type2=0
+rac3=0
+type3=0
View
9 Client/Config/Temps/Administrateur.ini
@@ -0,0 +1,9 @@
+[RAC_Administrateur]
+rac0=1
+type0=2
+rac1=1
+type1=1
+rac2=0
+type2=0
+rac3=0
+type3=0
View
26 Client/Config/Updater.ini
@@ -0,0 +1,26 @@
+[UPDATER]
+Jeu=
+WebUpdater=
+WebNews=
+exename=Client
+actif=0
+Fin=0
+Name=0
+up=0
+[VERSION]
+Version=0
+[GFX]
+TotalTiles=
+TotalSprites=
+TotalBigSprites=
+TotalSpells=
+TotalBigSpells=
+TotalPaperdoll=
+TotalPet=
+[MAPS]
+TotalMaps=
+[SFX]
+TotalMagic=
+[THEME]
+name=
+ext=png
View
9 Client/Config/info.ini
@@ -0,0 +1,9 @@
+[FILES]
+FileVersion1=2
+Taille1=3829760
+FileName1=ClientVCPP.exe
+FilePath1=
+[VERSION]
+Max=1
+MaxFolder=0
+Version= 2
View
41 Client/Forms Sources/frmCarte.frm
@@ -0,0 +1,41 @@
+VERSION 5.00
+Begin VB.Form frmCarte
+ BorderStyle = 3 'Fixed Dialog
+ Caption = "Carte"
+ ClientHeight = 8505
+ ClientLeft = -15
+ ClientTop = 270
+ ClientWidth = 8490
+ Icon = "frmCarte.frx":0000
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ ScaleHeight = 8505
+ ScaleWidth = 8490
+ ShowInTaskbar = 0 'False
+ StartUpPosition = 3 'Windows Default
+ Begin VB.Image imgcarte
+ Height = 8505
+ Left = 0
+ Picture = "frmCarte.frx":17D2A
+ Top = 0
+ Width = 8505
+ End
+End
+Attribute VB_Name = "frmCarte"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub Form_Load()
+ For i = 1 To 4
+ If i = 1 Then Ending = ".gif"
+ If i = 2 Then Ending = ".jpg"
+ If i = 3 Then Ending = ".png"
+ If i = 4 Then Ending = ".bmp"
+
+ If FileExiste("images\Carte" & Ending) Then imgcarte.Picture = LoadPicture(App.Path & "\images\Carte" & Ending)
+ Next i
+End Sub
+
+
View
BIN  Client/Forms Sources/frmCarte.frx
Binary file not shown
View
200 Client/Forms Sources/frmFixItem.frm
@@ -0,0 +1,200 @@
+VERSION 5.00
+Begin VB.Form frmFixItem
+ BackColor = &H00000000&
+ BorderStyle = 0 'None
+ Caption = "Réparer un objet"
+ ClientHeight = 5835
+ ClientLeft = 90
+ ClientTop = -60
+ ClientWidth = 4965
+ ControlBox = 0 'False
+ BeginProperty Font
+ Name = "Arial"
+ Size = 12
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ Picture = "frmFixItem.frx":0000
+ ScaleHeight = 389
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 331
+ StartUpPosition = 2 'CenterScreen
+ Begin VB.ComboBox cmbItem
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 300
+ Left = 720
+ Style = 2 'Dropdown List
+ TabIndex = 0
+ Top = 1935
+ Width = 3465
+ End
+ Begin VB.Label Label2
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Caption = "Prix :"
+ BeginProperty Font
+ Name = "Arial"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 210
+ Left = 720
+ TabIndex = 4
+ Top = 2280
+ Width = 360
+ End
+ Begin VB.Label picCancel
+ BackStyle = 0 'Transparent
+ BeginProperty Font
+ Name = "Arial"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 330
+ Left = 4650
+ TabIndex = 3
+ Top = 0
+ Width = 315
+ End
+ Begin VB.Label chkFix
+ BackStyle = 0 'Transparent
+ BeginProperty Font
+ Name = "Arial"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 450
+ Left = 1920
+ TabIndex = 2
+ Top = 5280
+ Width = 1155
+ End
+ Begin VB.Label Label1
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Caption = "Sélectionner l'objet à réparer :"
+ BeginProperty Font
+ Name = "Arial"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 210
+ Left = 720
+ TabIndex = 1
+ Top = 1680
+ Width = 2160
+ End
+End
+Attribute VB_Name = "frmFixItem"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private Sub Form_Load()
+Dim i As Long
+Dim Ending As String
+
+ For i = 1 To 4
+ If i = 1 Then Ending = ".gif"
+ If i = 2 Then Ending = ".jpg"
+ If i = 3 Then Ending = ".png"
+ If i = 4 Then Ending = ".bmp"
+
+ If FileExiste(Rep_Theme & "\Jeu\reparer" & Ending) Then Me.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\reparer" & Ending)
+ Next i
+
+ Label1.Font = ReadINI("POLICE", "Police", (App.Path & "\Config\Ecriture.ini"))
+ Label1.FontSize = ReadINI("POLICE", "PoliceSize", (App.Path & "\Config\Ecriture.ini"))
+End Sub
+
+Private Sub chkFix_Click()
+ Call SendData("fixitem" & SEP_CHAR & cmbItem.ListIndex + 1 & SEP_CHAR & frmTrade.picFixItems.Tag & SEP_CHAR & END_CHAR)
+ Call cmbItem_Click
+End Sub
+
+Private Sub cmbItem_Click()
+ Dim i As Long
+ If GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1) > 0 And GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1) < MAX_ITEMS Then
+ If Item(GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1)).Data1 > -1 And GetPlayerInvItemDur(MyIndex, cmbItem.ListIndex + 1) > -1 Then
+ i = (Item(GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1)).Data1 - GetPlayerInvItemDur(MyIndex, cmbItem.ListIndex + 1)) * (Item(GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1)).Data2 / 5) \ 2
+ If i <= 0 Then i = 1
+ frmFixItem.Label2.Caption = "Prix : " & i & Item(frmTrade.picFixItems.Tag).name
+ Else
+ Label2.Caption = "Prix : 0" & Item(frmTrade.picFixItems.Tag).name
+ End If
+ Else
+ Label2.Caption = "Prix : 0" & Item(frmTrade.picFixItems.Tag).name
+ End If
+End Sub
+
+Private Sub cmbItem_Scroll()
+Dim i As Long
+ If GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1) > 0 And GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1) < MAX_ITEMS Then
+ If Item(GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1)).Data1 > -1 And GetPlayerInvItemDur(MyIndex, cmbItem.ListIndex + 1) > -1 Then
+ i = (Item(GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1)).Data1 - GetPlayerInvItemDur(MyIndex, cmbItem.ListIndex + 1)) * (Item(GetPlayerInvItemNum(MyIndex, cmbItem.ListIndex + 1)).Data2 / 5) \ 2
+ If i <= 0 Then i = 1
+ frmFixItem.Label2.Caption = "Prix : " & i & Item(frmTrade.picFixItems.Tag).name
+ Else
+ Label2.Caption = "Prix : 0" & Item(frmTrade.picFixItems.Tag).name
+ End If
+ Else
+ Label2.Caption = "Prix : 0" & Item(frmTrade.picFixItems.Tag).name
+ End If
+End Sub
+
+Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+dr = True
+drx = x
+dry = y
+End Sub
+
+Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+On Error Resume Next
+If dr Then DoEvents: If dr Then Call Me.Move(Me.Left + (x - drx), Me.Top + (y - dry))
+If Me.Left > Screen.Width Or Me.Top > Screen.Height Then Me.Top = Screen.Height \ 2: Me.Left = Screen.Width \ 2
+End Sub
+
+Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+dr = False
+drx = 0
+dry = 0
+End Sub
+
+Private Sub picCancel_Click()
+ Unload Me
+ If frmTrade.Visible Then frmTrade.SetFocus
+End Sub
View
BIN  Client/Forms Sources/frmFixItem.frx
Binary file not shown
View
140 Client/Forms Sources/frmFlash.frm
@@ -0,0 +1,140 @@
+VERSION 5.00
+Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash10e.ocx"
+Begin VB.Form frmFlash
+ BorderStyle = 0 'None
+ Caption = "Évènement de Flash"
+ ClientHeight = 9465
+ ClientLeft = 0
+ ClientTop = 0
+ ClientWidth = 12855
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ Picture = "frmFlash.frx":0000
+ ScaleHeight = 631
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 857
+ StartUpPosition = 2 'CenterScreen
+ Begin VB.Timer Check
+ Enabled = 0 'False
+ Interval = 50
+ Left = 120
+ Top = 120
+ End
+ Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash
+ Height = 6075
+ Left = 2220
+ TabIndex = 1
+ Top = 1695
+ Width = 8400
+ _cx = 14817
+ _cy = 10716
+ FlashVars = ""
+ Movie = ""
+ Src = ""
+ WMode = "Window"
+ Play = "-1"
+ Loop = "-1"
+ Quality = "High"
+ SAlign = ""
+ Menu = "-1"
+ Base = ""
+ AllowScriptAccess= "always"
+ Scale = "ShowAll"
+ DeviceFont = "0"
+ EmbedMovie = "0"
+ BGColor = ""
+ SWRemote = ""
+ MovieData = ""
+ SeamlessTabbing = "1"
+ Profile = "0"
+ ProfileAddress = ""
+ ProfilePort = "0"
+ AllowNetworking = "all"
+ AllowFullScreen = "false"
+ End
+ Begin VB.Label Label1
+ Alignment = 2 'Center
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 315
+ Left = 12600
+ TabIndex = 0
+ Top = 0
+ Width = 555
+ End
+End
+Attribute VB_Name = "frmFlash"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+
+Private Sub Check_Timer()
+ If Flash.CurrentFrame > 0 Then
+ If Flash.CurrentFrame >= Flash.TotalFrames - 1 Then
+ Flash.FrameNum = 0
+ Flash.Stop
+ Check.Enabled = False
+ WriteINI "CONFIG", "Music", frmMirage.chkmusic.value, App.Path & "\Config\Account.ini"
+ Call PlayMidi(Trim$(Map(GetPlayerMap(MyIndex)).Music))
+ WriteINI "CONFIG", "Sound", frmMirage.chksound.value, App.Path & "\Config\Account.ini"
+ Unload Me
+ End If
+ End If
+End Sub
+
+Private Sub Form_Load()
+
+Dim i As Long
+Dim Ending As String
+
+
+
+For i = 1 To 3
+ If i = 1 Then Ending = ".gif"
+ If i = 2 Then Ending = ".jpg"
+ If i = 3 Then Ending = ".png"
+
+ If FileExiste(Rep_Theme & "\Jeu\flash" & Ending) Then Me.Picture = LoadPNG(App.Path & Rep_Theme & "\Jeu\flash" & Ending)
+Next i
+
+End Sub
+
+Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+dr = True
+drx = x
+dry = y
+End Sub
+
+Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+On Error Resume Next
+If dr Then DoEvents: If dr Then Call Me.Move(Me.Left + (x - drx), Me.Top + (y - dry))
+If Me.Left > Screen.Width Or Me.Top > Screen.Height Then Me.Top = Screen.Height \ 2: Me.Left = Screen.Width \ 2
+End Sub
+
+Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+dr = False
+drx = 0
+dry = 0
+End Sub
+
+Private Sub Label1_Click()
+ Flash.FrameNum = 0
+ Flash.Stop
+ Check.Enabled = False
+ WriteINI "CONFIG", "Music", frmMirage.chkmusic.value, App.Path & "\Config\Account.ini"
+ Call PlayMidi(Trim$(Map(GetPlayerMap(MyIndex)).Music))
+ WriteINI "CONFIG", "Sound", frmMirage.chksound.value, App.Path & "\Config\Account.ini"
+ Unload Me
+End Sub
+
View
BIN  Client/Forms Sources/frmFlash.frx
Binary file not shown
View
50 Client/Forms Sources/frmGestionMariage.frm
@@ -0,0 +1,50 @@
+VERSION 5.00
+Begin VB.Form frmGestionMariage
+ BorderStyle = 1 'Fixed Single
+ Caption = "Form1"
+ ClientHeight = 1605
+ ClientLeft = 45
+ ClientTop = 435
+ ClientWidth = 2925
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ ScaleHeight = 1605
+ ScaleWidth = 2925
+ StartUpPosition = 3 'Windows Default
+ Begin VB.CommandButton Command1
+ Caption = "Appliquer"
+ Height = 375
+ Left = 1200
+ TabIndex = 2
+ Top = 1080
+ Width = 1455
+ End
+ Begin VB.TextBox Text1
+ Height = 375
+ Left = 240
+ TabIndex = 1
+ Top = 480
+ Width = 2415
+ End
+ Begin VB.Label Label1
+ Caption = "Donner de la vie :"
+ Height = 255
+ Left = 240
+ TabIndex = 0
+ Top = 240
+ Width = 2175
+ End
+End
+Attribute VB_Name = "frmGestionMariage"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private Sub Command1_Click()
+'Vie = Text1.Text
+'Player(FindPlayer(conjoint)).HP = Player(FindPlayer(conjoint)).HP + Text1.Text
+End Sub
+
View
129 Client/Forms Sources/frmGuild.frm
@@ -0,0 +1,129 @@
+VERSION 5.00
+Begin VB.Form frmGuild
+ BackColor = &H00789298&
+ BorderStyle = 0 'None
+ Caption = "Création de Guilde"
+ ClientHeight = 5235
+ ClientLeft = 30
+ ClientTop = -60
+ ClientWidth = 5115
+ BeginProperty Font
+ Name = "Arial"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ Picture = "frmGuild.frx":0000
+ ScaleHeight = 349
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 341
+ StartUpPosition = 2 'CenterScreen
+ Begin VB.TextBox txtName
+ Appearance = 0 'Flat
+ Enabled = 0 'False
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 6.75
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 240
+ Left = 720
+ TabIndex = 1
+ Top = 1440
+ Width = 2655
+ End
+ Begin VB.TextBox txtGuild
+ Appearance = 0 'Flat
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 6.75
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 240
+ Left = 720
+ TabIndex = 0
+ Top = 2160
+ Width = 2655
+ End
+ Begin VB.Label Command2
+ BackStyle = 0 'Transparent
+ Height = 330
+ Left = 4560
+ TabIndex = 3
+ Top = 0
+ Width = 555
+ End
+ Begin VB.Label Command1
+ BackStyle = 0 'Transparent
+ Height = 330
+ Left = 1800
+ TabIndex = 2
+ Top = 4800
+ Width = 1485
+ End
+End
+Attribute VB_Name = "frmGuild"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private Sub Command1_Click()
+Dim Packet As String
+
+Packet = "MAKEGUILD" & SEP_CHAR & txtName.Text & SEP_CHAR & txtGuild.Text & SEP_CHAR & END_CHAR
+
+Call SendData(Packet)
+Unload Me
+End Sub
+
+Private Sub Command2_Click()
+Unload Me
+End Sub
+
+Private Sub Form_Load()
+Dim i As Long
+Dim Ending As String
+
+ For i = 1 To 3
+ If i = 1 Then Ending = ".gif"
+ If i = 2 Then Ending = ".jpg"
+ If i = 3 Then Ending = ".png"
+
+ If FileExiste(Rep_Theme & "\jeu\creeguilde" & Ending) Then frmGuild.Picture = LoadPNG(App.Path & Rep_Theme & "\jeu\creeguilde" & Ending)
+ Next i
+
+End Sub
+
+Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+dr = True
+drx = x
+dry = y
+End Sub
+
+Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+On Error Resume Next
+If dr Then DoEvents: If dr Then Call Me.Move(Me.Left + (x - drx), Me.Top + (y - dry))
+If Me.Left > Screen.Width Or Me.Top > Screen.Height Then Me.Top = Screen.Height \ 2: Me.Left = Screen.Width \ 2
+End Sub
+
+Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+dr = False
+drx = 0
+dry = 0
+End Sub
View
BIN  Client/Forms Sources/frmGuild.frx
Binary file not shown
View
916 Client/Forms Sources/frmMainMenu.frm
@@ -0,0 +1,916 @@
+VERSION 5.00
+Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
+Begin VB.Form frmMainMenu
+ BackColor = &H80000007&
+ BorderStyle = 1 'Fixed Single
+ Caption = "Menu Principal"
+ ClientHeight = 7200
+ ClientLeft = 195
+ ClientTop = 405
+ ClientWidth = 9585
+ ClipControls = 0 'False
+ ForeColor = &H000000FF&
+ Icon = "frmMainMenu.frx":0000
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ Palette = "frmMainMenu.frx":17D2A
+ Picture = "frmMainMenu.frx":1C7EB
+ ScaleHeight = 480
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 639
+ StartUpPosition = 2 'CenterScreen
+ Begin VB.Timer tmrPicChar
+ Interval = 500
+ Left = 5760
+ Top = 0
+ End
+ Begin VB.Frame fraPers
+ Caption = "Frame1"
+ Height = 3600
+ Left = 5520
+ TabIndex = 20
+ Top = 600
+ Width = 3390
+ Begin VB.PictureBox PicChar
+ Appearance = 0 'Flat
+ AutoSize = -1 'True
+ BackColor = &H80000006&
+ BorderStyle = 0 'None
+ ForeColor = &H80000008&
+ Height = 960
+ Left = 360
+ ScaleHeight = 64
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 64
+ TabIndex = 31
+ Top = 1680
+ Width = 960
+ End
+ Begin VB.ListBox lstChars
+ Appearance = 0 'Flat
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 930
+ ItemData = "frmMainMenu.frx":FD82D
+ Left = 120
+ List = "frmMainMenu.frx":FD82F
+ TabIndex = 6
+ Top = 640
+ Width = 3135
+ End
+ Begin VB.Label lblCharClasse
+ BackStyle = 0 'Transparent
+ Caption = "Label6"
+ Height = 255
+ Left = 1560
+ TabIndex = 30
+ Top = 2280
+ Width = 1335
+ End
+ Begin VB.Label lblCharLvl
+ BackStyle = 0 'Transparent
+ Caption = "Label6"
+ Height = 255
+ Left = 1560
+ TabIndex = 29
+ Top = 2040
+ Width = 1335
+ End
+ Begin VB.Label lblCharNom
+ BackStyle = 0 'Transparent
+ Caption = "Label6"
+ Height = 255
+ Left = 1560
+ TabIndex = 28
+ Top = 1800
+ Width = 1335
+ End
+ Begin VB.Label picUseChar
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Height = 435
+ Left = 1440
+ TabIndex = 8
+ Top = 3240
+ Width = 1845
+ End
+ Begin VB.Label picDelChar
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Height = 435
+ Left = 240
+ TabIndex = 9
+ Top = 3240
+ Width = 1245
+ End
+ Begin VB.Label picNewChar
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Height = 375
+ Left = 0
+ TabIndex = 7
+ Top = 2880
+ Width = 3285
+ End
+ Begin VB.Label picCancel
+ Alignment = 2 'Center
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Height = 315
+ Left = 3000
+ TabIndex = 21
+ Top = 0
+ Width = 420
+ End
+ Begin VB.Image imgPers
+ Height = 3600
+ Left = 0
+ MousePointer = 5 'Size
+ Picture = "frmMainMenu.frx":FD831
+ Top = 0
+ Width = 3390
+ End
+ End
+ Begin VB.CommandButton Cmd640
+ Caption = "640x480"
+ Height = 255
+ Left = 120
+ TabIndex = 27
+ Top = 5760
+ Width = 1095
+ End
+ Begin VB.CommandButton Cmd800
+ Caption = "Original"
+ Enabled = 0 'False
+ Height = 255
+ Left = 120
+ TabIndex = 26
+ Top = 5520
+ Width = 1095
+ End
+ Begin MSComctlLib.ImageList imgl
+ Left = 9000
+ Top = 0
+ _ExtentX = 1005
+ _ExtentY = 1005
+ BackColor = -2147483643
+ MaskColor = 65280
+ _Version = 393216
+ End
+ Begin VB.Frame fraLogin
+ Caption = "Frame1"
+ Height = 2265
+ Left = 5520
+ TabIndex = 16
+ Top = 600
+ Width = 3390
+ Begin VB.CheckBox Check1
+ BackColor = &H00FFFFFF&
+ Caption = "Musique"
+ Height = 195
+ Left = 2160
+ TabIndex = 25
+ Top = 1560
+ Width = 180
+ End
+ Begin VB.TextBox txtName
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 285
+ Left = 120
+ MaxLength = 20
+ TabIndex = 2
+ Top = 600
+ Width = 3075
+ End
+ Begin VB.TextBox txtPassword
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 285
+ IMEMode = 3 'DISABLE
+ Left = 120
+ MaxLength = 20
+ PasswordChar = "*"
+ TabIndex = 3
+ Top = 1200
+ Width = 3075
+ End
+ Begin VB.CheckBox Check2
+ Caption = "Save Password"
+ Height = 195
+ Left = 120
+ TabIndex = 1
+ Top = 1560
+ Width = 195
+ End
+ Begin VB.Label Label5
+ BackStyle = 0 'Transparent
+ Caption = "Musique"
+ BeginProperty Font
+ Name = "Arial"
+ Size = 9.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 255
+ Left = 2400
+ TabIndex = 24
+ Top = 1560
+ Width = 855
+ End
+ Begin VB.Label picConnect
+ AutoSize = -1 'True
+ BackColor = &H00789298&
+ BackStyle = 0 'Transparent
+ Caption = " "
+ BeginProperty Font
+ Name = "Palatino Linotype"
+ Size = 9
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = -1 'True
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H8000000E&
+ Height = 375
+ Left = 0
+ TabIndex = 4
+ Top = 1920
+ Width = 1545
+ End
+ Begin VB.Label Label3
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Caption = "Memoriser"
+ BeginProperty Font
+ Name = "Arial"
+ Size = 9.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000009&
+ Height = 240
+ Left = 360
+ TabIndex = 17
+ Top = 1560
+ Width = 1005
+ End
+ Begin VB.Label lbl_creer
+ BackStyle = 0 'Transparent
+ Caption = " "
+ BeginProperty Font
+ Name = "Palatino Linotype"
+ Size = 9.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = -1 'True
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 375
+ Left = 1800
+ TabIndex = 5
+ Top = 1920
+ Width = 1575
+ End
+ Begin VB.Image imgLogin
+ Height = 2265
+ Left = 0
+ MousePointer = 5 'Size
+ Picture = "frmMainMenu.frx":1255F3
+ Top = 0
+ Width = 3390
+ End
+ End
+ Begin VB.Timer splash
+ Enabled = 0 'False
+ Interval = 5000
+ Left = 7200
+ Top = 0
+ End
+ Begin VB.PictureBox Picsprites
+ Appearance = 0 'Flat
+ AutoRedraw = -1 'True
+ AutoSize = -1 'True
+ BackColor = &H80000005&
+ BorderStyle = 0 'None
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 9720
+ ScaleHeight = 495
+ ScaleWidth = 495
+ TabIndex = 22
+ Top = 6600
+ Visible = 0 'False
+ Width = 495
+ End
+ Begin VB.Timer tmr2
+ Enabled = 0 'False
+ Interval = 100
+ Left = 6240
+ Top = 0
+ End
+ Begin VB.CheckBox chk_fullscreen
+ BackColor = &H80000009&
+ Caption = "Plein ecran"
+ Enabled = 0 'False
+ Height = 195
+ Left = 120
+ TabIndex = 0
+ Top = 5160
+ Visible = 0 'False
+ Width = 180
+ End
+ Begin VB.Timer Tmrmusic
+ Interval = 1000
+ Left = 6720
+ Top = 0
+ End
+ Begin VB.Frame fraNewAccount
+ Caption = "Frame2"
+ Height = 3150
+ Left = 5520
+ TabIndex = 18
+ Top = 600
+ Width = 3385
+ Begin VB.TextBox txtname2
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 330
+ Left = 240
+ MaxLength = 20
+ TabIndex = 10
+ Top = 780
+ Width = 2685
+ End
+ Begin VB.TextBox txtpassword22
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 330
+ IMEMode = 3 'DISABLE
+ Left = 240
+ MaxLength = 20
+ PasswordChar = "*"
+ TabIndex = 11
+ Top = 1560
+ Width = 2685
+ End
+ Begin VB.TextBox txtPassword2
+ BackColor = &H00FFFFFF&
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H00000000&
+ Height = 330
+ IMEMode = 3 'DISABLE
+ Left = 240
+ MaxLength = 20
+ PasswordChar = "*"
+ TabIndex = 12
+ Top = 2280
+ Width = 2685
+ End
+ Begin VB.Label Label2
+ BackStyle = 0 'Transparent
+ Caption = " "
+ Height = 375
+ Left = 3000
+ TabIndex = 19
+ Top = 0
+ Width = 375
+ End
+ Begin VB.Label Label1
+ BackStyle = 0 'Transparent
+ Caption = " "
+ Height = 375
+ Left = 1200
+ TabIndex = 13
+ Top = 2760
+ Width = 2175
+ End
+ Begin VB.Image imgNouveau
+ Height = 3150
+ Left = 0
+ MousePointer = 5 'Size
+ Picture = "frmMainMenu.frx":13E74D
+ Top = 0
+ Width = 3390
+ End
+ End
+ Begin VB.Label Label4
+ BackStyle = 0 'Transparent
+ Caption = "Plein ecran"
+ Enabled = 0 'False
+ Height = 255
+ Left = 360
+ TabIndex = 23
+ Top = 5160
+ Visible = 0 'False
+ Width = 855
+ End
+ Begin VB.Label versionlbl
+ AutoSize = -1 'True
+ BackStyle = 0 'Transparent
+ Caption = "Version :"
+ BeginProperty Font
+ Name = "Verdana"
+ Size = 6.75
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 180
+ Left = 120
+ TabIndex = 14
+ Top = 6960
+ Width = 690
+ End
+ Begin VB.Label picQuit
+ Alignment = 2 'Center
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ BackStyle = 0 'Transparent
+ Caption = "Quitter"
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 9.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ ForeColor = &H80000008&
+ Height = 255
+ Left = 8400
+ TabIndex = 15
+ Top = 6840
+ Width = 1305
+ End
+End
+Attribute VB_Name = "frmMainMenu"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+Public animi As Long
+Public DragImg As Long
+Public DragX As Long
+Public DragY As Long
+Private twippx As Long
+Private twippy As Long
+
+Public Function getreselotionX()
+ getreselotionX = Screen.Width \ Screen.TwipsPerPixelX
+End Function
+
+Public Function getreselotionY()
+ getreselotionY = Screen.Height \ Screen.TwipsPerPixelY
+End Function
+
+Private Sub Check1_Click()
+If Check1.Value = "0" Then StopMidi Else If FileExiste("Music\mainmenu.mid") Then Call PlayMidi("mainmenu.mid") Else Call PlayMidi("mainmenu.mp3")
+
+Call WriteINI("CONFIG", "Music", STR$(Check1.Value), App.Path & "\Config\Client.ini")
+End Sub
+
+Private Sub Cmd640_Click()
+ notebook = True
+ Cmd640.Enabled = False
+ Cmd800.Enabled = True
+ Call notebook_change
+End Sub
+
+Private Sub Cmd800_Click()
+ notebook = False
+ Cmd640.Enabled = True
+ Cmd800.Enabled = False
+ Call notebook_change
+End Sub
+
+Private Sub Form_GotFocus()
+If frmNewChar.Visible Then Call frmNewChar.SetFocus
+End Sub
+
+'Private Sub chk_fullscreen_Click()
+' If chk_fullscreen.value = "1" Then
+' Call WriteINI("PLEIN_ECRAN", "actif", "1", App.Path & "\Data.ini")
+' frmMirage.Height = Screen.Height / Screen.TwipsPerPixelY
+' frmMirage.Width = Screen.Width / Screen.TwipsPerPixelX
+' frmMirage.picScreen.Height = Screen.Height / Screen.TwipsPerPixelY
+' frmMirage.picScreen.Width = Screen.Width / Screen.TwipsPerPixelX
+' 'ChangeScreenSettings 640, 480, 16
+' 'Me.WindowState = "2"
+' 'frmMainMenu.BorderStyle = "0"
+' Else
+' Call WriteINI("PLEIN_ECRAN", "actif", "0", App.Path & "\Data.ini")
+' frmMirage.Height = 599 * Screen.TwipsPerPixelY
+' frmMirage.Width = 804 * Screen.TwipsPerPixelX
+' frmMirage.picScreen.Height = 599 * Screen.TwipsPerPixelY
+' frmMirage.picScreen.Width = 804 * Screen.TwipsPerPixelX
+' 'Dim Pathy As String
+'Pathy = App.Path & "\config.ini"
+'ChangeScreenSettings ReadINI("CONFIG", "X", Pathy), ReadINI("CONFIG", "Y", Pathy), 32
+' frmMirage.WindowState = "0"
+' End If
+'End Sub
+
+Private Sub Form_Load()
+Dim i As Long
+Dim Ending As String
+
+ dragAndDrop = 0
+ Call iniOptTouche
+ charSelectNum = 1
+ Check1.Value = Val(ReadINI("CONFIG", "Music", App.Path & "\Config\Client.ini"))
+
+ For i = 1 To 4
+ If i = 1 Then Ending = ".gif"
+ If i = 2 Then Ending = ".jpg"
+ If i = 3 Then Ending = ".png"
+ If i = 4 Then Ending = ".bmp"
+
+ If FileExiste(Rep_Theme & "\Login\connexion" & Ending) Then imgLogin.Picture = LoadPNG(App.Path & Rep_Theme & "\Login\connexion" & Ending)
+ If FileExiste(Rep_Theme & "\Login\nouveau" & Ending) Then imgNouveau.Picture = LoadPNG(App.Path & Rep_Theme & "\Login\nouveau" & Ending)
+ If FileExiste(Rep_Theme & "\Login\personnage" & Ending) Then imgPers.Picture = LoadPNG(App.Path & Rep_Theme & "\Login\personnage" & Ending)
+ If FileExiste(Rep_Theme & "\Login\fond" & Ending) Then Me.Picture = LoadPNG(App.Path & Rep_Theme & "\Login\fond" & Ending)
+ If FileExiste("GFX/Sprites/Sprites0" & Ending) Then
+ PicChar.Picture = LoadPNG(App.Path & "/GFX/Sprites/Sprites0" & Ending)
+ End If
+ Next i
+
+ If Check1.Value = 1 Then If FileExiste("Music\mainmenu.mid") Then Call PlayMidi("mainmenu.mid") Else Call PlayMidi("mainmenu.mp3")
+
+ 'Picsprites.Picture = LoadPNG(App.Path & "\GFX\sprites.png", True)
+
+ fraNewAccount.Visible = False
+ fraPers.Visible = False
+ txtName.Text = Trim$(ReadINI("INFO", "Account", App.Path & "\Config\Account.ini"))
+ txtPassword.Text = Trim$(ReadINI("INFO", "Password", App.Path & "\Config\Account.ini"))
+
+ If Trim$(txtPassword.Text) <> vbNullString Then Check2.Value = Checked Else Check2.Value = Unchecked
+
+ fraLogin.Visible = True
+ txtName.SelStart = 0
+ txtName.SelLength = Len(txtName)
+
+' If Val(ReadINI("PLEIN_ECRAN", "actif", App.Path & "\Data.ini")) = 0 Then
+' chk_fullscreen.value = "0"
+' Else
+' chk_fullscreen.value = "1"
+' End If
+
+ 'If ReadINI("PLEIN_ECRAN", "actif", App.Path & "\Data.ini") = 1 Then
+ 'ChangeScreenSettings 640, 480, 16
+ 'End If
+ twippy = Screen.TwipsPerPixelY
+ twippx = Screen.TwipsPerPixelX
+
+ versionlbl.Caption = "Version: " & ReadINI("VERSION", "Version", (App.Path & "\Config\info.ini"))
+
+ Me.Icon = frmMirage.Icon
+
+ fraLogin.Visible = True
+
+ Call notebook_change
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+ Call GameDestroy
+End Sub
+
+Private Sub imgLogin_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+DragImg = 1
+DragX = x
+DragY = y
+End Sub
+
+Private Sub imgLogin_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+If DragImg = 1 Then fraLogin.Top = fraLogin.Top + ((y / twippy) - (DragY / twippy)): fraLogin.Left = fraLogin.Left + ((x / twippx) - (DragX / twippx))
+End Sub
+
+Private Sub imgLogin_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+DragImg = 0
+DragX = 0
+DragY = 0
+End Sub
+
+Private Sub imgNouveau_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+DragImg = 2
+DragX = x
+DragY = y
+End Sub
+
+Private Sub imgNouveau_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+If DragImg = 2 Then fraNewAccount.Top = fraNewAccount.Top + ((y / twippy) - (DragY / twippy)): fraNewAccount.Left = fraNewAccount.Left + ((x / twippx) - (DragX / twippx))
+End Sub
+
+Private Sub imgNouveau_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+DragImg = 0
+DragX = 0
+DragY = 0
+End Sub
+
+Private Sub imgPers_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+ DragImg = 3
+ DragX = x
+ DragY = y
+End Sub
+
+Private Sub imgPers_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+If DragImg = 3 Then fraPers.Top = fraPers.Top + ((y / twippy) - (DragY / twippy)): fraPers.Left = fraPers.Left + ((x / twippx) - (DragX / twippx))
+End Sub
+
+Private Sub imgPers_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+ DragImg = 0
+ DragX = 0
+ DragY = 0
+End Sub
+
+Private Sub Label1_Click()
+Dim Msg As String
+Dim i As Long
+
+ If Trim$(txtname2.Text) <> vbNullString And Trim$(txtpassword22.Text) <> vbNullString And Trim$(txtPassword2.Text) <> vbNullString Then
+ Msg = Trim$(txtname2.Text)
+
+ If Trim$(txtpassword22.Text) <> Trim$(txtPassword2.Text) Then MsgBox "Le mot de passe ne correspond pas!": Exit Sub
+
+ If Len(Trim$(txtname2.Text)) < 3 Or Len(Trim$(txtpassword22.Text)) < 3 Then MsgBox "Votre nom et mot de passe doit contenir plus de 3 caractères.": Exit Sub
+
+ ' Prevent high ascii chars
+ For i = 1 To Len(Msg)
+ If Asc(Mid$(Msg, i, 1)) < 32 Or Asc(Mid$(Msg, i, 1)) > 126 Then Call MsgBox("Vous ne pouvez pas utiliser des accents dans votre noms.", vbOKOnly, GAME_NAME): txtName.Text = vbNullString: Exit Sub
+ Next i
+
+ Call MenuState(MENU_STATE_NEWACCOUNT)
+ End If
+End Sub
+
+Private Sub Label2_Click()
+ fraLogin.Visible = True
+ fraNewAccount.Visible = False
+End Sub
+
+Private Sub lbl_creer_Click()
+ fraNewAccount.Visible = True
+ fraLogin.Visible = False
+End Sub
+
+Private Sub lstChars_Click()
+Dim i As Byte
+Dim Ending As String
+ charSelectNum = lstChars.ListIndex + 1
+ For i = 1 To 4
+ If i = 1 Then Ending = ".gif"
+ If i = 2 Then Ending = ".jpg"
+ If i = 3 Then Ending = ".png"
+ If i = 4 Then Ending = ".bmp"
+
+ If FileExiste("/GFX/Sprites/Sprites" & charSelect(charSelectNum).sprt & Ending) Then
+ PicChar.Picture = LoadPNG(App.Path & "/GFX/Sprites/Sprites" & charSelect(charSelectNum).sprt & Ending)
+ End If
+ Next i
+ PicChar.Height = PicChar.Height / 4
+ PicChar.Width = PicChar.Width / 4
+ If PicChar.Width > 960 Then
+ PicChar.Width = 960
+ End If
+ If PicChar.Height > 960 Then
+ PicChar.Height = 960
+ End If
+ If PicChar.Width > 480 Then
+ PicChar.Left = 840 - PicChar.Width + 480
+ Else
+ PicChar.Left = 840
+ End If
+
+ If charSelect(charSelectNum).name <> "" Then
+ lblCharNom.Caption = charSelect(charSelectNum).name
+ lblCharLvl.Caption = "Niv. " & charSelect(charSelectNum).level
+ lblCharClasse.Caption = charSelect(charSelectNum).classe
+ Else
+ lblCharNom.Caption = "Slot Libre"
+ lblCharLvl.Caption = ""
+ lblCharClasse.Caption = ""
+ End If
+End Sub
+
+Private Sub lstChars_DblClick()
+ Call picUseChar_Click
+End Sub
+
+Private Sub lstChars_KeyPress(KeyAscii As Integer)
+If KeyAscii = vbKeyReturn Then Call picUseChar_Click: KeyAscii = 0
+End Sub
+
+Private Sub picCancel_Click()
+ Dim i As Integer
+ For i = 1 To MAX_INV - 1
+ Unload frmMirage.picInv(i)
+ Next
+ Call TcpDestroy
+ fraLogin.Visible = True
+ fraPers.Visible = False
+End Sub
+
+Private Sub picConnect_Click()
+ If Trim$(txtName.Text) <> vbNullString And Trim$(txtPassword.Text) <> vbNullString Then
+ If Len(Trim$(txtName.Text)) < 3 Or Len(Trim$(txtPassword.Text)) < 3 Then MsgBox "Votre nom et votre mot de passe doivent contenir plus de 3 caractéres": Exit Sub
+ Call MenuState(MENU_STATE_LOGIN)
+ Call WriteINI("INFO", "Account", txtName.Text, (App.Path & "\Config\Account.ini"))
+ If Check2.Value = Checked Then Call WriteINI("INFO", "Password", txtPassword.Text, (App.Path & "\Config\Account.ini")) Else Call WriteINI("INFO", "Password", "", (App.Path & "\Config\Account.ini"))
+ End If
+End Sub
+
+Private Sub picDelChar_Click()
+Dim Value As Long
+
+ If lstChars.List(lstChars.ListIndex) = "Emplacement libre" Then MsgBox "Il n'y a pas de personnage à cette emplacement!": Exit Sub
+
+ Value = MsgBox("Es-tu certains de vouloir éffacer ce personnage?", vbYesNo, GAME_NAME)
+
+ If Value = vbYes Then Call MenuState(MENU_STATE_DELCHAR)
+End Sub
+
+Private Sub picNewChar_Click()
+ If lstChars.List(lstChars.ListIndex) <> "Emplacement libre" Then MsgBox "Il y a déjà un personnage à cette emplacement!": Exit Sub
+ Call SendData("PICVALUE" & SEP_CHAR & END_CHAR)
+ Call MenuState(MENU_STATE_NEWCHAR)
+End Sub
+
+Private Sub picQuit_Click()
+'Dim Pathy As String
+'Pathy = App.Path & "\config.ini"
+'ChangeScreenSettings ReadINI("CONFIG", "X", Pathy), ReadINI("CONFIG", "Y", Pathy), 32
+ Call GameDestroy
+End Sub
+
+Private Sub picUseChar_Click()
+ If lstChars.List(lstChars.ListIndex) = "Emplacement libre" Then MsgBox "Il n'y a pas de personnage à cette emplacement!": Exit Sub
+ Call SendData("PICVALUE" & SEP_CHAR & END_CHAR)
+ Call MenuState(MENU_STATE_USECHAR)
+End Sub
+
+Public Sub ChangeScreenSettings(lWidth As Integer, lHeight As Integer, lColors As Integer)
+Dim tDevMode As DEVMODE, lTemp As Long, lIndex As Long
+
+lIndex = 0
+
+Do
+ lTemp = EnumDisplaySettings(0&, lIndex, tDevMode)
+ If lTemp = 0 Then Exit Do
+ lIndex = lIndex + 1
+ With tDevMode
+ If .dmPelsWidth = lWidth And .dmPelsHeight = lHeight And .dmBitsPerPel = lColors Then lTemp = ChangeDisplaySettings(tDevMode, CDS_UPDATEREGISTRY): Exit Do
+ End With
+Loop
+
+End Sub
+
+Private Sub splash_Timer()
+frmsplash.Visible = False
+splash.Enabled = False
+End Sub
+
+Private Sub tmr2_Timer()
+If Val(ReadINI("PLEIN_ECRAN", "actif", App.Path & "\Data.ini")) = 0 Then
+ frmMirage.BorderStyle = 3
+ frmMirage.WindowState = 0
+ 'frmMirage.StartUpPosition = 1
+End If
+If Val(ReadINI("PLEIN_ECRAN", "actif", App.Path & "\Data.ini")) = 1 Then
+ frmMirage.BorderStyle = 0
+ frmMirage.WindowState = 2
+ 'frmMirage.StartUpPosition = 2
+End If
+End Sub
+
+Private Sub Tmrmusic_Timer()
+If frmMirage.Mediaplayer.Controls.currentPosition = 200 Then
+ If FileExiste("Music\mainmenu.mid") Then Call PlayMidi("mainmenu.mid") Else Call PlayMidi("mainmenu.mp3")
+End If
+If Me.Visible = False Then Tmrmusic.Enabled = False Else Tmrmusic.Enabled = True
+End Sub
+
+Private Sub tmrPicChar_Timer()
+Dim i As Byte
+Dim Ending As String
+ For i = 1 To 4
+ If i = 1 Then Ending = ".gif"
+ If i = 2 Then Ending = ".jpg"
+ If i = 3 Then Ending = ".png"
+ If i = 4 Then Ending = ".bmp"
+
+ If FileExiste("/GFX/Sprites/Sprites" & charSelect(charSelectNum).sprt & Ending) Then
+ PicChar.Picture = LoadPNG(App.Path & "/GFX/Sprites/Sprites" & charSelect(charSelectNum).sprt & Ending)
+ End If
+ Next i
+ PicChar.Height = PicChar.Height / 4
+ PicChar.Width = PicChar.Width / 4
+ If PicChar.Width > 960 Then
+ PicChar.Width = 960
+ End If
+ If PicChar.Height > 960 Then
+ PicChar.Height = 960
+ End If
+ If PicChar.Width > 480 Then
+ PicChar.Left = 840 - PicChar.Width + 480
+ Else
+ PicChar.Left = 840
+ End If
+End Sub
+
+Private Sub txtName_GotFocus()
+txtName.SelStart = 0
+txtName.SelLength = Len(txtName)
+End Sub
+
+Private Sub txtName_KeyPress(KeyAscii As Integer)
+If KeyAscii = vbKeyReturn Then KeyAscii = 0: Call picConnect_Click
+End Sub
+
+Private Sub txtname2_GotFocus()
+txtname2.SelStart = 0
+txtname2.SelLength = Len(txtname2)
+End Sub
+
+Private Sub txtPassword_GotFocus()
+txtPassword.SelStart = 0
+txtPassword.SelLength = Len(txtPassword)
+End Sub
+
+Private Sub txtPassword_KeyPress(KeyAscii As Integer)
+If KeyAscii = vbKeyReturn Then KeyAscii = 0: Call picConnect_Click
+End Sub
+
+Private Sub txtPassword2_GotFocus()
+txtPassword2.SelStart = 0
+txtPassword2.SelLength = Len(txtPassword2)
+End Sub
+
+Private Sub txtpassword22_GotFocus()
+txtpassword22.SelStart = 0
+txtpassword22.SelLength = Len(txtpassword22)
+End Sub
View
BIN  Client/Forms Sources/frmMainMenu.frx
Binary file not shown
View
42 Client/Forms Sources/frmMapReport.frm
@@ -0,0 +1,42 @@
+VERSION 5.00
+Begin VB.Form frmMapReport
+ BorderStyle = 1 'Fixed Single
+ Caption = "Rapport de la Map"
+ ClientHeight = 4230
+ ClientLeft = 45
+ ClientTop = 435
+ ClientWidth = 5175
+ Icon = "frmMapReport.frx":0000
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ ScaleHeight = 4230
+ ScaleWidth = 5175
+ StartUpPosition = 3 'Windows Default
+ Begin VB.ListBox lstIndex
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 6.75
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 4020
+ ItemData = "frmMapReport.frx":17D2A
+ Left = 120
+ List = "frmMapReport.frx":17D31
+ TabIndex = 0
+ Top = 120
+ Width = 4935
+ End
+End
+Attribute VB_Name = "frmMapReport"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub lstIndex_DblClick()
+ Call SendData("WARPTO" & SEP_CHAR & lstIndex.ListIndex + 1 & SEP_CHAR & END_CHAR)
+End Sub
View
BIN  Client/Forms Sources/frmMapReport.frx
Binary file not shown
View
107 Client/Forms Sources/frmMariage.frm
@@ -0,0 +1,107 @@
+VERSION 5.00
+Begin VB.Form frmMariage
+ Caption = "Mariage"
+ ClientHeight = 4245
+ ClientLeft = 60
+ ClientTop = 450
+ ClientWidth = 7920
+ LinkTopic = "Form1"
+ ScaleHeight = 4245
+ ScaleWidth = 7920
+ StartUpPosition = 3 'Windows Default
+ Begin VB.CommandButton Command1
+ Caption = "Je le veux"
+ Height = 375
+ Left = 4920
+ TabIndex = 5
+ Top = 3600
+ Width = 2055
+ End
+ Begin VB.TextBox Text2
+ Appearance = 0 'Flat
+ Height = 375
+ Left = 4200
+ TabIndex = 1
+ Top = 3000
+ Width = 2775
+ End
+ Begin VB.TextBox Text1
+ Appearance = 0 'Flat
+ Height = 375
+ Left = 840
+ TabIndex = 0
+ Top = 3000
+ Width = 2655
+ End
+ Begin VB.Label Label3
+ BackStyle = 0 'Transparent
+ Caption = "Configurez votre texte de mariage dans mariage.ini"
+ BeginProperty Font
+ Name = "Palatino Linotype"
+ Size = 11.25
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = -1 'True
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 2295
+ Left = 840
+ TabIndex = 4
+ Top = 240
+ Width = 6255
+ End
+ Begin VB.Label Label2
+ BackStyle = 0 'Transparent
+ Caption = "Nom de la femme :"
+ BeginProperty Font
+ Name = "Palatino Linotype"
+ Size = 9.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = -1 'True
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 255
+ Left = 4200
+ TabIndex = 3
+ Top = 2760
+ Width = 2055
+ End
+ Begin VB.Label Label1
+ BackStyle = 0 'Transparent
+ Caption = "Nom du mari :"
+ BeginProperty Font
+ Name = "Palatino Linotype"
+ Size = 9.75
+ Charset = 0
+ Weight = 700
+ Underline = 0 'False
+ Italic = -1 'True
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 255
+ Left = 840
+ TabIndex = 2
+ Top = 2760
+ Width = 1815
+ End
+End
+Attribute VB_Name = "frmMariage"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub Command1_Click()
+
+txtMari = Text1.Text
+txtFemme = Text2.Text
+
+Packet = "MARIER" & SEP_CHAR & txtMari & SEP_CHAR & txtFemme & SEP_CHAR & END_CHAR
+Call SendData(Packet)
+End Sub
+
+Private Sub Form_Load()
+Label3.Caption = ReadINI("INTRODUCTION", "texte", App.Path & "\mariage.ini")
+End Sub
View
5,903 Client/Forms Sources/frmMirage.frm
5,903 additions, 0 deletions not shown
View
BIN  Client/Forms Sources/frmMirage.frx
Binary file not shown
View
1  Client/Forms Sources/frmMirage.log
@@ -0,0 +1 @@
+Line 1844: Class MSWinsockLib.Winsock of control Socket was not a loaded control class.
View
595 Client/Forms Sources/frmNewChar.frm
@@ -0,0 +1,595 @@
+VERSION 5.00
+Begin VB.Form frmNewChar
+ BackColor = &H00008000&
+ BorderStyle = 0 'None
+ Caption = "Nouveau Personnage"
+ ClientHeight = 3975
+ ClientLeft = 90
+ ClientTop = -60
+ ClientWidth = 3390
+ ClipControls = 0 'False
+ ControlBox = 0 'False
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ Picture = "frmNewChar.frx":0000
+ ScaleHeight = 265
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 226
+ StartUpPosition = 1 'CenterOwner
+ Begin VB.PictureBox Picture4
+ Appearance = 0 'Flat
+ BackColor = &H80000005&
+ ForeColor = &H80000008&
+ Height = 555
+ Left = 2520
+ ScaleHeight = 35
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 35
+ TabIndex = 20
+ Top = 2400
+ Width = 555
+ Begin VB.PictureBox Picpic
+ Appearance = 0 'Flat
+ AutoRedraw = -1 'True
+ BackColor = &H80000005&
+ ForeColor = &H80000008&
+ Height = 495
+ Left = 15
+ ScaleHeight = 31
+ ScaleMode = 3 'Pixel
+ ScaleWidth = 31
+ TabIndex = 21
+ Top = 15
+ Width = 495
+ End
+ End
+ Begin VB.OptionButton optFemale
+ BackColor = &H0080FF80&
+ Caption = "Femme"
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty
+ Height = 195
+ Left = 2760
+ MaskColor = &H00FFFFFF&
+ TabIndex = 13
+ Top = 1080
+ UseMaskColor = -1 'True
+ Width = 255
+ End
+ Begin VB.OptionButton optMale
+ BackColor = &H0080FF80&
+ Caption = "Homme"
+ BeginProperty Font
+ Name = "Tahoma"
+ Size = 8.25
+ Charset = 0
+ Weight = 400
+ Underline = 0 'False
+ Italic = 0 'False
+ Strikethrough = 0 'False
+ EndProperty