Transformar item

» 11 Dic 2009 20:25

Hola Este codigo me dijo una amiga que lo haga y aca va

Entonces Abrimos el server y buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Case "/RESUCITAR"

Y arriva ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

 Case "/TRANSFORMAR"
            Dim Regalo As Obj
            Regalo.ObjIndex = RandomNumber(1, 750)
            If UserList(UserIndex).flags.TargetNPC = 0 Then
               Call SendData(ToIndex, UserIndex, 0, "||Primero tenes que seleccionar un personaje, hace click izquierdo sobre el." & FONTTYPE_INFO)
               Exit Sub
           End If
           If UserList(UserIndex).flags.Muerto = 1 Then
           Call SendData(ToIndex, UserIndex, 0, "||Estas Muerto'¡" & FONTTYPE_TALK)
           Exit Sub
           End If
           If Distancia(UserList(UserIndex).Pos, Npclist(UserList(UserIndex).flags.TargetNPC).Pos) > 10 Then
               Call SendData(ToIndex, UserIndex, 0, "||El Transofrmador no puede Cambiarte el item debido a que estas demasiado lejos." & FONTTYPE_INFO)
               Exit Sub
           End If
        If Not Npclist(NpcIndex).Name = NPCTYPE_CAMBIO Then
        Call SendData(ToIndex, UserIndex, 0, "||Elige el personaje de cambio correcto" & FONTTYPE_TALK)
        Exit Sub
        End If
        If UserList(UserIndex).Invent.Object.ObjIndex = X And X And X Then
        Call TirarItemAlPiso(UserList(UserIndex).Pos.X, Regalo)
        Exit Sub
        End If
 

Ahora Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

 
Public Const NPCTYPE_PIRATA = 11

Y abajo ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Const NPCTYPE_CAMBIO = 12

Fin

Ahora si,una cosa en la ultima parte Call TirarItemAlPiso(userlist(userindex).pos.x,regalo) Bueno esa linea no estaba seguro si podieran arreglarla se los agradezco

Saludos

Edit: X reemplazarlo por el numero de item

» 13 Dic 2009 19:49

No lo lei todo, pero no vi la liínea para que le saques el item jeje, o sea lo de requerimiento, estoy estudiando pero me di una vuelta por el foro.

Fijate bien eso =D
Nos vemos!

» 06 Ene 2010 14:42

Tambien en el objeto de regalo mandaste random jajaja te terminan dando una manza y te la bancas

Ahi aclara que pongan el numero de objeto del regalo, pq sino tambien lo podes bugiar si llega a salir una silla por ejemplo

Lo que te falta arreglar es que te saque esos dos items (busca bien que esas funciones estan todas en el codigo, podes fijarte cuando le vendes a un npc creo que la funcion se llama destroy algo asi..) y estaria bueno que el item te lo pusiera en el inventario :wink:

» 06 Ene 2010 21:20

Estan las dos funciones si no me equivoco:

Meteriteminventario y quitariteminventario.
Shackox me parece que flasheaste algo con 12.1 creo...

OFF: Te hicieron especialista?

Transformar item

¿Quién está conectado?