Yoko

Code: Select all

sub Mining() 
VAR a = 0 # 0 <=> èñïîëüçóåìûå îáúåêòû óêàçàíû # 1 <=> èñïîëüçóåìûå îáúåêòû íå óêàçàíû # 
uo.setglobal('recal', '1') #îòâå÷àåò çà òåëåïîðòàöèþ ïî øàõòàì# 
uo.setglobal('place', '1') #îòâå÷àåò çà ïåðåìåùåíèå ÷àðà ïî øàõòå# 
uo.setglobal('circle', '1') #îòâå÷àåò çà òåëåïîðòàöèþ â ñëåäóþùóþ øàõòó ïðè îáõîäå ïîëíîãî êðóãà# 
uo.setglobal('back', '0') #îòâå÷àåò çà ñèíõðîíèçàöèþ âîçâðàùåíèÿ íà ìåñòî êîïêè ïîñëå ñãðóçêè# 
if a == 1 then 
  uo.print('Óêàæèòå ñóíäóê ñ ðåãàìè, êèðêàìè, èíâèçêàìè, ìàíêàìè') 
  uo.exec('addobject Sunduk1') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ñóíäóê äëÿ ðóäû') 
  uo.exec('addobject Sunduk2') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó ê äîìó') 
  uo.exec('addobject Home') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 1') 
  uo.exec('addobject mine1') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 2') 
  uo.exec('addobject mine2') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 3') 
  uo.exec('addobject mine3') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 4') 
  uo.exec('addobject mine4') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 5') 
  uo.exec('addobject mine5') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 6') 
  uo.exec('addobject mine6') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 7') 
  uo.exec('addobject mine7') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 8') 
  uo.exec('addobject mine8') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 9') 
  uo.exec('addobject mine9') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 10') 
  uo.exec('addobject mine10') 
  while uo.targeting() 
    wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 11') 
  uo.exec('addobject mine11') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 12') 
  uo.exec('addobject mine12') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 13') 
  uo.exec('addobject mine13') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 14') 
  uo.exec('addobject mine14') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
  uo.print('Óêàæèòå ðóíó â øàõòó 15') 
  uo.exec('addobject mine15') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 16') 
  uo.exec('addobject mine16') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 17') 
  uo.exec('addobject mine17') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 18') 
  uo.exec('addobject mine18') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 19') 
  uo.exec('addobject mine19') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 20') 
  uo.exec('addobject mine20') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 21') 
  uo.exec('addobject mine21') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 22') 
  uo.exec('addobject mine22') 
  while uo.targeting() 
      wait(100) 
  wend 
  wait(1000) 
    uo.print('Óêàæèòå ðóíó â øàõòó 23') 
  uo.exec('addobject mine23') 
  while uo.targeting() 
      wait(100) 
  wend 
  return 
endif 
uo.exec('exec CheckingItems') 
end sub 

sub CheckingItems() 
VAR b 
uo.findtype('0x0F0E') #òèï ïóñòûõ áóòûëîê# 
if uo.findcount() > 0 then 
  uo.moveitem('finditem', '-1', 'Sunduk1') 
  wait(1000) 
  checklag() 
endif 
DIM Ore[4] 
Ore[0] = '0x19B9' #òèï 4åõ è áîëåå îðîâ# 
Ore[1] = '0x19B8' #òèï 3åõ îðîâ# 
Ore[2] = '0x19BA' #òèï 2óõ îðîâ# 
Ore[3] = '0x19B7' #òèï 1ãî îðà# 
for var a = 0 to 3 
  uo.findtype(Ore[a]) 
  while uo.findcount() > 0 
    uo.moveitem('finditem', '-1', 'Sunduk2') 
    wait(1000) 
    checklag() 
    uo.findtype(Ore[a]) 
  wend 
next 
uo.useobject('Sunduk1') 
wait(1000) 
checklag() 
DIM Reg[3] 
Reg[0] = '0x0F7A' #Black Pearl#  
Reg[1] = '0x0F7B' #Bood Moss#    
Reg[2] = '0x0F86' #Mandrake Root#          
for b = 0 to 2 
  if uo.count(Reg[b]) < 50 then 
    uo.findtype(Reg[b], '-1', 'Sunduk1') 
    if uo.findcount() > 0 then 
      uo.moveitem('finditem', '50') 
      wait(1000) 
      checklag() 
    else 
      uo.print('Íåò íåîáõîäèìîãî êîëè÷åñòâà ðåãîâ â ñóíäóêå') 
      return 
    endif 
  endif 
