GS-Zone

Mensajes al azar por consola cada X tiempo Ir al Indice

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

27

Nota » 22 Ene 2012 20:31

Me lo pidieron en otro foro y bue, estoy al pedo, el que lo quiere aca lo tiene :P

No esta testeado.

Declaran:


Hacen un Timer con nombre "Lekasak_es_un_groso" (? y con interval de 60000 y adentro pones:

  1. '*************** S-A AO ***************
  2. 'Author: Lekasak
  3. 'Last Modify Date: 22/01/2012
  4. 'Comments: Me base en el codigo de Nethird de spam de web :B
  5. '*************** S-A AO ****************
  6.  
  7. Dim NumeroDeMensaje As Byte
  8.  
  9. NumeroDeMensaje = RandomNumber(1, 3) 'cambian el 3 por lo que quieran y despues ponen que mensajes manda.
  10.  
  11. If MINUTOSSPAM = 15 Then 'Si quieren pueden reemplazar 15 por los minutos que van a poner.
  12. MINUTOSSPAM = 0
  13. If NumeroDeMensaje = 1 Then
  14. Call SendData(Sendtarget.ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  15. ElseIf NumeroDeMensaje = 2 Then
  16. Call SendData(Sendtarget.ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  17. ElseIf NumeroDeMensaje = 3 Then
  18. Call SendData(Sendtarget.ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  19. End If
  20.  
  21. MINUTOSSPAM = MINUTOSSPAM + 1
  22. End Sub
  23.  
Última edición por Lekasak el 24 Ene 2012 17:36, editado 2 veces en total

Imagen


Gaara escribió:Me Caen Mal El Tipo De Personas Que Cuando Estas leveleando En Gathering(Por ejemplo)
Viene Un Neutro y te mata...Volves y Te Mata Lo Bardeas y le avisa al Gm y Te banea :@
Barrilete cósmico ^^
364
Aprendiz [6]
Registrado: Años de membresía
Ubicación: en mi casa
Mensajes: 439
Aportes: 2

Nota » 22 Ene 2012 20:32

esto ta 300 veces pero bue, se agradese

¿Tu área de especialidad es Graficación o Mapeación? Te presento el proyecto serio que esperabas para trabajar...

~ Para que aprendas ~
821
Dragon Ancestral [2]
Registrado: Años de membresía
Mensajes: 2707
Aportes: 98

Nota » 22 Ene 2012 22:30

Una pregunta, aparece cada 1 hora no?

Edit: A y te pediria porfavor si podrias aclarar donde va el codigo, si en el Cliente o el Servidor :P

Edit2: Tengo un Problemita, yo hago el timmer, y adentro pongo el codigo y me salta "Bloque If sin End If" ,, me marca el End Sub.

Imagen

Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128

Nota » 22 Ene 2012 22:51

Lindo codigo, simple y eficaz (?

Imagen
Martin.-
92
Newbie [1]
Registrado: Diciembre 2011
Ubicación: Belgrano
Mensajes: 11
Aportes: 1

Nota » 23 Ene 2012 09:26

ViGG.- escribió:Lindo codigo, simple y eficaz (?


Si spieras asjkdhaskjdhaskj

Che como que te falto el sendtarget. no :roll:

http://www.Servers-Argentum.foroactivo.com"

Traidooooooooooooooooooooooooorrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr :@

Te matare por traicionar a esta comunidad :|

Off : Ilaisa mi chica lindap
(" 3 cosas ")
1 : Adelante de los toall tenes que poner sendtarget. .....Entonces quedaria haci call SendData(sendtarget.ToAll
2 : Antes del end sub agrega un hermoso end if así onda re lindo como yo
3 : Va en el servidor
4 : Todo bien ? xD
Última edición por miqueas150 el 23 Ene 2012 09:30, editado 2 veces en total

Imagen
Ninja en progreso
924
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 23 Ene 2012 18:27

Muy largo alpedo, se puede hacer mucho mejor, buen aporte igual.

Saludos ^^

Imagen
Imagen
Staff Zeiked-Games
641
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3416
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)

Nota » 23 Ene 2012 18:34

miqueas150 escribió:
ViGG.- escribió:Lindo codigo, simple y eficaz (?


Si spieras asjkdhaskjdhaskj

Che como que te falto el sendtarget. no :roll:

http://www.Servers-Argentum.foroactivo.com"

Traidooooooooooooooooooooooooorrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr :@

Te matare por traicionar a esta comunidad :|

Off : Ilaisa mi chica lindap
(" 3 cosas ")
1 : Adelante de los toall tenes que poner sendtarget. .....Entonces quedaria haci call SendData(sendtarget.ToAll
2 : Antes del end sub agrega un hermoso end if así onda re lindo como yo
3 : Va en el servidor
4 : Todo bien ? xD


Mi hermoso mique, antes de toall, puse Sendtarget como me dijistes, me quedó asi:
Call SendData(SendTarget, ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)

PERO, me tira error mi miqueas "Se Esperaba una variable o un procedimiento, no un tipo enumerado", me marca SendTarget, que es lo que me dijistes que ponga :P,,

Imagen

Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128

Nota » 23 Ene 2012 18:36

  1. static Segundos as long
  2. dim numerodemensajes as byte
  3.  
  4. segundos=segundos+1
  5.  
  6. numerodemensajes=randomnumber(1,3)
  7.  
  8. if minutosspam = segundos then
  9.  
  10. select case numerodemensaje
  11.  
  12.     case 1
  13.         Call SendData(sendtarget.ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  14.     case 2
  15.         Call SendData(sendtarget.ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  16.     case 3
  17.        
  18.         Call SendData(sendtarget.ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  19. end select
  20.  
  21. segundos=0
  22.  
  23. end if


  1. public const MINUTOSSPAM as byte= 15 ' minutos


Saludos ^^
Última edición por Samke el 24 Ene 2012 22:22, editado 2 veces en total

Imagen
Imagen
Staff Zeiked-Games
641
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3416
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)

Nota » 23 Ene 2012 18:39

Samke escribió:
  1. static Segundos as long
  2.  
  3. segundos=segundos+1
  4.  
  5. numerodemensajes=randomnumber(1,3)
  6.  
  7. if minutosspam = segundos then
  8.  
  9. select case numerodemensaje
  10.  
  11.     case 1
  12.         Call SendData(ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  13.     case 2
  14.         Call SendData(ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  15.     case 3
  16.        
  17.         Call SendData(ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  18. end select
  19.  
  20. segundos=0
  21.  
  22. end if


  1. public const MINUTOSSPAM as byte= 15 ' minutos


Saludos ^^


para que es eso??.. esta mejorado ahi no?, como modifico la cantidad de tiempo xD ?

Edit: Ah perdon no habia visto el public const xD, ya ta,, una preguntita como hago si quiero que mande los 3 al mismo tiempo??
Última edición por Ilaisa el 23 Ene 2012 18:41, editado 1 vez en total

Imagen

Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128

Nota » 23 Ene 2012 18:40

Ilaisa escribió:
miqueas150 escribió:
ViGG.- escribió:Lindo codigo, simple y eficaz (?


Si spieras asjkdhaskjdhaskj

Che como que te falto el sendtarget. no :roll:

http://www.Servers-Argentum.foroactivo.com"

Traidooooooooooooooooooooooooorrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr :@

Te matare por traicionar a esta comunidad :|

Off : Ilaisa mi chica lindap
(" 3 cosas ")
1 : Adelante de los toall tenes que poner sendtarget. .....Entonces quedaria haci call SendData(sendtarget.ToAll
2 : Antes del end sub agrega un hermoso end if así onda re lindo como yo
3 : Va en el servidor
4 : Todo bien ? xD


Mi hermoso mique, antes de toall, puse Sendtarget como me dijistes, me quedó asi:
Call SendData(SendTarget, ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)

PERO, me tira error mi miqueas "Se Esperaba una variable o un procedimiento, no un tipo enumerado", me marca SendTarget, que es lo que me dijistes que ponga :P,,


Es sendtarget.toall no ,
igual usa la forma de la que la dejo Samke ta mucho mejor pero agrega el sendtarget.

Imagen
Ninja en progreso
924
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 23 Ene 2012 18:42

Ilaisa escribió:
Samke escribió:
  1. static Segundos as long
  2.  
  3. segundos=segundos+1
  4.  
  5. numerodemensajes=randomnumber(1,3)
  6.  
  7. if minutosspam = segundos then
  8.  
  9. select case numerodemensaje
  10.  
  11.     case 1
  12.         Call SendData(ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  13.     case 2
  14.         Call SendData(ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  15.     case 3
  16.        
  17.         Call SendData(ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  18. end select
  19.  
  20. segundos=0
  21.  
  22. end if


  1. public const MINUTOSSPAM as byte= 15 ' minutos


Saludos ^^


para que es eso??.. esta mejorado ahi no?, como modifico la cantidad de tiempo xD ?

Edit: Ah perdon no habia visto el public const xD, ya ta,, una preguntita como hago si quiero que mande los 3 al mismo tiempo??


Copia alguna linea de las de mensajes y ponela abajo de algun case, y si toca el numero 1 te tira 2 mensajes.

Saludos ^^

Imagen
Imagen
Staff Zeiked-Games
641
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3416
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)

Nota » 23 Ene 2012 18:45

Samke escribió:
Ilaisa escribió:
Samke escribió:
  1. static Segundos as long
  2.  
  3. segundos=segundos+1
  4.  
  5. numerodemensajes=1
  6.  
  7. if minutosspam = segundos then
  8.  
  9. select case numerodemensaje
  10.  
  11.     case 1
  12.         Call SendData(ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  13. numerodemensajes=1
  14.     case 2
  15.         Call SendData(ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  16. numerodemensajes=1
  17.     case 3
  18.        
  19.         Call SendData(ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  20. end select
  21.  
  22. segundos=0
  23.  
  24. end if


  1. public const MINUTOSSPAM as byte= 15 ' minutos


Saludos ^^


para que es eso??.. esta mejorado ahi no?, como modifico la cantidad de tiempo xD ?

Edit: Ah perdon no habia visto el public const xD, ya ta,, una preguntita como hago si quiero que mande los 3 al mismo tiempo??


Copia alguna linea de las de mensajes y ponela abajo de algun case, y si toca el numero 1 te tira 2 mensajes.

Saludos ^^


Osea si yo quiero que aparesca cada 1 hora, y quiero que aparescan los tres tendria que ir así?

  1. static Segundos as long
  2.  
  3. segundos=segundos+1
  4.  
  5. numerodemensajes=randomnumber(1,3)
  6.  
  7. if minutosspam = segundos then
  8.  
  9. select case numerodemensaje
  10.  
  11.     case 1
  12.         Call SendData(ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  13.     case 2
  14.         Call SendData(ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  15.     case 3
  16.        
  17.         Call SendData(ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  18. end select
  19.  
  20. segundos=0
  21.  
  22. end if


  1. public const MINUTOSSPAM as byte= 60 ' minutos

Imagen

Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128

Nota » 23 Ene 2012 18:52

yes

Imagen
Ninja en progreso
924
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 23 Ene 2012 18:53

Lindo code

Imagen
El Cacheton ^^
165
Aprendiz [4]
Registrado: Años de membresía
Ubicación: Las Toninas
Mensajes: 340

Nota » 23 Ene 2012 19:00

Ilaisa escribió:
Samke escribió:
Ilaisa escribió:
para que es eso??.. esta mejorado ahi no?, como modifico la cantidad de tiempo xD ?

Edit: Ah perdon no habia visto el public const xD, ya ta,, una preguntita como hago si quiero que mande los 3 al mismo tiempo??


Copia alguna linea de las de mensajes y ponela abajo de algun case, y si toca el numero 1 te tira 2 mensajes.

Saludos ^^


Osea si yo quiero que aparesca cada 1 hora, y quiero que aparescan los tres tendria que ir así?

  1. static Segundos as long
  2.  
  3. segundos=segundos+1
  4.  
  5. numerodemensajes=randomnumber(1,3)
  6.  
  7. if minutosspam = segundos then
  8.  
  9. select case numerodemensaje
  10.  
  11.     case 1
  12.         Call SendData(ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  13.     case 2
  14.         Call SendData(ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  15.     case 3
  16.        
  17.         Call SendData(ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  18. end select
  19.  
  20. segundos=0
  21.  
  22. end if


  1. public const MINUTOSSPAM as byte= 60 ' minutos


Para que sea cada 1 hs si, pero que aparescan los 3 juntos no, eso que tenes hay es un random, un random es un numero al azar.

  1. static Segundos as long
  2.  
  3. segundos=segundos+1
  4.  
  5. if minutosspam = segundos then
  6.  
  7.  
  8.  
  9.         Call SendData(ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: http://www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
  10.  
  11.         Call SendData(ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
  12.  
  13.        
  14.         Call SendData(ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
  15.  
  16.  
  17. segundos=0
  18.  
  19. end if


Saludos ^^

Imagen
Imagen
Staff Zeiked-Games
641
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3416
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)

Siguiente

Volver a AO 0.11.5

¿Quién está conectado?

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