[Aporte] Codigo de canjes y dar puntos

**Lorenax** · 20-nov-2008, 12:36

Hola, me guie en la base que hizo koto del sistema de canjes y lo fui mejorando con ustedes, el code lo tuve siempre en StarWarsAO y siempre andubo, asi que ahora que lo cerre al server lo comparto con ustedes.

Empezamos?

Primero CLIENTE:

Vamos a crear un nuevo form con el nombre frmcanjes y las siguientes caracteristicas:
1 picture box para la Imagen
1 label para la info
1 label con el caption Puntos Libres
1 label con el nombre trofeoS
1 command boton con el caption SALIR
vamos al code del frm y escribimos:

Código:

 
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Picture1_Click()
Call SendData("LORE1")
frmcanjes.Visible = False
End Sub
Private Sub Form_Load()
Call SendData("/TROFEOS")
End Sub

Ahora buscamos:

Código:

 
Case "STA"

y abajo del exit sub ponemos:

Código:

 
 
 Case "TRN"
            frmcanjes.trofeoS.Caption = Val(Right$(Rdata, Len(Rdata) - 3))
    Exit Sub

en el frmMain agregamos un boton con el caption PREMIOS y le hacemos doble click y le ponemos:

Código:

 
frmcanjes.Show vbModal

SERVIDOR:

Buscamos:

Código:

Case "COMUSUNO"

y abajo del end select ponemos:

Código:

 
Select Case UCase$(Left$(rData, 5))
Case "LORE1"
Dim Sarasa As Obj
Sarasa.Amount = 1 'cantidad de objetos
Sarasa.ObjIndex = 123 'numero de objeto se fijan del dat jaja
If UserList(UserIndex).Stats.PuntosTorneo < 50 Then 'el 50 por la cantidad de puntos
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes suficientes puntos de torneo!." & FONTTYPE_INFO)
Else
UserList(UserIndex).Stats.PuntosTorneo = UserList(UserIndex).Stats.PuntosTorneo - 50 'el 50 por la cantidad de puntos
Call MeterItemEnInventario(UserIndex, Sarasa)
End If
Exit Sub' yo le cambie KOTO por LORE pero lo hizo koto esta parte

Buscamos:

Código:

case "/salir"

y arriva ponemos:

Código:

 
Case "/TROFEOS"
        Call EnviarPuntosT(UserIndex)
        Exit Sub

en declaraciones buscamos:

Código:

SkillPts As Integer

y abajo ponemos:

Código:

PuntosTorneo As Integer

en loaduserstats buscamos:

Código:

 
UserList(UserIndex).Stats.SkillPts = CInt(UserFile.GetValue("STATS", "SkillPtsLibres"))

y abajo ponemos:

Código:

 
UserList(UserIndex).Stats.PuntosTorneo = CInt(UserFile.GetValue("STATS", "Torneo"))

en saveuser buscamos:

Código:

 
Call WriteVar(UserFile, "STATS", "SkillPtsLibres", CStr(UserList(UserIndex).Stats.SkillPts))

y abajo ponemos:

Código:

 
Call WriteVar(UserFile, "STATS", "Torneo", CStr(UserList(UserIndex).Stats.PuntosTorneo))

Buscamos:

Código:

Sub EnviarOro(ByVal UserIndex As Integer)

y arriva ponemos:

Código:

 
Sub EnviarPuntosT(ByVal UserIndex As Integer)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "TRN" & UserList(UserIndex).Stats.PuntosTorneo)
End Sub

Buscamos dentro del /mod buscamos

Código:

 
Case "ORO"

y abajo del exit sub ponemos:

Código:

 
'Lorenax
Case "PUN"
If tIndex <= 0 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El Jugador no esta online." & FONTTYPE_VENENO)
Exit Sub
End If
If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub
If val(Arg2) < 500 Then
UserList(tIndex).Stats.PuntosTorneo = val(Arg2)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Recibiste puntos de torneo debido a algun premio." & FONTTYPE_VENENO)
Call SendData(SendTarget.ToAll, UserIndex, 0, "||Sistema de torneo> Se han dado puntos de torneo al ganador de este mismo, gracias por participar." & fonttype_veneno)
 
Call SendUserStatsBox(tIndex)
Else
Call SendData(ToIndex, UserIndex, 0, "||No esta permitido utilizar valores nayores. Su comando ha quedado en los logs del juego." & FONTTYPE_CONSEJO)
Exit Sub
End If
'Lorenax

Codigo Base echo por Kotox, modificado por mi.
Si tienen problemas avisen........
saludos.

EDIT: Me olvide de decir que cada mas objetos que quieran poner en los canjes tienen que hacer mas paketes por ejemplo si quieren 10 ojetos en el canjes tienen que poner 10 picturebox 10 labeles para la info y adentro tienen que poner mas lore1 lore2 etc todo asi dsps en el srv tmb mas lore1 lore2 lore3 etc

EDIT2: Miren para los que no saben como poner los picture box, labeles y demás:

mas claro no creo que se pueda xD

sasque · 20-nov-2008, 13:21

Lorenax puede ser posible que adaptes ese codigo para la 0.12.1 por favor.. Lo ando super necesitando..
Graciass

Edit... Porfa lorenax, Kotox o cualquiera que quiera ayudarme..

(G)onza(h) · 20-nov-2008, 13:35

Che es parecido al de Kotox, pero el de cotox al relogear se te van los puntos. El que isistes vos cuando relogeas se te kedan los puntos de torneo?

**KoTox** · 20-nov-2008, 15:05

Claro el que hice yo fue solo un molde para que lso demas puedan hacer uno mejor.

Gracias Lorenax

**Lorenax** · 20-nov-2008, 18:15

Denada tio, lo que le implemente al modelo de kotox es lo siguiente:

Escribe los puntos en el charfile. si se fijan los writevar se dan cuenta.
le agrege el laber con la cantidad de puntos que tienen
en ves de /pun el comando puse para que sea con el /mod nick pun cantidad asi elejis la cantidad de una vez sola
si quieren pueden mejorarlo, todavia se puede hacer cosas con este sistema

saludos

EDIT: sasque lamentablemente no conosco mucho el 0.12.1 tendria que fijarme como adaptarlo pero se me hace como que no debe ser muy dificil. Busca en algun lado como se adapta de 0.11.5 a 0.12.1 y fijate como podes hacer.

AleehStar · 20-nov-2008, 18:24

Hola lo quiero hacer este code pero donde tengo que ir para encontrar:
1 picture box para la Imagen
1 label para la info
1 label con el caption Puntos Libres
1 label con el nombre trofeoS
1 command boton con el caption SALIR

Alkan · 20-nov-2008, 18:53

En la barra de herramientas

hay haces los labels y demases

Este codigo no es para gente que no sabe ni abrir un form, supongo..

**Lorenax** · 20-nov-2008, 21:05

Mira ahora estoy en la notebook no tengo el visual basic sino te subo una foto, pero cuando poner para poner un nuevo form ahi en la barra de herramientas tenes cosas para poner labeles, pictures, timers, de todo, es eso lo que tenes que hacer. Ahora veo se le saco la PC a mi hno por 5 segundos y te saco una foto jeje

sasque · 21-nov-2008, 10:48

[Solo Miembros registrados ven los enlaces. ] podes adaptarmelo para la 0.12.1 por favor. lo ando re necesitando

**Lorenax** · 21-nov-2008, 12:46

Ahora me dejan en la PC mia y lo adapto para 12.1 calculale a las 15 hs esta seguro

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

Remove advertisements Sponsored links