Pedido...

Estado
Cerrado para nuevas respuestas.

Sedyus

Newbie Lvl 1
Por favor nesecito estos codigos:

Nivel=X (Osea q el user nesecita lv "X" par ausar un objeto

Mamagia= (Osea q si pongo esto en los dats sube tanto poder en el daño magico teniendo esta arma puesta)

Magolpe( Lo mismo q arriva pero con el golpe mano a mano

/Hogar al morir t lleve a ulla.

Nesecito programador tamb plis nesecito respuestas y quiero q funken en AoReady ultima vercion la 6.0 la ultima va


<a href="mailto:[email protected]" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">[email protected]</a> si sos programador
 

CHOTS

Director LapsusAO
/HOGAR

lo de /hogar

If UCase$(rdata) = "/hogar" Then
If UserList(UserIndex).flags.Muerto = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas vivo!! Solo puedes ir a tu hogar si estas muerto. " & FONTTYPE_INFO)
Exit Sub
End If

Call WarpUserChar(UserIndex, 1, 50, 50, True) 'aca las coordenadas del hogar en este ejemplo ulla


En el Server:

abajo de:

Call SendData(ToIndex, VictimIndex, 0, "||" & UserList(AttackerIndex).Name & " te ha matado!" & FONTTYPE_FIGHT)

poner

Call SendData(ToIndex, VictimIndex, 0, "Puedes Utilizar el Comando /hogar para ir a Ullatorphe!" & FONTTYPE_FIGHT)


En el Cliente:

abajo de:

Call AddtoRichTextBox(frmMain.RecTxt, "La criatura te ha matado!!!", 255, 0, 0, True, False, False)

poner

Call AddtoRichTextBox(frmMain.RecTxt, "Puedes Utilizar el Comando /hogar para ir a Ullatorphe!!!!", 0, 255, 0, False, True, False


Lo otro fijate, staffdamagebonus y staffafected en los dats de los bacus

Suerte
 
A

Anonymous

Invitado
El de /HOGAR esta mal, siempre hay que ponerlo en mayuscula, ademas abajo pusiste exit sub y abajo end if y despues de que temrinaste todo el call war char user o como sea XD va antes eso con un else osea

If UCase$(rdata) = "/hogar" Then
If UserList(UserIndex).flags.Muerto = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas vivo!! Solo puedes ir a tu hogar si estas muerto. " & FONTTYPE_INFO)
else
Call WarpUserChar(UserIndex, 1, 50, 50, True)
End If

y el end sub no lo pongas nunca en comandos :S
 

CHOTS

Director LapsusAO
Anonymous dijo:
El de /HOGAR esta mal, siempre hay que ponerlo en mayuscula, ademas abajo pusiste exit sub y abajo end if y despues de que temrinaste todo el call war char user o como sea XD va antes eso con un else osea

If UCase$(rdata) = "/hogar" Then
If UserList(UserIndex).flags.Muerto = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas vivo!! Solo puedes ir a tu hogar si estas muerto. " & FONTTYPE_INFO)
else
Call WarpUserChar(UserIndex, 1, 50, 50, True)
End If

y el end sub no lo pongas nunca en comandos :S

Bueno algo asi :p...

Taba apurado
 

CHOTS

Director LapsusAO
ACA UN /HOGAR MEJORADO

Case "/HOGAR"
If EsNewbie(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Los Newbies no Pueden Utilizar este Comando!!!." & FONTTYPE_INFO)
End If
If UserList(UserIndex).flags.Muerto = 1 Then
Call WarpUserChar(UserIndex, 1, 78, 69, True)
Else
Call SendData(ToIndex, UserIndex, 0, "||¡¡Tenes que estar muerto para poder usar este comando!!!." & FONTTYPE_INFO)
End If
Exit Sub
 
Estado
Cerrado para nuevas respuestas.
Arriba