Show GameIni.bas syntax highlighted
Attribute VB_Name = "GameIni"
'Argentum Online 0.11.6
'
'Copyright (C) 2002 Márquez Pablo Ignacio
'Copyright (C) 2002 Otto Perez
'Copyright (C) 2002 Aaron Perkins
'Copyright (C) 2002 Matías Fernando Pequeño
'
'This program is free software; you can redistribute it and/or modify
'it under the terms of the Affero General Public License;
'either version 1 of the License, or any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'Affero General Public License for more details.
'
'You should have received a copy of the Affero General Public License
'along with this program; if not, you can find it at http://www.affero.org/oagpl.html
'
'Argentum Online is based on Baronsoft's VB6 Online RPG
'You can contact the original creator of ORE at aaron@baronsoft.com
'for more information about ORE please visit http://www.baronsoft.com/
'
'
'You can contact me at:
'morgolock@speedy.com.ar
'www.geocities.com/gmorgolock
'Calle 3 número 983 piso 7 dto A
'La Plata - Pcia, Buenos Aires - Republica Argentina
'Código Postal 1900
'Pablo Ignacio Márquez
Option Explicit
Public Type tCabecera 'Cabecera de los con
desc As String * 255
CRC As Long
MagicWord As Long
End Type
Public Type tGameIni
Puerto As Long
Musica As Byte
fX As Byte
tip As Byte
Password As String
Name As String
DirGraficos As String
DirSonidos As String
DirMusica As String
DirMapas As String
NumeroDeBMPs As Long
NumeroMapas As Integer
End Type
Public Type tSetupMods
bDinamic As Boolean
byMemory As Byte
bUseVideo As Boolean
bNoMusic As Boolean
bNoSound As Boolean
bNoRes As Boolean ' 24/06/2006 - ^[GS]^
End Type
Public ClientSetup As tSetupMods
Public MiCabecera As tCabecera
Public Config_Inicio As tGameIni
Public Sub IniciarCabecera(ByRef Cabecera As tCabecera)
Cabecera.desc = "Argentum Online by Noland Studios. Copyright Noland-Studios 2001, pablomarquez@noland-studios.com.ar"
Cabecera.CRC = Rnd * 100
Cabecera.MagicWord = Rnd * 10
End Sub
Public Function LeerGameIni() As tGameIni
Dim N As Integer
Dim GameIni As tGameIni
N = FreeFile
Open App.Path & "\init\Inicio.con" For Binary As #N
Get #N, , MiCabecera
Get #N, , GameIni
Close #N
LeerGameIni = GameIni
End Function
Public Sub EscribirGameIni(ByRef GameIniConfiguration As tGameIni)
On Local Error Resume Next
Dim N As Integer
N = FreeFile
Open App.Path & "\init\Inicio.con" For Binary As #N
Put #N, , MiCabecera
Put #N, , GameIniConfiguration
Close #N
End Sub
See more files for this project here
AoReady is an Argentum Online Mod. With this tool you can create your servers in a few minutes.\nIt includes all ArgentumOnline features and more!
Project homepage:
http://sourceforge.net/projects/ao-ready
Programming language(s): Visual Basic
License: gpl2
APIdeclaraciones.bas
Carteles.bas
DX_InIt.bas
Declares.bas
FRMTIP.FRX
FrmEstadisticas.frm
GameIni.bas
General.bas
MODOS_DE_VIDEO.bas
MainTimer.cls
ModAreas.bas
Mod_ErrorLOG.bas
PrevInstance.bas
Protocol.bas
ProtocolCmdParse.bas
TCP.bas
TileEngine.bas
cDIBSection.cls
clsAudio.cls
clsByteQueue.cls
clsCustomMessages.cls
clsDialogs.cls
clsGrapchicalInventory.cls
clsGuildDlg.cls
clsSurfaceManDyn.cls
clsSurfaceManStatic.cls
clsSurfaceManager.cls
frmBancoObj.frm
frmBorrar.frx
frmCambiaMotd.frm
frmCantidad.frm
frmCantidad.frx
frmCargando.frm
frmCargando.frx
frmCarp.frm
frmCarp.frx
frmCharInfo.frm
frmCharInfo.frx
frmComerciar.frm
frmComerciar.frx
frmComerciarUsu.frm
frmCommet.frm
frmCommet.frx
frmConnect.frm
frmConnect.frx
frmCrearPersonaje.frm
frmCrearPersonaje.frx
frmEligeAlineacion.frm
frmEligeAlineacion.frx
frmEntrenador.frm
frmEntrenador.frx
frmEstadisticas.frx
frmForo.frm
frmForo.frx
frmGuildAdm.frm
frmGuildAdm.frx
frmGuildBrief.frm
frmGuildBrief.frx
frmGuildDetails.frm
frmGuildDetails.frx
frmGuildFoundation.frm
frmGuildFoundation.frx
frmGuildLeader.frm
frmGuildLeader.frx
frmGuildNews.frm
frmGuildNews.frx
frmGuildURL.frm
frmGuildURL.frx
frmHerrero.frm
frmHerrero.frx
frmKeypad.frm
frmKeypad.frx
frmMSG.frm
frmMSG.frx
frmMain.frm
frmMain.frx
frmMensaje.frm
frmMensaje.frx
frmMessageTxt.frm
frmOldPersonaje.frm
frmOldPersonaje.frx
frmOpciones.frm
frmOpciones.frx
frmPanelGm.frm
frmPasswd.frm
frmPasswd.frx
frmPeaceProp.frm
frmPeaceProp.frx
frmPres.frm
frmRecuperar.frx
frmScreenshots.frm
frmSkills3.frm
frmSolicitud.frm
frmSolicitud.frx
frmSpawnList.frm
frmSpawnList.frx
frmUserRequest.frm
frmtip.frm
modHexaStrings.bas
modScreenCapture.bas