Если правильно понял то это
If Char<>0 Then
UO.SetArm('CWeapon')
UO.WaitTargetObject(Char)
UO.UseType('0x0E21')
UO.Print("?anno?aeo!!!")
wait(500)
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
Else
надо заменить на это
If Char<>0 Then
UO.SetArm ...
Search found 11 matches
- 2011-06-16 08:55:29
- Forum: Scripting Ore
- Topic: То, что ищут многие...
- Replies: 222
- Views: 263258
- 2011-06-16 08:04:25
- Forum: Scripting Ore
- Topic: То, что ищут многие...
- Replies: 222
- Views: 263258
Re: То, что ищут многие...
sub resurct()
var tBandage = '0x0E21'
if UO.Count(tBandage) < 20 then
UO.Print("HE4EM PECATb")
return
end if
VAR i,k,CharX,CharY,MyX,MyY,Char
DIM Player[8]
Player[0]='0x0011325C' ;SVOLOCH(P)
Player[1]='0x0005A98F' ;KadP(P)
Player[2]='0x0010023D ...
var tBandage = '0x0E21'
if UO.Count(tBandage) < 20 then
UO.Print("HE4EM PECATb")
return
end if
VAR i,k,CharX,CharY,MyX,MyY,Char
DIM Player[8]
Player[0]='0x0011325C' ;SVOLOCH(P)
Player[1]='0x0005A98F' ;KadP(P)
Player[2]='0x0010023D ...
- 2011-05-23 14:03:08
- Forum: Scripting Ore
- Topic: Поправьте пожаста скрипт на варку
- Replies: 6
- Views: 1764
Re: Поправьте пожаста скрипт на варку
получилось проверить, все супер как хотелось, спс огромное
- 2011-05-23 13:29:53
- Forum: Scripting Ore
- Topic: Поправьте пожаста скрипт на варку
- Replies: 6
- Views: 1764
Re: Поправьте пожаста скрипт на варку
он работал просто не брал ничего( потом проверю, курсовая выиграла по статусу важности)) а про точку с запятой, у меня не через нее, не через решотку ничего не работает, пока полностью текст не убереш
- 2011-05-22 21:21:05
- Forum: Scripting Ore
- Topic: Поправьте пожаста скрипт на варку
- Replies: 6
- Views: 1764
Re: Поправьте пожаста скрипт на варку
Mirage wrote:uo.findtype(kegg,'-1','0x779B2DFB') - 1
Что за запись?
Где комментирование строки?
я не разбираюсь в этом, знал бы сам подумал))
а что там должно быть?
нашел в инете с комментированием тока этих строк
- 2011-05-22 20:50:47
- Forum: Scripting Ore
- Topic: Поправьте пожаста скрипт на варку
- Replies: 6
- Views: 1764
Поправьте пожаста скрипт на варку
sub main()
var kegg="0x1940"
var text="Charges now: [25/ 75]"
repeat
if uo.count(kegg)<1 then
uo.findtype(kegg,'-1','0x779B2DFB') - 1
uo.moveitem('finditem',1,'backpack')
endif
wait(500)
if UO.Count('0x0F87')<1 then
UO.FindType('0x0F87',-1,'0x779B2DFB ...
- 2011-05-13 17:51:26
- Forum: I need script!
- Topic: Помогите с макросом на БС
- Replies: 0
- Views: 3244
Помогите с макросом на БС
нигде не нашел макроса на постояный крафт Platemail legs что бы инги с пола юзал и для второга чара который с пола переплавляет эти штаны, помогите пожаста =(
- 2011-05-05 06:55:40
- Forum: Scripting Ore
- Topic: допишите пожаста мининг
- Replies: 3
- Views: 1617
Re: допишите пожаста мининг
Mirage wrote:В твоем случае достаточно в основной скрипт добавить такой кусокCode: Select all
sub infinity()
repeat
min()
until uo.dead()
endsub
Спасибо, попробую щас вставлять это и пробывать с какой строны работает
- 2011-05-04 06:03:47
- Forum: Scripting Ore
- Topic: допишите пожаста мининг
- Replies: 3
- Views: 1617
допишите пожаста мининг
А точнее доработать что бы все тоже самое только нон стопом капал пока сам скрипт не остановиш
sub min()
VAR Kirka = '0x0e85'
VAR MaxVes = 1100
VAR TileNum = '1339'
VAR x, y, t, k
VAR MaxTime = 100
VAR ms1 = "There is not of mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You ...
sub min()
VAR Kirka = '0x0e85'
VAR MaxVes = 1100
VAR TileNum = '1339'
VAR x, y, t, k
VAR MaxTime = 100
VAR ms1 = "There is not of mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You ...
- 2011-05-03 12:20:40
- Forum: I need script!
- Topic: Помогите найти проблему в макросе на пойзон
- Replies: 2
- Views: 1616
Re: Помогите найти проблему в макросе на пойзон
Grin wrote:Code: Select all
UO.UseSkill('Poisoning')
UO.WaitTargetType('0x0F0A')
wait(350)
UO.WaitTargetType('0x0F3F')Code: Select all
UO.WaitTargetObject('^0x0F0A', '^0x0F3F')
UO.UseSkill('Poisoning')
это надо заменить? Спасибо, заменил часть и вроде не появляется
- 2011-05-03 10:56:57
- Forum: I need script!
- Topic: Помогите найти проблему в макросе на пойзон
- Replies: 2
- Views: 1616
Помогите найти проблему в макросе на пойзон
sub pois()
While 1==1
UO.CancelMenu()
UO.AutoMenu( 'Select a potion to make', 'Lesser Poison' ) # выбираешь тип тотлов
wait(1000)
repeat
if UO.Count('0x0F88')==0 then
UO.FindType('0x0F88',-1,'ground') поиск найтшайда
UO.Grab('1','finditem') берем найтшайд в пак
wait(500 ...
While 1==1
UO.CancelMenu()
UO.AutoMenu( 'Select a potion to make', 'Lesser Poison' ) # выбираешь тип тотлов
wait(1000)
repeat
if UO.Count('0x0F88')==0 then
UO.FindType('0x0F88',-1,'ground') поиск найтшайда
UO.Grab('1','finditem') берем найтшайд в пак
wait(500 ...