Comando /SeBusca! y algo mas :D

» 26 Dic 2011 04:27

Bueno como estoy al dope, les dejo este codigo.
Consiste en que algun GM tipea "/SeBusca Fulanito", escribe por consola que se busca fulanito y al matarlo, te da una recompenza.
Si ahy algun aporte similar, es pura coincidencia por que lo hice de 0. En mi caso en el aporte el que lo mata se gana una espada mata dragones.

Todo en SERVER:

Buscan:

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

If UCase$(Left$(rData, 4)) = "/REM" Then

Arriba ponen:

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

If UCase$(Left$(rData, 9)) = "/SEBUSCA " Then
rData = Right$(rData, Len(rData) - 9) 'obtiene el nombre del usuario buscado
tIndex = NameIndex(rData)
     
If tIndex <= 0 Then 'usuario Offline
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Usuario offline" & FONTTYPE_INFO)
Exit Sub
End If
 
If UserList(tIndex).flags.Muerto = 1 Then 'tu enemigo esta muerto
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El usuario que queres que sea buscado esta muerto." & FONTTYPE_INFO)
Exit Sub
End If
 
If UserList(tIndex).Pos.Map = 201 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Esta ocupado en un reto." & FONTTYPE_INFO)
Else
Call SendData(SendTarget.ToAll, 0, 0, "||Atencion!!: Se Busca el usuario " & UserList(tIndex).name & ", el que lo asesine tendra su recompenza." & FONTTYPE_GUILD)
Call SendData(SendTarget.ToIndex, tIndex, 0, "Tu eres el usuario mas buscado, ten cuidado!!." & FONTTYPE_INFO)
ElMasBuscado = UserList(tIndex).name
Exit Sub
End If
 
    Exit Sub
End If

Despues en el "Sub ActStats" antes del "End Sub" Poner:

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

'Eduardo
If UserList(VictimIndex).name = ElMasBuscado Then
Dim Recom As Obj
Recom.Amount = 1
Recom.ObjIndex = 402 'Aka si quieren reemplazan por el items suyos a ganar :D
Call MeterItemEnInventario(AttackerIndex, Recom)
Call SendData(SendTarget.ToIndex, AttackerIndex, 0, "||Has matado al mas buscado. Tu recompenza fue Una espada mata dragones." & FONTTYPE_GUILD)
Call SendData(SendTarget.ToAll, 0, 0, "Atencion!!: " & UserList(VictimIndex).name & " ha eliminado a " & UserList(VictimIndex).name & ", (el mas buscado)." & FONTTYPE_SUBASTA)
ElMasBuscado = 0
End If

en el "Sub Cerrar_Usuario" antes del "End Sub" Poner:

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

'Eduardo
If ElMasBuscado = UserList(UserIndex).name Then
Call SendData(SendTarget.ToAll, 0, 0, "Atencion!!: El más buscado se ha desconectado." & FONTTYPE_GUILD)
ElMasBuscado = 0
End If

Fin.

Ya que estamos dejo algo que no los considero aportes sino detalles:

1º Al clikiar usuarios muertos lo ves de color gris [Muerto].

Busca:

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

If UserList(TempCharIndex).flags.Privilegios > 3 Then

arriba poner:

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

'Eduardo
If UserList(TempCharIndex).flags.Muerto Then
Stat = Stat & "[Muerto] ~100~100~100~1~0"
End If

2º este es opcional, viste cuando estas en magma te sumonias endeves de salir el umo verde del FXWARP sale un umo rojizo, stylo tds.

En el sub "Sub WarpUserChar" antes del "End Sub" poner:

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

''Eduardo
If UserList(UserIndex).Pos.Map = 193 Then
    Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & FXIDs.FXWARP + 24 & ",0")
End If

Saludos!

Felices Fiestas les decea "Staff Devilish Ao"

EDIT!!!

En el modulo declaraciones, abajo de option explicit:

Public ElMasBuscado As String

Fin.

» 26 Dic 2011 04:35

copada la idea

Saludos; Luuq

» 26 Dic 2011 04:45

jaja vicio

son casi la 5

» 26 Dic 2011 04:46

Y bueno.. y encima en TDS no puedo ir a polo porque fueron como 7 pks :_ kjakja

ON: Dps veo si tengo ganas y lo adapto para binario

Saludos; Luuq

BiWolf escribió:jaja vicio son casi la 5

» 26 Dic 2011 04:48

jaja dale igual mas rato lo paso a binario igual

Saludos...

» 26 Dic 2011 05:04

buen aporte.

» 26 Dic 2011 12:49

Emmm,, en el 1er codigo que es el de /SEBUSCA,, compilo todo y me salta error en la variable "VARIABLE NO DEFINIDA"

Y me marca "ElMasBuscado"

» 26 Dic 2011 12:53

TERRYVKN escribió:Emmm,, en el 1er codigo que es el de /SEBUSCA,, compilo todo y me salta error en la variable "VARIABLE NO DEFINIDA"

Y me marca "ElMasBuscado"

En el módulo de Declaraciones, debajo de Option Explicit pone:

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

Public ElMasBuscado As Integer

Saludos !

» 26 Dic 2011 13:10

Ahora tengo otros dos problemas,, cuando le doy el /SEBUSCA a un usuario el GM se desloguea,, y el que lo mata tmb se le desloguea y no le da el Item al que lo mata,, como hago para solucionar esos problemas

» 26 Dic 2011 14:46

Copada la idea :ok:

» 26 Dic 2011 14:52

TERRYVKN escribió:Ahora tengo otros dos problemas,, cuando le doy el /SEBUSCA a un usuario el GM se desloguea,, y el que lo mata tmb se le desloguea y no le da el Item al que lo mata,, como hago para solucionar esos problemas

ami tambien me pasa..

» 26 Dic 2011 15:40

Perdon me falto la variable, no es integer como dice simp sino es "Public Elmasbuscado as String" recuerden que es una cadena de caracteres no un listado de numeros

» 26 Dic 2011 15:44

BiWolf escribió:Perdon me falto la variable, no es integer como dice simp sino es "Public Elmasbuscado as String" recuerden que es una cadena de caracteres no un listado de numeros

¿Y lo que dicen los demás qué? ¿Qué pasa con esos errores? ¿Cuáles son las soluciones? ¡Fijate :ok:

!

» 26 Dic 2011 15:54

SimP escribió:
BiWolf escribió:Perdon me falto la variable, no es integer como dice simp sino es "Public Elmasbuscado as String" recuerden que es una cadena de caracteres no un listado de numeros

¿Y lo que dicen los demás qué? ¿Qué pasa con esos errores? ¿Cuáles son las soluciones? ¡Fijate !

La solucion es "String", no "Integer". Gracias simp igual por estar atento

EDIT: Alguien puede testiar. Gracias

» 27 Dic 2011 11:30

lo testié.. pero no mate al pibe buscado.. me puse /sebusca kesekage y mando el msj a la consola correctamente

no se me deslogueo..

Comando /SeBusca! y algo mas :D

¿Quién está conectado?