| ¿Quién está en línea? | En total hay 18 usuarios en línea: 0 Registrados, 0 Ocultos y 18 Invitados Ninguno El record de usuarios en línea fue de 77 durante el Dom Oct 27, 2024 11:28 am |
| Estadísticas | Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu
Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.
|
|
| | Algunos Codigos que hice. |  |
| | | Autor | Mensaje |
|---|
WhoTeR
Director de Tropas
Cantidad de envíos : 143
Fecha de inscripción : 28/07/2013
| Tema: Algunos Codigos que hice.  Mar Jul 30, 2013 7:51 pm | |
| Modificar el nivel maximo del servidor para mod 11.5 - Spoiler:
Servidor- Spoiler:
Buscamos: - Código:
-
'Estadisticas Les va a aparecer mas abajo esto: - Código:
-
Public Const STAT_MAXELV As Byte = 47
Public Const STAT_MAXHP As Integer = 999
Public Const STAT_MAXSTA As Integer = 999
Public Const STAT_MAXMAN As Integer = 3000
Public Const STAT_MAXHIT_UNDER36 As Byte = 99
Public Const STAT_MAXHIT_OVER36 As Integer = 999
Public Const STAT_MAXDEF As Byte = 99 y modifican esto: - Código:
-
Public Const STAT_MAXELV As Byte = 47 Por: - Código:
-
Public Const STAT_MAXELV As Byte = x 'modifican la x por el numero que quieren osea el nivel.
Click secundario equipa item mod 11.5 - Spoiler:
bueno empezamos llendo al modulo de clase clsGrapchicalInventory Ahi adentro buscamos: - Código:
-
Private Sub InventoryWindow_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) En ese sub arriba de la linea esta: - Código:
-
#If ConMenuesConextuales = 1 Then Ponen esto: - Código:
-
If Button = vbKeyRButton Then
If (Inventario.SelectedItem > 0) And (Inventario.SelectedItem < MAX_INVENTORY_SLOTS + 1) Then _
SendData "EQUI" & Inventario.SelectedItem
End If
Mensajes fijos cada x minutos por consola(para mod 11.5): - Spoiler:
Creamos un timer en el frmMain con el nombre "Whoter" con intervalo de 60000, adentro del code de ese Timer ponemos: - Código:
-
Dim MinutosPorTimer As Byte
MinutosPorTimer = MinutosPorTimer + 1
If MinutosPorTimer = 30 Then
MinutosPorTimer = 0
Call SendData(SendTarget.ToAll, 0, 0, "||Gracias por estar conectados a estas horas, pequeños giles" & FONTTYPE_INFO)
End If
Ocultar Minimapa(para mod 11.5): - Spoiler:
Empezamos: En el evento MouseMove del Minimap ponen: - Código:
-
MiniMap.Visible = False En el evento MouseMove del frmMain o su formulario principal agregan: - Código:
-
If MouseY <= MiniMap.Top Then
Call MostrarMinimapa
End If
If MouseX <= MiniMap.Left Then
Call MostrarMinimapa
End If
If MouseY >= MiniMap.Top + MiniMap.Height Then
Call MostrarMinimapa
End If
If MouseX >= MiniMap.Left + MiniMap.Width Then
Call MostrarMinimapa
End If Al final del código del frmMain ponen: - Código:
-
Sub MostrarMinimapa()
If MiniMap.Visible = True Then Exit Sub
MiniMap.Visible = True
End Sub
Bueno eso es todo. 1 solo codigo lo saque de Gs Zone los otros los hice yo  | |
| | | | Trogclodita
Director de Tropas
Cantidad de envíos : 144
Fecha de inscripción : 18/07/2013
| | Tema: Re: Algunos Codigos que hice. Mar Jul 30, 2013 8:03 pm | |
| 1 solo? Están todos aportados en GS, deja fuente por favor. Gracia por traer las cosas al foro  | |
| | | | WhoTeR
Director de Tropas
Cantidad de envíos : 143
Fecha de inscripción : 28/07/2013
| | Tema: Re: Algunos Codigos que hice. Mar Jul 30, 2013 8:44 pm | |
| si 1 solo primero fijate bien y despues acota porque yo los modifique porque algunos no funcionaban y yo los solucione. deja de acotar asi nomas. | |
| | | | Trogclodita
Director de Tropas
Cantidad de envíos : 144
Fecha de inscripción : 18/07/2013
| | Tema: Re: Algunos Codigos que hice. Mar Jul 30, 2013 8:51 pm | |
| Igualmente, te basaste en los codigos de ellos tenes que poner que la fuente es GS, por lo menos como base. Y no se si yo soy el de aca acotar por acotar.
No comentes más, si queres te demuestro que esto esta todo en gs por MP. | |
| | | | WhoTeR
Director de Tropas
Cantidad de envíos : 143
Fecha de inscripción : 28/07/2013
| | Tema: Re: Algunos Codigos que hice. Miér Jul 31, 2013 8:18 pm | |
| es verdad la base de algunos son de gs menos el ocultar minimapa que lo hice yo solo.
soy sheils en Gs Zone. | |
| | | | Tomm-
Director
Cantidad de envíos : 113
Fecha de inscripción : 27/07/2013
| | Tema: Re: Algunos Codigos que hice. Miér Jul 31, 2013 8:37 pm | |
| Buen aporte, el ante ultimo que función tendría? | |
| | | | Trogclodita
Director de Tropas
Cantidad de envíos : 144
Fecha de inscripción : 18/07/2013
| | Tema: Re: Algunos Codigos que hice. Miér Jul 31, 2013 8:48 pm | |
| - Tomm- escribió:
- Buen aporte, el ante ultimo que función tendría?
Vendría a ser que cada x tiempo te aparece un mensaje en consola, por lo que entiendo yo. Por favor, este tipo de consultas mandalas por MP. | |
| | | | WhoTeR
Director de Tropas
Cantidad de envíos : 143
Fecha de inscripción : 28/07/2013
| | Tema: Re: Algunos Codigos que hice. Jue Ago 01, 2013 5:51 pm | |
| - Tomm- escribió:
- Buen aporte, el ante ultimo que función tendría?
lo que haria es que cada X minutos manda un mensaje por consola diciendo por ejemplo: Gracias por jugar a este Servidor sigan online y que se diviertan. Algo asi, vos lo modificas como quieras ajaj | |
| | | | ZankuR
Director
Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013
| | Tema: Re: Algunos Codigos que hice. Vie Ago 02, 2013 9:52 pm | |
| Muy buen aporte!! me encanto! suerte y segui Asi! | |
| | | | Contenido patrocinado
| | Tema: Re: Algunos Codigos que hice. | |
| |
| | | | | | Algunos Codigos que hice. | |
|
Temas similares | |
|
| | Permisos de este foro: | No puedes responder a temas en este foro.
| |
| |
| | Afiliados | 
 |
| Últimos Concursos |  |
| Secciones | Offtopic:  ServersAO:  Presentate:  |
|
