[Pedido] Código VB

fechh · 16-nov-2008, 15:50

Buenas.
Bueno simplemente quiero hacer una Form nueva donde clickees en un item (Picture) y ese item vaya a tu inventario.
Algo parecido al "sistema de canje" posteado por Kroto, solo que no se como hacerlo.

Gracias (:

Petin · 16-nov-2008, 16:22

Por ejemplo vos agergaste el Case "KOTO1", bueno, vas a PROJECT, add form, y en el frm, al la izquierda busca el COMMANDBUTTON, le haces 2ble click y ahi adentro pones CALL SENDDATA("KOTO1") tonces dsp en el juego, clickeas ese boton y hace la funcion del KOTO1 y te da el item

Blade · 16-nov-2008, 16:33

lee el reglamento y te ayudo

fechh · 16-nov-2008, 16:44

Cita:

Iniciado por Blade

lee el reglamento y te ayudo

si lo decis por el título, fue sory.. no sabia como describirlo.

Bueno, la cosa es que con el sistema de canje creado por Kotox, justo lo que yo quiero no me funciona. O sea, los puntos, el Form, todo funciona bien, menos el hecho de que cuando clickeo en la imagen me viene el item. Se entiende masomenos ?
Entonces .. cuál sería el código para que cuando clickee en la imagen me de el item sin necesidad de puntos, oro, frags, o lo que sea.

Gracias again (:

agush · 16-nov-2008, 23:37

Aca te dejo uno bien completo :

Descarga el form :

[Solo Miembros registrados ven los enlaces. ]

empezamos :

Cliente:
Buscamos

Código:

Case "VAL" ' >>>>> Validar Cliente :: VAL

Arriva ponemos :

Código:

'PUNTOS TORNEOS 
 Case "PTO" 
         Rdata = Right$(Rdata, Len(Rdata) - 3) 
           UserPuntos = Rdata 
       frmcanjes.Label10.Caption = "Tus puntos son: " & UserPuntos 
       frmcanjes.Show 
 Exit Sub

Server
Buscamos:

Código:


'Summon 
If UCase$(Left$(rData, 5)) = "/SUM " Then 
   rData = Right$(rData, Len(rData) - 5)

arriva colocamos :

Código:

'Puntos Torneo If UCase$(Left$(rData, 8)) = "/DARPUN " Then 
 
rData = Right(rData, Len(rData) - 8) 
tIndex = NameIndex(rData) 
 
If tIndex <= 0 Then 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El Jugador no esta online." & FONTTYPE_INFO) 
Exit Sub 
End If 
 
UserList(tIndex).Stats.PuntosTorneo = GetVar(CharPath & tIndex & ".chr", "STATS", "PuntosTorneo") 
 
UserList(tIndex).Stats.PuntosTorneo = UserList(tIndex).Stats.PuntosTorneo + 5 
Call SendData(SendTarget.ToIndex, tIndex, 0, "||Has recibido 5 puntos de Torneo, en total tienes: " & UserList(tIndex).Stats.PuntosTorneo & FONTTYPE_INFO) 
Call WriteVar(CharPath & tIndex & ".chr", "STATS", "PuntosTorneo", UserList(tIndex).Stats.PuntosTorneo) 
Call LogGM(UserList(UserIndex).name, "/Darpun " & UserList(tIndex).name, False) 
Exit Sub 
End If

Buscar :

Código:

Case "/MEDITAR"

Arriva agregar :

Código:


Case "/CANJEAR" 
           UserList(UserIndex).Stats.PuntosTorneo = GetVar(CharPath & UserIndex & ".chr", "STATS", "PuntosTorneo") 
 Call SendData(SendTarget.ToIndex, UserIndex, 0, "PTO" & UserList(UserIndex).Stats.PuntosTorneo) 
 Exit Sub

Buscamos :

Código:

Public Type UserStats

Abajo agregamos

Código:

PuntosTorneo As Integer

Buscamos, ahora si la parte donde otorgamos premios:

Código:

Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has rechazado la oferta del otro usuario." & FONTTYPE_TALK) 
 Call FinComerciarUsu(UserIndex) 
 Exit Sub 
 '[/Alejo] 
 End Select

y abajo agregamos :

Código:

Select Case UCase$(Left$(rData, 6)) 
 
Case "CANJE1" 
Dim PremioObj As Obj 
PremioObj.Amount = 1 
PremioObj.ObjIndex = 855 
 
If UserList(UserIndex).Stats.PuntosTorneo < 45 Then 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes suficientes puntos de torneo!." & FONTTYPE_INFO) 
Else 
UserList(UserIndex).Stats.PuntosTorneo = UserList(UserIndex).Stats.PuntosTorneo - 45 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Se te han descontado 45 Pts. de Torneo y ahora te pertenece una Tunica de Mitrhil!." & FONTTYPE_INFO) 
Call MeterItemEnInventario(UserIndex, PremioObj) 
End If 
Exit Sub 
 
Case "CANJE2" 
PremioObj.Amount = 1 
PremioObj.ObjIndex = 476 
 
If UserList(UserIndex).Stats.PuntosTorneo < 25 Then 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes suficientes puntos de torneo!." & FONTTYPE_INFO) 
Else 
UserList(UserIndex).Stats.PuntosTorneo = UserList(UserIndex).Stats.PuntosTorneo - 25 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Se te han descontado 25 Pts. de Torneo y ahora te pertenece un Galeón!." & FONTTYPE_INFO) 
Call MeterItemEnInventario(UserIndex, PremioObj) 
End If 
Exit Sub 
 
Case "CANJE3" 
PremioObj.Amount = 1 
PremioObj.ObjIndex = 474 
 
If UserList(UserIndex).Stats.PuntosTorneo < 20 Then 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes suficientes puntos de torneo!." & FONTTYPE_INFO) 
Else 
UserList(UserIndex).Stats.PuntosTorneo = UserList(UserIndex).Stats.PuntosTorneo - 20 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Se te han descontado 20 Pts. de Torneo y ahora te pertenece una Barca!." & FONTTYPE_INFO) 
Call MeterItemEnInventario(UserIndex, PremioObj) 
End If 
Exit Sub 
 
Case "CANJE4" 
PremioObj.Amount = 1 
PremioObj.ObjIndex = 476 
 
If UserList(UserIndex).Stats.PuntosTorneo < 25 Then 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes suficientes puntos de torneo!." & FONTTYPE_INFO) 
Else 
UserList(UserIndex).Stats.PuntosTorneo = UserList(UserIndex).Stats.PuntosTorneo - 25 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Se te han descontado 25 Pts. de Torneo y ahora te pertenece un Galeón!." & FONTTYPE_INFO) 
Call MeterItemEnInventario(UserIndex, PremioObj) 
End If 
Exit Sub 
 
Case "CANJE5" 
PremioObj.Amount = 1 
PremioObj.ObjIndex = 857 
 
If UserList(UserIndex).Stats.PuntosTorneo < 45 Then 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes suficientes puntos de torneo!." & FONTTYPE_INFO) 
Else 
UserList(UserIndex).Stats.PuntosTorneo = UserList(UserIndex).Stats.PuntosTorneo - 45 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Se te han descontado 45 Pts. de Torneo y ahora te pertenece un Casco de Mithril!." & FONTTYPE_INFO) 
Call MeterItemEnInventario(UserIndex, PremioObj) 
End If 
Exit Sub 
 
Case "CANJE6" 
PremioObj.Amount = 1 
PremioObj.ObjIndex = 855 
 
If UserList(UserIndex).Stats.PuntosTorneo < 45 Then 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes suficientes puntos de torneo!." & FONTTYPE_INFO) 
Else 
UserList(UserIndex).Stats.PuntosTorneo = UserList(UserIndex).Stats.PuntosTorneo - 45 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Se te han descontado 45 Pts. de Torneo y ahora te pertenece una Tunica de Mitrhil!." & FONTTYPE_INFO) 
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Tus puntos actuales son " & UserList(UserIndex).Stats.PuntosTorneo & FONTTYPE_INFO) 
Call MeterItemEnInventario(UserIndex, PremioObj) 
End If 
Exit Sub 
 
End Select

Dejo la manera de hacer que sea /darpun nick@cantidad para quienes quieran (reemplazar todo el /darpun pro este)

Código:

If UCase$(Left$(rData, 8)) = "/DARPUN " Then 
 
rData = Right$(rData, Len(rData) - 8) 
tIndex = NameIndex(ReadField(1, rData, 64)) 
Arg1 = ReadField(2, rData, 64) 
 
 If tIndex <= 0 Then 
 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El usuario no esta online." & FONTTYPE_INFO) 
 Exit Sub 
 End If 
 
 
If val(Arg1) < 0 Then 
 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No podes otorgar cantidades negativas" & FONTTYPE_WARNING) 
 Exit Sub 
End If 
 
UserList(tIndex).Stats.PuntosTorneo = GetVar(CharPath & tIndex & ".chr", "STATS", "PuntosTorneo") 
 
Userlist(tIndex).Stats.PuntosTorneo = UserList(tIndex).Stats.PuntosTorneo + val(Arg1) 
Call SendData(SendTarget.ToIndex, tIndex, 0, "||Has recibido " & val(Arg1) & " puntos de Torneo, en total tienes: " & UserList(tIndex).Stats.PuntosTorneo & FONTTYPE_INFO) 
Call WriteVar(CharPath & tIndex & ".chr", "STATS", "PuntosTorneo", UserList(tIndex).Stats.PuntosTorneo) 
Call LogGM(UserList(UserIndex).name, "/Darpun " & val(Arg1) & " " & UserList(tIndex).name, False) 
 
Call SendUserStatsBox(tIndex) 
Exit Sub 
End If

Edit : Fuente : MICA - Gs Zone.

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

16-nov-2008, 16:33	#3 (permalink)
Blade FORERO UASU Ingreso: noviembre-2007 Mensajes: 207 Agradecimientos realizados: 9 Le han agradecido 2 veces en 2 Posts Reportes: 0 Reportado 1 Vez en 1 Post Poder: 45	lee el reglamento y te ayudo

Remove advertisements Sponsored links

Secciones de Interés