» 04 Oct 2009 23:05 Pocion que te resuciita en cualkier lugar del mapa si estas muerto
Abrimos el sv y buscamos:
- Case 6 'Pocion Negra
Debajo del ultimoend if y antes del end select ponemos:
- Case 7
- If UserList(UserIndex).flags.Muerto = False Then
- Call SendData(ToIndex, UserIndex, 0, "||Ya estas vivo" & FONTTYPE_TALK)
- Exit Sub
- End If
- If UserList(UserIndex).flags.Muerto = True Then
- Call SendData("/RESUCITAR")
- Call QuitarUserInvItem(UserIndex, Slot, 1)
- Exit Sub
- End If
Luego Buscamos:
- Public Const OBJTYPE_MANCHAS = 35
Abajo ponemos:
- Public Const OBJTYPE_RESU = 36
-----------------------------------------------------------------------------------------------------------------------------------
2) Adaptacion de 115 a 112 de la gripe A
SERVER:
Buscamos:
- IntervaloVeneno = val(txtIntervaloVeneno.Text)
Abajo ponemos:
- IntervaloGripe = val(txtIntervaloGripe.Text)
Buscamos:
- Call WriteVar(IniPath & "Server.ini", "INTERVALOS", "IntervaloVeneno", str(IntervaloVeneno))
Abajo ponemos:
- Call WriteVar(IniPath & "Server.ini", "INTERVALOS", "IntervaloGripe", str(IntervaloGripe))
Buscamos:
- Case 6 ' Pocion Negra
- If UserList(UserIndex).flags.Privilegios = 0 Then
- Call QuitarUserInvItem(UserIndex, Slot, 1)
- Call UserDie(UserIndex)
- Call SendData(ToIndex, UserIndex, 0, "||Sientes un gran mareo y pierdes el conocimiento." & FONTTYPE_FIGHT)
- End If
Aabajo ponemos:
- Case 7 ' Medicina
- If UserList(UserIndex).flags.TieneGripeA = True Then
- UserList(UserIndex).flags.Medicado = True
- UserList(UserIndex).flags.YaMeCure = True
- Call SendData(ToIndex, UserIndex, 0, "||Al recibir la medicina tu organismo expulsa rápidamente al virus H1N1." & FONTTYPE_FIGHT)
- exit sub
- Else
- If UserList(UserIndex).flags.YaMeCure = True Then
- Call SendData(ToIndex, UserIndex, 0, "||No estás enfermo." & FONTTYPE_FIGHT)
- exit sub
- End If
Buscamos:
- Public IntervaloVeneno As Integer
Abajo ponemos:
- Public IntervaloGripe As Integer
Buscamos:
- Public Const FONTTYPE_TALK = "~255~255~255~0~0"
Abajo ponemos:
- Public Const FONTTYPE_GRIPE As String = "~0~100~255~1~0"
Buscamos:
- Type UserFlags
Abajo ponemos:
- Medicado As Integer
- TieneGripeA As Byte
- YaMeCure As Integer
Buscamos:
- Public Sub EfectoVeneno(UserIndex As Integer, EnviarStats As Boolean)
Arriva ponemos:
- Public Sub GripeA(UserIndex As Integer)
- Dim G As Byte
- Dim Temperatura As Integer
- Temperatura = RandomNumber(37, 41)
- G = RandomNumber(10, 35)
- If UserList(UserIndex).flags.TieneGripeA = True Then
- UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MinHP - G
- Call SendData(ToIndex, UserIndex, 0, "||Tienes " & Temperatura & " grados de fiebre, lo cúal pierdes defensas y una enfermedad habita en tu cuerpo. ¡Bébe la medicina rápido o morirás!." & FONTTYPE_GRIPE)
- Call SendData(ToIndex, UserIndex, 0, "||Pierdes " & G & " puntos de vida debido a la enfermedad que tienes." & FONTTYPE_GRIPE)
- Exit Sub
- Else
- Exit Sub
- End If
- End Sub
ahora vamos a frmmain y creamos un timer llamado :
tim_Grip
interval : 60000
Enabled = true
y le ponemos de codigo :
Static Horas As Integer
Static Min As Integer
- Min = Min + 1
- If Minutos = 20 Then
- Minutos = 0
- Call GripeA(UserIndex)
- exit sub
- End If
Y termino,La verdad los aporto porque en 112 hay gente que lo utiliza y de codigos no hay nada
Saludos
![Oraculo [4]](./images/ranks/Rango28.gif "Oraculo [4]")
867 
.
![Aprendiz [5]](./images/ranks/Rango10.gif "Aprendiz [5]")
