Ah ok no habia respondido, gracias  ya me lo descargue y estoy mas entretenido que nada ya lo llevo lejos...
pero escuche algo sobre otra version de este tipo pero no era el CZ, segun era mas nueva, saben algo?

jajajaj pues si pero soy una papa pa jugarlo contra los demas...

Hola pos disculpen por la ignorancia: quisiera saber si hay alguna version de Counter Strike donde no necesariamente tiene que ser multiplayer, ni usando bots, me refiero a misiones programadas y esas cosas... cual es?... muchas gracias

OK gracias man! y que hay sobre lo "otro", se podra?

mmmm interesante...

Te recomiendo que apliques conocimientos y tecnicas de la estrella de la informatica (Redoble de tambores): La ingenieria social....   

Hola que tal, tengo un par de dudas que no alcanzo de aclararme, ya andube buscando pero nada de nada; y pos venia haber si ustedes sabian algo y pudieran ayudarme...

bueno se trata de saber informacion de algun contacto agregado en Hotmail o WinLive, es decir me gustaria saber "en que fecha" agregue o me agrego esa persona, o cuando fue nuestro primer chat....

Y la otra es si pudiera saber cuando me hice mi cuenta de hotmail...

Bueno espero y me ayuden... ahi se ven...

  Dim Ox As Integer
 Dim oY As Integer
 Dim sizMap As Integer
 
Private Sub Form_Load()
    pic(0).Visible = False
    pic(1).Visible = False
    pic(2).Visible = False
    picture2.Visible = False
    pic(0).ScaleMode = 3
    pic(1).ScaleMode = 3
    pic(2).ScaleMode = 3
    picture2.ScaleMode = 3
    pic(0).BorderStyle = 0
    pic(1).BorderStyle = 0
    pic(2).BorderStyle = 0
    picture2.BorderStyle = 0
    pic(0).AutoSize = True
    pic(1).AutoSize = True
    pic(2).AutoSize = True
    picture2.AutoSize = True
    Me.ScaleMode = 3
    Me.AutoRedraw = True
 
    Ox = 0
    oY = 0
    sizMap = 15
    Call DibujarMapa
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 37 And Ox > 0 Then Ox = Ox - 1
    If KeyCode = 38 And oY > 0 Then oY = oY - 1
    If KeyCode = 39 And Ox < picture2.Width - sizMap Then Ox = Ox + 1
    If KeyCode = 40 And oY < picture2.Height - sizMap Then oY = oY + 1
    Call DibujarMapa
End Sub
Public Sub DibujarMapa()
Me.Cls
For y = 0 To sizMap
For x = 0 To sizMap
 
z = picture2.Point(Ox + x, oY + y)
Debug.Print z
 
Select Case z
 
 
    Case RGB(0, 0, 255)
 
        EsAgua x * 32, y * 32
 
 
    Case RGB(128, 128, 128)
 
        EsCamino x * 32, y * 32
 
 
    Case RGB(0, 255, 0)
 
        EsLlegada x * 32, y * 32
 
End Select
 
Next x
Next y
 
End Sub
Sub EsAgua(x, y)
 Me.PaintPicture pic(0), x, y, 32, 32
End Sub
Sub EsLlegada(x, y)
    Me.PaintPicture pic(1), x, y, 32, 32
End Sub
Sub EsCamino(x, y)
    Me.PaintPicture pic(2), x, y, 32, 32
End Sub
 

Sin Apis...

Y si utilizaras 2 variables auxiliares, para el origen, "Ox" y "Oy", que seria el lugar apartir de donde se comenzaria a leer el "picture2"?

Private sub Form_Load()
 Ox=0
 Oy=0
end sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        if keycode=37 and Ox>0 then Ox=Ox-1
        if keycode=38 and Oy>0 then Oy=Oy-1
        if keycode=39 and Ox<picture2.width then Ox=Ox+1
        if keycode=40 and Oy<picture2.height then Oy=Oy+1
End Sub
 
 

 
For y = 0 To 15
For x = 0 To 15
 
z = GetPixel(Form1.Picture2.hdc,Ox + x, Oy + y)
Debug.Print z
 
Select Case z
 
 
    Case RGB(0, 0, 255)
 
        EsAgua x * 32, y * 32
 
 
    Case RGB(128, 128, 128)
 
        EsCamino x * 32, y * 32
 
 
    Case RGB(0, 255, 0)
 
        EsLlegada x * 32, y * 32
 
End Select
 
Next x
Next y
 
 

Pos yo creo que para ateos y no ateos, el fin del mundo es sencillamente "la muerte"...

Y la metafora, pienso yo, de "plantar un arbol" no tiene que referirse forzosamente a "ayudar a los demas", si no a siempre tener esperanzas, nunca rendirse, digamos que alguien esta enfermo del corazon, y mañana morira de cancer(y esa persona es conciente), y aun asi se toma los medicamentos para el corazon...