next 
if uo.count('0x0F08') < 5 then #òèï èíâèçîê# 
  uo.findtype('0x0F08', '-1', 'Sunduk1') 
  if uo.findcount() > 0 then 
    uo.moveitem('finditem', '5') 
    wait(1000) 
    checklag() 
  else 
    uo.print('Íåò íåîáõîäèìîãî êîëè÷åñòâà èíâèçîê â ñóíäóêå')      
    ;return 
  endif 
endif 
uo.findtype('0x0E85') #òèï êèðîê# 
while uo.findcount() < 7 
  uo.findtype('0x0E85', '-1', 'Sunduk1') 
  if uo.findcount() > 0 then 
    uo.moveitem('finditem', '1') 
  else 
    uo.print('Íåò íåîáõîäèìîãî êîëè÷åñòâà êèðîê â ñóíäóêå') 
    return 
  endif 
  wait(1000) 
  checklag() 
  uo.findtype('0x0E85') 
wend 
if val(uo.getglobal('back')) == 1 then 
  wait(50) 
else 
  uo.exec('exec Teleportation') 
endif 
end sub 

sub Teleportation() 
VAR a, b, c 
VAR d = uo.getx('self') 
repeat 
  while uo.mana < 11 
    uo.warmode('0') 
    uo.useskill('Meditation') 
    wait(1000) 
  wend 
  a = 0 
  if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then 
    uo.usetype('0x0F08') 
    uo.closeuo() 
  else 
    wait(50) 
  endif 
  uo.deletejournal() 
  if val(uo.getglobal('recal')) == 1 then 
    uo.waittargetobject('mine1') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 2 then 
    uo.waittargetobject('mine2') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 3 then 
    uo.waittargetobject('mine3') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 4 then 
    uo.waittargetobject('mine4') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 5 then 
    uo.waittargetobject('mine5') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 6 then 
    uo.waittargetobject('mine6') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 7 then 
    uo.waittargetobject('mine7') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 8 then 
    uo.waittargetobject('mine8') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 9 then 
    uo.waittargetobject('mine9') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  if val(uo.getglobal('recal')) == 10 then 
    uo.waittargetobject('mine10') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 10 then 
    uo.waittargetobject('mine10') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 11 then 
    uo.waittargetobject('mine11') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 12 then 
    uo.waittargetobject('mine12') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 13 then 
    uo.waittargetobject('mine13') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 14 then 
    uo.waittargetobject('mine14') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 15 then 
    uo.waittargetobject('mine15') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 16 then 
    uo.waittargetobject('mine16') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 17 then 
    uo.waittargetobject('mine17') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 18 then 
    uo.waittargetobject('mine18') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 20 then 
    uo.waittargetobject('mine20') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 21 then 
    uo.waittargetobject('mine21') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 22 then 
    uo.waittargetobject('mine22') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
    if val(uo.getglobal('recal')) == 23 then 
    uo.waittargetobject('mine23') 
    uo.cast('Recall') 
  else 
    wait(50) 
  endif 
  repeat 
    wait(100) 
    a = a + 1 
  until a > 35 or d <> uo.getx('self') or uo.injournal('The spell fizzles.') 
  wait(500) 
until not uo.injournal('The spell fizzles.') 
b = val(uo.getglobal('recal')) + 1 
uo.setglobal('recal', str(b)) 
if val(uo.getglobal('recal')) > 23 then 
  uo.setglobal('recal', '1') 
endif 
uo.set('finddistance', '7') 
uo.findtype('0x000E', '-1', '1') #òèï ýëåìåíòàëÿ# 
if uo.findcount() > 0 then 
  uo.usetype('0x0F08') 
  uo.exec('exec Teleportation') 
  return 
endif 
if val(uo.getglobal('back')) == 0 then 
  uo.exec('exec CheckingPlayers') 
  uo.setglobal('place', '1') 
  uo.setglobal('circle', '1') 
  uo.exec('exec Obkopka')  
else 
  uo.setglobal('back', '0') 
endif 
end sub 

sub CheckingPlayers() 
VAR a, b 
uo.ignore('self', 'on') 
DIM Chars[2] 
Chars[0] = '0x0190' #òèï èãðîêà ìóæñêîãî ïîëà# 
Chars[1] = '0x0191' #òèï èãðîêà æåíñêîãî ïîëà# 
while not uo.dead() 
  for a = 0 to 1 
    if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then 
      uo.usetype('0x0F08') 
      uo.closeuo() 
    else 
      wait(50) 
    endif      
    while val(uo.getglobal('find')) == 1 
      wait(50) 
    wend 
    uo.set('finddistance', '15') 
    uo.findtype(Chars[a], '-1', '1')  
    if uo.findcount() > 0 then 
      uo.usetype('0x0F08') 
      uo.exec('terminate Teleportation') 
      uo.exec('terminate Obkopka') 
      uo.exec('terminate ChengePlace') 
      uo.exec('exec Teleportation') 
      return 
    else 
      wait(500) 
    endif 
  next 
