-
-
Notifications
You must be signed in to change notification settings - Fork 23
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Added License notice header in the source code
- Loading branch information
Showing
113 changed files
with
2,871 additions
and
1,387 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' for more information about ORE please visit http://www.baronsoft.com/ | ||
| ' | ||
| ' | ||
| ' | ||
| Option Explicit | ||
|
|
||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' for more information about ORE please visit http://www.baronsoft.com/ | ||
| ' | ||
| ' @authors | ||
| ' Martin Trionfetti | ||
| ' Pablo Marquez - [email protected] | ||
| ' | ||
| ' @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 | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' 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 [email protected] | ||
| 'for more information about ORE please visit http://www.baronsoft.com/ | ||
| ' | ||
| ' | ||
| 'You can contact me at: | ||
| '[email protected] | ||
| '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 | ||
|
|
||
|
|
||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' 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 [email protected] | ||
| 'for more information about ORE please visit http://www.baronsoft.com/ | ||
| ' | ||
| ' | ||
| 'You can contact me at: | ||
| '[email protected] | ||
| '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 | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' for more information about ORE please visit http://www.baronsoft.com/ | ||
| ' | ||
| ' | ||
| ' | ||
| Option Explicit | ||
|
|
||
| Implements IBaseEffectOverTime | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' for more information about ORE please visit http://www.baronsoft.com/ | ||
| ' | ||
| ' | ||
| ' | ||
| Option Explicit | ||
|
|
||
| Implements IBaseEffectOverTime | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' 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 | ||
|
|
||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 <https://www.gnu.org/licenses/>. | ||
| ' | ||
| ' 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 [email protected] | ||
| ' for more information about ORE please visit http://www.baronsoft.com/ | ||
| ' | ||
| ''***************************************************** | ||
| 'Sistema de Comercio para Argentum Online | ||
| 'Programado por Nacho (Integer) | ||
| '[email protected] | ||
| '***************************************************** | ||
|
|
||
| '************************************************************************** | ||
| '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 | ||
|
|
||
|
|
||
Oops, something went wrong.