[Aportes indexados] Palabras magicas, ciuda y crimi, distinto color COMPLETO,

Estado
Cerrado para nuevas respuestas.

Kelhem

Newbie Lvl 1
Deben reemplazar todo el sub decirpalabrasmagicas por este:

Código:
Sub DecirPalabrasMagicas(ByVal s As String, ByVal UserIndex As Integer)
On Error Resume Next
 
    Dim pil As String
    pil = UserList(UserIndex).Char.charindex
If Criminal(UserIndex) Then
    Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbyellow& "°" & s & "°" & pil)
ElseIf Not Criminal(UserIndex) Then
    Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbcyan & "°" & s & "°" & pil)
End If
    Exit Sub
End Sub

Bueno este code lo hice ya hace tiempo, no tiene mucha utilidad, pero esta bueno :) :)
Panchito.
 

Cavallero

Destructor Lvl 5
ese codigo pareke el de SlkGames :S

i encima ese codigo lo sabe todo el mundo ¬¬ i creo ke ya fue publicado aki.

Atte.Cavallero.
 

Owangel

Delirando
Pues si es de Slk lo único que tiene que hacer es mencionar la fuente... Nunca está de más un aporte, y es imposible saber si ese código ya lo conocen todos...
 

Ladder

Noicoder FANS!
Colaborador
off:Lo que daria por un ban a cavallero, realmente no me cae para nada bien :)


on: El codigo es sencillo, pero util.




Saludos
 

About

Director del Proyecto
Fomenta rol, más que nada. Está muy lindo la verdad. Nunca está demás un aporte ^^
 

Owangel

Delirando
PABLITO_3_15 dijo:
off:Lo que daria por un ban a cavallero, realmente no me cae para nada bien :)

Cuidá un poco más lo que decís, no fomentés bronca... :S

Yo traté de cambiar la fuente de las palabras mágicas, pero no me salió... :p
(Si, ya se que hay que cambiar la fuente del frmMain, pero yo hablo de poner una fuente DISTINTA a la de ese formulario... xD)
 
Estado
Cerrado para nuevas respuestas.
Arriba