wend 
end sub 

sub Obkopka() 
VAR mx, my, mz, a, b, c, d, e, f 
while not uo.dead() 
  if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then

    uo.usetype('0x0F08') 
    uo.closeuo() 
  else 
    wait(50) 
  endif      
  uo.deletejournal() 
  mx = uo.getx('self') 
  my = uo.gety('self') 
  mz = uo.getz('self') 
  for a = mx-2 to mx+2 
    for b = my-2 to my+2 
      while not uo.Hidden()

        c = 0 
        uo.warmode('0') 
        uo.useskill('Stealth') 
        repeat 
          wait(100) 
          c = c + 1 
        until uo.Hidden() or c > 40 
      wend 
      uo.print('!!!КОПАЕМ ТУТ!!!>>> : '+str(mx-a)+' '+str(my-b)) 
      d = val(uo.getglobal('place')) + 1 
      uo.setglobal('place', str(d)) 
      while not uo.injournal('no ore here') and not uo.injournal('location') and not uo.injournal('far away') and not uo.injournal('in rock') and not uo.injournal('You broke')

        if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then 
          uo.usetype('0x0F08') 
          uo.closeuo() 
        else 
          wait(50) 
        endif      
        uo.deletejournal() 
        if uo.waiting() then 
          uo.canceltarget() 
        else 
          wait(50)

        endif 
        uo.waittargettile('1341', str(a), str(b), str(mz)) 
        uo.usetype('0x0E85') #тип кирки# 
        while not uo.injournal('You put') and not uo.injournal('location') and not uo.injournal('no ore') and not uo.injournal('but fail') and not uo.injournal('far away') and not uo.injournal('in rock') and not uo.injournal('You broke') 
          wait(500) 
        wend 
        uo.setglobal('find', '1') 
        wait(200) 
        uo.set('finddistance', '7') 
        uo.findtype('0x000E', '-1', '1') #тип элементаля#

        if uo.findcount() > 0 then 
          uo.setglobal('find', '0') 
          uo.usetype('0x0F08') 
          uo.exec('exec Teleportation') 
          uo.exec('terminate CheckingPlayers') 
          return 
        else 
          uo.setglobal('find', '0') 
        endif      
        if val(uo.getglobal('place')) > 25 then 
          uo.setglobal('place', '1') 
          uo.exec('exec ChengePlace')

          return 
        else 
          wait(50) 
        endif 
        if uo.weight > 600 then #максимальный вес# 
          uo.setglobal('back', '1') 
          uo.exec('terminate CheckingPlayers') 
          GoHome() 
          CheckingItems() 
          Teleportation() 
          Back() 
          uo.exec('exec CheckingPlayers')

        else 
          wait(50) 
        endif 
      wend 
      if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then 
        uo.usetype('0x0F08') 
        uo.closeuo() 
      else 
        wait(50) 
      endif      
      uo.deletejournal()

    next 
  next 
wend 
end sub 



sub ChengePlace() 
VAR a, b, c, d, e, f, g, h, i, j, k 
if val(uo.getglobal('circle')) > 3 then 
  uo.setglobal('circle', '1') 
  uo.exec('terminate CheckingPlayers') 
  uo.exec('exec Teleportation') 
  return 
endif 
if val(uo.getglobal('circle')) == 1 then 
  if uo.getdir('self') == 3 then 
    a = 1 
  else 
    a = 2 
  endif 
  for b = 1 to a 
    uo.press(40) 
    wait(300) 
  next 
  for c = 1 to 3 
    uo.press(34) 
    wait(300) 
  next 
  for d = 1 to 2 
    uo.press(39) 
    wait(300) 
  next 
  endif 
endif 
if val(uo.getglobal('circle')) == 2 then 
  if uo.getdir('self') == 1 then 
    a = 1 
  else 
    a = 2 
  endif 
  for e = 1 to a 
    uo.press(39) 
    wait(300) 
  next 
  for f = 1 to 3 
    uo.press(33) 
    wait(300) 
  next 
  for g = 1 to 2 
    uo.press(38) 
    wait(300) 
    next 
  endif 
if val(uo.getglobal('circle')) == 3 then 
  if uo.getdir('self') == 7 then 
    a = 1 
  else 
    a = 2 
  endif 
  for h = 1 to a 
    uo.press(38) 
    wait(300) 
  next 
  for i = 1 to 3 
    uo.press(36) 
    wait(300) 
  next 
  for j = 1 to 2 
    uo.press(37) 
    wait(300) 
  next 
endif 
k = val(uo.getglobal('circle')) + 1 
uo.setglobal('circle', str(k)) 
uo.exec('exec Obkopka') 
end sub 

