 Сборку, доделать |
  Сообщений: 1246 Рег. 12.12.2009 |
 13 апреля 2011 00:39 Сообщение #1
|
Помогите доделать скрипт на сборку. Хочю сделать скрипт чтоб при включение брал реагенты по 50 которых не хватает из мешка RC и складывал эти реагенты не в пак а сразу в мешок который лежит в паке.Я чтото пробовал пробовал с различными командами так и не понял что нужно вписать чтоб работал. sub takereg() var RC = '0x40631B92';ID реги var Meshok = '0x406CA627' ;ID куда ложить DIM reg[8] var i,n reg[1]='0x0F86'; MR reg[2]='0x0F7A'; BP reg[3]='0x0F7B'; BM reg[4]='0x0F8C'; SA reg[5]='0x0F88'; NS reg[6]='0x0F84'; GA reg[7]='0x0F85'; GI reg[8]='0x0F8D'; SS UO.UseObject(RC) for i=1 to 8 while UO.Count(reg[i])<50 UO.FindType(reg[i],-1,RC) n=UO.Count(reg[i]) UO.grab (str(50-n),'finditem',0,'Meshok') wait(500) uo.findtype(reg[i],'backpack') uo.moveitem('finditem',0,'Meshok') checkLag() wend next ; if not UO.count('0x0E21') then ; UO.FindType('0x0E21',-1,Dagg) ; n=UO.Count(reg[i]) ; IF uo.findcount() then ; UO.Grab(str(12-n),'finditem') ; wait(200) ; CheckLag() ; endif ; endif end sub |
|
|
|
|
 Сообщений: 464 Рег. 18.03.2011 |
13 апреля 2011 01:26 Сообщение #2
|
В общем у меня есть скрипт, который из пака реги кидает в мешок (a bag) могу дать, а там дальше сам поразмыслишь. Если нужно в лс. Думаю вставить 1 скрипт в ругой ничего трудного не будет. |
|
|
|
|
 Сообщений: 4006 Рег. 7.09.2009 |
13 апреля 2011 11:18 Сообщение #3
|
Цитата: Tom Clark В общем у меня есть скрипт, который из пака реги кидает в мешок (a bag) могу дать, а там дальше сам поразмыслишь. Если нужно в лс. Думаю вставить 1 скрипт в ругой ничего трудного не будет. Выкладывай.) |
|
|
|
|
|
Сообщений: 464 Рег. 18.03.2011 |
13 апреля 2011 12:44 Сообщение #4
|
Кинул ему в лс. Если тебе надо, пиши дам. |
|
|
|
|
|
Сообщений: 1246 Рег. 12.12.2009 |
13 апреля 2011 16:54 Сообщение #5
|
Не чтото всёровно не получается сделать |
|
|
|
|
  Сообщений: 1693 Рег. 19.06.2010 |
15 апреля 2011 09:36 Сообщение #6
|
Замени выделенный кусок в цикле на этот: if UO.Count(Reg[i]) < 50 then
UO.FindType(Reg[i], '-1', RC) if UO.FindCount() >= 50 - UO.Count(Reg[i]) then UO.MoveItem('finditem', Str(50 - UO.Count(Reg[i])), Meshok) CheckLag() else UO.Print('Недостаточно реагентов!') Exit end if end if |
|
|
|
|
|
Сообщений: 1246 Рег. 12.12.2009 |
15 апреля 2011 12:53 Сообщение #7
|
sub takereg() var RC = '0x40631B92';ID сундука с регами var Meshok = '0x406CA627' ;ID куда ложить реги DIM reg[8] var i,n reg[1]='0x0F86'; MR reg[2]='0x0F7A'; BP reg[3]='0x0F7B'; BM reg[4]='0x0F8C'; SA reg[5]='0x0F88'; NS reg[6]='0x0F84'; GA reg[7]='0x0F85'; GI reg[8]='0x0F8D'; SS UO.UseObject(RC) for i=1 to 8 if UO.Count(Reg[i]) < 50 then UO.FindType(Reg[i], '-1', RC) if UO.FindCount() >= 50 - UO.Count(Reg[i]) then UO.MoveItem('finditem', Str(50 - UO.Count(Reg[i])), Meshok) CheckLag() else UO.Print('Недостаточно Реагентов!') Exit end if end if wend next ; if not UO.count('0x0E21') then ; UO.FindType('0x0E21',-1,Dagg) ; n=UO.Count(reg[i]) ; IF uo.findcount() then ; UO.Grab(str(12-n),'finditem') ; wait(200) ; CheckLag() ; endif ; endif end sub Там где строчка Exit пишит ошибка. |
|
|
|
|
Последние посетители (0):
| Сейчас: 4 ноября 2025 17:54 |