diff --git a/Codigo/AI_NPC.bas b/Codigo/AI_NPC.bas
index 087b7d53..99044837 100644
--- a/Codigo/AI_NPC.bas
+++ b/Codigo/AI_NPC.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "AI"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/AO20CryptoSysWrapper.bas b/Codigo/AO20CryptoSysWrapper.bas
index 7a1f2382..06c15025 100644
--- a/Codigo/AO20CryptoSysWrapper.bas
+++ b/Codigo/AO20CryptoSysWrapper.bas
@@ -1,20 +1,30 @@
Attribute VB_Name = "AO20CryptoSysWrapper"
-' Cryptography module to talk with the Login server.
+' Argentum 20 Game Server
'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-' @authors
-' Martin Trionfetti
-' Pablo Marquez - morgolock2002@yahoo.com.ar
'
-' @version 6.20.0
'
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
Option Explicit
Public base64_chars(1 To 65) As String
diff --git a/Codigo/Acciones.bas b/Codigo/Acciones.bas
index 8d4d54ad..445a5212 100644
--- a/Codigo/Acciones.bas
+++ b/Codigo/Acciones.bas
@@ -1,40 +1,30 @@
Attribute VB_Name = "Acciones"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/Admin.bas b/Codigo/Admin.bas
index e4ca3900..56938854 100644
--- a/Codigo/Admin.bas
+++ b/Codigo/Admin.bas
@@ -1,40 +1,30 @@
Attribute VB_Name = "Admin"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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 AdministratorAccounts As Dictionary
diff --git a/Codigo/ApplyEffectOnHit.cls b/Codigo/ApplyEffectOnHit.cls
index fe72f6c9..3971ff8f 100644
--- a/Codigo/ApplyEffectOnHit.cls
+++ b/Codigo/ApplyEffectOnHit.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/ApplyEffectOnParty.cls b/Codigo/ApplyEffectOnParty.cls
index 113bd1fc..9f6c808c 100644
--- a/Codigo/ApplyEffectOnParty.cls
+++ b/Codigo/ApplyEffectOnParty.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/CharacterPersistence.bas b/Codigo/CharacterPersistence.bas
index da300583..2fe5a97b 100644
--- a/Codigo/CharacterPersistence.bas
+++ b/Codigo/CharacterPersistence.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "CharacterPersistence"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Option Base 0
@@ -58,7 +84,7 @@ Public Function LoadCharacterBank(ByVal UserIndex As Integer) As Boolean
Exit Function
LoadCharacterInventory_Err:
- Call LogDatabaseError("Error en LoadCharacterFromDB LoadCharacterBank: " & UserList(UserIndex).name & ". " & Err.Number & " - " & Err.Description & ". Línea: " & Erl)
+ Call LogDatabaseError("Error en LoadCharacterFromDB LoadCharacterBank: " & UserList(UserIndex).Name & ". " & Err.Number & " - " & Err.Description & ". Línea: " & Erl)
End Function
Public Function LoadCharacterInventory(ByVal UserIndex As Integer) As Boolean
@@ -94,7 +120,7 @@ Public Function LoadCharacterInventory(ByVal UserIndex As Integer) As Boolean
Exit Function
LoadCharacterInventory_Err:
- Call LogDatabaseError("Error en LoadCharacterFromDB LoadCharacterInventory: " & UserList(UserIndex).name & ". " & Err.Number & " - " & Err.Description & ". Línea: " & Erl)
+ Call LogDatabaseError("Error en LoadCharacterFromDB LoadCharacterInventory: " & UserList(UserIndex).Name & ". " & Err.Number & " - " & Err.Description & ". Línea: " & Erl)
End Function
Public Function LoadCharacterFromDB(ByVal userIndex As Integer) As Boolean
@@ -383,7 +409,7 @@ Public Function LoadCharacterFromDB(ByVal userIndex As Integer) As Boolean
Exit Function
ErrorHandler:
-478 Call LogDatabaseError("Error en LoadCharacterFromDB: " & UserList(UserIndex).name & ". " & Err.Number & " - " & Err.Description & ". Línea: " & Erl)
+478 Call LogDatabaseError("Error en LoadCharacterFromDB: " & UserList(UserIndex).Name & ". " & Err.Number & " - " & Err.Description & ". Línea: " & Erl)
End Function
diff --git a/Codigo/Comercio.bas b/Codigo/Comercio.bas
index 65a96cc6..65872576 100644
--- a/Codigo/Comercio.bas
+++ b/Codigo/Comercio.bas
@@ -1,33 +1,30 @@
Attribute VB_Name = "modSistemaComercio"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-''*****************************************************
-'Sistema de Comercio para Argentum Online
-'Programado por Nacho (Integer)
-'integer-x@hotmail.com
-'*****************************************************
-
-'**************************************************************************
-'This program is free software; you can redistribute it and/or modify
-'it under the terms of the GNU General Public License as published by
-'the Free Software Foundation; either version 2 of the License, or
-'(at your option) 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
-'GNU General Public License for more details.
'
-'You should have received a copy of the GNU General Public License
-'along with this program; if not, write to the Free Software
-'Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-'**************************************************************************
Option Explicit
diff --git a/Codigo/CustomScenarios.bas b/Codigo/CustomScenarios.bas
index 1d08a97a..fcc92384 100644
--- a/Codigo/CustomScenarios.bas
+++ b/Codigo/CustomScenarios.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "CustomScenarios"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Public Enum e_DamageSourceType
diff --git a/Codigo/DatabaseGlobals.bas b/Codigo/DatabaseGlobals.bas
index 0714a01f..aefee45a 100644
--- a/Codigo/DatabaseGlobals.bas
+++ b/Codigo/DatabaseGlobals.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "DatabaseGlobals"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Option Base 0
diff --git a/Codigo/Database_Queries.bas b/Codigo/Database_Queries.bas
index e9b2c700..ab470ea0 100644
--- a/Codigo/Database_Queries.bas
+++ b/Codigo/Database_Queries.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "Database_Queries"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/Declares.bas b/Codigo/Declares.bas
index e97ece84..4e359e83 100644
--- a/Codigo/Declares.bas
+++ b/Codigo/Declares.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "Declaraciones"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
@@ -1957,7 +1948,7 @@ Public Type t_UserFlags
AdministrativeBan As Byte
BanMotivo As String
- targetUser As t_UserReference ' Usuario señalado
+ TargetUser As t_UserReference ' Usuario señalado
TargetObj As Integer ' Obj señalado
TargetObjMap As Integer
diff --git a/Codigo/DrunkEffect.cls b/Codigo/DrunkEffect.cls
index 0e96b5d0..41927937 100644
--- a/Codigo/DrunkEffect.cls
+++ b/Codigo/DrunkEffect.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectOverTime/AttrackEffect.cls b/Codigo/EffectOverTime/AttrackEffect.cls
index 5830f634..d2ec2458 100644
--- a/Codigo/EffectOverTime/AttrackEffect.cls
+++ b/Codigo/EffectOverTime/AttrackEffect.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectOverTime/BonusDamageEffect.cls b/Codigo/EffectOverTime/BonusDamageEffect.cls
index 6f864c12..e6218bcd 100644
--- a/Codigo/EffectOverTime/BonusDamageEffect.cls
+++ b/Codigo/EffectOverTime/BonusDamageEffect.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectOverTime/DelayedBlast.cls b/Codigo/EffectOverTime/DelayedBlast.cls
index e38ac0cc..112f1251 100644
--- a/Codigo/EffectOverTime/DelayedBlast.cls
+++ b/Codigo/EffectOverTime/DelayedBlast.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectOverTime/MultipleAttacks.cls b/Codigo/EffectOverTime/MultipleAttacks.cls
index e20d831c..92316206 100644
--- a/Codigo/EffectOverTime/MultipleAttacks.cls
+++ b/Codigo/EffectOverTime/MultipleAttacks.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectOverTime/ProtectEffect.cls b/Codigo/EffectOverTime/ProtectEffect.cls
index aae45dae..7b15d6bd 100644
--- a/Codigo/EffectOverTime/ProtectEffect.cls
+++ b/Codigo/EffectOverTime/ProtectEffect.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectOverTime/TransformEffect.cls b/Codigo/EffectOverTime/TransformEffect.cls
index c68bdade..287665e9 100644
--- a/Codigo/EffectOverTime/TransformEffect.cls
+++ b/Codigo/EffectOverTime/TransformEffect.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectOverTime/UnequipItem.cls b/Codigo/EffectOverTime/UnequipItem.cls
index fe204443..8b7d0dc7 100644
--- a/Codigo/EffectOverTime/UnequipItem.cls
+++ b/Codigo/EffectOverTime/UnequipItem.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectProvoke.cls b/Codigo/EffectProvoke.cls
index 427ab84f..858a2ee8 100644
--- a/Codigo/EffectProvoke.cls
+++ b/Codigo/EffectProvoke.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectProvoked.cls b/Codigo/EffectProvoked.cls
index 35868371..a7f7ae7e 100644
--- a/Codigo/EffectProvoked.cls
+++ b/Codigo/EffectProvoked.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/EffectsOverTime.bas b/Codigo/EffectsOverTime.bas
index e19c3fa0..ff9e47fd 100644
--- a/Codigo/EffectsOverTime.bas
+++ b/Codigo/EffectsOverTime.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "EffectsOverTime"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Private LastUpdateTime As Long
diff --git a/Codigo/EventNpcDefinition.cls b/Codigo/EventNpcDefinition.cls
index 98454d1b..1afad70c 100644
--- a/Codigo/EventNpcDefinition.cls
+++ b/Codigo/EventNpcDefinition.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Public NpcId As Integer
Public SpawnCount As Integer
Public Score As Integer
diff --git a/Codigo/FileIO.bas b/Codigo/FileIO.bas
index 6d301746..8e1f51e1 100644
--- a/Codigo/FileIO.bas
+++ b/Codigo/FileIO.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "ES"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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 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/
-'MinHIT
'
-'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
@@ -2064,7 +2055,7 @@ Public Sub CargarMapaFormatoCSM(ByVal map As Long, ByVal MAPFl As String)
End If
Else
' Lo guardo en los logs + aparece en el Debug.Print
-310 Call TraceError(404, "NPC no existe en los .DAT's o está mal dateado. Posicion: " & Map & "-" & NPCs(i).x & "-" & NPCs(i).y, "ES.CargarMapaFormatoCSM")
+310 Call TraceError(404, "NPC no existe en los .DAT's o está mal dateado. Posicion: " & Map & "-" & NPCs(i).X & "-" & NPCs(i).Y, "ES.CargarMapaFormatoCSM")
End If
End If
312 Next i
diff --git a/Codigo/FrmInterv.frm b/Codigo/FrmInterv.frm
index 32bab318..31d914cd 100644
--- a/Codigo/FrmInterv.frm
+++ b/Codigo/FrmInterv.frm
@@ -779,33 +779,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/FrmStat.frm b/Codigo/FrmStat.frm
index eff9fec2..b97a9581 100644
--- a/Codigo/FrmStat.frm
+++ b/Codigo/FrmStat.frm
@@ -54,33 +54,31 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/GameLogic.bas b/Codigo/GameLogic.bas
index 53aa2889..838d18b9 100644
--- a/Codigo/GameLogic.bas
+++ b/Codigo/GameLogic.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "Extra"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/General.bas b/Codigo/General.bas
index 7da3516e..eb5e8a24 100644
--- a/Codigo/General.bas
+++ b/Codigo/General.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "General"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/Hogar.bas b/Codigo/Hogar.bas
index 932928db..da8e7276 100644
--- a/Codigo/Hogar.bas
+++ b/Codigo/Hogar.bas
@@ -1,26 +1,39 @@
Attribute VB_Name = "Hogar"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Option Explicit
-'Cantidad de Ciudades
Public Const NUMCIUDADES As Byte = 6
Public Ciudades(1 To NUMCIUDADES) As t_WorldPos
Public Sub goHome(ByVal UserIndex As Integer)
- '***************************************************
- 'Author: Budi
- 'Last Modification: 01/06/2010
- '01/06/2010: ZaMa - Ahora usa otro tipo de intervalo
- '***************************************************
-
+
On Error GoTo goHome_Err
100 With UserList(UserIndex)
diff --git a/Codigo/IBaseEffectOverTime.cls b/Codigo/IBaseEffectOverTime.cls
index da603346..53006dc3 100644
--- a/Codigo/IBaseEffectOverTime.cls
+++ b/Codigo/IBaseEffectOverTime.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Public Property Get CasterIsValid() As Boolean
diff --git a/Codigo/IBaseScenario.cls b/Codigo/IBaseScenario.cls
index bc5b64a3..d273996c 100644
--- a/Codigo/IBaseScenario.cls
+++ b/Codigo/IBaseScenario.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Public Function GetScenarioName() As String
diff --git a/Codigo/Instrumentation.cls b/Codigo/Instrumentation.cls
index cfdd4f7d..c0f3abd5 100644
--- a/Codigo/Instrumentation.cls
+++ b/Codigo/Instrumentation.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
diff --git a/Codigo/InvUsuario.bas b/Codigo/InvUsuario.bas
index acc21c1b..81aa56b6 100644
--- a/Codigo/InvUsuario.bas
+++ b/Codigo/InvUsuario.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "InvUsuario"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
@@ -346,7 +337,7 @@ Sub TirarOro(ByVal Cantidad As Long, ByVal UserIndex As Integer)
' GM's (excepto Dioses y Admins) no pueden tirar oro
102 If (.flags.Privilegios And (e_PlayerType.user Or e_PlayerType.Admin Or e_PlayerType.Dios)) = 0 Then
-104 Call LogGM(.name, " trató de tirar " & PonerPuntos(Cantidad) & " de oro en " & .Pos.map & "-" & .Pos.X & "-" & .Pos.y)
+104 Call LogGM(.Name, " trató de tirar " & PonerPuntos(Cantidad) & " de oro en " & .Pos.Map & "-" & .Pos.X & "-" & .Pos.Y)
Exit Sub
End If
@@ -773,7 +764,7 @@ Sub PickObj(ByVal UserIndex As Integer)
124 If BusquedaTesoroActiva Then
126 If UserList(UserIndex).Pos.Map = TesoroNumMapa And UserList(UserIndex).Pos.X = TesoroX And UserList(UserIndex).Pos.Y = TesoroY Then
-128 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> " & UserList(UserIndex).name & " encontro el tesoro ¡Felicitaciones!", e_FontTypeNames.FONTTYPE_TALK))
+128 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> " & UserList(UserIndex).Name & " encontro el tesoro ¡Felicitaciones!", e_FontTypeNames.FONTTYPE_TALK))
130 BusquedaTesoroActiva = False
End If
@@ -782,7 +773,7 @@ Sub PickObj(ByVal UserIndex As Integer)
132 If BusquedaRegaloActiva Then
134 If UserList(UserIndex).Pos.Map = RegaloNumMapa And UserList(UserIndex).Pos.X = RegaloX And UserList(UserIndex).Pos.Y = RegaloY Then
-136 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> " & UserList(UserIndex).name & " fue el valiente que encontro el gran item magico ¡Felicitaciones!", e_FontTypeNames.FONTTYPE_TALK))
+136 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> " & UserList(UserIndex).Name & " fue el valiente que encontro el gran item magico ¡Felicitaciones!", e_FontTypeNames.FONTTYPE_TALK))
138 BusquedaRegaloActiva = False
End If
@@ -995,8 +986,8 @@ Sub Desequipar(ByVal UserIndex As Integer, ByVal Slot As Byte)
322 Case e_OBJType.otDañoMagico
324 UserList(UserIndex).Invent.Object(Slot).Equipped = 0
-326 UserList(UserIndex).Invent.DañoMagicoEqpObjIndex = 0
-328 UserList(UserIndex).Invent.DañoMagicoEqpSlot = 0
+326 UserList(UserIndex).invent.DañoMagicoEqpObjIndex = 0
+328 UserList(UserIndex).invent.DañoMagicoEqpSlot = 0
330 UserList(UserIndex).Char.DM_Aura = 0
332 Call SendData(SendTarget.toPCAliveArea, UserIndex, PrepareMessageAuraToChar(UserList(UserIndex).Char.charindex, 0, True, 6))
334 Call WriteUpdateDM(UserIndex)
@@ -3459,7 +3450,7 @@ On Error GoTo ResurrectWithItem_Err
106 CanHelpResult = UserMod.CanHelpUser(UserIndex, targetUser)
If UserList(TargetUser).flags.SeguroResu Then
Call WriteConsoleMsg(UserIndex, "El usuario tiene el seguro de resurrección activado.", e_FontTypeNames.FONTTYPE_INFO)
- Call WriteConsoleMsg(TargetUser, UserList(UserIndex).name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO)
+ Call WriteConsoleMsg(TargetUser, UserList(UserIndex).Name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
If CanHelpResult <> eInteractionOk Then
diff --git a/Codigo/JSON.bas b/Codigo/JSON.bas
index a5ea682e..7bb4be77 100644
--- a/Codigo/JSON.bas
+++ b/Codigo/JSON.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "mod_JSON"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
' VBJSONDeserializer is a VB6 adaptation of the VB-JSON project @
' Fuente: https://www.codeproject.com/Articles/720368/VB-JSON-Parser-Improved-Performance
diff --git a/Codigo/LocaleDef.bas b/Codigo/LocaleDef.bas
index 55223e86..a3c5fe82 100644
--- a/Codigo/LocaleDef.bas
+++ b/Codigo/LocaleDef.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "LocaleDef"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Public Const MsgToFarToAttack = 8
Public Const MsgYouAreDeathAndCantAttack = 77
Public Const MsgToTired = 93
diff --git a/Codigo/Logging.bas b/Codigo/Logging.bas
index 8cab371e..fca28175 100644
--- a/Codigo/Logging.bas
+++ b/Codigo/Logging.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "Logging"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/MODULO_NPCs.bas b/Codigo/MODULO_NPCs.bas
index a6c15f19..ccfea1c0 100644
--- a/Codigo/MODULO_NPCs.bas
+++ b/Codigo/MODULO_NPCs.bas
@@ -1,26 +1,30 @@
Attribute VB_Name = "NPCs"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-' Modulo NPC
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-'Contiene todas las rutinas necesarias para cotrolar los
-'NPCs meno la rutina de AI que se encuentra en el modulo
-'AI_NPCs para su mejor comprension.
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
-
Public Const MaxRespawn As Integer = 255
Public Const NpcIndexHeapSize As Integer = 10000
@@ -255,7 +259,7 @@ Sub MuereNpc(ByVal NpcIndex As Integer, ByVal UserIndex As Integer)
188 Call WriteConsoleMsg(UserIndex, MiNPC.Name & " matados/as: " & .NPCsKilled(j) & " de " & QuestList(.QuestIndex).RequiredNPC(j).amount, e_FontTypeNames.FONTTYPE_INFOIAO)
190 Call WriteChatOverHead(UserIndex, "NOCONSOLA*" & .NPCsKilled(j) & "/" & QuestList(.QuestIndex).RequiredNPC(j).amount & " " & MiNPC.Name, UserList(UserIndex).Char.CharIndex, RGB(180, 180, 180))
Else
-192 Call WriteConsoleMsg(UserIndex, "Ya has matado todos los " & MiNPC.name & " que la misión " & QuestList(.QuestIndex).nombre & " requería. Revisa si ya estás listo para recibir la recompensa.", e_FontTypeNames.FONTTYPE_INFOIAO)
+192 Call WriteConsoleMsg(UserIndex, "Ya has matado todos los " & MiNPC.Name & " que la misión " & QuestList(.QuestIndex).nombre & " requería. Revisa si ya estás listo para recibir la recompensa.", e_FontTypeNames.FONTTYPE_INFOIAO)
194 Call WriteChatOverHead(UserIndex, "NOCONSOLA*" & QuestList(.QuestIndex).RequiredNPC(j).amount & "/" & QuestList(.QuestIndex).RequiredNPC(j).amount & " " & MiNPC.Name, UserList(UserIndex).Char.CharIndex, RGB(180, 180, 180))
End If
End If
@@ -1080,7 +1084,7 @@ Function SpawnNpc(ByVal NpcIndex As Integer, Pos As t_WorldPos, ByVal FX As Bool
End If
142 If Avisar Then
-144 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(NpcList(nIndex).name & " ha aparecido en " & get_map_name(Map) & " , todo indica que puede tener una gran recompensa para el que logre sobrevivir a él.", e_FontTypeNames.FONTTYPE_CITIZEN))
+144 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(NpcList(nIndex).Name & " ha aparecido en " & get_map_name(Map) & " , todo indica que puede tener una gran recompensa para el que logre sobrevivir a él.", e_FontTypeNames.FONTTYPE_CITIZEN))
End If
146 SpawnNpc = nIndex
diff --git a/Codigo/Matematicas.bas b/Codigo/Matematicas.bas
index f91d06d1..ecb59184 100644
--- a/Codigo/Matematicas.bas
+++ b/Codigo/Matematicas.bas
@@ -1,39 +1,31 @@
Attribute VB_Name = "Matematicas"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
'
-'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/
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
'
+' 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
Const PI As Double = 3.14159265
diff --git a/Codigo/ModAreas.bas b/Codigo/ModAreas.bas
index 9fa169e2..dd7c08e4 100644
--- a/Codigo/ModAreas.bas
+++ b/Codigo/ModAreas.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "ModAreas"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Option Explicit
diff --git a/Codigo/ModCaptura.bas b/Codigo/ModCaptura.bas
index 82b8781f..838105f3 100644
--- a/Codigo/ModCaptura.bas
+++ b/Codigo/ModCaptura.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "ModCaptura"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
diff --git a/Codigo/ModClimas.bas b/Codigo/ModClimas.bas
index e7081c36..61d47862 100644
--- a/Codigo/ModClimas.bas
+++ b/Codigo/ModClimas.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "ModClimas"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Public IntensidadDeNubes As Byte
diff --git a/Codigo/ModCola.cls b/Codigo/ModCola.cls
index c5f6d14f..c58306ea 100644
--- a/Codigo/ModCola.cls
+++ b/Codigo/ModCola.cls
@@ -11,33 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
' Metodos publicos
@@ -240,7 +239,7 @@ Public Function Existe(ByVal nombre As String) As Boolean
100 NombreEnMayusculas = UCase$(nombre)
102 For i = 1 To Me.Longitud
-104 V = UCase$(ReadField(1, Me.VerElemento(i), Asc("Ø")))
+104 v = UCase$(ReadField(1, Me.VerElemento(i), Asc("Ø")))
106 If V = NombreEnMayusculas Then
108 Existe = True
Exit Function
diff --git a/Codigo/ModEmail.bas b/Codigo/ModEmail.bas
index d121b7e4..2c351a1d 100644
--- a/Codigo/ModEmail.bas
+++ b/Codigo/ModEmail.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModCuentas"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/ModEventos.bas b/Codigo/ModEventos.bas
index 2316d839..0920c781 100644
--- a/Codigo/ModEventos.bas
+++ b/Codigo/ModEventos.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "ModEventos"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Public HoraEvento As Byte
diff --git a/Codigo/ModFacciones.bas b/Codigo/ModFacciones.bas
index c9562874..6fb6fde5 100644
--- a/Codigo/ModFacciones.bas
+++ b/Codigo/ModFacciones.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "ModFacciones"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Option Explicit
@@ -30,7 +49,7 @@ Public Sub EnlistarArmadaReal(ByVal UserIndex As Integer)
End If
112 If status(UserIndex) = e_Facciones.Criminal Then
-114 Call WriteChatOverHead(UserIndex, "No se permiten criminales en el Ejército Real.", charindexstr, vbWhite)
+114 Call WriteChatOverHead(UserIndex, "No se permiten criminales en el Ejército Real.", charIndexStr, vbWhite)
Exit Sub
End If
@@ -49,7 +68,7 @@ Public Sub EnlistarArmadaReal(ByVal UserIndex As Integer)
End If
128 If Not HayLugarEnInventario(UserIndex, -1, 999) Then
-130 Call WriteChatOverHead(UserIndex, "¡No tienes lugar suficiente en el inventario.", charindexstr, vbWhite)
+130 Call WriteChatOverHead(UserIndex, "¡No tienes lugar suficiente en el inventario.", charIndexStr, vbWhite)
Exit Sub
End If
@@ -80,7 +99,7 @@ Public Sub EnlistarArmadaReal(ByVal UserIndex As Integer)
148 If PersonajeEsLeader(.Name) Then
'Si el clan es neutral no lo dejo, le digo que tiene que salir del clan para poder enlistarse
If GuildAlignmentIndex(.GuildIndex) = e_ALINEACION_GUILD.ALINEACION_NEUTRAL Then
- Call WriteChatOverHead(UserIndex, "No puedes integrar nuestras fuerzas si perteneces a un clan neutral, deberás abandonarlo si tu deseo es integrar el Ejército Real.", charindexstr, vbWhite)
+ Call WriteChatOverHead(UserIndex, "No puedes integrar nuestras fuerzas si perteneces a un clan neutral, deberás abandonarlo si tu deseo es integrar el Ejército Real.", charIndexStr, vbWhite)
Exit Sub
End If
Else
@@ -148,7 +167,7 @@ Public Sub RecompensaArmadaReal(ByVal UserIndex As Integer)
End If
120 If proxRango.NivelRequerido > .Stats.ELV Then
-122 Call WriteChatOverHead(userindex, "Has matado suficientes criminales pero, te faltan " & (proxRango.NivelRequerido - .Stats.ELV) & " niveles para poder recibir la próxima recompensa.", npcCharIndex, vbWhite)
+122 Call WriteChatOverHead(UserIndex, "Has matado suficientes criminales pero, te faltan " & (proxRango.NivelRequerido - .Stats.ELV) & " niveles para poder recibir la próxima recompensa.", npcCharIndex, vbWhite)
Else ' El usuario cumple con los requerimientos de nivel, se le asigna la recomenza.
124 .Faccion.RecompensasReal = proxRango.rank
@@ -229,19 +248,19 @@ Public Sub EnlistarCaos(ByVal UserIndex As Integer)
102 charIndexStr = str(NpcList(.flags.TargetNPC.ArrayIndex).Char.charindex)
104 If status(UserIndex) = e_Facciones.Caos Or status(UserIndex) = e_Facciones.concilio Then
-106 Call WriteChatOverHead(UserIndex, "Ya perteneces a la Legión Oscura.", charindexstr, vbWhite)
+106 Call WriteChatOverHead(UserIndex, "Ya perteneces a la Legión Oscura.", charIndexStr, vbWhite)
Exit Sub
End If
116 If status(UserIndex) = e_Facciones.Armada Or status(UserIndex) = e_Facciones.Ciudadano Or status(UserIndex) = e_Facciones.consejo Then
-118 Call WriteChatOverHead(UserIndex, "¡¡Ja ja ja!! Tu no eres bienvenido aquí asqueroso Ciudadano", charindexstr, vbWhite)
+118 Call WriteChatOverHead(UserIndex, "¡¡Ja ja ja!! Tu no eres bienvenido aquí asqueroso Ciudadano", charIndexStr, vbWhite)
Exit Sub
End If
120 If Not HayLugarEnInventario(UserIndex, -1, 999) Then
-122 Call WriteChatOverHead(UserIndex, "¡No tienes lugar suficiente en el inventario.", charindexstr, vbWhite)
+122 Call WriteChatOverHead(UserIndex, "¡No tienes lugar suficiente en el inventario.", charIndexStr, vbWhite)
Exit Sub
End If
@@ -278,7 +297,7 @@ Public Sub EnlistarCaos(ByVal UserIndex As Integer)
148 If PersonajeEsLeader(.name) Then
'Si el clan es neutral no lo dejo, le digo que tiene que salir del clan para poder enlistarse
If GuildAlignmentIndex(.GuildIndex) = e_ALINEACION_GUILD.ALINEACION_NEUTRAL Then
- Call WriteChatOverHead(UserIndex, "No puedes integrar nuestras fuerzas si perteneces a un clan neutral, deberás abandonarlo si tu deseo es integrar la Legión Oscura.", charindexstr, vbWhite)
+ Call WriteChatOverHead(UserIndex, "No puedes integrar nuestras fuerzas si perteneces a un clan neutral, deberás abandonarlo si tu deseo es integrar la Legión Oscura.", charIndexStr, vbWhite)
Exit Sub
End If
Else
diff --git a/Codigo/ModGrupos.bas b/Codigo/ModGrupos.bas
index 91894cbe..6107f5be 100644
--- a/Codigo/ModGrupos.bas
+++ b/Codigo/ModGrupos.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModGrupos"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Public Grupo As Tgrupo
@@ -120,20 +138,20 @@ Public Sub EcharMiembro(ByVal UserIndex As Integer, ByVal Indice As Byte)
100 With UserList(UserIndex).Grupo
GroupLider = .Lider.ArrayIndex
102 If Not .EnGrupo Then
-104 Call WriteConsoleMsg(userindex, "No estás en ningun grupo", e_FontTypeNames.FONTTYPE_New_GRUPO)
+104 Call WriteConsoleMsg(UserIndex, "No estás en ningun grupo", e_FontTypeNames.FONTTYPE_New_GRUPO)
Exit Sub
End If
106 If .Lider.ArrayIndex <> userIndex Then
-108 Call WriteConsoleMsg(userIndex, "No podés echar a usuarios del grupo", e_FontTypeNames.FONTTYPE_New_GRUPO)
+108 Call WriteConsoleMsg(UserIndex, "No podés echar a usuarios del grupo", e_FontTypeNames.FONTTYPE_New_GRUPO)
Exit Sub
End If
110 UserIndexEchar = UserList(.Lider.ArrayIndex).Grupo.Miembros(Indice + 1).ArrayIndex
112 If UserIndexEchar = userIndex Then
-114 Call WriteConsoleMsg(userIndex, "No podés expulsarte a ti mismo.", e_FontTypeNames.FONTTYPE_New_GRUPO)
+114 Call WriteConsoleMsg(UserIndex, "No podés expulsarte a ti mismo.", e_FontTypeNames.FONTTYPE_New_GRUPO)
Exit Sub
End If
diff --git a/Codigo/ModInvasion.bas b/Codigo/ModInvasion.bas
index 63d0d4e7..a3d63d5c 100644
--- a/Codigo/ModInvasion.bas
+++ b/Codigo/ModInvasion.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModInvasion"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/ModLlaves.bas b/Codigo/ModLlaves.bas
index 66db49cd..32268f26 100644
--- a/Codigo/ModLlaves.bas
+++ b/Codigo/ModLlaves.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModLlaves"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
@@ -80,7 +98,7 @@ Public Sub UsarLlave(ByVal UserIndex As Integer, ByVal Slot As Integer)
If Slot > MAXKEYS Then
'Call BanearIP(0, UserList(UserIndex).name, UserList(UserIndex).IP, UserList(UserIndex).Cuenta)
- Call LogEdicionPaquete("El usuario " & UserList(UserIndex).name & " editó el slot del llavero | Valor: " & Slot & ".")
+ Call LogEdicionPaquete("El usuario " & UserList(UserIndex).Name & " editó el slot del llavero | Valor: " & Slot & ".")
Exit Sub
End If
104 If .Keys(Slot) <> 0 Then
diff --git a/Codigo/ModLobby.bas b/Codigo/ModLobby.bas
index db610461..774a7e95 100644
--- a/Codigo/ModLobby.bas
+++ b/Codigo/ModLobby.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "ModLobby"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Const ForbiddenLevelMessage = 396
Const LobbyIsFullMessage = 397
Const ForbiddenClassMessage = 398
@@ -381,7 +407,7 @@ On Error GoTo OpenLobby_Err
If Not instance.Scenario Is Nothing Then
EventName = instance.Scenario.GetScenarioName()
End If
- Call SendData(SendTarget.ToAll, 0, PrepareMessageLocaleMsg(MsgCreateEventRoom, UserList(UserIndex).name & "¬" & EventName, e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToAll, 0, PrepareMessageLocaleMsg(MsgCreateEventRoom, UserList(UserIndex).Name & "¬" & EventName, e_FontTypeNames.FONTTYPE_GUILD))
If Not instance.Scenario Is Nothing Then
Call instance.Scenario.BroadcastOpenScenario(UserIndex)
End If
diff --git a/Codigo/ModMap.bas b/Codigo/ModMap.bas
index 2f646947..67d0e56f 100644
--- a/Codigo/ModMap.bas
+++ b/Codigo/ModMap.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "ModMap"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Public Function CanAddTrapAt(ByVal mapIndex As Integer, ByVal posX As Integer, ByVal posY As Integer) As Boolean
diff --git a/Codigo/ModQuest.bas b/Codigo/ModQuest.bas
index c40f856c..afe662f0 100644
--- a/Codigo/ModQuest.bas
+++ b/Codigo/ModQuest.bas
@@ -1,27 +1,30 @@
Attribute VB_Name = "ModQuest"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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 [url=http://www.affero.org/oagpl.html]http://www.affero.org/oagpl.html[/url]
'
-'Argentum Online is based on Baronsoft's VB6 Online RPG
-'You can contact the original creator of ORE at [email=aaron@baronsoft.com]aaron@baronsoft.com[/email]
-'for more information about ORE please visit [url=http://www.baronsoft.com/]http://www.baronsoft.com/[/url]
Option Explicit
'Constantes de las quests
diff --git a/Codigo/ModRetos.bas b/Codigo/ModRetos.bas
index 4ce266c7..acda7e4c 100644
--- a/Codigo/ModRetos.bas
+++ b/Codigo/ModRetos.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModRetos"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
@@ -72,7 +90,7 @@ Public Sub CrearReto(ByVal UserIndex As Integer, JugadoresStr As String, ByVal A
104 Call CancelarSolicitudReto(UserIndex, .Name & " ha cancelado la solicitud.")
106 ElseIf IsValidUserRef(.flags.AceptoReto) Then
-108 Call CancelarSolicitudReto(.flags.AceptoReto.ArrayIndex, .name & " ha cancelado su admisión.")
+108 Call CancelarSolicitudReto(.flags.AceptoReto.ArrayIndex, .Name & " ha cancelado su admisión.")
End If
110 Dim TamanoReal As Byte: TamanoReal = Retos.TamañoMaximoEquipo * 2 - 1
@@ -194,7 +212,7 @@ Public Sub AceptarReto(ByVal UserIndex As Integer, OferenteName As String)
106 Call CancelarSolicitudReto(UserIndex, .Name & " ha cancelado la solicitud.")
108 ElseIf IsValidUserRef(.flags.AceptoReto) Then
-110 Call CancelarSolicitudReto(.flags.AceptoReto.ArrayIndex, .name & " ha cancelado su admisión.")
+110 Call CancelarSolicitudReto(.flags.AceptoReto.ArrayIndex, .Name & " ha cancelado su admisión.")
End If
End With
@@ -219,7 +237,7 @@ Public Sub AceptarReto(ByVal UserIndex As Integer, OferenteName As String)
124 JugadorIndex = IndiceJugadorEnSolicitud(UserIndex, Oferente.ArrayIndex)
126 If JugadorIndex < 0 Then
-128 Call WriteConsoleMsg(UserIndex, UserList(Oferente.ArrayIndex).name & " no te ha invitado a ningún reto o ha sido cancelado.", e_FontTypeNames.FONTTYPE_INFO)
+128 Call WriteConsoleMsg(UserIndex, UserList(Oferente.ArrayIndex).Name & " no te ha invitado a ningún reto o ha sido cancelado.", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
@@ -643,13 +661,13 @@ Public Sub FinalizarReto(ByVal Sala As Integer, Optional ByVal TiempoAgotado As
' Nombres
150 If i Mod 2 Then
152 If LenB(Equipo2) > 0 Then
-154 Equipo2 = Equipo2 & IIf((i + 1) \ 2 < .TamañoEquipoDer - 2, ", ", " y ") & UserList(tUser.ArrayIndex).name
+154 Equipo2 = Equipo2 & IIf((i + 1) \ 2 < .TamañoEquipoDer - 2, ", ", " y ") & UserList(tUser.ArrayIndex).Name
Else
156 Equipo2 = UserList(tUser.ArrayIndex).name
End If
Else
158 If LenB(Equipo1) > 0 Then
-160 Equipo1 = Equipo2 & IIf(i \ 2 < .TamañoEquipoIzq - 2, ", ", " y ") & UserList(tUser.ArrayIndex).name
+160 Equipo1 = Equipo2 & IIf(i \ 2 < .TamañoEquipoIzq - 2, ", ", " y ") & UserList(tUser.ArrayIndex).Name
Else
162 Equipo1 = UserList(tUser.ArrayIndex).name
End If
@@ -717,13 +735,13 @@ Public Sub FinalizarReto(ByVal Sala As Integer, Optional ByVal TiempoAgotado As
228 If i Mod 2 Then
230 If LenB(Equipo2) > 0 Then
-232 Equipo2 = Equipo2 & IIf((i + 1) \ 2 < .TamañoEquipoDer - 2, ", ", " y ") & UserList(tUser.ArrayIndex).name
+232 Equipo2 = Equipo2 & IIf((i + 1) \ 2 < .TamañoEquipoDer - 2, ", ", " y ") & UserList(tUser.ArrayIndex).Name
Else
234 Equipo2 = UserList(tUser.ArrayIndex).name
End If
Else
236 If LenB(Equipo1) > 0 Then
-238 Equipo1 = Equipo1 & IIf(i \ 2 < .TamañoEquipoIzq - 2, ", ", " y ") & UserList(tUser.ArrayIndex).name
+238 Equipo1 = Equipo1 & IIf(i \ 2 < .TamañoEquipoIzq - 2, ", ", " y ") & UserList(tUser.ArrayIndex).Name
Else
240 Equipo1 = UserList(tUser.ArrayIndex).name
End If
@@ -1136,7 +1154,7 @@ Private Function TodosPuedenReto(ByVal Oferente As Integer) As Boolean
110 ElseIf .PocionesMaximas >= 0 Then
112 If TieneObjetos(38, .PocionesMaximas + 1, Oferente) Then
-114 Call CancelarSolicitudReto(Oferente, UserList(Oferente).name & " tiene demasiadas pociones rojas (Cantidad máxima: " & .PocionesMaximas & ").")
+114 Call CancelarSolicitudReto(Oferente, UserList(Oferente).Name & " tiene demasiadas pociones rojas (Cantidad máxima: " & .PocionesMaximas & ").")
Exit Function
End If
End If
@@ -1155,7 +1173,7 @@ Private Function TodosPuedenReto(ByVal Oferente As Integer) As Boolean
126 ElseIf .PocionesMaximas >= 0 Then
128 If TieneObjetos(38, .PocionesMaximas + 1, Oferente) Then
-130 Call CancelarSolicitudReto(Oferente, UserList(.Jugadores(i).CurIndex.ArrayIndex).name & " tiene demasiadas pociones rojas (Cantidad máxima: " & .PocionesMaximas & ").")
+130 Call CancelarSolicitudReto(Oferente, UserList(.Jugadores(i).CurIndex.ArrayIndex).Name & " tiene demasiadas pociones rojas (Cantidad máxima: " & .PocionesMaximas & ").")
Exit Function
End If
End If
diff --git a/Codigo/ModShopAO20.bas b/Codigo/ModShopAO20.bas
index a2a234c1..c573e5fd 100644
--- a/Codigo/ModShopAO20.bas
+++ b/Codigo/ModShopAO20.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModShopAO20"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
@@ -19,14 +37,14 @@ On Error GoTo init_transaction_Err
'Me fijo si es un item de shop
104 If Not is_purchaseable_item(obj) Then
-106 Call WriteConsoleMsg(userIndex, "Error al realizar la transacción", e_FontTypeNames.FONTTYPE_INFO)
-108 Call LogShopErrors("El usuario " & .name & " intentó comprar un objeto que no es de shop (REVISAR) | " & obj.name)
+106 Call WriteConsoleMsg(UserIndex, "Error al realizar la transacción", e_FontTypeNames.FONTTYPE_INFO)
+108 Call LogShopErrors("El usuario " & .Name & " intentó comprar un objeto que no es de shop (REVISAR) | " & obj.Name)
Exit Sub
End If
Call LoadPatronCreditsFromDB(UserIndex)
110 If obj.Valor > .Stats.Creditos Then
-112 Call WriteConsoleMsg(userIndex, "Error al realizar la transacción.", e_FontTypeNames.FONTTYPE_INFO)
-114 Call LogShopErrors("El usuario " & .name & " intentó editar el valor del objeto (REVISAR) | " & obj.name)
+112 Call WriteConsoleMsg(UserIndex, "Error al realizar la transacción.", e_FontTypeNames.FONTTYPE_INFO)
+114 Call LogShopErrors("El usuario " & .Name & " intentó editar el valor del objeto (REVISAR) | " & obj.Name)
Exit Sub
End If
@@ -44,7 +62,7 @@ On Error GoTo init_transaction_Err
124 .Stats.Creditos = .Stats.Creditos - obj.Valor
'Genero un log de los créditos que gastó y cuantos le quedan luego de la transacción.
-126 Call LogShopTransactions(.name & " | Compró -> " & ObjData(obj.ObjNum).name & " | Valor -> " & obj.Valor)
+126 Call LogShopTransactions(.Name & " | Compró -> " & ObjData(obj.ObjNum).Name & " | Valor -> " & obj.Valor)
128 Call Query("update account set offline_patron_credits = ? where id = ?;", .Stats.Creditos, .AccountID)
130 Call writeUpdateShopClienteCredits(UserIndex)
132 Call RegisterTransaction(.AccountID, .ID, obj.ObjNum, obj.Valor, .Stats.Creditos)
diff --git a/Codigo/ModSubasta.bas b/Codigo/ModSubasta.bas
index 387b1822..984a9a74 100644
--- a/Codigo/ModSubasta.bas
+++ b/Codigo/ModSubasta.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModSubasta"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Public Type t_Subastas
diff --git a/Codigo/ModTesoros.bas b/Codigo/ModTesoros.bas
index 95bb0ee6..3b75d770 100644
--- a/Codigo/ModTesoros.bas
+++ b/Codigo/ModTesoros.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "ModTesoros"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/ModTorneos.bas b/Codigo/ModTorneos.bas
index bf3c7310..b739be63 100644
--- a/Codigo/ModTorneos.bas
+++ b/Codigo/ModTorneos.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "ModTorneos"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Public Type t_Torneo
@@ -72,7 +91,7 @@ Public Sub IniciarTorneo()
138 Next i
End If
-140 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Evento> Están abiretas las inscripciones para: " & Torneo.nombre & ": características: Nivel entre: " & Torneo.NivelMinimo & "/" & Torneo.nivelmaximo & ". Inscriptos: " & inscriptos & "/" & Torneo.cupos & ". Precio de inscripción: " & PonerPuntos(Torneo.costo) & " monedas de oro. Reglas: " & Torneo.reglas & ".", e_FontTypeNames.FONTTYPE_CITIZEN))
+140 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Evento> Están abiretas las inscripciones para: " & Torneo.nombre & ": características: Nivel entre: " & Torneo.NivelMinimo & "/" & Torneo.NivelMaximo & ". Inscriptos: " & inscriptos & "/" & Torneo.cupos & ". Precio de inscripción: " & PonerPuntos(Torneo.costo) & " monedas de oro. Reglas: " & Torneo.reglas & ".", e_FontTypeNames.FONTTYPE_CITIZEN))
142 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Evento> Clases participantes: " & Torneo.ClasesTexto & ". Escribí /PARTICIPAR para ingresar al evento. ", e_FontTypeNames.FONTTYPE_CITIZEN))
diff --git a/Codigo/ModViajar.bas b/Codigo/ModViajar.bas
index 589dd57d..caf4f4d0 100644
--- a/Codigo/ModViajar.bas
+++ b/Codigo/ModViajar.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "ModViajar"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Public Sub IniciarTransporte(ByVal UserIndex As Integer)
On Error GoTo IniciarTransporte_Err
diff --git a/Codigo/Modulo_InventANDobj.bas b/Codigo/Modulo_InventANDobj.bas
index 7bc801e4..2543142d 100644
--- a/Codigo/Modulo_InventANDobj.bas
+++ b/Codigo/Modulo_InventANDobj.bas
@@ -1,40 +1,30 @@
Attribute VB_Name = "InvNpc"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
diff --git a/Codigo/Modulo_SysTray.bas b/Codigo/Modulo_SysTray.bas
index 30a0ca67..bf0d4ace 100644
--- a/Codigo/Modulo_SysTray.bas
+++ b/Codigo/Modulo_SysTray.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "SysTray"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
diff --git a/Codigo/Modulo_UsUaRiOs.bas b/Codigo/Modulo_UsUaRiOs.bas
index 9bbc0218..7cb84277 100644
--- a/Codigo/Modulo_UsUaRiOs.bas
+++ b/Codigo/Modulo_UsUaRiOs.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "UserMod"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
Private UserNameCache As New Dictionary
@@ -176,8 +167,8 @@ On Error GoTo Check_ConnectUser_Err
End If
If EsGM(UserIndex) Then
- Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Servidor » " & name & " se conecto al juego.", e_FontTypeNames.FONTTYPE_INFOBOLD))
- Call LogGM(name, "Se conectó con IP: " & .IP)
+ Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Servidor » " & Name & " se conecto al juego.", e_FontTypeNames.FONTTYPE_INFOBOLD))
+ Call LogGM(Name, "Se conectó con IP: " & .IP)
End If
End With
@@ -709,10 +700,10 @@ On Error GoTo Complete_ConnectUser_Err
1120 Call WriteLoggedMessage(UserIndex, newUser)
1125 If .Stats.ELV = 1 Then
-1130 Call WriteConsoleMsg(UserIndex, "¡Bienvenido a las tierras de AO20! ¡" & .name & " que tengas buen viaje y mucha suerte!", e_FontTypeNames.FONTTYPE_GUILD)
+1130 Call WriteConsoleMsg(UserIndex, "¡Bienvenido a las tierras de AO20! ¡" & .Name & " que tengas buen viaje y mucha suerte!", e_FontTypeNames.FONTTYPE_GUILD)
1135 ElseIf .Stats.ELV < 14 Then
-1140 Call WriteConsoleMsg(UserIndex, "¡Bienvenido de nuevo " & .name & "! Actualmente estas en el nivel " & .Stats.ELV & " en " & get_map_name(.pos.Map) & ", ¡buen viaje y mucha suerte!", e_FontTypeNames.FONTTYPE_GUILD)
+1140 Call WriteConsoleMsg(UserIndex, "¡Bienvenido de nuevo " & .Name & "! Actualmente estas en el nivel " & .Stats.ELV & " en " & get_map_name(.Pos.Map) & ", ¡buen viaje y mucha suerte!", e_FontTypeNames.FONTTYPE_GUILD)
End If
@@ -3387,10 +3378,10 @@ On Error GoTo DoDamageOrHeal_Err
DamageStr = PonerPuntos(Math.Abs(Amount))
If SourceType = eUser Then
If UserList(SourceIndex).ChatCombate = 1 And DoDamageText > 0 Then
- Call WriteLocaleMsg(SourceIndex, DoDamageText, e_FontTypeNames.FONTTYPE_FIGHT, UserList(UserIndex).name & "¬" & DamageStr)
+ Call WriteLocaleMsg(SourceIndex, DoDamageText, e_FontTypeNames.FONTTYPE_FIGHT, UserList(UserIndex).Name & "¬" & DamageStr)
End If
If UserList(UserIndex).ChatCombate = 1 And GotDamageText > 0 Then
- Call WriteLocaleMsg(UserIndex, GotDamageText, e_FontTypeNames.FONTTYPE_FIGHT, UserList(SourceIndex).name & "¬" & DamageStr)
+ Call WriteLocaleMsg(UserIndex, GotDamageText, e_FontTypeNames.FONTTYPE_FIGHT, UserList(SourceIndex).Name & "¬" & DamageStr)
End If
End If
amount = EffectsOverTime.TargetApplyDamageReduction(UserList(UserIndex).EffectOverTime, amount, SourceIndex, SourceType, DamageSourceType)
diff --git a/Codigo/PathFinding.bas b/Codigo/PathFinding.bas
index cfb224ef..0a174a43 100644
--- a/Codigo/PathFinding.bas
+++ b/Codigo/PathFinding.bas
@@ -1,95 +1,30 @@
Attribute VB_Name = "PathFinding"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
'
-'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/
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
'
+' 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
-
-'#######################################################
-'PathFinding Module
-'Coded By Gulfas Morgolock
-'morgolock@speedy.com.ar
-'www.geocities.com/gmorgolock
'
-'Ore is an excellent engine for introducing you not only
-'to online game programming but also to general
-'game programming. I am convinced that Aaron Perkings, creator
-'of ORE, did a great work. He made possible that a lot of
-'people enjoy for no fee games made with his engine, and
-'for me, this is something great.
'
-'I'd really like to contribute to this work, and all the
-'projects of free ore-based MMORPGs that are on the net.
-'
-'I did some basic improvements on the AI of the NPCs, I
-'added pathfinding, so now, the npcs are able to avoid
-'obstacles. I believe that this improvement was essential
-'for the engine.
-'
-'I'd like to see this as my contribution to ORE project,
-'I hope that someone finds this source code useful.
-'So, please feel free to do whatever you want with my
-'pathfinging module.
-'
-'I'd really appreciate that if you find this source code
-'useful you mention my nickname on the credits of your
-'program. But there is no obligation ;).
-'
-'.........................................................
-'Note:
-'There is a little problem, ORE refers to map arrays in a
-'different manner that my pathfinding routines. When I wrote
-'these routines, I did it without thinking in ORE, so in my
-'program I refer to maps in the usual way I do it.
-'
-'For example, suppose we have:
-'Map(1 to Y,1 to X) as MapBlock
-'I usually use the first coordinate as Y, and
-'the second one as X.
-'
-'ORE refers to maps in converse way, for example:
-'Map(1 to X,1 to Y) as MapBlock. As you can see the
-'roles of first and second coordinates are different
-'that my routines
-'
-'.........................................................
-
-'###########################################################################
-' CHANGES
-'
-' 27/03/2021 WyroX: Fixed inverted coordinates and changed algorithm to A*
-'###########################################################################
-
Option Explicit
diff --git a/Codigo/Penas.bas b/Codigo/Penas.bas
index cfbbea6f..21c9ab35 100644
--- a/Codigo/Penas.bas
+++ b/Codigo/Penas.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "Penas"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas
index 8e8059a2..2c5d1a64 100644
--- a/Codigo/Protocol.bas
+++ b/Codigo/Protocol.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "Protocol"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
@@ -692,7 +710,7 @@ On Error Resume Next
If UserList(UserIndex).Counters.PacketCount > 100 Then
'Lo kickeo
- Call SendData(SendTarget.ToAdmins, UserIndex, PrepareMessageConsoleMsg("Control de paquetes -> El usuario " & UserList(UserIndex).name & " | Iteración paquetes | Último paquete: " & PacketId & ".", e_FontTypeNames.FONTTYPE_FIGHT))
+ Call SendData(SendTarget.ToAdmins, UserIndex, PrepareMessageConsoleMsg("Control de paquetes -> El usuario " & UserList(UserIndex).Name & " | Iteración paquetes | Último paquete: " & PacketId & ".", e_FontTypeNames.FONTTYPE_FIGHT))
UserList(userindex).Counters.PacketCount = 0
'Call CloseSocket(userindex)
Exit Function
@@ -703,7 +721,7 @@ On Error Resume Next
If IP_Blacklist.Exists(UserList(UserIndex).IP) = 0 Then
Call IP_Blacklist.Add(UserList(UserIndex).IP, "FAKE")
End If
- Call SendData(SendTarget.ToGM, UserIndex, PrepareMessageConsoleMsg("EL USUARIO " & UserList(UserIndex).name & " | IP: " & UserList(UserIndex).IP & " ESTÁ ENVIANDO PAQUETES INVÁLIDOS", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToGM, UserIndex, PrepareMessageConsoleMsg("EL USUARIO " & UserList(UserIndex).Name & " | IP: " & UserList(UserIndex).IP & " ESTÁ ENVIANDO PAQUETES INVÁLIDOS", e_FontTypeNames.FONTTYPE_GUILD))
Call CloseSocket(UserIndex)
Exit Function
End If
@@ -2880,7 +2898,7 @@ Private Sub HandleDrop(ByVal UserIndex As Integer)
Else
'ver de banear al usuario
'Call BanearIP(0, UserList(UserIndex).name, UserList(UserIndex).IP, UserList(UserIndex).Cuenta)
- Call LogEdicionPaquete("El usuario " & UserList(UserIndex).name & " editó el slot del inventario | Valor: " & Slot & ".")
+ Call LogEdicionPaquete("El usuario " & UserList(UserIndex).Name & " editó el slot del inventario | Valor: " & Slot & ".")
End If
'04-05-08 Ladder
@@ -2916,7 +2934,7 @@ Public Function verifyTimeStamp(ByVal ActualCount As Long, ByRef LastCount As Lo
'Controlamos secuencia para ver que no haya paquetes duplicados.
If ActualCount <= LastCount Then
Call SendData(SendTarget.ToGM, UserIndex, PrepareMessageConsoleMsg("Paquete grabado: " & PacketName & " | Cuenta: " & UserList(UserIndex).Cuenta & " | Ip: " & UserList(UserIndex).IP & " (Baneado automaticamente)", e_FontTypeNames.FONTTYPE_INFOBOLD))
- Call LogEdicionPaquete("El usuario " & UserList(UserIndex).name & " editó el paquete " & PacketName & ".")
+ Call LogEdicionPaquete("El usuario " & UserList(UserIndex).Name & " editó el paquete " & PacketName & ".")
LastCount = ActualCount
Call CloseSocket(UserIndex)
Exit Function
@@ -2929,7 +2947,7 @@ Public Function verifyTimeStamp(ByVal ActualCount As Long, ByRef LastCount As Lo
'Call WriteShowMessageBox(UserIndex, "Relajate andá a tomarte un té con Gulfas.")
verifyTimeStamp = False
'Call LogMacroServidor("El usuario " & UserList(UserIndex).name & " iteró el paquete " & PacketName & " " & MaxIterations & " veces.")
- Call SendData(SendTarget.ToAdmins, UserIndex, PrepareMessageConsoleMsg("Control de macro---> El usuario " & UserList(UserIndex).name & "| Revisar --> " & PacketName & " (Envíos: " & MaxIterations & ").", e_FontTypeNames.FONTTYPE_INFOBOLD))
+ Call SendData(SendTarget.ToAdmins, UserIndex, PrepareMessageConsoleMsg("Control de macro---> El usuario " & UserList(UserIndex).Name & "| Revisar --> " & PacketName & " (Envíos: " & MaxIterations & ").", e_FontTypeNames.FONTTYPE_INFOBOLD))
'Call WriteCerrarleCliente(UserIndex)
'Call CloseSocket(UserIndex)
LastCount = ActualCount
@@ -3261,7 +3279,7 @@ Private Sub HandleUseItem(ByVal UserIndex As Integer)
DesdeInventario = Reader.ReadInt8
If Not DesdeInventario Then
- Call SendData(SendTarget.ToAdmins, UserIndex, PrepareMessageConsoleMsg("El usuario " & .name & " está tomando pociones con click estando en hechizos... raaaaaro, poleeeeemico. BAN?", e_FontTypeNames.FONTTYPE_INFOBOLD))
+ Call SendData(SendTarget.ToAdmins, UserIndex, PrepareMessageConsoleMsg("El usuario " & .Name & " está tomando pociones con click estando en hechizos... raaaaaro, poleeeeemico. BAN?", e_FontTypeNames.FONTTYPE_INFOBOLD))
End If
Dim PacketCounter As Long
@@ -3977,7 +3995,7 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer)
650 If UserList(userIndex).Grupo.Lider.ArrayIndex = userIndex Then
652 Call InvitarMiembro(UserIndex, tU)
Else
-654 Call WriteConsoleMsg(UserIndex, "Tu no podés invitar usuarios, debe hacerlo " & UserList(UserList(UserIndex).Grupo.Lider.ArrayIndex).name & ".", e_FontTypeNames.FONTTYPE_INFOIAO)
+654 Call WriteConsoleMsg(UserIndex, "Tu no podés invitar usuarios, debe hacerlo " & UserList(UserList(UserIndex).Grupo.Lider.ArrayIndex).Name & ".", e_FontTypeNames.FONTTYPE_INFOIAO)
656 Call WriteWorkRequestTarget(UserIndex, 0)
End If
End If
@@ -4035,7 +4053,7 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer)
704 Call LookatTile(UserIndex, UserList(UserIndex).Pos.Map, X, Y)
706 tU = .flags.targetUser.ArrayIndex
708 If IsValidUserRef(.flags.targetUser) Then
-710 Call WriteConsoleMsg(UserIndex, "Servidor » [" & UserList(tU).name & "] seleccionado.", e_FontTypeNames.FONTTYPE_SERVER)
+710 Call WriteConsoleMsg(UserIndex, "Servidor » [" & UserList(tU).Name & "] seleccionado.", e_FontTypeNames.FONTTYPE_SERVER)
Else
712 Call WriteLocaleMsg(UserIndex, "261", e_FontTypeNames.FONTTYPE_INFO)
@@ -4094,7 +4112,7 @@ Private Sub HandleCreateNewGuild(ByVal UserIndex As Integer)
-118 Call SendData(SendTarget.ToAll, UserIndex, PrepareMessageConsoleMsg(.name & " ha fundado el clan <" & GuildName & "> de alineación " & GuildAlignment(.GuildIndex) & ".", e_FontTypeNames.FONTTYPE_GUILD))
+118 Call SendData(SendTarget.ToAll, UserIndex, PrepareMessageConsoleMsg(.Name & " ha fundado el clan <" & GuildName & "> de alineación " & GuildAlignment(.GuildIndex) & ".", e_FontTypeNames.FONTTYPE_GUILD))
120 Call SendData(SendTarget.ToAll, 0, PrepareMessagePlayWave(44, NO_3D_SOUND, NO_3D_SOUND))
'Update tag
122 Call RefreshCharStatus(UserIndex)
@@ -4291,7 +4309,7 @@ Private Sub HandleModifySkills(ByVal UserIndex As Integer)
104 points(i) = Reader.ReadInt8()
106 If points(i) < 0 Then
-108 Call LogSecurity(.name & " IP:" & .IP & " trató de hackear los skills.")
+108 Call LogSecurity(.Name & " IP:" & .IP & " trató de hackear los skills.")
110 .Stats.SkillPts = 0
112 Call CloseSocket(UserIndex)
Exit Sub
@@ -4302,7 +4320,7 @@ Private Sub HandleModifySkills(ByVal UserIndex As Integer)
116 Next i
118 If Count > .Stats.SkillPts Then
-120 Call LogSecurity(.name & " IP:" & .IP & " trató de hackear los skills.")
+120 Call LogSecurity(.Name & " IP:" & .IP & " trató de hackear los skills.")
122 Call CloseSocket(UserIndex)
Exit Sub
@@ -7259,7 +7277,7 @@ Private Sub HandleMensajeUser(ByVal UserIndex As Integer)
End If
124 Call WriteConsoleMsg(UserIndex, "Mensaje enviado a " & UserName & ": " & Mensaje, e_FontTypeNames.FONTTYPE_INFO)
-126 Call LogGM(.name, "Envió mensaje como GM a " & username & ": " & mensaje)
+126 Call LogGM(.Name, "Envió mensaje como GM a " & username & ": " & mensaje)
End If
@@ -8576,7 +8594,7 @@ Private Sub HandleOfertaInicial(ByVal UserIndex As Integer)
130 UserList(UserIndex).Counters.TiempoParaSubastar = 0
132 Subasta.OfertaInicial = Oferta
134 Subasta.MejorOferta = 0
-136 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.name & " está subastando: " & ObjData(Subasta.ObjSubastado).name & " (Cantidad: " & Subasta.ObjSubastadoCantidad & " ) - con un precio inicial de " & PonerPuntos(Subasta.OfertaInicial) & " monedas. Escribe /OFERTAR (cantidad) para participar.", e_FontTypeNames.FONTTYPE_SUBASTA))
+136 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.Name & " está subastando: " & ObjData(Subasta.ObjSubastado).Name & " (Cantidad: " & Subasta.ObjSubastadoCantidad & " ) - con un precio inicial de " & PonerPuntos(Subasta.OfertaInicial) & " monedas. Escribe /OFERTAR (cantidad) para participar.", e_FontTypeNames.FONTTYPE_SUBASTA))
138 .flags.Subastando = False
140 Subasta.HaySubastaActiva = True
142 Subasta.Subastador = .Name
@@ -8650,11 +8668,11 @@ Private Sub HandleOfertaDeSubasta(ByVal UserIndex As Integer)
132 Call WriteUpdateGold(UserIndex)
134 If Subasta.TiempoRestanteSubasta < 60 Then
-136 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Oferta mejorada por: " & .name & " (Ofrece " & PonerPuntos(Oferta) & " monedas de oro) - Tiempo Extendido. Escribe /SUBASTA para mas información.", e_FontTypeNames.FONTTYPE_SUBASTA))
+136 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Oferta mejorada por: " & .Name & " (Ofrece " & PonerPuntos(Oferta) & " monedas de oro) - Tiempo Extendido. Escribe /SUBASTA para mas información.", e_FontTypeNames.FONTTYPE_SUBASTA))
138 Call LogearEventoDeSubasta(.Name & ": Mejoro la oferta en el ultimo minuto ofreciendo " & PonerPuntos(Oferta) & " monedas.")
140 Subasta.TiempoRestanteSubasta = Subasta.TiempoRestanteSubasta + 30
Else
-142 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Oferta mejorada por: " & .name & " (Ofrece " & PonerPuntos(Oferta) & " monedas de oro). Escribe /SUBASTA para mas información.", e_FontTypeNames.FONTTYPE_SUBASTA))
+142 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Oferta mejorada por: " & .Name & " (Ofrece " & PonerPuntos(Oferta) & " monedas de oro). Escribe /SUBASTA para mas información.", e_FontTypeNames.FONTTYPE_SUBASTA))
144 Call LogearEventoDeSubasta(.Name & ": Mejoro la oferta ofreciendo " & PonerPuntos(Oferta) & " monedas.")
146 Subasta.HuboOferta = True
148 Subasta.PosibleCancelo = False
@@ -8739,7 +8757,7 @@ Private Sub HandleCancelDuel(ByVal UserIndex As Integer)
106 Call CancelarSolicitudReto(UserIndex, .Name & " ha cancelado la solicitud.")
108 ElseIf IsValidUserRef(.flags.AceptoReto) Then
-110 Call CancelarSolicitudReto(.flags.AceptoReto.ArrayIndex, .name & " ha cancelado su admisión.")
+110 Call CancelarSolicitudReto(.flags.AceptoReto.ArrayIndex, .Name & " ha cancelado su admisión.")
End If
@@ -9246,7 +9264,7 @@ Private Sub HandleLlamadadeClan(ByVal UserIndex As Integer)
104 clan_nivel = modGuilds.NivelDeClan(.GuildIndex)
106 If clan_nivel >= 2 Then
-108 Call SendData(SendTarget.ToGuildMembers, .GuildIndex, PrepareMessageConsoleMsg("Clan> [" & .name & "] solicita apoyo de su clan en " & get_map_name(.pos.Map) & " (" & .pos.Map & "-" & .pos.x & "-" & .pos.y & "). Puedes ver su ubicación en el mapa del mundo.", e_FontTypeNames.FONTTYPE_GUILD))
+108 Call SendData(SendTarget.ToGuildMembers, .GuildIndex, PrepareMessageConsoleMsg("Clan> [" & .Name & "] solicita apoyo de su clan en " & get_map_name(.Pos.Map) & " (" & .Pos.Map & "-" & .Pos.X & "-" & .Pos.Y & "). Puedes ver su ubicación en el mapa del mundo.", e_FontTypeNames.FONTTYPE_GUILD))
110 Call SendData(SendTarget.ToGuildMembers, .GuildIndex, PrepareMessagePlayWave("43", NO_3D_SOUND, NO_3D_SOUND))
112 Call SendData(SendTarget.ToGuildMembers, .GuildIndex, PrepareMessageUbicacionLlamada(.Pos.Map, .Pos.X, .Pos.Y))
@@ -9408,7 +9426,7 @@ Private Sub HandleBusquedaTesoro(ByVal UserIndex As Integer)
Else
148 If BusquedaNpcActiva Then
-150 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavía nadie logró matar el NPC que se encuentra en el mapa " & NpcList(npc_index_evento).pos.Map & ".", e_FontTypeNames.FONTTYPE_TALK))
+150 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavía nadie logró matar el NPC que se encuentra en el mapa " & NpcList(npc_index_evento).Pos.Map & ".", e_FontTypeNames.FONTTYPE_TALK))
152 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda de npc activo. El tesoro se encuentra en: " & NpcList(npc_index_evento).Pos.Map & "-" & NpcList(npc_index_evento).Pos.X & "-" & NpcList(npc_index_evento).Pos.Y, e_FontTypeNames.FONTTYPE_INFO)
Else
154 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO)
@@ -9634,9 +9652,9 @@ Private Sub HandleResponderPregunta(ByVal UserIndex As Integer)
End Select
210 If IsValidNpcRef(UserList(UserIndex).flags.TargetNPC) Then
-212 Call WriteChatOverHead(UserIndex, "¡Gracias " & UserList(UserIndex).name & "! Ahora perteneces a la ciudad de " & DeDonde & ".", NpcList(UserList(UserIndex).flags.TargetNPC.ArrayIndex).Char.charindex, vbWhite)
+212 Call WriteChatOverHead(UserIndex, "¡Gracias " & UserList(UserIndex).Name & "! Ahora perteneces a la ciudad de " & DeDonde & ".", NpcList(UserList(UserIndex).flags.TargetNPC.ArrayIndex).Char.charindex, vbWhite)
Else
-214 Call WriteConsoleMsg(UserIndex, "¡Gracias " & UserList(UserIndex).name & "! Ahora perteneces a la ciudad de " & DeDonde & ".", e_FontTypeNames.FONTTYPE_INFOIAO)
+214 Call WriteConsoleMsg(UserIndex, "¡Gracias " & UserList(UserIndex).Name & "! Ahora perteneces a la ciudad de " & DeDonde & ".", e_FontTypeNames.FONTTYPE_INFOIAO)
End If
216 Case 4
@@ -9734,7 +9752,7 @@ Private Sub HandleResponderPregunta(ByVal UserIndex As Integer)
End Select
320 If IsValidNpcRef(UserList(UserIndex).flags.TargetNPC) Then
-322 Call WriteChatOverHead(UserIndex, "¡No hay problema " & UserList(UserIndex).name & "! Sos bienvenido en " & DeDonde & " cuando gustes.", NpcList(UserList(UserIndex).flags.TargetNPC.ArrayIndex).Char.charindex, vbWhite)
+322 Call WriteChatOverHead(UserIndex, "¡No hay problema " & UserList(UserIndex).Name & "! Sos bienvenido en " & DeDonde & " cuando gustes.", NpcList(UserList(UserIndex).flags.TargetNPC.ArrayIndex).Char.charindex, vbWhite)
End If
324 UserList(UserIndex).PosibleHogar = UserList(UserIndex).Hogar
326 Case 4
@@ -10669,16 +10687,16 @@ Private Sub HandleLogMacroClickHechizo(ByVal UserIndex As Integer)
Select Case tipoMacro
Case tMacro.Coordenadas
-102 mensaje = "AntiCheat> El usuario " & UserList(UserIndex).name & " está utilizando macro de COORDENADAS."
+102 mensaje = "AntiCheat> El usuario " & UserList(UserIndex).Name & " está utilizando macro de COORDENADAS."
Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(mensaje, e_FontTypeNames.FONTTYPE_INFO))
Case tMacro.dobleclick
- mensaje = "AntiCheat> El usuario " & UserList(UserIndex).name & " está utilizando macro de DOBLE CLICK (CANTIDAD DE CLICKS: " & clicks & " )."
+ mensaje = "AntiCheat> El usuario " & UserList(UserIndex).Name & " está utilizando macro de DOBLE CLICK (CANTIDAD DE CLICKS: " & clicks & " )."
Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(mensaje, e_FontTypeNames.FONTTYPE_INFO))
Case tMacro.inasistidoPosFija
- mensaje = "AntiCheat> El usuario " & UserList(UserIndex).name & " está utilizando macro de INASISTIDO."
+ mensaje = "AntiCheat> El usuario " & UserList(UserIndex).Name & " está utilizando macro de INASISTIDO."
Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(mensaje, e_FontTypeNames.FONTTYPE_INFO))
Case tMacro.borrarCartel
- mensaje = "AntiCheat> El usuario " & UserList(UserIndex).name & " está utilizando macro de CARTELEO."
+ mensaje = "AntiCheat> El usuario " & UserList(UserIndex).Name & " está utilizando macro de CARTELEO."
Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(mensaje, e_FontTypeNames.FONTTYPE_INFO))
End Select
diff --git a/Codigo/Protocol_GmCommands.bas b/Codigo/Protocol_GmCommands.bas
index 11c35778..bc93da4c 100644
--- a/Codigo/Protocol_GmCommands.bas
+++ b/Codigo/Protocol_GmCommands.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "Protocol_GmCommands"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
' Handles the "Online" message.
@@ -43,7 +69,7 @@ Public Sub HandleOnline(ByVal UserIndex As Integer)
End If
134 Call WriteConsoleMsg(UserIndex, "Server Online: " & UpTimeStr, e_FontTypeNames.FONTTYPE_INFO)
- Call WriteConsoleMsg(UserIndex, "Número de usuarios: " & CStr(count) & " conectados.", e_FontTypeNames.FONTTYPE_INFOIAO)
+ Call WriteConsoleMsg(UserIndex, "Número de usuarios: " & CStr(Count) & " conectados.", e_FontTypeNames.FONTTYPE_INFOIAO)
Call WriteConsoleMsg(UserIndex, "Tiempo en línea: " & UpTimeStr & " Record de usuarios en simultaneo: " & RecordUsuarios & ".", e_FontTypeNames.FONTTYPE_INFOIAO)
End With
@@ -330,7 +356,7 @@ Public Sub HandleDenounce(ByVal UserIndex As Integer)
End If
Dim Denuncia As String, HayChat As Boolean
-116 Denuncia = "[Últimos mensajes de " & UserList(tUser.ArrayIndex).name & "]" & vbNewLine
+116 Denuncia = "[Últimos mensajes de " & UserList(tUser.ArrayIndex).Name & "]" & vbNewLine
Dim i As Integer
118 For i = 1 To UBound(UserList(tUser.ArrayIndex).flags.ChatHistory)
@@ -364,7 +390,7 @@ Public Sub HandleGMMessage(ByVal UserIndex As Integer)
104 If EsGM(UserIndex) Then
106 Call LogGM(.name, "Mensaje a Gms: " & Message)
108 If LenB(Message) <> 0 Then
-112 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(.name & " » " & Message, e_FontTypeNames.FONTTYPE_GMMSG))
+112 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(.Name & " » " & Message, e_FontTypeNames.FONTTYPE_GMMSG))
End If
End If
@@ -484,7 +510,7 @@ Public Sub HandleWhere(ByVal UserIndex As Integer)
110 Call WriteConsoleMsg(UserIndex, "Usuario offline.", e_FontTypeNames.FONTTYPE_INFO)
Else
112 If CompararPrivilegiosUser(userIndex, tUser.ArrayIndex) >= 0 Then
-114 Call WriteConsoleMsg(UserIndex, "Ubicación " & username & ": " & UserList(tUser.ArrayIndex).pos.Map & ", " & UserList(tUser.ArrayIndex).pos.x & ", " & UserList(tUser.ArrayIndex).pos.y & ".", e_FontTypeNames.FONTTYPE_INFO)
+114 Call WriteConsoleMsg(UserIndex, "Ubicación " & username & ": " & UserList(tUser.ArrayIndex).Pos.Map & ", " & UserList(tUser.ArrayIndex).Pos.X & ", " & UserList(tUser.ArrayIndex).Pos.Y & ".", e_FontTypeNames.FONTTYPE_INFO)
116 Call LogGM(.name, "/Donde " & username)
End If
End If
@@ -681,7 +707,7 @@ Public Sub HandleWarpChar(ByVal UserIndex As Integer)
140 Call WarpUserChar(tUser.ArrayIndex, map, x, y, True)
End If
142 If tUser.ArrayIndex <> userIndex Then
-144 Call LogGM(.name, "Transportó a " & UserList(tUser.ArrayIndex).name & " hacia " & "Mapa" & Map & " X:" & x & " Y:" & y)
+144 Call LogGM(.Name, "Transportó a " & UserList(tUser.ArrayIndex).Name & " hacia " & "Mapa" & Map & " X:" & X & " Y:" & Y)
End If
End If
End If
@@ -718,11 +744,11 @@ Public Sub HandleSilence(ByVal UserIndex As Integer)
116 If minutos > 0 Then
118 Call SilenciarUserDatabase(username, minutos)
120 Call SavePenaDatabase(username, .name & ": silencio por " & Time & " minutos. " & Date & " " & Time)
-122 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .name & " ha silenciado a " & username & "(offline) por " & minutos & " minutos.", e_FontTypeNames.FONTTYPE_GM))
+122 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .Name & " ha silenciado a " & username & "(offline) por " & minutos & " minutos.", e_FontTypeNames.FONTTYPE_GM))
124 Call LogGM(.name, "Silenciar a " & UserList(tUser.ArrayIndex).name & " por " & minutos & " minutos.")
Else
126 Call DesilenciarUserDatabase(username)
-128 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .name & " ha desilenciado a " & username & "(offline).", e_FontTypeNames.FONTTYPE_GM))
+128 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .Name & " ha desilenciado a " & username & "(offline).", e_FontTypeNames.FONTTYPE_GM))
130 Call LogGM(.name, "Desilenciar a " & UserList(tUser.ArrayIndex).name & ".")
End If
@@ -747,7 +773,7 @@ Public Sub HandleSilence(ByVal UserIndex As Integer)
144 UserList(tUser.ArrayIndex).flags.SegundosPasados = 0
146 Call SavePenaDatabase(username, .name & ": silencio por " & Time & " minutos. " & Date & " " & Time)
-148 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .name & " ha silenciado a " & UserList(tUser.ArrayIndex).name & " por " & minutos & " minutos.", e_FontTypeNames.FONTTYPE_GM))
+148 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .Name & " ha silenciado a " & UserList(tUser.ArrayIndex).Name & " por " & minutos & " minutos.", e_FontTypeNames.FONTTYPE_GM))
150 Call WriteConsoleMsg(tUser.ArrayIndex, "Has sido silenciado por los administradores, no podrás hablar con otros usuarios. Utilice /GM para pedir ayuda.", e_FontTypeNames.FONTTYPE_GM)
152 Call LogGM(.name, "Silenciar a " & UserList(tUser.ArrayIndex).name & " por " & minutos & " minutos.")
@@ -755,7 +781,7 @@ Public Sub HandleSilence(ByVal UserIndex As Integer)
154 UserList(tUser.ArrayIndex).flags.Silenciado = 1
-156 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .name & " ha desilenciado a " & UserList(tUser.ArrayIndex).name & ".", e_FontTypeNames.FONTTYPE_GM))
+156 Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .Name & " ha desilenciado a " & UserList(tUser.ArrayIndex).Name & ".", e_FontTypeNames.FONTTYPE_GM))
158 Call WriteConsoleMsg(tUser.ArrayIndex, "Has sido desilenciado.", e_FontTypeNames.FONTTYPE_GM)
160 Call LogGM(.name, "Desilenciar a " & UserList(tUser.ArrayIndex).name & ".")
@@ -854,8 +880,8 @@ Public Sub HandleGoToChar(ByVal UserIndex As Integer)
End If
118 If CompararPrivilegiosUser(tUser.ArrayIndex, userIndex) > 0 Then
-120 Call WriteConsoleMsg(UserIndex, "Se le ha avisado a " & UserList(tUser.ArrayIndex).name & " que quieres ir a su posición.", e_FontTypeNames.FONTTYPE_INFO)
-122 Call WriteConsoleMsg(tUser.ArrayIndex, .name & " quiere transportarse a tu ubicación. Escribe /sum " & .name & " para traerlo.", e_FontTypeNames.FONTTYPE_INFO)
+120 Call WriteConsoleMsg(UserIndex, "Se le ha avisado a " & UserList(tUser.ArrayIndex).Name & " que quieres ir a su posición.", e_FontTypeNames.FONTTYPE_INFO)
+122 Call WriteConsoleMsg(tUser.ArrayIndex, .Name & " quiere transportarse a tu ubicación. Escribe /sum " & .Name & " para traerlo.", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
@@ -1103,7 +1129,7 @@ Public Sub HandleJail(ByVal UserIndex As Integer)
End If
152 Call Encarcelar(tUser.ArrayIndex, jailTime, .name)
-154 Call LogGM(.name, " encarceló a " & username)
+154 Call LogGM(.Name, " encarceló a " & username)
End If
End If
End If
@@ -2200,8 +2226,8 @@ Public Sub HandleSummonChar(ByVal UserIndex As Integer)
End If
128 If CompararPrivilegiosUser(tUser.ArrayIndex, userIndex) > 0 Then
-130 Call WriteConsoleMsg(UserIndex, "Se le ha avisado a " & UserList(tUser.ArrayIndex).name & " que quieres traerlo a tu posición.", e_FontTypeNames.FONTTYPE_INFO)
-132 Call WriteConsoleMsg(tUser.ArrayIndex, .name & " quiere transportarte a su ubicación. Escribe /ira " & .name & " para ir.", e_FontTypeNames.FONTTYPE_INFO)
+130 Call WriteConsoleMsg(UserIndex, "Se le ha avisado a " & UserList(tUser.ArrayIndex).Name & " que quieres traerlo a tu posición.", e_FontTypeNames.FONTTYPE_INFO)
+132 Call WriteConsoleMsg(tUser.ArrayIndex, .Name & " quiere transportarte a su ubicación. Escribe /ira " & .Name & " para ir.", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
@@ -2235,7 +2261,7 @@ Public Sub HandleSummonChar(ByVal UserIndex As Integer)
End If
148 Call WarpToLegalPos(tUser.ArrayIndex, .pos.map, .pos.x, .pos.y + 1, True, True)
- Call WriteConsoleMsg(UserIndex, "Has traído a " & UserList(tUser.ArrayIndex).name & ".", e_FontTypeNames.FONTTYPE_INFO)
+ Call WriteConsoleMsg(UserIndex, "Has traído a " & UserList(tUser.ArrayIndex).Name & ".", e_FontTypeNames.FONTTYPE_INFO)
152 Call LogGM(.name, "/SUM " & username & " Map:" & .Pos.map & " X:" & .Pos.X & " Y:" & .Pos.y)
Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg(.name & " a trasladado al usuario " & username & " al Mapa " & .Pos.map, e_FontTypeNames.FONTTYPE_INFO))
End If
@@ -2891,7 +2917,7 @@ Public Sub HandleBanIP(ByVal UserIndex As Integer)
Exit Sub
End If
132 Call BanearIP(UserIndex, NickOrIP, bannedip, UserList(UserIndex).Cuenta)
-134 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(.name & " baneó la IP " & bannedip & " por " & Reason, e_FontTypeNames.FONTTYPE_FIGHT))
+134 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg(.Name & " baneó la IP " & bannedip & " por " & Reason, e_FontTypeNames.FONTTYPE_FIGHT))
'Find every player with that ip and ban him!
Dim i As Long
136 For i = 1 To LastUser
@@ -3076,7 +3102,7 @@ Public Sub HandleRemovePunishment(ByVal UserIndex As Integer)
End If
122 If PersonajeExiste(username) Then
-124 Call LogGM(.name, "Borro la pena " & punishment & " de " & username & " y la cambió por: " & NewText)
+124 Call LogGM(.Name, "Borro la pena " & punishment & " de " & username & " y la cambió por: " & NewText)
128 Call CambiarPenaDatabase(username, punishment, .name & ": <" & NewText & "> " & Date & " " & Time)
132 Call WriteConsoleMsg(UserIndex, "Pena Modificada.", e_FontTypeNames.FONTTYPE_INFO)
End If
@@ -3470,7 +3496,7 @@ Public Sub HandleAlterName(ByVal UserIndex As Integer)
Call ChangeNameDatabase(username, NewName)
Call WriteConsoleMsg(UserIndex, "Transferencia exitosa", e_FontTypeNames.FONTTYPE_INFO)
Call SavePenaDatabase(username, .name & ": nombre cambiado de """ & username & """ a """ & NewName & """. " & Date & " " & Time)
- Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .name & " cambió el nombre del usuario """ & username & """ por """ & NewName & """.", e_FontTypeNames.FONTTYPE_GM))
+ Call SendData(SendTarget.ToGM, 0, PrepareMessageConsoleMsg("Administración » " & .Name & " cambió el nombre del usuario """ & username & """ por """ & NewName & """.", e_FontTypeNames.FONTTYPE_GM))
Call LogGM(.name, "Ha cambiado de nombre al usuario """ & username & """. Ahora se llama """ & NewName & """.")
If IsValidUserRef(tUser) Then
@@ -3527,7 +3553,7 @@ Public Sub HandleChangeMapInfoBackup(ByVal UserIndex As Integer)
102 doTheBackUp = Reader.ReadBool()
104 If (.flags.Privilegios And (e_PlayerType.user Or e_PlayerType.Consejero Or e_PlayerType.SemiDios Or e_PlayerType.RoleMaster)) Then Exit Sub
-106 Call LogGM(.name, .name & " ha cambiado la información sobre el BackUp")
+106 Call LogGM(.Name, .Name & " ha cambiado la información sobre el BackUp")
'Change the boolean to byte in a fast way
108 If doTheBackUp Then
110 MapInfo(.Pos.map).backup_mode = 1
@@ -3558,27 +3584,27 @@ Public Sub HandleChangeMapInfoRestricted(ByVal UserIndex As Integer)
Case "NEWBIE"
108 MapInfo(.Pos.map).Newbie = Not MapInfo(.Pos.map).Newbie
110 Call WriteConsoleMsg(UserIndex, "Mapa " & .Pos.map & ": Newbie = " & MapInfo(.Pos.map).Newbie, e_FontTypeNames.FONTTYPE_INFO)
-112 Call LogGM(.name, .name & " ha cambiado la restricción del mapa " & .pos.map & ": Newbie = " & MapInfo(.pos.map).Newbie)
+112 Call LogGM(.Name, .Name & " ha cambiado la restricción del mapa " & .Pos.Map & ": Newbie = " & MapInfo(.Pos.Map).Newbie)
114 Case "SINMAGIA"
116 MapInfo(.Pos.map).SinMagia = Not MapInfo(.Pos.map).SinMagia
118 Call WriteConsoleMsg(UserIndex, "Mapa " & .Pos.map & ": SinMagia = " & MapInfo(.Pos.map).SinMagia, e_FontTypeNames.FONTTYPE_INFO)
-120 Call LogGM(.name, .name & " ha cambiado la restricción del mapa " & .pos.map & ": SinMagia = " & MapInfo(.pos.map).SinMagia)
+120 Call LogGM(.Name, .Name & " ha cambiado la restricción del mapa " & .Pos.Map & ": SinMagia = " & MapInfo(.Pos.Map).SinMagia)
122 Case "NOPKS"
124 MapInfo(.Pos.map).NoPKs = Not MapInfo(.Pos.map).NoPKs
126 Call WriteConsoleMsg(UserIndex, "Mapa " & .Pos.map & ": NoPKs = " & MapInfo(.Pos.map).NoPKs, e_FontTypeNames.FONTTYPE_INFO)
-128 Call LogGM(.name, .name & " ha cambiado la restricción del mapa " & .pos.map & ": NoPKs = " & MapInfo(.pos.map).NoPKs)
+128 Call LogGM(.Name, .Name & " ha cambiado la restricción del mapa " & .Pos.Map & ": NoPKs = " & MapInfo(.Pos.Map).NoPKs)
130 Case "NOCIUD"
132 MapInfo(.Pos.map).NoCiudadanos = Not MapInfo(.Pos.map).NoCiudadanos
134 Call WriteConsoleMsg(UserIndex, "Mapa " & .Pos.map & ": NoCiudadanos = " & MapInfo(.Pos.map).NoCiudadanos, e_FontTypeNames.FONTTYPE_INFO)
-136 Call LogGM(.name, .name & " ha cambiado la restricción del mapa " & .pos.map & ": NoCiudadanos = " & MapInfo(.pos.map).NoCiudadanos)
+136 Call LogGM(.Name, .Name & " ha cambiado la restricción del mapa " & .Pos.Map & ": NoCiudadanos = " & MapInfo(.Pos.Map).NoCiudadanos)
138 Case "SININVI"
140 MapInfo(.Pos.map).SinInviOcul = Not MapInfo(.Pos.map).SinInviOcul
142 Call WriteConsoleMsg(UserIndex, "Mapa " & .Pos.map & ": SinInvi = " & MapInfo(.Pos.map).SinInviOcul, e_FontTypeNames.FONTTYPE_INFO)
-144 Call LogGM(.name, .name & " ha cambiado la restricción del mapa " & .pos.map & ": SinInvi = " & MapInfo(.pos.map).SinInviOcul)
+144 Call LogGM(.Name, .Name & " ha cambiado la restricción del mapa " & .Pos.Map & ": SinInvi = " & MapInfo(.Pos.Map).SinInviOcul)
146 Case Else
148 Call WriteConsoleMsg(UserIndex, "Opciones para restringir: 'NEWBIE', 'SINMAGIA', 'SININVI', 'NOPKS', 'NOCIUD'", e_FontTypeNames.FONTTYPE_INFO)
@@ -4077,7 +4103,7 @@ Public Sub HandleQuestionGM(ByVal UserIndex As Integer)
Dim bannedip As String
bannedip = UserList(UserIndex).IP
132 Call BanearIP(0, UserList(UserIndex).name, bannedip, UserList(UserIndex).Cuenta)
-134 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Se baneó la IP " & bannedip & " del personaje " & UserList(UserIndex).name & " por bot.", e_FontTypeNames.FONTTYPE_FIGHT))
+134 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Se baneó la IP " & bannedip & " del personaje " & UserList(UserIndex).Name & " por bot.", e_FontTypeNames.FONTTYPE_FIGHT))
'Find every player with that ip and ban him!
Dim i As Long
136 For i = 1 To LastUser
@@ -4138,7 +4164,7 @@ Public Sub HandlePossUser(ByVal UserIndex As Integer)
Call ClosestLegalPos(UserList(tUser.ArrayIndex).pos, nPos, False, True)
150 Call FindLegalPos(tUser.ArrayIndex, UserList(tUser.ArrayIndex).pos.map, CByte(UserList(tUser.ArrayIndex).pos.x), CByte(UserList(tUser.ArrayIndex).pos.y))
152 Call WarpUserChar(tUser.ArrayIndex, nPos.map, nPos.x, nPos.y, True)
-116 Call WriteConsoleMsg(UserIndex, "Servidor » Acción realizada con exito! La nueva posicion de " & username & " es: " & UserList(tUser.ArrayIndex).pos.map & "-" & UserList(tUser.ArrayIndex).pos.x & "-" & UserList(tUser.ArrayIndex).pos.y & ".", e_FontTypeNames.FONTTYPE_INFO)
+116 Call WriteConsoleMsg(UserIndex, "Servidor » Acción realizada con exito! La nueva posicion de " & username & " es: " & UserList(tUser.ArrayIndex).Pos.Map & "-" & UserList(tUser.ArrayIndex).Pos.X & "-" & UserList(tUser.ArrayIndex).Pos.Y & ".", e_FontTypeNames.FONTTYPE_INFO)
'ver porque si el usuario esta online lo dice igual
Else
118 Call WriteConsoleMsg(UserIndex, "Servidor » El usuario debe estar deslogueado para dicha solicitud!", e_FontTypeNames.FONTTYPE_INFO)
@@ -4235,7 +4261,7 @@ Public Sub HandleUnBanCuenta(ByVal UserIndex As Integer)
104 If (.flags.Privilegios And (e_PlayerType.Admin Or e_PlayerType.Dios)) Then
116 If DesbanearCuenta(UserIndex, UserNameOEmail) Then
-118 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Servidor » " & .name & " ha desbaneado la cuenta de " & UserNameOEmail & ".", e_FontTypeNames.FONTTYPE_SERVER))
+118 Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Servidor » " & .Name & " ha desbaneado la cuenta de " & UserNameOEmail & ".", e_FontTypeNames.FONTTYPE_SERVER))
Else
Call WriteConsoleMsg(UserIndex, "No se ha podido desbanear la cuenta.", e_FontTypeNames.FONTTYPE_INFO)
End If
@@ -4546,7 +4572,7 @@ Public Sub HandleBusquedaTesoro(ByVal UserIndex As Integer)
146 BusquedaNpcActiva = True
Else
148 If BusquedaNpcActiva Then
-150 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavía nadie logró matar el NPC que se encuentra en el mapa " & NpcList(npc_index_evento).pos.map & ".", e_FontTypeNames.FONTTYPE_TALK))
+150 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavía nadie logró matar el NPC que se encuentra en el mapa " & NpcList(npc_index_evento).Pos.Map & ".", e_FontTypeNames.FONTTYPE_TALK))
152 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda de npc activo. El tesoro se encuentra en: " & NpcList(npc_index_evento).Pos.map & "-" & NpcList(npc_index_evento).Pos.X & "-" & NpcList(npc_index_evento).Pos.y, e_FontTypeNames.FONTTYPE_INFO)
Else
154 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO)
@@ -4605,10 +4631,10 @@ Public Sub HandleCreateEvent(ByVal UserIndex As Integer)
110 Select Case UCase$(name)
Case "INVASION BANDER"
112 Call IniciarEvento(TipoEvento.Invasion, 1)
-114 Call LogGM(.name, "Forzó el evento Invasión en Banderbille.")
+114 Call LogGM(.Name, "Forzó el evento Invasión en Banderbille.")
116 Case "INVASION CARCEL"
118 Call IniciarEvento(TipoEvento.Invasion, 2)
-120 Call LogGM(.name, "Forzó el evento Invasión en Carcel.")
+120 Call LogGM(.Name, "Forzó el evento Invasión en Carcel.")
122 Case Else
124 Call WriteConsoleMsg(UserIndex, "No existe el evento """ & name & """.", e_FontTypeNames.FONTTYPE_INFO)
End Select
@@ -4688,7 +4714,7 @@ Public Sub HandleSeguirMouse(ByVal UserIndex As Integer)
Call SetUserRef(UserList(userIndex).flags.SigueUsuario, 0)
ElseIf tUser.ArrayIndex <> .flags.SigueUsuario.ArrayIndex And .flags.SigueUsuario.ArrayIndex > 0 And IsValidUserRef(tUser) Then
If IsValidUserRef(UserList(tUser.ArrayIndex).flags.GMMeSigue) And UserList(tUser.ArrayIndex).flags.GMMeSigue.ArrayIndex <> userIndex Then
- Call WriteConsoleMsg(UserIndex, "El usuario está siendo seguido por " & UserList(UserList(tUser.ArrayIndex).flags.GMMeSigue.ArrayIndex).name & ".", e_FontTypeNames.FONTTYPE_INFO)
+ Call WriteConsoleMsg(UserIndex, "El usuario está siendo seguido por " & UserList(UserList(tUser.ArrayIndex).flags.GMMeSigue.ArrayIndex).Name & ".", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
@@ -4736,7 +4762,7 @@ Public Sub HandleSeguirMouse(ByVal UserIndex As Integer)
'Si empiezo a seguir a alguien
If Not IsValidUserRef(UserList(userIndex).flags.SigueUsuario) Then
If IsValidUserRef(UserList(tUser.ArrayIndex).flags.GMMeSigue) And UserList(tUser.ArrayIndex).flags.GMMeSigue.ArrayIndex <> userIndex Then
- Call WriteConsoleMsg(UserIndex, "El usuario está siendo seguido por " & UserList(UserList(tUser.ArrayIndex).flags.GMMeSigue.ArrayIndex).name & ".", e_FontTypeNames.FONTTYPE_INFO)
+ Call WriteConsoleMsg(UserIndex, "El usuario está siendo seguido por " & UserList(UserList(tUser.ArrayIndex).flags.GMMeSigue.ArrayIndex).Name & ".", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
diff --git a/Codigo/Protocol_Writes.bas b/Codigo/Protocol_Writes.bas
index ab274d49..c6c928e9 100644
--- a/Codigo/Protocol_Writes.bas
+++ b/Codigo/Protocol_Writes.bas
@@ -1,13 +1,30 @@
Attribute VB_Name = "Protocol_Writes"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
-'CSEH: ErrReport
Option Explicit
Private Writer As Network.Writer
diff --git a/Codigo/ReferenceUtils.bas b/Codigo/ReferenceUtils.bas
index 4988649a..6bffc99a 100644
--- a/Codigo/ReferenceUtils.bas
+++ b/Codigo/ReferenceUtils.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "ModReferenceUtils"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Public Function GetPosition(ByRef Reference As t_AnyReference) As t_WorldPos
diff --git a/Codigo/ScenarioDeathMatch.cls b/Codigo/ScenarioDeathMatch.cls
index ed20f1a9..c60d75f6 100644
--- a/Codigo/ScenarioDeathMatch.cls
+++ b/Codigo/ScenarioDeathMatch.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Const configPath = "../dat/Scenarios/DeathMatch.ini"
diff --git a/Codigo/ScenarioKillNpc.cls b/Codigo/ScenarioKillNpc.cls
index d9dd1a5c..c7ab1066 100644
--- a/Codigo/ScenarioKillNpc.cls
+++ b/Codigo/ScenarioKillNpc.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Const RequiredWeaponId = 1848
diff --git a/Codigo/Scenearios/IInventoryInterface.cls b/Codigo/Scenearios/IInventoryInterface.cls
index e4329d5d..be5ec3e2 100644
--- a/Codigo/Scenearios/IInventoryInterface.cls
+++ b/Codigo/Scenearios/IInventoryInterface.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
'request if user can pickup an item, return false if user can't pick up item at pos
diff --git a/Codigo/Scenearios/NavalBoarding.cls b/Codigo/Scenearios/NavalBoarding.cls
index 2725a776..f757a8a4 100644
--- a/Codigo/Scenearios/NavalBoarding.cls
+++ b/Codigo/Scenearios/NavalBoarding.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Const configPath = "../dat/Scenarios/NavalBattle.ini"
diff --git a/Codigo/ScoreBoard.cls b/Codigo/ScoreBoard.cls
index 0311e923..258ce387 100644
--- a/Codigo/ScoreBoard.cls
+++ b/Codigo/ScoreBoard.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Dim PlayersScore As New Dictionary
diff --git a/Codigo/SistemaCombate.bas b/Codigo/SistemaCombate.bas
index 874d57f2..cc8e744f 100644
--- a/Codigo/SistemaCombate.bas
+++ b/Codigo/SistemaCombate.bas
@@ -1,46 +1,31 @@
Attribute VB_Name = "SistemaCombate"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
'
-'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/
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
'
+' 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
'
-'Diseño y corrección del modulo de combate por
-'Gerardo Saiz, gerardosaiz@yahoo.com
'
-'9/01/2008 Pablo (ToxicWaste) - Ahora TODOS los modificadores de Clase se controlan desde Balance.dat
-
Option Explicit
Public Const MAXDISTANCIAARCO As Byte = 18
@@ -1125,7 +1110,7 @@ Private Function UsuarioImpacto(ByVal AtacanteIndex As Integer, ByVal VictimaInd
162 Call SendData(SendTarget.ToPCAliveArea, VictimaIndex, PrepareMessageCreateFX(UserList(VictimaIndex).Char.charindex, 88, 0, UserList(VictimaIndex).Pos.X, UserList(VictimaIndex).Pos.y))
164 Call SubirSkill(VictimaIndex, e_Skill.Defensa)
Else
-166 Call WriteConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).name & " te atacó y falló! ", e_FontTypeNames.FONTTYPE_FIGHT)
+166 Call WriteConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).Name & " te atacó y falló! ", e_FontTypeNames.FONTTYPE_FIGHT)
Call WriteConsoleMsg(AtacanteIndex, "¡Has fallado el golpe!", e_FontTypeNames.FONTTYPE_FIGHT)
End If
End If
@@ -1269,7 +1254,7 @@ Private Sub UserDamageToUser(ByVal AtacanteIndex As Integer, ByVal VictimaIndex
End If
' Y a la víctima
174 If .ChatCombate = 1 Then
-176 Call WriteLocaleMsg(VictimaIndex, 385, e_FontTypeNames.FONTTYPE_FIGHT, UserList(AtacanteIndex).name & "¬" & DamageStr)
+176 Call WriteLocaleMsg(VictimaIndex, 385, e_FontTypeNames.FONTTYPE_FIGHT, UserList(AtacanteIndex).Name & "¬" & DamageStr)
End If
178 Call SendData(SendTarget.toPCAliveArea, AtacanteIndex, PrepareMessagePlayWave(SND_IMPACTO_CRITICO, UserList(AtacanteIndex).Pos.X, UserList(AtacanteIndex).Pos.y))
' Color naranja
@@ -1286,10 +1271,10 @@ Private Sub UserDamageToUser(ByVal AtacanteIndex As Integer, ByVal VictimaIndex
' Mostramos en consola el golpe al atacante solo si tiene activado el chat de combate
190 If UserList(AtacanteIndex).ChatCombate = 1 Then
-192 Call WriteLocaleMsg(AtacanteIndex, "210", e_FontTypeNames.FONTTYPE_INFOBOLD, .name & "¬" & DamageStr)
+192 Call WriteLocaleMsg(AtacanteIndex, "210", e_FontTypeNames.FONTTYPE_INFOBOLD, .Name & "¬" & DamageStr)
End If
' Mostramos en consola el golpe a la victima independientemente de la configuración de chat
-196 Call WriteLocaleMsg(VictimaIndex, "211", e_FontTypeNames.FONTTYPE_INFOBOLD, UserList(AtacanteIndex).name & "¬" & DamageStr)
+196 Call WriteLocaleMsg(VictimaIndex, "211", e_FontTypeNames.FONTTYPE_INFOBOLD, UserList(AtacanteIndex).Name & "¬" & DamageStr)
198 Call SendData(SendTarget.toPCAliveArea, AtacanteIndex, PrepareMessagePlayWave(SND_IMPACTO_APU, UserList(AtacanteIndex).Pos.X, UserList(AtacanteIndex).Pos.y))
@@ -1498,7 +1483,7 @@ Public Function PuedeAtacar(ByVal AttackerIndex As Integer, ByVal VictimIndex As
106 If UserList(AttackerIndex).flags.EnReto Then
108 If Retos.Salas(UserList(AttackerIndex).flags.SalaReto).TiempoItems > 0 Then
-110 Call WriteConsoleMsg(AttackerIndex, "No podés atacar en este momento.", e_FontTypeNames.FONTTYPE_INFO)
+110 Call WriteConsoleMsg(attackerIndex, "No podés atacar en este momento.", e_FontTypeNames.FONTTYPE_INFO)
112 PuedeAtacar = False
Exit Function
End If
@@ -1513,7 +1498,7 @@ Public Function PuedeAtacar(ByVal AttackerIndex As Integer, ByVal VictimIndex As
If UserList(AttackerIndex).Grupo.Id > 0 And UserList(VictimIndex).Grupo.Id > 0 And _
UserList(AttackerIndex).Grupo.Id = UserList(VictimIndex).Grupo.Id Then
- Call WriteConsoleMsg(AttackerIndex, "No podés atacar a un miembro de tu grupo.", e_FontTypeNames.FONTTYPE_INFO)
+ Call WriteConsoleMsg(attackerIndex, "No podés atacar a un miembro de tu grupo.", e_FontTypeNames.FONTTYPE_INFO)
PuedeAtacar = False
Exit Function
End If
@@ -1528,7 +1513,7 @@ Public Function PuedeAtacar(ByVal AttackerIndex As Integer, ByVal VictimIndex As
' No podes atacar si esta en consulta
126 If UserList(VictimIndex).flags.EnConsulta Then
-128 Call WriteConsoleMsg(AttackerIndex, "No podés atacar usuarios mientras estan en consulta.", e_FontTypeNames.FONTTYPE_INFO)
+128 Call WriteConsoleMsg(attackerIndex, "No podés atacar usuarios mientras estan en consulta.", e_FontTypeNames.FONTTYPE_INFO)
130 PuedeAtacar = False
Exit Function
@@ -1542,7 +1527,7 @@ Public Function PuedeAtacar(ByVal AttackerIndex As Integer, ByVal VictimIndex As
End If
138 If UserList(AttackerIndex).flags.Montado = 1 Then
-140 Call WriteConsoleMsg(AttackerIndex, "No podés atacar usando una montura.", e_FontTypeNames.FONTTYPE_INFO)
+140 Call WriteConsoleMsg(attackerIndex, "No podés atacar usando una montura.", e_FontTypeNames.FONTTYPE_INFO)
142 PuedeAtacar = False
Exit Function
@@ -1609,7 +1594,7 @@ Public Function PuedeAtacar(ByVal AttackerIndex As Integer, ByVal VictimIndex As
If esArmada(AttackerIndex) Then
' Si ataca otro armada
If esArmada(VictimIndex) Then
- Call WriteConsoleMsg(AttackerIndex, "Los miembros del Ejercito Real tienen prohibido atacarse entre sí.", e_FontTypeNames.FONTTYPE_WARNING)
+ Call WriteConsoleMsg(attackerIndex, "Los miembros del Ejercito Real tienen prohibido atacarse entre sí.", e_FontTypeNames.FONTTYPE_WARNING)
PuedeAtacar = False
Exit Function
' Si ataca un ciudadano
@@ -1625,17 +1610,17 @@ Public Function PuedeAtacar(ByVal AttackerIndex As Integer, ByVal VictimIndex As
If (esCiudadano(AttackerIndex)) Then
If (UserList(AttackerIndex).flags.Seguro) Then
176 If esCiudadano(VictimIndex) Then
-178 Call WriteConsoleMsg(AttackerIndex, "No podés atacar ciudadanos, para hacerlo debes desactivar el seguro.", e_FontTypeNames.FONTTYPE_WARNING)
+178 Call WriteConsoleMsg(attackerIndex, "No podés atacar ciudadanos, para hacerlo debes desactivar el seguro.", e_FontTypeNames.FONTTYPE_WARNING)
180 PuedeAtacar = False
Exit Function
ElseIf esArmada(VictimIndex) Then
- Call WriteConsoleMsg(AttackerIndex, "No podés atacar miembros del Ejercito Real, para hacerlo debes desactivar el seguro.", e_FontTypeNames.FONTTYPE_WARNING)
+ Call WriteConsoleMsg(attackerIndex, "No podés atacar miembros del Ejercito Real, para hacerlo debes desactivar el seguro.", e_FontTypeNames.FONTTYPE_WARNING)
PuedeAtacar = False
Exit Function
End If
End If
ElseIf esCaos(AttackerIndex) And esCaos(VictimIndex) Then
-192 Call WriteConsoleMsg(AttackerIndex, "Los miembros de las Fuerzas del Caos no se pueden atacar entre sí.", e_FontTypeNames.FONTTYPE_WARNING)
+192 Call WriteConsoleMsg(attackerIndex, "Los miembros de las Fuerzas del Caos no se pueden atacar entre sí.", e_FontTypeNames.FONTTYPE_WARNING)
194 PuedeAtacar = False
Exit Function
End If
@@ -1708,7 +1693,7 @@ Public Function PuedeAtacarNPC(ByVal AttackerIndex As Integer, ByVal NpcIndex As
End If
106 If UserList(AttackerIndex).flags.Montado = 1 Then
-108 Call WriteConsoleMsg(AttackerIndex, "No podés atacar usando una montura.", e_FontTypeNames.FONTTYPE_INFO)
+108 Call WriteConsoleMsg(attackerIndex, "No podés atacar usando una montura.", e_FontTypeNames.FONTTYPE_INFO)
110 PuedeAtacarNPC = False
Exit Function
@@ -1760,7 +1745,7 @@ Public Function PuedeAtacarNPC(ByVal AttackerIndex As Integer, ByVal NpcIndex As
140 If esArmada(AttackerIndex) Or esCaos(AttackerIndex) Then
' Y el NPC pertenece a la misma faccion
142 If NpcList(NpcIndex).flags.Faccion = UserList(AttackerIndex).Faccion.Status Then
-144 Call WriteConsoleMsg(AttackerIndex, "No podés atacar NPCs de tu misma facción, para hacerlo debes desenlistarte.", e_FontTypeNames.FONTTYPE_INFO)
+144 Call WriteConsoleMsg(attackerIndex, "No podés atacar NPCs de tu misma facción, para hacerlo debes desenlistarte.", e_FontTypeNames.FONTTYPE_INFO)
146 PuedeAtacarNPC = False
Exit Function
End If
@@ -1768,7 +1753,7 @@ Public Function PuedeAtacarNPC(ByVal AttackerIndex As Integer, ByVal NpcIndex As
' Si es una mascota, checkeamos en el Maestro
148 If IsPet Then
150 If UserList(NpcList(npcIndex).MaestroUser.ArrayIndex).Faccion.Status = UserList(attackerIndex).Faccion.Status Then
-152 Call WriteConsoleMsg(AttackerIndex, "No podés atacar NPCs de tu misma facción, para hacerlo debes desenlistarte.", e_FontTypeNames.FONTTYPE_INFO)
+152 Call WriteConsoleMsg(attackerIndex, "No podés atacar NPCs de tu misma facción, para hacerlo debes desenlistarte.", e_FontTypeNames.FONTTYPE_INFO)
154 PuedeAtacarNPC = False
Exit Function
End If
@@ -2160,8 +2145,8 @@ Private Sub UserDañoEspecial(ByVal AtacanteIndex As Integer, ByVal VictimaIndex
124 If puedeEnvenenar And (UserList(VictimaIndex).flags.Envenenado = 0) Then
126 If RandomNumber(1, 100) < 30 Then
128 UserList(VictimaIndex).flags.Envenenado = ObjData(ObjInd).Envenena
-130 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).name & " te ha envenenado!")
-132 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has envenenado a " & UserList(VictimaIndex).name & "!")
+130 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).Name & " te ha envenenado!")
+132 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has envenenado a " & UserList(VictimaIndex).Name & "!")
Exit Sub
End If
@@ -2171,8 +2156,8 @@ Private Sub UserDañoEspecial(ByVal AtacanteIndex As Integer, ByVal VictimaIndex
136 If RandomNumber(1, 100) < 10 Then
138 UserList(VictimaIndex).flags.Incinerado = 1
140 UserList(VictimaIndex).Counters.Incineracion = 1
-142 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).name & " te ha Incinerado!")
-144 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has Incinerado a " & UserList(VictimaIndex).name & "!")
+142 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).Name & " te ha Incinerado!")
+144 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has Incinerado a " & UserList(VictimaIndex).Name & "!")
Exit Sub
End If
@@ -2187,8 +2172,8 @@ Private Sub UserDañoEspecial(ByVal AtacanteIndex As Integer, ByVal VictimaIndex
UserList(VictimaIndex).Counters.timeFx = 2
156 Call SendData(SendTarget.ToPCAliveArea, VictimaIndex, PrepareMessageCreateFX(UserList(VictimaIndex).Char.charindex, 8, 0, UserList(VictimaIndex).Pos.X, UserList(VictimaIndex).Pos.y))
-158 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).name & " te ha paralizado!")
-160 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has paralizado a " & UserList(VictimaIndex).name & "!")
+158 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).Name & " te ha paralizado!")
+160 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has paralizado a " & UserList(VictimaIndex).Name & "!")
Exit Sub
End If
@@ -2203,8 +2188,8 @@ Private Sub UserDañoEspecial(ByVal AtacanteIndex As Integer, ByVal VictimaIndex
UserList(VictimaIndex).Counters.timeFx = 2
172 Call SendData(SendTarget.ToPCAliveArea, VictimaIndex, PrepareMessageParticleFX(UserList(VictimaIndex).Char.charindex, 30, 30, False, , UserList(VictimaIndex).Pos.X, UserList(VictimaIndex).Pos.y))
-174 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).name & " te ha estupidizado!")
-176 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has estupidizado a " & UserList(VictimaIndex).name & "!")
+174 Call WriteCombatConsoleMsg(VictimaIndex, "¡" & UserList(AtacanteIndex).Name & " te ha estupidizado!")
+176 Call WriteCombatConsoleMsg(AtacanteIndex, "¡Has estupidizado a " & UserList(VictimaIndex).Name & "!")
Exit Sub
End If
@@ -2331,7 +2316,7 @@ Private Function PuedeApuñalar(ByVal UserIndex As Integer) As Boolean
100 With UserList(UserIndex)
102 If .Invent.WeaponEqpObjIndex > 0 Then
-104 PuedeApuñalar = (.clase = e_Class.Assasin Or .Stats.UserSkills(e_Skill.Apuñalar) >= MIN_APUÑALAR) And ObjData(.Invent.WeaponEqpObjIndex).Apuñala = 1
+104 PuedeApuñalar = (.clase = e_Class.Assasin Or .Stats.UserSkills(e_Skill.Apuñalar) >= MIN_APUÑALAR) And ObjData(.invent.WeaponEqpObjIndex).Apuñala = 1
End If
End With
diff --git a/Codigo/StatModifier.cls b/Codigo/StatModifier.cls
index d7611dae..d7775ba6 100644
--- a/Codigo/StatModifier.cls
+++ b/Codigo/StatModifier.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/TCP.bas b/Codigo/TCP.bas
index af227a02..11dd8d08 100644
--- a/Codigo/TCP.bas
+++ b/Codigo/TCP.bas
@@ -1,40 +1,30 @@
Attribute VB_Name = "TCP"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
Sub DarCuerpo(ByVal UserIndex As Integer)
@@ -1571,7 +1561,7 @@ Sub ClearAndSaveUser(ByVal UserIndex As Integer)
Call WriteUserCharIndexInServer(.flags.GMMeSigue.ArrayIndex)
Call UpdateUserInv(True, .flags.GMMeSigue.ArrayIndex, 1)
Call WriteUpdateUserStats(.flags.GMMeSigue.ArrayIndex)
- Call WriteConsoleMsg(.flags.GMMeSigue.ArrayIndex, "El usuario " & UserList(UserIndex).name & " que estabas siguiendo se desconectó.", e_FontTypeNames.FONTTYPE_INFO)
+ Call WriteConsoleMsg(.flags.GMMeSigue.ArrayIndex, "El usuario " & UserList(UserIndex).Name & " que estabas siguiendo se desconectó.", e_FontTypeNames.FONTTYPE_INFO)
Call SetUserRef(.flags.GMMeSigue, 0)
'Falta revertir inventario del GM
End If
diff --git a/Codigo/Trabajo.bas b/Codigo/Trabajo.bas
index 6f395224..b1a9f1b3 100644
--- a/Codigo/Trabajo.bas
+++ b/Codigo/Trabajo.bas
@@ -1,40 +1,30 @@
Attribute VB_Name = "Trabajo"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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 Const GOLD_OBJ_INDEX As Long = 12
@@ -1937,7 +1927,7 @@ On Error GoTo ErrHandler
178 If Not MeterItemEnInventario(UserIndex, MiObj) Then Call TirarItemAlPiso(.pos, MiObj)
' Le mandamos un mensaje
-180 Call WriteConsoleMsg(UserIndex, "¡Has conseguido " & ObjData(EspecialesPesca(i).ObjIndex).name & "!", e_FontTypeNames.FONTTYPE_INFO)
+180 Call WriteConsoleMsg(UserIndex, "¡Has conseguido " & ObjData(EspecialesPesca(i).ObjIndex).Name & "!", e_FontTypeNames.FONTTYPE_INFO)
End If
Next
@@ -2199,7 +2189,7 @@ Public Sub DoRobar(ByVal LadronIndex As Integer, ByVal VictimaIndex As Integer)
Else
272 Call WriteConsoleMsg(LadronIndex, "¡No has logrado robar nada!", e_FontTypeNames.FONTTYPE_INFO)
-274 Call WriteConsoleMsg(VictimaIndex, "¡" & .name & " ha intentado robarte!", e_FontTypeNames.FONTTYPE_INFO)
+274 Call WriteConsoleMsg(VictimaIndex, "¡" & .Name & " ha intentado robarte!", e_FontTypeNames.FONTTYPE_INFO)
276 Call SubirSkill(LadronIndex, e_Skill.Robar)
@@ -2698,7 +2688,7 @@ Public Sub DoMineria(ByVal UserIndex As Integer, ByVal X As Byte, ByVal Y As Byt
154 If Not MeterItemEnInventario(UserIndex, MiObj) Then Call TirarItemAlPiso(.Pos, MiObj)
' Le mandamos un mensaje
-156 Call WriteConsoleMsg(UserIndex, "¡Has conseguido " & ObjData(Yacimiento.Item(i).ObjIndex).name & "!", e_FontTypeNames.FONTTYPE_INFO)
+156 Call WriteConsoleMsg(UserIndex, "¡Has conseguido " & ObjData(Yacimiento.Item(i).ObjIndex).Name & "!", e_FontTypeNames.FONTTYPE_INFO)
End If
Next
@@ -3198,10 +3188,10 @@ On Error GoTo ThrowNetToTarget_Err:
Exit Sub
End If
132 If UserList(tU).flags.Paralizado = 1 Then
-134 Call WriteConsoleMsg(UserIndex, UserList(tU).name & " ya está paralizado.", e_FontTypeNames.FONTTYPE_FIGHT)
+134 Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " ya está paralizado.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
136 ElseIf UserList(tU).flags.Inmovilizado = 1 Then
-138 Call WriteConsoleMsg(UserIndex, UserList(tU).name & " ya está inmovilizado.", e_FontTypeNames.FONTTYPE_FIGHT)
+138 Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " ya está inmovilizado.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
End If
diff --git a/Codigo/TranslationEffect.cls b/Codigo/TranslationEffect.cls
index ccfa8833..79ae780c 100644
--- a/Codigo/TranslationEffect.cls
+++ b/Codigo/TranslationEffect.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/UnitClient.bas b/Codigo/UnitClient.bas
index 06d1e044..10758e33 100644
--- a/Codigo/UnitClient.bas
+++ b/Codigo/UnitClient.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "UnitClient"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Private Client As Network.Client
diff --git a/Codigo/UnitTesting.bas b/Codigo/UnitTesting.bas
index 9081c7eb..5988134c 100644
--- a/Codigo/UnitTesting.bas
+++ b/Codigo/UnitTesting.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "UnitTesting"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/Unit_Protocol_Writes.bas b/Codigo/Unit_Protocol_Writes.bas
index a8a22b6f..6bcf80b3 100644
--- a/Codigo/Unit_Protocol_Writes.bas
+++ b/Codigo/Unit_Protocol_Writes.bas
@@ -1,4 +1,30 @@
Attribute VB_Name = "Unit_Protocol_Writes"
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Private Writer As Network.Writer
diff --git a/Codigo/UpdateHpOverTime.cls b/Codigo/UpdateHpOverTime.cls
index 0a0e64c2..c1a6029e 100644
--- a/Codigo/UpdateHpOverTime.cls
+++ b/Codigo/UpdateHpOverTime.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/UpdateManaOverTime.cls b/Codigo/UpdateManaOverTime.cls
index f05d0a51..1b9ece37 100644
--- a/Codigo/UpdateManaOverTime.cls
+++ b/Codigo/UpdateManaOverTime.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/cColaArray.cls b/Codigo/cColaArray.cls
index 9c1c6861..6c96257b 100644
--- a/Codigo/cColaArray.cls
+++ b/Codigo/cColaArray.cls
@@ -11,33 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
Private m_maxelem As Long
diff --git a/Codigo/cStringBuilder.cls b/Codigo/cStringBuilder.cls
index 427b701a..a789f168 100644
--- a/Codigo/cStringBuilder.cls
+++ b/Codigo/cStringBuilder.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
' ======================================================================================
diff --git a/Codigo/clsAntiMassClon.cls b/Codigo/clsAntiMassClon.cls
index 6f283d13..a258acb4 100644
--- a/Codigo/clsAntiMassClon.cls
+++ b/Codigo/clsAntiMassClon.cls
@@ -11,33 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
Private Const MaximoPersonajesPorIP = 15
diff --git a/Codigo/clsCaptura.cls b/Codigo/clsCaptura.cls
index 49050789..b1f1525c 100644
--- a/Codigo/clsCaptura.cls
+++ b/Codigo/clsCaptura.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Private participantes As Collection
@@ -139,7 +165,7 @@ Public Sub PasarSegundo()
If contadorBandera(Team) >= CAPTURA_TIEMPO_BANDERA Then
Call finalizarRonda(Team)
Else
- Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! " & .name & " del equipo " & colorEquipo(Team) & " tiene la bandera enemiga en su base, si aguanta " & CAPTURA_TIEMPO_BANDERA - contadorBandera(Team) & " segundos más ganará la ronda.", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! " & .Name & " del equipo " & colorEquipo(team) & " tiene la bandera enemiga en su base, si aguanta " & CAPTURA_TIEMPO_BANDERA - contadorBandera(team) & " segundos más ganará la ronda.", e_FontTypeNames.FONTTYPE_GUILD))
End If
End If
@@ -222,7 +248,7 @@ Private Sub iniciarCaptura()
UserList(participante.PlayerIndex).flags.CurrentTeam = team
UserList(participante.PlayerIndex).flags.tiene_bandera = 0
Call SendData(SendTarget.ToAll, participante.PlayerIndex, PrepareMessageUpdateFlag(UserList(participante.PlayerIndex).flags.tiene_bandera, UserList(participante.PlayerIndex).Char.charindex))
- Call WriteConsoleMsg(participante.PlayerIndex, "Te ha tocado participar en el equipo " & colorEquipo(participante.Team) & " deberás proteger a tus compañeros de equipo y capturar la bandera del equipo contrario para ganar.", e_FontTypeNames.FONTTYPE_GUILD)
+ Call WriteConsoleMsg(participante.PlayerIndex, "Te ha tocado participar en el equipo " & colorEquipo(participante.team) & " deberás proteger a tus compañeros de equipo y capturar la bandera del equipo contrario para ganar.", e_FontTypeNames.FONTTYPE_GUILD)
counter = counter + 1
If counter = 2 Then
Team = IIf(Team = 1, 2, 1)
@@ -241,7 +267,7 @@ Public Sub muereUsuario(ByVal UserIndex As Integer)
If .flags.CurrentTeam <= 0 Then
Exit Sub
End If
- Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» " & .name & " del equipo " & colorEquipo(.flags.CurrentTeam) & " ha muerto en batalla.", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» " & .Name & " del equipo " & colorEquipo(.flags.CurrentTeam) & " ha muerto en batalla.", e_FontTypeNames.FONTTYPE_GUILD))
Call tirarBandera(UserIndex)
@@ -305,7 +331,7 @@ Public Sub quitarBandera(ByVal UserIndex As Integer, ByVal objIndex As Integer)
End If
If banderaTeam <> .flags.CurrentTeam Then
- Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! " & .name & " del equipo " & colorEquipo(.flags.CurrentTeam) & " ha tomado la bandera del equipo " & colorEquipo(banderaTeam) & ".", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! " & .Name & " del equipo " & colorEquipo(.flags.CurrentTeam) & " ha tomado la bandera del equipo " & colorEquipo(banderaTeam) & ".", e_FontTypeNames.FONTTYPE_GUILD))
UserList(UserIndex).flags.tiene_bandera = banderaTeam
Else
UserList(UserIndex).flags.tiene_bandera = 0
@@ -336,7 +362,7 @@ Public Sub tiraBandera(ByVal UserIndex As Integer, ByVal objIndex As Integer)
UserList(UserIndex).flags.tiene_bandera = 0
Call SendData(SendTarget.ToAll, UserIndex, PrepareMessageUpdateFlag(UserList(UserIndex).flags.tiene_bandera, UserList(UserIndex).Char.charindex))
- Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! la bandera del equipo " & colorEquipo(Team) & " se encuentra en (" & .pos.map & "," & .pos.X & "," & .pos.y & ")", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! la bandera del equipo " & colorEquipo(team) & " se encuentra en (" & .Pos.Map & "," & .Pos.X & "," & .Pos.Y & ")", e_FontTypeNames.FONTTYPE_GUILD))
End With
End Sub
@@ -368,7 +394,7 @@ Public Sub tirarBandera(ByVal UserIndex As Integer)
MiObj.objIndex = objBandera
Call TirarItemAlPiso(.Pos, MiObj, False)
- Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! la bandera del equipo " & colorEquipo(Team) & " se encuentra en (" & .pos.map & "," & .pos.X & "," & .pos.y & ")", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡Atención! la bandera del equipo " & colorEquipo(team) & " se encuentra en (" & .Pos.Map & "," & .Pos.X & "," & .Pos.Y & ")", e_FontTypeNames.FONTTYPE_GUILD))
End If
End If
@@ -467,7 +493,7 @@ Public Sub finalizarCaptura(Optional Team As Integer = -1)
'Hay premios???
- Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos» ¡El evento de captura la bandera ha terminado! Ganador el equipo " & colorEquipo(Team) & ".", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos» ¡El evento de captura la bandera ha terminado! Ganador el equipo " & colorEquipo(team) & ".", e_FontTypeNames.FONTTYPE_GUILD))
End If
@@ -481,7 +507,7 @@ End Sub
Public Sub finalizarRonda(ByVal Team As Byte)
- Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡El equipo " & colorEquipo(Team) & " ha ganado la ronda " & ronda_actual & "!", e_FontTypeNames.FONTTYPE_GUILD))
+ Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessageConsoleMsg("Eventos» ¡El equipo " & colorEquipo(team) & " ha ganado la ronda " & ronda_actual & "!", e_FontTypeNames.FONTTYPE_GUILD))
'El sonido de fundar clan para hacerlo mas magestuoso, mirar si hay un sonido mejor
Call SendData(SendTarget.ToJugadoresCaptura, 0, PrepareMessagePlayWave(44, NO_3D_SOUND, NO_3D_SOUND))
diff --git a/Codigo/clsCapturaParticipante.cls b/Codigo/clsCapturaParticipante.cls
index c41d0909..103742ee 100644
--- a/Codigo/clsCapturaParticipante.cls
+++ b/Codigo/clsCapturaParticipante.cls
@@ -11,7 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
-
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Dim UserRef As t_UserReference
Public LastPosMap As Integer
Public LastPosX As Byte
diff --git a/Codigo/clsClan.cls b/Codigo/clsClan.cls
index 15bb6d77..920256a0 100644
--- a/Codigo/clsClan.cls
+++ b/Codigo/clsClan.cls
@@ -11,25 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
-'**************************************************************
-' clsClan.cls
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'**************************************************************
-
-'**************************************************************************
-'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
-'**************************************************************************
-
Option Explicit
''
@@ -608,8 +615,8 @@ Private Sub ReplaceInvalidChars(ByRef S As String)
106 S = Replace(S, Chr$(10), vbNullString)
End If
-108 If InStrB(s, "¬") <> 0 Then
-110 s = Replace(s, "¬", vbNullString) 'morgo usaba esto como "separador"
+108 If InStrB(S, "¬") <> 0 Then
+110 S = Replace(S, "¬", vbNullString) 'morgo usaba esto como "separador"
End If
Exit Sub
ReplaceInvalidChars_Err:
diff --git a/Codigo/clsCrafteo.cls b/Codigo/clsCrafteo.cls
index adad43e2..f53d7d5b 100644
--- a/Codigo/clsCrafteo.cls
+++ b/Codigo/clsCrafteo.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Private m_Items() As Integer
diff --git a/Codigo/clsIniManager.cls b/Codigo/clsIniManager.cls
index e5bb8c58..fd6025f9 100644
--- a/Codigo/clsIniManager.cls
+++ b/Codigo/clsIniManager.cls
@@ -11,50 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
-'**************************************************************
-' clsIniManager.cls - Loads INI files into memory and applies Binary Search to get values at high speed.
-' Use it instead of GetVar when reading several values form the same file at once, otherwise it's not usefull.
-' Based in the idea of AlejoLP and his clsLeerInis.
+' Argentum 20 Game Server
'
-' Designed and implemented by Juan Martin Sotuyo Dodero (Maraxus)
-' (juansotuyo@gmail.com)
-'**************************************************************
-
-'**************************************************************************
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
-'**************************************************************************
-
-''
-'Loads a complete INI file into memory and sorts it's data and keys for faster searches.
-'It is MUCH faster than GetPrivateProfileStringA if you search for several values within a file, otherwise stick to the API.
-'It's particularly usefull when you can keep a whole file in memory such As t_Npcs.dat'
-' Based in the idea of AlejoLP and his clsLeerInis.
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-' @author Juan Martin Sotuyo Dodero (Maraxus) juansotuyo@gmail.com
-' @version 1.1.0
-' @date 20060501
-
-'01/05/2006 - Juan Martin Sotuyo Dodero (Maraxus) - (juansotuyo@gmail.com)
-' - First Release
'
-'01/04/2008 - Juan Martin Sotuyo Dodero (Maraxus) - (juansotuyo@gmail.com)
-' - Add: KeyExists method allows to check for valid section keys.
'
-'10/10/2010 - Torres Patricio(Pato)
-' - Add: AddNode method to add a main node.
-' AddKey method to add key into the refered main node.
-' DumpFile method to dump the data into a file.
-
Option Explicit
Option Base 0
diff --git a/Codigo/clsRespawnInfo.cls b/Codigo/clsRespawnInfo.cls
index 1b9c67a5..ccef9717 100644
--- a/Codigo/clsRespawnInfo.cls
+++ b/Codigo/clsRespawnInfo.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Public RespawnTime As Long
diff --git a/Codigo/clsTrap.cls b/Codigo/clsTrap.cls
index c4db1af0..d383b4b5 100644
--- a/Codigo/clsTrap.cls
+++ b/Codigo/clsTrap.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Option Explicit
Implements IBaseEffectOverTime
diff --git a/Codigo/clsUserReferenceWrapper.cls b/Codigo/clsUserReferenceWrapper.cls
index 5c46f070..0b87bc53 100644
--- a/Codigo/clsUserReferenceWrapper.cls
+++ b/Codigo/clsUserReferenceWrapper.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Dim UserRef As t_UserReference
Public Sub SetFromIndex(ByVal UserIndex As Integer)
diff --git a/Codigo/clsdicc.cls b/Codigo/clsdicc.cls
index 3a440b4d..45682ca1 100644
--- a/Codigo/clsdicc.cls
+++ b/Codigo/clsdicc.cls
@@ -11,31 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
-'**************************************************************
-' diccionario.cls
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-' Designed and implemented by Mariono Barrou (El Oso)
-'**************************************************************
-
-'**************************************************************************
-'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
-'**************************************************************************
-
-'clase diccionario
-'basico, plain sin queso ni papa fritas
-
-'mi idea cuando hice esto, lo encontre en el rigido :p. Hecha por el oso
-
Option Explicit
Private Const MAX_ELEM = 100
diff --git a/Codigo/frmAdmin.frm b/Codigo/frmAdmin.frm
index 2b4d6f3b..da2ce1cc 100644
--- a/Codigo/frmAdmin.frm
+++ b/Codigo/frmAdmin.frm
@@ -75,24 +75,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'**************************************************************
-' frmAdmin.frm
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'**************************************************************
-
-'**************************************************************************
-'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
-'**************************************************************************
Option Explicit
@@ -106,7 +114,7 @@ Private Sub Command1_Click()
100 uUser = NameIndex(cboPjs.Text)
102 If IsValidUserRef(uUser) Then
-104 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor » " & UserList(uUser.ArrayIndex).name & " ha sido hechado. ", e_FontTypeNames.FONTTYPE_SERVER))
+104 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor » " & UserList(uUser.ArrayIndex).Name & " ha sido hechado. ", e_FontTypeNames.FONTTYPE_SERVER))
106 Call CloseSocket(uUser.ArrayIndex)
End If
@@ -168,3 +176,7 @@ Command3_Click_Err:
104
End Sub
+
+Private Sub Form_Load()
+
+End Sub
diff --git a/Codigo/frmCargando.frm b/Codigo/frmCargando.frm
index 39416744..776f5535 100644
--- a/Codigo/frmCargando.frm
+++ b/Codigo/frmCargando.frm
@@ -87,35 +87,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
-
-' Form Always On Top
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
diff --git a/Codigo/frmDbControl.frm b/Codigo/frmDbControl.frm
index 192cf97b..5e5327fe 100644
--- a/Codigo/frmDbControl.frm
+++ b/Codigo/frmDbControl.frm
@@ -200,7 +200,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Private Sub cmdActualizarObjetos_Click()
On Error Resume Next
If MsgBox("La siguiente acción es demasiado costosa para el servidor, ¿Desea continuar?", vbYesNo) = vbYes Then
@@ -277,3 +302,7 @@ End Sub
Private Sub Command2_Click()
Call getData("select * from user")
End Sub
+
+Private Sub DataGrid1_Click()
+
+End Sub
diff --git a/Codigo/frmDebugNpc.frm b/Codigo/frmDebugNpc.frm
index e208a449..01ae341f 100644
--- a/Codigo/frmDebugNpc.frm
+++ b/Codigo/frmDebugNpc.frm
@@ -63,33 +63,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/frmMain.frm b/Codigo/frmMain.frm
index 7254c3f7..8e3c21f5 100644
--- a/Codigo/frmMain.frm
+++ b/Codigo/frmMain.frm
@@ -561,34 +561,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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 ESCUCHADAS As Long
@@ -1336,7 +1334,7 @@ Private Sub EstadoTimer_Timer()
Call PerformanceTestStart(PerformanceTimer)
For i = 1 To Baneos.Count
If Baneos(i).FechaLiberacion <= Now Then
- Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Servidor » Se ha concluido la sentencia de ban para " & Baneos(i).name & ".", e_FontTypeNames.FONTTYPE_SERVER))
+ Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("Servidor » Se ha concluido la sentencia de ban para " & Baneos(i).Name & ".", e_FontTypeNames.FONTTYPE_SERVER))
Call UnBan(Baneos(i).Name)
Call Baneos.Remove(i)
Call SaveBans
diff --git a/Codigo/frmServidor.frm b/Codigo/frmServidor.frm
index d33ea12f..b56f5588 100644
--- a/Codigo/frmServidor.frm
+++ b/Codigo/frmServidor.frm
@@ -513,34 +513,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/frmTrafic.frm b/Codigo/frmTrafic.frm
index ec0e11c3..61d207cc 100644
--- a/Codigo/frmTrafic.frm
+++ b/Codigo/frmTrafic.frm
@@ -34,33 +34,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Argentum 20 Game Server
'
-'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.
+' Copyright (C) 2023 Noland Studios LTD
'
-'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.
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
'
-'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
+' 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/frmUserList.frm b/Codigo/frmUserList.frm
index fb5a90e6..08d5071c 100644
--- a/Codigo/frmUserList.frm
+++ b/Codigo/frmUserList.frm
@@ -58,25 +58,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'**************************************************************
-' frmUserList.frm
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'**************************************************************
-
-'**************************************************************************
-'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
-'**************************************************************************
-
Option Explicit
Private Sub Command1_Click()
diff --git a/Codigo/mdlCOmercioConUsuario.bas b/Codigo/mdlCOmercioConUsuario.bas
index cf3f0f84..4124dbe3 100644
--- a/Codigo/mdlCOmercioConUsuario.bas
+++ b/Codigo/mdlCOmercioConUsuario.bas
@@ -1,33 +1,30 @@
Attribute VB_Name = "mdlCOmercioConUsuario"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'**************************************************************
-' mdlComercioConUsuarios.bas - Allows players to commerce between themselves.
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-' Designed and implemented by Alejandro Santos (AlejoLP)
-'**************************************************************
-
-'**************************************************************************
-'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
-'**************************************************************************
-
-'[Alejo]
Option Explicit
Private Const MAX_ORO_LOGUEABLE As Long = 50000
@@ -68,7 +65,7 @@ Public Function IniciarComercioConUsuario(ByVal Origen As Integer, ByVal Destino
128 Call SetUserRef(UserList(Destino).flags.targetUser, Origen)
130 UserList(Destino).flags.pregunta = 4
-132 Call WritePreguntaBox(Destino, UserList(Origen).name & " desea comerciar contigo. ¿Aceptás?")
+132 Call WritePreguntaBox(Destino, UserList(Origen).Name & " desea comerciar contigo. ¿Aceptás?")
End If
diff --git a/Codigo/modBanco.bas b/Codigo/modBanco.bas
index 6869c0b0..66cc25f1 100644
--- a/Codigo/modBanco.bas
+++ b/Codigo/modBanco.bas
@@ -1,32 +1,30 @@
Attribute VB_Name = "modBanco"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'**************************************************************
-' modBanco.bas - Handles the character's bank accounts.
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-' Implemented by Kevin Birmingham (NEB)
-' kbneb@hotmail.com
-'**************************************************************
-
-'**************************************************************************
-'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
-'**************************************************************************
Option Explicit
diff --git a/Codigo/modCrafteos.bas b/Codigo/modCrafteos.bas
index eaac68fe..52dbc171 100644
--- a/Codigo/modCrafteos.bas
+++ b/Codigo/modCrafteos.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "modCrafteos"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/modDatabase.bas b/Codigo/modDatabase.bas
index 11158678..8450a926 100644
--- a/Codigo/modDatabase.bas
+++ b/Codigo/modDatabase.bas
@@ -1,21 +1,30 @@
Attribute VB_Name = "Database"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
-
-'Argentum Online Libre
-'Database connection module
-'Obtained from GS-Zone
-'Adapted and modified by Juan Andres Dalmasso (CHOTS)
-'September 2018
-'Rewrited for Argentum20 by Alexis Caraballo (WyroX)
-'October 2020
-
Public Const DatabaseFileName = "Database.db"
Public Sub Database_Connect_Async()
diff --git a/Codigo/modGuilds.bas b/Codigo/modGuilds.bas
index 95c594f1..bcc2dde9 100644
--- a/Codigo/modGuilds.bas
+++ b/Codigo/modGuilds.bas
@@ -1,24 +1,30 @@
Attribute VB_Name = "modGuilds"
-'**************************************************************
-' modGuilds.bas - Module to allow the usage of areas instead of maps.
-' Saves a lot of bandwidth.
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-' Implemented by Mariano Barrou (El Oso)
-'**************************************************************
-
-'**************************************************************************
-'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
-'**************************************************************************
Option Explicit
diff --git a/Codigo/modHechizos.bas b/Codigo/modHechizos.bas
index 4330ab37..ca187ff7 100644
--- a/Codigo/modHechizos.bas
+++ b/Codigo/modHechizos.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "modHechizos"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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/C
'
'
-'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
@@ -72,7 +63,7 @@ Sub NpcLanzaSpellSobreUser(ByVal NpcIndex As Integer, ByVal UserIndex As Integer
If Damage > 0 Then
116 Call UserMod.DoDamageOrHeal(UserIndex, NpcIndex, eNpc, Damage, e_DamageSourceType.e_magic, Spell)
120 DamageStr = PonerPuntos(Damage)
-122 Call WriteLocaleMsg(UserIndex, 32, e_FontTypeNames.FONTTYPE_FIGHT, NpcList(NpcIndex).name & "¬" & DamageStr)
+122 Call WriteLocaleMsg(UserIndex, 32, e_FontTypeNames.FONTTYPE_FIGHT, NpcList(NpcIndex).Name & "¬" & DamageStr)
End If
128 ElseIf IsSet(Hechizos(Spell).Effects, e_SpellEffects.eDoDamage) Then
@@ -1996,7 +1987,7 @@ Sub HechizoEstadoUsuario(ByVal UserIndex As Integer, ByRef b As Boolean)
' Si no esta envenenado, no hay nada mas que hacer
342 If UserList(tU).flags.Envenenado = 0 Then
-344 Call WriteConsoleMsg(UserIndex, UserList(tU).name & " no está envenenado, el hechizo no tiene efecto.", e_FontTypeNames.FONTTYPE_INFOIAO)
+344 Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " no está envenenado, el hechizo no tiene efecto.", e_FontTypeNames.FONTTYPE_INFOIAO)
346 b = False
Exit Sub
End If
@@ -2084,15 +2075,15 @@ Sub HechizoEstadoUsuario(ByVal UserIndex As Integer, ByRef b As Boolean)
End If
If UserList(tU).Counters.TiempoDeInmunidadParalisisNoMagicas > 0 Then
- Call WriteConsoleMsg(UserIndex, UserList(tU).name & " no puede volver a ser paralizado tan rápido.", e_FontTypeNames.FONTTYPE_FIGHT)
+ Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " no puede volver a ser paralizado tan rápido.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
End If
If UserList(tU).flags.Paralizado = 1 Then
- Call WriteConsoleMsg(UserIndex, UserList(tU).name & " ya está paralizado.", e_FontTypeNames.FONTTYPE_FIGHT)
+ Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " ya está paralizado.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
ElseIf UserList(tU).flags.Inmovilizado = 1 Then
- Call WriteConsoleMsg(UserIndex, UserList(tU).name & " ya está inmovilizado.", e_FontTypeNames.FONTTYPE_FIGHT)
+ Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " ya está inmovilizado.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
End If
If IsSet(UserList(tU).flags.StatusMask, eCCInmunity) Then
@@ -2199,15 +2190,15 @@ Sub HechizoEstadoUsuario(ByVal UserIndex As Integer, ByRef b As Boolean)
End If
508 If UserList(tU).flags.Paralizado = 1 Then
-510 Call WriteConsoleMsg(UserIndex, UserList(tU).name & " ya está paralizado.", e_FontTypeNames.FONTTYPE_FIGHT)
+510 Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " ya está paralizado.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
512 ElseIf UserList(tU).flags.Inmovilizado = 1 Then
-514 Call WriteConsoleMsg(UserIndex, UserList(tU).name & " ya está inmovilizado.", e_FontTypeNames.FONTTYPE_FIGHT)
+514 Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " ya está inmovilizado.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
End If
If UserList(tU).Counters.TiempoDeInmunidadParalisisNoMagicas > 0 Then
-515 Call WriteConsoleMsg(UserIndex, UserList(tU).name & " no puede volver a ser inmovilizado tan rápido.", e_FontTypeNames.FONTTYPE_FIGHT)
+515 Call WriteConsoleMsg(UserIndex, UserList(tU).Name & " no puede volver a ser inmovilizado tan rápido.", e_FontTypeNames.FONTTYPE_FIGHT)
Exit Sub
End If
@@ -2414,7 +2405,7 @@ Sub HechizoEstadoUsuario(ByVal UserIndex As Integer, ByRef b As Boolean)
If UserList(tU).flags.SeguroResu Then
Call WriteConsoleMsg(UserIndex, "El usuario tiene el seguro de resurrección activado.", e_FontTypeNames.FONTTYPE_INFO)
- Call WriteConsoleMsg(tU, UserList(UserIndex).name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO)
+ Call WriteConsoleMsg(tU, UserList(UserIndex).Name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO)
b = False
Exit Sub
End If
@@ -2540,10 +2531,10 @@ Sub checkHechizosEfectividad(ByVal UserIndex As Integer, ByVal TargetUser As Int
efectividad = (100 * .Counters.controlHechizos.HechizosCasteados) / .Counters.controlHechizos.HechizosTotales
If efectividad >= 50 And .Counters.controlHechizos.HechizosTotales >= 6 Then
- Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("El usuario " & .name & " está lanzando hechizos con una efectividad de " & efectividad & "% (Casteados: " & .Counters.controlHechizos.HechizosCasteados & "/" & .Counters.controlHechizos.HechizosTotales & "), revisar.", e_FontTypeNames.FONTTYPE_TALK))
+ Call SendData(SendTarget.ToAdmins, 0, PrepareMessageConsoleMsg("El usuario " & .Name & " está lanzando hechizos con una efectividad de " & efectividad & "% (Casteados: " & .Counters.controlHechizos.HechizosCasteados & "/" & .Counters.controlHechizos.HechizosTotales & "), revisar.", e_FontTypeNames.FONTTYPE_TALK))
End If
- Debug.Print "El usuario " & .name & " está lanzando hechizos con una efectividad de " & efectividad & "% (Casteados: " & .Counters.controlHechizos.HechizosCasteados & "/" & .Counters.controlHechizos.HechizosTotales & "), revisar."
+ Debug.Print "El usuario " & .Name & " está lanzando hechizos con una efectividad de " & efectividad & "% (Casteados: " & .Counters.controlHechizos.HechizosCasteados & "/" & .Counters.controlHechizos.HechizosTotales & "), revisar."
Else
.Counters.controlHechizos.HechizosTotales = .Counters.controlHechizos.HechizosTotales - 1
End If
@@ -2870,7 +2861,7 @@ Private Sub InfoHechizo(ByVal UserIndex As Integer)
End If
-106 If IsValidUserRef(UserList(UserIndex).flags.targetUser) Then '¿El Hechizo fue tirado sobre un usuario?
+106 If IsValidUserRef(UserList(UserIndex).flags.TargetUser) Then '¿El Hechizo fue tirado sobre un usuario?
108 If Hechizos(h).FXgrh > 0 Then '¿Envio FX?
110 If Hechizos(h).ParticleViaje > 0 Then
UserList(UserList(UserIndex).flags.targetUser.ArrayIndex).Counters.timeFx = 2
@@ -3318,8 +3309,8 @@ Sub HechizoPropUsuario(ByVal UserIndex As Integer, ByRef b As Boolean, ByRef IsA
Call UserMod.DoDamageOrHeal(tempChr, UserIndex, eUser, Damage, e_DamageSourceType.e_magic, h)
376 DamageStr = PonerPuntos(Damage)
378 If UserIndex <> tempChr Then
-380 Call WriteLocaleMsg(UserIndex, "388", e_FontTypeNames.FONTTYPE_FIGHT, UserList(tempChr).name & "¬" & DamageStr)
-382 Call WriteLocaleMsg(tempChr, "32", e_FontTypeNames.FONTTYPE_FIGHT, UserList(UserIndex).name & "¬" & DamageStr)
+380 Call WriteLocaleMsg(UserIndex, "388", e_FontTypeNames.FONTTYPE_FIGHT, UserList(tempChr).Name & "¬" & DamageStr)
+382 Call WriteLocaleMsg(tempChr, "32", e_FontTypeNames.FONTTYPE_FIGHT, UserList(UserIndex).Name & "¬" & DamageStr)
Else
384 Call WriteLocaleMsg(UserIndex, "33", e_FontTypeNames.FONTTYPE_FIGHT, DamageStr)
End If
@@ -4236,7 +4227,7 @@ Private Sub AreaHechizo(UserIndex As Integer, NpcIndex As Integer, X As Byte, Y
140 Call NPCs.DoDamageOrHeal(npcIndex, UserIndex, eUser, -Damage, e_DamageSourceType.e_magic, h2)
142 If UserList(UserIndex).ChatCombate = 1 Then
-144 Call WriteConsoleMsg(UserIndex, "Le has causado " & Damage & " puntos de daño a " & NpcList(NpcIndex).name, e_FontTypeNames.FONTTYPE_FIGHT)
+144 Call WriteConsoleMsg(UserIndex, "Le has causado " & Damage & " puntos de daño a " & NpcList(NpcIndex).Name, e_FontTypeNames.FONTTYPE_FIGHT)
End If
End If
Exit Sub
diff --git a/Codigo/modNetwork.bas b/Codigo/modNetwork.bas
index 8474a6d3..6b65af9c 100644
--- a/Codigo/modNetwork.bas
+++ b/Codigo/modNetwork.bas
@@ -1,11 +1,29 @@
Attribute VB_Name = "modNetwork"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
'
Option Explicit
diff --git a/Codigo/modNuevoTimer.bas b/Codigo/modNuevoTimer.bas
index cef3202a..a4399233 100644
--- a/Codigo/modNuevoTimer.bas
+++ b/Codigo/modNuevoTimer.bas
@@ -1,39 +1,30 @@
Attribute VB_Name = "modNuevoTimer"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'Argentum Online 0.11.6
-'Copyright (C) 2002 Márquez Pablo Ignacio
+' Copyright (C) 2023 Noland Studios LTD
'
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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.
+' 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
+' GNU 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
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
diff --git a/Codigo/modSendData.bas b/Codigo/modSendData.bas
index 28cd4852..bec8317d 100644
--- a/Codigo/modSendData.bas
+++ b/Codigo/modSendData.bas
@@ -1,40 +1,30 @@
Attribute VB_Name = "modSendData"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
'
-'**************************************************************
-' SendData.bas - Has all methods to send data to different user groups.
-' Makes use of the modAreas module.
+' Copyright (C) 2023 Noland Studios LTD
'
-' Implemented by Juan Martín Sotuyo Dodero (Maraxus) (juansotuyo@gmail.com)
-'**************************************************************
-
-'**************************************************************************
-'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 free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
'
-'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
-'**************************************************************************
-
-''
-' Contains all methods to send data to different user groups.
-' Makes use of the modAreas module.
'
-' @author Juan Martín Sotuyo Dodero (Maraxus) juansotuyo@gmail.com
-' @version 1.0.0
-' @date 20070107
Option Explicit
diff --git a/Codigo/modTime.bas b/Codigo/modTime.bas
index 08a0853f..d5fb5165 100644
--- a/Codigo/modTime.bas
+++ b/Codigo/modTime.bas
@@ -1,11 +1,30 @@
Attribute VB_Name = "modTime"
-'********************* COPYRIGHT NOTICE*********************
-' Copyright (c) 2021-22 Martin Trionfetti, Pablo Marquez
-' www.ao20.com.ar
-' All rights reserved.
-' Refer to licence for conditions of use.
-' This copyright notice must always be left intact.
-'****************** END OF COPYRIGHT NOTICE*****************
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
'
Option Explicit
diff --git a/Codigo/tBaneo.cls b/Codigo/tBaneo.cls
index 9b921bc7..ab7cf4fb 100644
--- a/Codigo/tBaneo.cls
+++ b/Codigo/tBaneo.cls
@@ -11,6 +11,32 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
+' Argentum 20 Game Server
+'
+' Copyright (C) 2023 Noland Studios LTD
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Affero General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) 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
+' GNU Affero General Public License for more details.
+'
+' You should have received a copy of the GNU Affero General Public License
+' along with this program. If not, see .
+'
+' This program was based on Argentum Online 0.11.6
+' Copyright (C) 2002 Márquez Pablo Ignacio
+'
+' 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/
+'
+'
+'
Public name As String