Argentum OFFLINE

Este tema se encuentra cerrado.

» 19 Ene 2011 22:09

maTih.- escribió:perdón mi ignorancia.. pero que es la IA?

maTih.-

Inteligencia artificial es lo que tienen los bots para atacar a los usuarios removerse y demas. Por ej los pretorianos si bien no es lo mas se pueden basar en eso si no me equivoco por ej el pretoriano mago tiene ordenado o nose como decir lo siguiente Primero vigila su area de vision luego si se cruzan 2 user uno invi y uno sin invi ataca el invi luego remueve el invi con el echizo de los preto remover invisibilidad y tercero no me acuerdo tambien esta lo del fatuo o elementales.

» 21 Ene 2011 07:18

maTih.- escribió:perdón mi ignorancia.. pero que es la IA?

maTih.-

Inteligencia Artificial.

Es lo que usan los NPC para moverse, etc. Una IA mejorada podes aplicarla en bots como en salvito ao.

» 21 Ene 2011 10:19

ia inteligencia artificial

mirando los codes ahy una parte que muestra como debe moverse poray de algo te sirva

SPOILER

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

Private Sub Timer1_Timer()
Dim lugar As Byte
If NPCtype = 1 Then 'movimiento de mago
If NPCparalizado = False Then
'Timer1.Interval = CInt(RandomNumber(240, 350))
lugar = CInt(RandomNumber(1, 4))
If charlist(100).Pos.X - charlist(101).Pos.X > 8 Then lugar = EAST
If charlist(101).Pos.X - charlist(100).Pos.X > 8 Then lugar = WEST
If charlist(100).Pos.Y - charlist(101).Pos.Y > 5 Then lugar = SOUTH
If charlist(101).Pos.Y - charlist(100).Pos.Y > 5 Then lugar = NORTH
'9 92
'8 94
If charlist(101).Pos.X <= 9 And lugar = WEST Then lugar = EAST
If charlist(101).Pos.X >= 92 And lugar = EAST Then lugar = WEST
If charlist(101).Pos.Y <= 8 And lugar = NORTH Then lugar = SOUTH
If charlist(101).Pos.Y >= 94 And lugar = SOUTH Then lugar = NORTH
 
Select Case lugar
Case EAST
If MapData(charlist(101).Pos.X + 1, charlist(101).Pos.Y).CharIndex <> 0 Then Exit Sub
Case SOUTH
If MapData(charlist(101).Pos.X, charlist(101).Pos.Y + 1).CharIndex <> 0 Then Exit Sub
Case NORTH
If MapData(charlist(101).Pos.X, charlist(101).Pos.Y - 1).CharIndex <> 0 Then Exit Sub
Case WEST
If MapData(charlist(101).Pos.X - 1, charlist(101).Pos.Y).CharIndex <> 0 Then Exit Sub
End Select
Call MoveCharbyHead(101, lugar)
End If
End If
 
If NPCtype = 2 Then 'movimiento de guerre
If charlist(100).Pos.X - charlist(101).Pos.X > 1 Then lugar = EAST
If charlist(101).Pos.X - charlist(100).Pos.X > 1 Then lugar = WEST
If charlist(100).Pos.Y - charlist(101).Pos.Y > 1 Then lugar = SOUTH
If charlist(101).Pos.Y - charlist(100).Pos.Y > 1 Then lugar = NORTH
 
Select Case lugar
Case EAST
If MapData(charlist(101).Pos.X + 1, charlist(101).Pos.Y).CharIndex <> 0 Then Exit Sub
Case SOUTH
If MapData(charlist(101).Pos.X, charlist(101).Pos.Y + 1).CharIndex <> 0 Then Exit Sub
Case NORTH
If MapData(charlist(101).Pos.X, charlist(101).Pos.Y - 1).CharIndex <> 0 Then Exit Sub
Case WEST
If MapData(charlist(101).Pos.X - 1, charlist(101).Pos.Y).CharIndex <> 0 Then Exit Sub
End Select
If (charlist(100).Pos.X - charlist(101).Pos.X = 0) And Abs(charlist(100).Pos.Y - charlist(101).Pos.Y) = 1 Then
    If (charlist(100).Pos.Y - charlist(101).Pos.Y) < 0 Then charlist(101).Heading = NORTH Else charlist(101).Heading = SOUTH
    Exit Sub
End If
 
If (charlist(100).Pos.Y - charlist(101).Pos.Y = 0) And Abs(charlist(100).Pos.X - charlist(101).Pos.X) = 1 Then
    If (charlist(100).Pos.X - charlist(101).Pos.X) < 0 Then charlist(101).Heading = WEST Else charlist(101).Heading = EAST
    Exit Sub
End If
 
 
If charlist(100).Pos.X - charlist(101).Pos.X = 1 And charlist(100).Pos.Y - charlist(101).Pos.Y = 1 Then lugar = SOUTH
If charlist(100).Pos.X - charlist(101).Pos.X = 1 And charlist(101).Pos.Y - charlist(100).Pos.Y = 1 Then lugar = NORTH
If charlist(101).Pos.X - charlist(100).Pos.X = 1 And charlist(100).Pos.Y - charlist(101).Pos.Y = 1 Then lugar = SOUTH
If charlist(101).Pos.X - charlist(100).Pos.X = 1 And charlist(101).Pos.Y - charlist(100).Pos.Y = 1 Then lugar = NORTH
 
Call MoveCharbyHead(101, lugar)
End If
 

End Sub

» 21 Ene 2011 17:59

Pero kreo qe esta liberado (CREO)

» 07 Feb 2011 15:22

los codes estan liberados, los vi y todo pero el forr@ de mierd@ de Salvito no le puso la IA

» 07 Feb 2011 16:44

Si queres te paso mi msn y tratamos de armar algo en programacion no se mucho pero haci tambien aprendemos : miguelruiz900@hotmail.com

» 07 Feb 2011 22:30

Salvito, si liberó la IA del AOF de él, antes la tenia, y hasta se lo implemente a un Servidor bien lindo que tenia, pero tuve problemas con el Disco Duro que terminé borrándolo todo. Pero te recomiendo, que lo busques bien, a ver si alguien, aún lo tiene, pero si fue liberada.

Saludos. :ok:

Symantec.-

» 07 Feb 2011 23:41

Salvito hizo uno muy bueno, con una inteligencia artificial avanzada.

Si te interesa hacer algo bueno, olvidate del servidor.

Bajate un cliente en dx8, olvidate del servidor. Revisa las variables que envia para manejarse y dibujar los pjs, fijate las IA de los npc, hay una que es tipo agite que la tienen unos npcs enanos no se que que se mueven para todos lados

en 11.5

» 28 Feb 2011 11:27

ON:gracias a todos por ayudar

OFF:Como puede ser que algo tan importante como la IA hecha por salvito desaparesca de la nada jej.
PD!:alguno sabe si arduz libero codigos?

» 28 Feb 2011 17:41

Darakan escribió:ON:gracias a todos por ayudar
OFF:Como puede ser que algo tan importante como la IA hecha por salvito desaparesca de la nada jej.
PD!:alguno sabe si arduz libero codigos?

Arduz no liberó los códigos, y dudo mucho que alguna vez lo hagan (un poco más y lo hacen en C).

Como está todo aclarado, lo cierro para evitar desvirtues. Cualquier cosa, MP.

Este tema se encuentra cerrado.

Argentum OFFLINE

¿Quién está conectado?