Subir

Tab Content
No Recent Activity

1 Mensajes de visita

  1. Mostrar conversación
    Sand mi macro es esta.

    initevents
    ;======================= CONFIGURACION DEL CHAR ==============



    move 1380 2755 2 4s ; ESQUINA CASA

    display OK Abre el cofre.$ Tienes 3 segundos
    wait 3s
    set %Cofre #lobjectid
    set %CofreX #cursorx
    set %Cofrey #cursory


    ;=========================== COLOCAMOS OBJETOS EN PANTALLA ======

    Event macro 31 0
    wait 50
    event macro 8 1
    wait 30
    contpos 600 335
    wait 50
    event macro 8 7
    wait 30
    contpos 600 10
    wait 50
    event macro 8 2
    wait 30
    contpos 600 560
    wait 50
    event macro 17 0
    wait 30
    contpos 600 100
    wait 50

    Set_pico:
    display OK selecciona el pico q vas a usar.$ Tienes 5 segundos.
    wait 5s
    set %pico #lobjectid

    set %limite #maxweight - 90

    ;=========================== PROGRAMA PRINCIPAL ==================
    gosub Casa_Mina
    sectores:
    gosub Sector1
    gosub Sector2
    gosub Sector3
    goto sectores

    ;=========================== SECTORES ============================

    Sub Sector1
    for %MinandoY 2715 2726
    {
    for %MinandoX 1374 1362
    {
    move %MinandoX %MinandoY 0 15s
    gosub Picar
    }
    }
    gosub trayecto;DEJA EL MINERAL Y VUELVE
    return

    Sub Sector2
    for %MinandoY 2713 2705
    {
    for %MinandoX 1367 1367
    {
    move %MinandoX %MinandoY 0 15s
    gosub Picar
    }
    }
    gosub trayecto;DEJA EL MINERAL Y VUELVE
    return

    Sub Sector3
    for %MinandoY 2707 2711
    {
    for %MinandoX 1375 1381
    {
    move %MinandoX %MinandoY 0 15s
    gosub Picar
    }
    }
    gosub trayecto;DEJA EL MINERAL Y VUELVE
    return

    ;============================ COLOCAR MATERIALES =================
    Sub Dejar_Menas
    Minerales:
    finditem DWJ c_ , #BACKPACKID
    if #findkind = -1
    {
    ignoreitem reset
    return
    }
    event drag #findid
    wait 10
    msg $
    wait 10
    click %Cofrex %Cofrey p
    goto Minerales
    return

    ;================================= TRAYECTOS ======================
    Sub Casa_Mina
    move 1380 2755 0 50s ; ESQUINA CASA
    move 1367 2730 0 50s ;PUERTA MINA
    move 1371 2711 0 50s;CENTRO MINA2
    move 1371 2711 0 50s ;CENTRO MINA1
    return

    Sub Mina_Casa
    set #lobjectid %puerta
    move 1371 2711 0 50s ;CENTRO MINA1
    move 1371 2711 0 50s ;CENTRO MINA2
    move 1367 2730 0 50s ;PUERTA MINA
    move 1380 2755 0 50s ; ESQUINA CASA
    return
    ;================================= PICANDO ======================
    Sub Picar
    set #lobjectid %pico
    Picando:
    if #CHARGHOST = YES
    pause
    If #weight >= %Limite
    {
    Set %MinandoY #charposy
    gosub trayecto
    return
    }
    event macro 17 0
    wait 20
    set #LTARGETX #CHARPOSX + 1
    set #LTARGETY #CHARPOSY - 1
    event macro 22

    wait 7s
    set %journal #sysmsg
    if You_have_no_line in #journal || Prueba_a in #journal ||
    {
    set %borrado %borrado + 1
    if %borrado > 100
    {
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    }
    set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
    gosub compruebapeso

    scanJournal %i
    if You_put in #journal
    {
    goto Picando




    {
    return
    }
    else
    {
    wait 7s
    goto Picando
    }

    return

    Sub trayecto
    gosub Mina_Casa
    gosub Dejar_Menas
    gosub Casa_Mina
    return



    no he podido mandartela antes, si puedes ayudarme te estaria agradecido. Ten por seguro que la gente que me ayuda siempre tiene su recompensa.
Mostrando mensajes de visita de 1 a 1 de 1
Acerca de Sand

Información básica

Edad
30

Infracciones

Puntos de Infracción
0 punto(s) en total

Estadísticas


Total de mensajes
Total de mensajes
45
Mensajes por día
0,01
Mensajes de visita
Total de mensajes
1
Mensajes más recientes
04-Jun-2008
Proyectos
Total Incidencias
0
Información general
Última actividad
25-Nov-2008
Fecha de ingreso
05-Apr-2008
Referidos
0
YoutubeFbChat IRCTwit