sub checklag() 
uo.click('backpack') 
while not uo.injournal('backpack') 
  wait(100) 
wend 
uo.deletejournal('backpack') 
end sub 

sub GoHome() 
VAR a, b, c, d, e 
uo.warmode('0') 
a = uo.getx('self') 
repeat 
  while uo.mana < 11 
    uo.warmode('0') 
    uo.useskill('Meditation') 
    wait(1000) 
  wend 
  if uo.injournal('GM') or uo.injournal('Admin') or uo.injournal('Seer') or uo.injournal('Counselor') or uo.injournal('Developer') then 
    uo.usetype('0x0F08') 
    uo.closeuo() 
  else 
    wait(50) 
  endif  
  b = 0 
  uo.deletejournal() 
  uo.waittargetobject('Home') 
  uo.cast('Recall') 
  repeat 
    wait(100) 
    b = b + 1 
  until b > 35 or a <> uo.getx('self') or uo.injournal('The spell fizzles.') 
until not uo.injournal('The spell fizzles.') 
for c = 1 to 6 
  uo.press(33) 
  wait(300) 
next 
uo.opendoor() 
wait(500) 
uo.press(33) 
wait(300) 
uo.opendoor() 
for d = 1 to 6 
  uo.press(33) 
  wait(300) 
next 
e = val(uo.getglobal('recal')) - 1 
uo.setglobal('recal', str(e)) 
end sub 

sub Back() 
VAR a, b, c, d, e, f, g, h, i, j 
if val(uo.getglobal('circle')) > 1 then 
  if uo.getdir('self') == 3 then 
    f = 1 
  else 
    f = 2 
  endif 
  for a = 1 to f 
    uo.press(40) 
    wait(300) 
  next 
  for b = 1 to 3 
    uo.press(34) 
    wait(300) 
  next 
  for c = 1 to 2 
    uo.press(39) 
    wait(300) 
  next 
endif 
endif 
if val(uo.getglobal('circle')) > 2 then 
  if uo.getdir('self') == 1 then 
    f = 1 
  else 
    f = 2 
  endif 
  for d = 1 to f 
    uo.press(39) 
    wait(300) 
  next 
  for e = 1 to 3 
    uo.press(33) 
    wait(300) 
  next 
  for g = 1 to 2 
    uo.press(38) 
    wait(300) 
    next 
endif 
if val(uo.getglobal('circle')) > 3 then 
  if uo.getdir('self') == 7 then 
    f = 1 
  else 
    f = 2 
  endif 
  for h = 1 to f 
    uo.press(38) 
    wait(300) 
  next 
  for i = 1 to 3 
    uo.press(36) 
    wait(300) 
  next 
  for j = 1 to 2 
    uo.press(37) 
    wait(300) 
  next 
endif 
end sub 

sub TestPlace() 
VAR a, b, c, d, e, f, g, h, i 
for a = 1 to 2 
  uo.press(40) 
  wait(300) 
next 
for b = 1 to 3 
  uo.press(34) 
  wait(300) 
next 
for c = 1 to 3 
  uo.press(39) 
  wait(300) 
next 
for d = 1 to 3 
  uo.press(33) 
  wait(300) 
next 
for e = 1 to 3 
  uo.press(38) 
  wait(300) 
next 
for f = 1 to 3 
  uo.press(36) 
  wait(300) 
next 
for g = 1 to 3 
  uo.press(37) 
  wait(300) 
next 
for h = 1 to 3 
  uo.press(35) 
  wait(300) 
next 
for i = 1 to 2 
  uo.press(40) 
  wait(300) 
next 
end sub

Code: Select all

sub OneClick() 

   dim reindex[8] 
   reindex[0] = 11 
   reindex[1] = 12 
   reindex[2] = 13 
   reindex[3] = 10 
   reindex[4] = 16 
   reindex[5] = 14 
   reindex[6] = 17 
   reindex[7] = 15 
   var GumpID = 0 
   var ButtonID = 0 
   var ButtonText 
   var i = 18 
    
   if uo.LastGump('text', 4) <> "0" then 
      i = 19 
   end if 
   GumpID = val(Mid(uo.LastGump('command', i), 16, 4)) 
   ButtonID = reindex[GumpID-2225] 
   ButtonText = uo.LastGump('command', ButtonID) 
   uo.LClick(Val(Mid(ButtonText, 7, 3)), Val(Mid(ButtonText, 11, 3))) 
   while not uo.LastGump('replyed') 
      wait(100) 
   wend 
    
end sub 

sub AntiMacro() 

   while not uo.Dead() 
      if not uo.LastGump('replyed') then 
         if uo.LastGump('text', 0) == 'Antimacros System' then 
            OneClick() 
         end if 
      endif 
      wait(500) 
   wend