GS-Zone

Deatmatch By ZeiDon Ir al Indice

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

19

Nota » 03 May 2009 23:03

Bueno Aca les dejo el Deatmatch que hice :

Vamos al modulo de Handledata_2 y a lo ultimo ponemos

  1. Case "/deatmatch"
  2.  
  3. If userlist(userindex).POS.map=66 then
  4. Call senddata(toindex,userindex,0,"||No escaparas." & Fonttype_talk)
  5. Exit sub
  6. End If
  7.  
  8. If userlist(userindex).flags.muerto=1 then
  9. Call senddata(toindex,userindex,0,"||Debes estar vivo." & Fonttype_talk)
  10. Exit sub
  11. End If
  12.  
  13.  
  14. If userlist(userindex).flags.paralizado= 1 then
  15. Call senddata(toindex,userindex,0,"||No escaparas." & Fonttype_talk)
  16. Exit Sub
  17. End If
  18.  
  19.  
  20. If esnewbie(userindex) then
  21. Call senddata(toindex,userindex,0,"||Debes ser mayor a 13." & Fontype_talk)
  22. Exit sub
  23. End If
  24.  
  25.  
  26. If mapinfo(userlist(userindex).pos.map).Pk = true then
  27. Call senddata(toindex,userindex,0,"|| Cuidado es zona insegura." & Fonttype_talk)
  28. Exit sub
  29. End If
  30.  
  31.  
  32. Call senddata(toindex,userindex,0,"||Has sido trasladoado." & Fonttype_talk)
  33. Call warpuserchar(userindex,X,X,X,True)
  34. Exit sub
  35. End If
  36.  
  37.  
  38.  
  39. If userlist(userindex).flags.muerto = 1 then
  40. Call senddata(toindex,userindex,0,"||Te llevaran a ulla Si esto no funciona pon /ulla o apreta f8." & Fontype_talk)
  41. Call Warpuserchar(userindex 1,50,50,true)
  42. End If
  43. Exit Sub


Edit : Listo lo edite Ahora ya es 11.2 Gracias

Edit: Se ya se lo ke pasa es que yo lo cree para fenix y me olvide de adaptarlo pense que lo habia daptado..Despues corrijo:S
Última edición por ZeiDon el 06 May 2009 14:16, editado 5 veces en total
Usuario Registrado
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 250
Aportes: 1

Nota » 03 May 2009 23:08

Pusistes Merto seria asi:

Case "/DEATHMATCH"

If userlist(userindex).POS.map=66 then
Call senddata(toindex,userindex,0,"||No escaparas." & Fonttype_talk)

If userlist(userindex).flags.muerto=1 then
Call senddata(toindex,userindex,0,"||Debes estar vivo." & Fonttype_talk)

If userlist(userindex).flags.paralizado= 1 then
Call senddata(toindex,userindex,0,"||No escaparas." & Fonttype_talk)

If esnewbie(userindex) then
Call senddata(toindex,userindex,0,"||Debes ser mayor a 13." & Fontype_talk)

If mapinfo(userlist(userindex).pos.map).Pk = true then
Call senddata(toindex,userindex,0,"|| Cuidado es zona insegura." & Fonttype_talk)

Call senddata(toindex,userindex,0,"||Has sido trasladoado." & Fonttype_talk)
Call warpuserchar(userindex,X,X,X,True)
End If


If userlist(userindex).flags.muerto = 1 then
Call senddata(toindex,userindex,0,"||Te llevaran a ulla Si esto no funciona pon /ulla o apreta f8." & Fontype_talk)
Call Warpuserchar(userindex 1,50,50,true)
End If
Exit Sub


No seria Case "#10" SERIA el comando directamente ademas seria FONTTYPE_TALK en MAYUSCULA todo..

Esto taba pero si es tu primer code ta bien


Por parte de CLIENTE no tenes que hacer nada


EDIT: Es a mi o te equivocastes de seccion si es para Fenix esta BIEN el code.

