Перейти к содержанию
Форум шарда Middle-Earth

Danke

Members
  • Публикаций

    70
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные Danke


  1. Брал его из этой темы http://middle-earth.ru/forum/index.php?sho...amp;#entry83265

    Там же мое последнее сообщение с вопросом по нему

     

    Это

     

    {$Include 'CheckSave.inc'};

    {$Include 'Hungry.inc'};

    {$Include 'waitconnection.inc'};

     

    поменяй на это

     

    {$Include 'CheckSave.inc'}

    {$Include 'Hungry.inc'}

    {$Include 'waitconnection.inc'}

     

    Этого

     

    И еще не понятно:

    function Hungry(Plase : cardinal) : Boolean;

    эту строчку надо заменить на

    function Hungry(Backpack);

     

    делать не нужно


  2. Кто-то из администрации шарда, кто непосредственно занимается восстановлением, может отписаться несколько более конкретно по данному вопросу?

    Забей, проще новый акк сделать...

     

    Не правда. Игроку ответил в личку!

    [L.Dillon]


  3. будут, будут тебя сразу находить, тех кто бегает в ручную очень много :)

     

    Вот ты щас капаеш... у тебя такая проблема... тебя убивают :) Через время пойдеш мобов фармить, там тоже понаставят гостов, ты будеш возмущаться что тебя убивают на мобах... и так дадее :) что ж теперь никому тебя не убивать :) или всех гостов на арену кидать ))


  4. Прошу рассмотреть моё предложение по поводу он лайна:

     

    На этом сервере много стариков которые полностью контролируют все шахты мира миддл оз. Новоприбывшему игроку будет просто нереально прокачать майнинг или вообще как то заработать с таким контролем.

     

    Предлогаю банить за простой мёртвых чаров на территории шахты и за её пределами, которые в свою очередь следят за шахтёрами. Как именно: ограничить время пребывания трупом а после истечения времени отправлять игрока на арену в качестве помощи) Я уверен это немного облегчит игру.

     

    от того что ты предложил тебе легче не станет, точно :)


  5. Фразы для хамера на мининг

    Файл mining.hll

     

    [strings to continue]
    You put some
    You cannot prospect
    You fail to find any usable ore
    [strings to end]
    there is no more ore here to mine.
    There is no ore here to mine
    That is too far away
    [string numbers to continue]
    24032
    24033
    24034
    24035
    24036
    24037
    24038
    24039
    44291
    [string numbers to end]
    44288
    36013


  6. sub main()
    var i
    While UO.Life>0
    for i=1 to 14
    kopat()
    uo.press(34)
    next
    uo.print("GO назад =)")
    kopat()
    for i=1 to 15
    wait(500)
    uo.press(36)
    next
    uo.press(34)
    wend
    end sub
    
    sub kopat()
    var where_x,where_y,coords,i,t
    UO.DeleteJournal()
    where_x=uo.getx()
    where_y=uo.gety()
    for i=-2 to 2
    uo.print("Тайл "+str(i+3)+"/5")
    coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
    uo.exec(coords)
    uo.exec("usetype '0x143C'") # Здесь прописываем тип кирки
    t=0
    while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot") or UO.InJournal("tool") or t>10))
    wait(1000)
    t=t+1
    wend
    next
    end sub
    
    sub heal()
    While UO.WEIGHT < 30000
    wait(300)
    if UO.Life < 70 then
    UO.Exec("bandageself")
    wait(6000)
    endif
    wend
    end sub
    
    sub guards()
    While UO.WEIGHT < 30000
    wait(300)
    if UO.Life < 90 then
    uo.say('.guards')
    wait(6000)
    endif
    wend
    end sub


  7. sub main()
    var i
    While UO.Life>0
    for i=1 to 14
    kopat()
    uo.press(34)
    next
    uo.print("GO назад =)")
    kopat()
    for i=1 to 15
    wait(500)
    uo.press(36)
    next
    uo.press(34)
    wend
    end sub
    
    sub kopat()
    var where_x,where_y,coords,i
    UO.DeleteJournal()
    where_x=uo.getx()
    where_y=uo.gety()
    for i=-2 to 2
    uo.print("Тайл "+str(i+3)+"/5")
    coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
    uo.exec(coords)
    uo.exec("usetype '0x143C'") # Здесь прописываем тип кирки
    UO.DeleteJournal()
    while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot") or UO.InJournal("tool")))
    wait(1000)
    wend
    next
    end sub
    
    sub heal()
    While UO.WEIGHT < 30000
    wait(300)
    if UO.Life < 70 then
    UO.Exec("bandageself")
    wait(6000)
    endif
    wend
    end sub
    
    sub guards()
    While UO.WEIGHT < 30000
    wait(300)
    if UO.Life < 90 then
    uo.say('.guards')
    wait(6000)
    endif
    wend
    end sub


  8. никогда не используй метки и goto :)

     

    вместо

     

    start2:
    uo.deleteJournal()
    wait(1000)
    uo.exec("usetype '0x0F39'")
    wait(500)
    uo.LClick(400,245)
    Wait(11000)
    If not (uo.InJournal("You fail to find any clay") or UO.InJournal("You fail to prospect anything.")) then
    Uo.DeleteJournal()
    GoTo start2
    endif

     

    нада писать

     

    repeat
    uo.deleteJournal()
    uo.exec("usetype '0x0F39'")
    repeat
    wait(100)
    until uo.targeting()
    uo.LClick(400,245)
    repeat
    wait(1000)
    until uo.injournal('you put|fail')
    until uo.injournal('fail')

     

    как-то так :)

×
×
  • Создать...