Скрипты от Askaneli

[Nmy]

кстати я заметил что этот топик поситили больше всего ... 34752+ views

[Askaneli]

кстати я заметил что этот топик поситили больше всего ... 34752+ views

Есть и более посечаемые <link>

[Warlok]

Привет Askaneli я с Р3! я неособо разобрался еще в скриптах а различия между ними очень большие! на серваках разные командыи, банки и тп!((( мог бы ты мне помочь! выложи чтот на Рестор 3 или может асю выложи))))

[Scripts Writer]

Эт как так банки разные? и команды?

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

[Askaneli]

Привет Askaneli я с Р3! я неособо разобрался еще в скриптах а различия между ними очень большие! на серваках разные командыи, банки и тп!((( мог бы ты мне помочь! выложи чтот на Рестор 3 или может асю выложи))))

В чём заключается мой интерес к этому ?

[I'm]

Помощь ближнему своему?

[Askaneli]

Помощь ближнему своему?

Окей . Помогай ))))

[Savage]

Кто ближе тому и помогать

[newman]

Code: Select all

Var Forge='0x401FD813' ;Это форжа
Var Sunduk='0x400AEE18' ;Это сундук где инги
Var TItem='0x1404' ;Это тип итема который крафтаем, War Fork в данном случае

sub MenuIron()
   uo.cancelmenu()
   uo.automenu('Blacksmithing','Weapons')
   uo.automenu('Weapons','Spears & Forks')
   uo.automenu('Spears & Forks','war fork (8 iron ingot)')
end sub

sub MenuColor()
   uo.cancelmenu()
   uo.automenu('Blacksmithing','Colored Armor & Weapons')
   uo.automenu('Colored Armor & Weapons','Weapons')
   uo.automenu('Weapons','Spears & Forks')
   uo.automenu('Spears & Forks','War Fork')
end sub

sub BlacksmithyWarFork()
VAR i=1

Dim TIngot[18] ; Типы ингов
For i=1 To 18
   TIngot[i]='0x1BEF' ;Большинство ингов этого типа
next
TIngot[5]='0x1BE3' ;Copper
TIngot[7]='0x1BE5' ;Silver
TIngot[9]='0x1BE9' ;Shadow

Dim CIngot[18] ; Цвета ингов
CIngot[1]='0x0000' ;Iron
CIngot[2]='0x0750' ;Rusty
CIngot[3]='0x0590' ;Old Copper
CIngot[4]='0x060A' ;Dull Copper
CIngot[5]='0x0000' ;Copper
CIngot[6]='0x0488' ;Bronze
CIngot[7]='0x0000' ;Silver
CIngot[8]='0x0000' ;Gold
CIngot[9]='0x096B' ;Shadow
CIngot[10]='0x0014' ;Rose
CIngot[11]='0x0193' ;Agapite
CIngot[12]='0x04C2' ;Blood Rock
CIngot[13]='0x07D5' ;Verite
CIngot[14]='0x00CE' ;Valorite
CIngot[15]='0x052D' ;Mytheril
CIngot[16]='0x0455' ;Black Rock
CIngot[17]='0x0028' ;Obsidian
CIngot[18]='0x08AF' ;Plutonium

MenuIron()

uo.useobject(Sunduk)
wait(200)

While 1==1
ff:
   UO.FindType(TIngot[i],CIngot[i],'backpack')
   Wait(200)
   If UO.Count(TIngot[i],CIngot[i])<8 Then
      If UO.Count(TIngot[i],CIngot[i])>0 Then
         UO.SetReceivingContainer(Sunduk)
         cheklag()
         UO.Grab('0','finditem')
         wait(1000)
         UO.UnSetReceivingContainer()
      end if
      UO.FindType(TIngot[i],CIngot[i],Sunduk)
      Wait(200)
      If UO.GetQuantity('finditem')>=8 Then
         cheklag()
         UO.Grab('100','finditem')
         Wait(1000)
      else
         i=i+1
         If i>18 Then
            uo.closeuo()
         end if
         MenuColor()
         goto ff
      end if
   end if

   cheklag()
   UO.DeleteJournal()
   UO.UseType(TIngot[i],CIngot[i])

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
      wait(50)
   wend

   UO.FindType(TItem,-1,'backpack')
   wait(10)
   If UO.GetQuantity('finditem')>0 then
      UO.WaitTargetObject('finditem')
      UO.UseObject(Forge)
      Wait(1000)
   Endif 
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub 

Сделайте пож.Что бы он баклеры лепил....

[-=JoKeR=-]

Code: Select all

sub MenuIron() 
   uo.cancelmenu() 
   uo.automenu('Blacksmithing','Weapons') 
   uo.automenu('Weapons','Spears & Forks') 
   uo.automenu('Spears & Forks','war fork (8 iron ingot)') 
end sub 

sub MenuColor() 
   uo.cancelmenu() 
   uo.automenu('Blacksmithing','Colored Armor & Weapons') 
   uo.automenu('Colored Armor & Weapons','Weapons') 
   uo.automenu('Weapons','Spears & Forks') 
   uo.automenu('Spears & Forks','War Fork') 
end sub

Тут свои менюшки проставь, кроме тебя никто не знает какие они =)

[Askaneli]

Хы, живучий топег однака ...
Давненько я тут не был.

[Askaneli]

Это и вправду я когда то сделал. Самому не верится даже )

[Kynep]

Это и вправду я когда то сделал. Самому не верится даже )

О да!!! А Ведь когда-то была великая гильдия "Гусары" на ДРВ...

[Askaneli]

О да!!! А Ведь когда-то была великая гильдия "Гусары" на ДРВ...

Почти весь состав забанен

[Mirage]

старички

[Askaneli]

старички

Чёт не нашёл я этого тоже. Но помню что было. (про вендоров)

[Mirage]

Вот вот...
Ищи в архивах у себя и выкладывай.

[Askaneli]

Да я уже раз 20 винт форматнул после того как забил на УО
Всё что есть только тут и ещё на парочке форумов.