EDIT2: Ademas ta re mal xq no pusistes el Mapa para Teletransportastes y tenes que tener el comando /ULLA implementado.
Usuario Registrado
Newbie [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 104
Aportes: 4

Nota » 04 May 2009 10:40

Ah sisi Me ekivoke igual ahora cuando lo termine de adaptar editov el post..Gracias

ZeiDon
Usuario Registrado
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 250
Aportes: 1

Nota » 04 May 2009 21:53

Che, te comiste todos los Exit Sub en los Ifs

Does anybody remember laughter?
Licenciado en Cinismo
26
Oraculo [3]
Registrado: 5 Años de membresía!
Mensajes: 1557
Aportes: 1

Nota » 04 May 2009 21:55

Dijo que lo va modificar.
Usuario Registrado
Newbie [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 104
Aportes: 4

Nota » 04 May 2009 22:20

Los end IFS te faltanron TODOS.

Mira, te hago un consejo
cunado opnes

If bla bla bla Then
Call senddata bla bla bla
aca pones un END IF

y es mas organizado, siempre qe terminas un if, pones el end if

Imagen
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)

Nota » 04 May 2009 22:25

Case "/DEATHMATCH"

If userlist(userindex).POS.map=66 then
Call senddata(toindex,userindex,0,"||No escaparas." & Fonttype_talk)
End If
Exit Sub

If userlist(userindex).flags.muerto=1 then
Call senddata(toindex,userindex,0,"||Debes estar vivo." & Fonttype_talk)
End If
Exit Sub

If userlist(userindex).flags.paralizado= 1 then
Call senddata(toindex,userindex,0,"||No escaparas." & Fonttype_talk)
End If
Exit Sub

If esnewbie(userindex) then
Call senddata(toindex,userindex,0,"||Debes ser mayor a 13." & Fontype_talk)
End If
Exit Sub

If mapinfo(userlist(userindex).pos.map).Pk = true then
Call senddata(toindex,userindex,0,"|| Cuidado es zona insegura." & Fonttype_talk)
End If
Exit Sub

Call senddata(toindex,userindex,0,"||Has sido trasladoado." & Fonttype_talk)
Call warpuserchar(userindex,X,X,X,True)
End If
Exit Sub


If userlist(userindex).flags.muerto = 1 then
Call senddata(toindex,userindex,0,"||Te llevaran a ulla Si esto no funciona pon /ulla o apreta f8." & Fontype_talk)
Call Warpuserchar(userindex 1,50,50,true)
Exit Sub


Creo que ahi ta todo no se me paso nada acordate de poner el FONTTYPE_TALK en mayuscula qe keda mejor :P
Usuario Registrado
Newbie [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 104
Aportes: 4

Nota » 04 May 2009 22:58

Petin escribió:Los end IFS te faltanron TODOS.

Mira, te hago un consejo
cunado opnes

If bla bla bla Then
Call senddata bla bla bla
aca pones un END IF

y es mas organizado, siempre qe terminas un if, pones el end if


Igualmente podés hacer Ifs sin End If si los hacés en una sola línea:



Eso vale.

Does anybody remember laughter?
Licenciado en Cinismo
26
Oraculo [3]
Registrado: 5 Años de membresía!
Mensajes: 1557
Aportes: 1

Nota » 04 May 2009 23:04

Se, pero no puso then exit sub xD

Imagen
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)

Nota » 05 May 2009 14:17

Ahh se podia hacer eso..:S No sabia jeje

Salludos ZeiDon


Edit : Listo puse todo Ahora esta listo

Saludos ZeiDon
Usuario Registrado
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 250
Aportes: 1

Nota » 05 May 2009 14:41

Sos poco serio, ahora pusiste los exit sub AFUERA de los condicionales...

Does anybody remember laughter?
Licenciado en Cinismo
26
Oraculo [3]
Registrado: 5 Años de membresía!
Mensajes: 1557
Aportes: 1

Nota » 05 May 2009 18:10

Lo ke pasa es que hay gente aca (No Vos) Que me dice que haga tal cosa y despues manda fruta y me ekivoco

Saludos ZeiDon

Edit: El exit Sub va solo a lo ultimo
Usuario Registrado
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 250
Aportes: 1

Nota » 05 May 2009 18:16

ZeiDon escribió:Lo ke pasa es que hay gente aca (No Vos) Que me dice que haga tal cosa y despues manda fruta y me ekivoco

Saludos ZeiDon

Edit: El exit Sub va solo a lo ultimo



Nono, los exit subs van despues de la condicion si eso lo dejas asi te va a decir: si estas en el mapa 66 te dice no escaparas, y te lleva igual...

Raka escribió:hola.. estaba armando un hack re lindo.. tipo como bots que generen usuarios y voten en una encuesta en un foro externo. :S

Imagen
Yo le hice un gol a GS
7
Dragon Ancestral [1]
Registrado: 5 Años de membresía!
Mensajes: 2553
Aportes: 6

Nota » 06 May 2009 14:09

Ahh osea que debajo de cada end If pongo los exit?

Saludos ZeiDon


Edit : Aclaro si esta o no en mayuscula los Fonttype En el visual basic se hace solo

Saludos
Usuario Registrado
Aprendiz [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 250
Aportes: 1

Nota » 06 May 2009 14:11

ZeiDon escribió:Ahh osea que debajo de cada end If pongo los exit?

Saludos ZeiDon


Edit : Aclaro si esta o no en mayuscula los Fonttype En el visual basic se hace solo

Saludos


NO, ARRIBA de cada End If ponés un Exit Sub.

Does anybody remember laughter?
Licenciado en Cinismo
26
Oraculo [3]
Registrado: 5 Años de membresía!
Mensajes: 1557
Aportes: 1

Siguiente

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados