Yoko :: Искуственный вендор!

Yoko http://forum.yoko.com.ua/

Искуственный вендор! http://forum.yoko.com.ua/viewtopic.php?f=20&t=7485	Page 1 of 1

Author:

NiFiGaSebe [ 2006-04-24 01:05:52 ]

Post subject:

Искуственный вендор!

скрипт работает следующим образом. на рынке стоит чар. записывает все названия итемов в список, остается подписать цену. это как бы подготовка) ( baza() )
дальше сам скрипт реагирует на некую фразу например trade и выводит весь список товаров, который уже был составлен. каждый товар под пронумерован. затем покупатель пишет некую фразу например mega buy и номер товара. бот кладет товар в окно и ждет определенное время, пока в трей появится необходимая сумма и жмет ок. не дописал правда удаление из списка купленного товара.. впадлу уже было ) особо не пользовался макром, писал ради интереса) вот копался в старых своих скиптах вспомнил про него, мож кому пригодится)

Code:

sub vendor()
UO.DeleteJournal() 
uo.exec('exec trade')
var id
Var FileName='D:\lol.txt'
Var Tl
Var F=File(FileName) 
start:
#UO.SetGlobal('process','yes') 
F.Open() 
while 1
   while UO.InJournal('trade')
   id=uo.JournalSerial(uo.InJournal("trade")-1)
   uo.say("Hi" + " " + uo.getname(id))
   begin:
   Tl=safecall F.Readln() 
   Tl=Trim(Tl) 
      If Tl=='File read error' Then 
      #F.Close() 
      #UO.SetGlobal('process','no')
      UO.msg("Для покупки товара наберите mega buy и номер товара")
      DeleteJournal("trade")
      goto start
      EndIf 
   UO.say(Trim(left(Tl,2)) + uo.getname(mid(Tl, 2, 10))+ " po " + Trim(mid(Tl, 12, 10)))
   goto begin
   wend
wend
end sub


######################################################

sub trade()
var nomer, line, dolj, imya
var sum=0
var time
Var FileName='D:\lol.txt'
Var Tl
Var F=File(FileName) 
start:
F.Open()
UO.DeleteJournal() 
   while not (uo.InJournal("mega buy"))
   wait(100)
   wend
line=UO.injournal("mega buy")
nomer=Trim(Right(UO.Journal(line-1),2))
#uo.say(nomer)
#uo.say("Tovar dlya" + " " + uo.getname(uo.JournalSerial(uo.InJournal("mega buy")-1)) + " N " + nomer)

begin:
Tl=safecall F.Readln()

If Tl=='File read error' Then
#F.Close() 
goto start
EndIf


If nomer==Trim(left(Tl, 2)) then
#uo.say(uo.getname(mid(Tl, 2, 10)))
uo.MoveItem(mid(Tl, 2, 10),"-1",uo.JournalSerial(uo.InJournal("mega buy")-1))
#
#ПРОВЕРКА ДЕНЕГ!
#uo.say("Vi doljni " + STR(mid(Tl, 12, 10)) + "gp")
imya=uo.getname(uo.JournalSerial(uo.InJournal("mega buy")-1))
dolj=Trim(mid(Tl, 12, 10))
uo.say(imya + ", BbI DoJI}|{HbI " + dolj)


#podschet:
time=0
uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
 while uo.FindCount()==0 and time<10
  uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
  wait(1000)
  time=time+1
 wend

if time==10 then
uo.msg("Время вышло")
UO.RClick(168,70)
goto start
endif

UO.IgnoreReset()
UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
uo.print(uo.FindCount())
while uo.FindCount() > 0 
sum=sum+UO.GetQuantity('finditem')
UO.Ignore("finditem")
UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
wend
uo.print(STR(sum)+"GP")

uo.print(STR(sum))
uo.print(dolj)

if sum==val(dolj) then 
UO.LClick(67,43)
wait(500)
uo.msg("Спасибо за покупку, " + imya)
sum=0
goto start
endif

goto start
EndIf
goto begin
end sub

######################################################

sub hah()
var time=0
uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
 while uo.FindCount()==0 and time<60
  uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
  wait(1000)
  time=time+1
 wend
 uo.say("lala")
end sub

######################################################

Sub DeleteJournal(What) 
Var T,J 
J=False 
If UO.InJournal(What) Then 
J=True 
UO.DeleteJournal() 
EndIf 
RETURN J 
EndSub 


######################################################

sub info()
UO.IgnoreReset()
UO.FindType('',',-1','backpack')
uo.print(uo.FindCount())
   while uo.FindCount() > 0    
   uo.info('finditem')
   #uo.print(uo.GetSerial("finditem"))
   UO.Ignore("finditem")
   wait(500)
   UO.FindType('',',-1','backpack')
   wend
uo.textclear()
uo.textclose()
end sub

######################################################

sub baza()
var I
var c
uo.textopen()
UO.IgnoreReset()
UO.FindType('',',-1','backpack')
uo.print(uo.FindCount())
c=uo.FindCount()
uo.print(STR(c))
For I=1 to c
uo.textprint(STR(I) + " " + uo.getserial("finditem") + " " + uo.GetName("finditem"))
next
end sub


sub CheckGold() 
var item_amount = 0 
var i=0
If UO.TradeCount() and i<5 Then 
      REPEAT 
      UO.FindType('0x0EED', '-1', UO.TradeContainer('right')) 
         If UO.FindCount() Then 
               If UO.GetQuantity('finditem')==0 Then 
                  item_amount = item_amount + 1 
               Else 
                  item_amount = item_amount + UO.GetQuantity('finditem') 
               EndIf 
            UO.Ignore('finditem') 
            UO.FindType('0x0EED', '-1', UO.TradeContainer('right')) 
         EndIf 
      Until UO.FindCount()==0 or UO.Dead() 
   UO.IgnoreReset() 
   UO.Print("Gold: "+STR(item_amount)+"Gp") 
Else 
   UO.Print("No Trade") 
   i=i+1
   wait(1000)
EndIf 

end sub

Author:	Edred [ 2006-04-24 08:26:51 ]
Post subject:
Как минимум третий-четвертый скрипт на эту тему на моей памяти... Почему-то народу нравится писать вендоров, хотя после запуска на шардах обычно тут же вносят исправления в правила, запрещающие их.

Author:	Scripts Writer [ 2006-04-24 13:33:46 ]
Post subject:
Впечатляет, но я бы такой не стал запускать. Для этого есть НПС,а что бы наипать всегда найдутся умельцы.

Author:	WandeRinG [ 2006-04-24 16:12:37 ]
Post subject:
а как цену подписывать?! вообщем пример содержимого файла дайте

Author:

Mirage [ 2011-02-20 16:16:12 ]

Post subject:

Re: Искуственный вендор!

Я немного подправил скрипт. Так будет более работоспособно и понятно что там делать.
Чар в игре должен быть с открытым бэкпаком в котором находятся вещи на продажу. Запускается функция info(). Когда функция завершит работу в открывшемся TEXT окне будет список следующего вида:

Quote:

1 0x40E4FA82 a Small wood and plaster house
2 0x40E4FA3C a Small wood and plaster house
3 0x40E4F9DA a Forester s House'
4 0x40067BC6 100 Mandrake Root
5 0x40015021 a Golden fish
6 0x40ED854C Bank Cheque [450000gp]
7 0x40F3F7B7 215 Iron ingot

Копируем то что получилось в файл D:\lol.txt (предварительно создав его соответственно).
Чтобы скрипт назначил цену на предметы редактируем и выставляем после ID предмета его стоимость вот так:

Quote:

1 0x40E4FA82 100000 a Small wood and plaster house
2 0x40E4FA3C 100000 a Small wood and plaster house
3 0x40E4F9DA 50000a Forester s House'
4 0x40067BC6 1000 100 Mandrake Root
5 0x40015021 5000 a Golden fish
6 0x40ED854C 450000 Bank Cheque [450000gp]
7 0x40F3F7B7 50000 215 Iron ingot

Сохраняем и закрываем файл. Все готово к началу торгов.
Запускаем vendor(). Чар ждет когда рядом с ним скажут слово trade. Озвучивает товар и цену, покупатель должен произнести (например) mega buy 1. Бот передаст ему товар под номером 1 и будет ожидать появления нужной суммы золота в другом окне. Если деньги не обнаруживаются окно с торговлей закрывается. Если нужное количество золото передано и поставлена галка, чар передает продаваемый товар покупателю. Это то что РАБОТАЕТ (протестировано). Теперь о плохом.
Автор не доделал функцию очистки списка покупок, соответственно повторение mega buy 1 сломает мозг боту продавцу. Так же используются несколько устаревшие команды типа goto, нет проверки на расстояние до покупателя и наконец лучше было бы чтобы товар брался из сундука (банка) куда потом скидывалось золото. Но в целом скрипт нормальный и как основу для чего то более глобального его взять можно.

Code:

sub vendor()
   UO.DeleteJournal()
   uo.exec('exec trade')
   var id
   Var FileName='D:\lol.txt'
   Var Tl
   Var F=File(FileName)
   start:
   #UO.SetGlobal('process','yes')
   F.Open()
   while 1
      while UO.InJournal('trade')
         id=uo.JournalSerial(uo.InJournal("trade")-1)
         uo.say("Hi" + " " + uo.getname(id))
         begin:
         Tl=safecall F.Readln()
         Tl=Trim(Tl)
         If Tl=='File read error' Then
            #F.Close()
            #UO.SetGlobal('process','no')
            UO.msg("Для покупки товара наберите mega buy и номер товара")
            DeleteJournal("trade")
            goto start
         EndIf
         UO.say(Trim(left(Tl,2)) + uo.getname(mid(Tl, 2, 10))+ " po " + Trim(mid(Tl, 12, 10)))
         goto begin
      wend
   wend
end sub
######################################################
Sub trade()
   var nomer, line, dolj, imya
   var sum=0
   var time
   Var FileName='D:\lol.txt'
   Var Tl
   Var F=File(FileName)
   start:
   F.Open()
   UO.DeleteJournal()
   while not (uo.InJournal("mega buy"))
      wait(100)
   wend
   line=UO.injournal("mega buy")
   nomer=Trim(Right(UO.Journal(line-1),2))
   #uo.say(nomer)
   #uo.say("Tovar dlya" + " " + uo.getname(uo.JournalSerial(uo.InJournal("mega buy")-1)) + " N " + nomer)
   begin:
   Tl=safecall F.Readln()
   If Tl=='File read error' Then
      #F.Close()
      goto start
   EndIf
   If nomer==Trim(left(Tl, 2)) then
      #uo.say(uo.getname(mid(Tl, 2, 10)))
      uo.MoveItem(mid(Tl, 2, 10),"-1",uo.JournalSerial(uo.InJournal("mega buy")-1))
      #
      #ПРОВЕРКА ДЕНЕГ!
      #uo.say("Vi doljni " + STR(mid(Tl, 12, 10)) + "gp")
      imya=uo.getname(uo.JournalSerial(uo.InJournal("mega buy")-1))
      dolj=Trim(mid(Tl, 12, 10))
      uo.say(imya + ", BbI DoJI}|{HbI " + dolj)
      #podschet:
      time=0
      uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
      while uo.FindCount()==0 and time<10
         uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
         wait(1000)
         time=time+1
      wend
      if time==10 then
         uo.msg("Время вышло")
         UO.RClick(168,70)
         goto start
      endif
      UO.IgnoreReset()
      UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
      uo.print(uo.FindCount())
      while uo.FindCount() > 0
         sum=sum+UO.GetQuantity('finditem')
         UO.Ignore("finditem")
         UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
      wend
      uo.print(STR(sum)+"GP")
      uo.print(STR(sum))
      uo.print(dolj)
      if sum==val(dolj) then
         UO.LClick(67,43)
         wait(500)
         uo.msg("Спасибо за покупку, " + imya)
         sum=0
         goto start
      endif
      goto start
   EndIf
   goto begin
end sub
######################################################
Sub hah()
   var time=0
   uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
   while uo.FindCount()==0 and time<60
      uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
      wait(1000)
      time=time+1
   wend
   uo.say("lala")
end sub
######################################################
Sub DeleteJournal(What)
   Var T,J
   J=False
   If UO.InJournal(What) Then
      J=True
      UO.DeleteJournal()
   EndIf
   RETURN J
EndSub
######################################################
sub info()
   UO.IgnoreReset()
   UO.FindType('','-1','backpack')
   uo.print(uo.FindCount())
   while uo.FindCount() > 0   
      uo.info('finditem')
      #uo.print(uo.GetSerial("finditem"))
      UO.Ignore("finditem")
      wait(500)
      UO.FindType('','-1','backpack')
   wend
   uo.textclear()
   uo.textclose()
baza()
end sub
######################################################
Sub baza()
   var I
   var c
   uo.textopen()
   UO.IgnoreReset()
   UO.FindType('','-1','backpack')
   uo.print(uo.FindCount())
   c=uo.FindCount()
   uo.print(STR(c))
   For I=1 to c
      UO.FindType('','-1','backpack')
      uo.textprint(STR(I) + " " + uo.getserial("finditem") + " " + uo.GetName("finditem"))
      UO.Ignore("finditem")
   next
   UO.IgnoreReset()
end sub
Sub CheckGold()
   var item_amount = 0
   var i=0
   If UO.TradeCount() and i<5 Then
      REPEAT
         UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
         If UO.FindCount() Then
            If UO.GetQuantity('finditem')==0 Then
               item_amount = item_amount + 1
            Else
               item_amount = item_amount + UO.GetQuantity('finditem')
            EndIf
            UO.Ignore('finditem')
            UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
         EndIf
      Until UO.FindCount()==0 or UO.Dead()
      UO.IgnoreReset()
      UO.Print("Gold: "+STR(item_amount)+"Gp")
   Else
      UO.Print("No Trade")
      i=i+1
      wait(1000)
   EndIf
end sub

Будут вопросы - пишите.

Author:	tylllkah [ 2012-11-07 13:14:56 ]
Post subject:	Re: Искуственный вендор!
вылетает, и спамит сильно

Author:	Mirage [ 2012-11-07 14:13:46 ]
Post subject:	Re: Искуственный вендор!
Менял чего то или тот что вверху - мой - вылетает?

Author:	tylllkah [ 2012-11-07 17:48:43 ]
Post subject:	Re: Искуственный вендор!
по инструкции всё, пишешь трайд, он начинает спамить и потом уо сварачивается

Author:	tylllkah [ 2012-12-04 12:16:06 ]
Post subject:	Re: Искуственный вендор!
Ау

Author:	tylllkah [ 2013-02-11 12:20:39 ]
Post subject:	Re: Искуственный вендор!
Вспомним старое, не работает вылетает...

Author:	admir [ 2013-02-14 00:01:41 ]
Post subject:	Re: Искуственный вендор!
) давно пора на стелс переходить)

Author:	tylllkah [ 2013-02-14 11:23:32 ]
Post subject:	Re: Искуственный вендор!
стелс? не, не слышал

Author:

tylllkah [ 2013-03-31 15:44:12 ]

Post subject:

Re: Искуственный вендор!

кто поможет подставить игнор себя?
и второй вопрос считает он деньги в трайде или нет?

Code:

sub vendor()
   UO.DeleteJournal()
   uo.exec('exec trade')
   var id,ln=0
   Var FileName='C:\Games\lol.txt'
   Var Tl
   Var F=File(FileName)
   start:
   #UO.SetGlobal('process','yes')
   F.Open()
   while 1
      Uo.msg('Хочешь торговать напиши trade')
      wait(3000)
      ln=UO.InJournal('trade')
               id=uo.JournalSerial(ln-1)
         if id<>uo.getserial('self') then
      while ln
         #id=uo.JournalSerial(ln-1)
         #if id<>uo.getserial('self') then
            uo.msg("Привет" + " " + uo.getname(id))
            wait(700)
            begin:
            Tl=safecall F.Readln()
            Tl=Trim(Tl)
            If Tl=='File read error' Then
               #F.Close()
               #UO.SetGlobal('process','no')
               UO.msg("Для покупки товара наберите Venik buy и номер товара")
               wait(2000)
               DeleteJournal("trade")
               goto start
            EndIf
            #UO.msg(Trim(left(Tl,2)) + " " + uo.getname(mid(Tl, 2, 10)) + " по " + "гп" +  Trim(mid(Tl, 12, 10)))
            UO.msg(Trim(left(Tl,2)) + "  " + uo.getname(mid(Tl, 6, 20)) + " по " + "гп" +  Trim(mid(Tl, 12, 10)))
            wait(2500)
         #else
            #uo.setjournalline(ln-1,'')
         #endif
         goto begin
      wend
               else
            uo.setjournalline(ln-1,'')
            end if
   wend
end sub
######################################################
Sub trade()
   var nomer, line, dolj, imya
   var sum=0
   var time
   Var FileName='C:\Games\lol.txt'
   Var Tl
   Var F=File(FileName)
   start:
   F.Open()
   UO.DeleteJournal()
   while not (uo.InJournal("Venik buy"))
      wait(100)
   wend
   line=UO.injournal("Venik buy")
   nomer=Trim(Right(UO.Journal(line-1),2))
   #uo.say(nomer)
   #uo.say("Tovar dlya" + " " + uo.getname(uo.JournalSerial(uo.InJournal("mega buy")-1)) + " N " + nomer)
   begin:
   Tl=safecall F.Readln()
   If Tl=='File read error' Then
      #F.Close()
      goto start
   EndIf
   If nomer==Trim(left(Tl, 2)) then
      #uo.say(uo.getname(mid(Tl, 2, 10)))
      uo.MoveItem(mid(Tl, 2, 10),"-1",uo.JournalSerial(uo.InJournal("Venik buy")-1))
      #
      #ПРОВЕРКА ДЕНЕГ!
      #uo.say("Vi doljni " + STR(mid(Tl, 12, 10)) + "gp")
      imya=uo.getname(uo.JournalSerial(uo.InJournal("Venik buy")-1))
      dolj=Trim(mid(Tl, 12, 10))
      uo.say(imya + ", BbI DoJI}|{HbI " + dolj)
      #podschet:
      time=0
      uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
      while uo.FindCount()==0 and time<10
         uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
         wait(1000)
         time=time+1
      wend
      if time==10 then
         uo.msg("Время вышло")
         UO.RClick(168,70)
         goto start
      endif
      UO.IgnoreReset()
      UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
      uo.print(uo.FindCount())
      while uo.FindCount() > 0
         sum=sum+UO.GetQuantity('finditem')
         UO.Ignore("finditem")
         UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
      wend
      uo.print(STR(sum)+"GP")
      uo.print(STR(sum))
      uo.print(dolj)
      if sum==val(dolj) then
         UO.LClick(67,43)
         wait(500)
         uo.msg("Спасибо за покупку, " + imya)
         sum=0
         goto start
      endif
      goto start
   EndIf
   goto begin
end sub
######################################################
Sub hah()
   var time=0
   uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
   while uo.FindCount()==0 and time<60
      uo.findtype("0x0EED",-1,uo.tradecontainer("right"))
      wait(1000)
      time=time+1
   wend
   uo.say("lala")
end sub
######################################################
Sub DeleteJournal(What)
   Var T,J
   J=False
   If UO.InJournal(What) Then
      J=True
      UO.DeleteJournal()
   EndIf
   RETURN J
EndSub
######################################################
sub info()
   UO.IgnoreReset()
   UO.FindType('','-1','backpack')
   uo.print(uo.FindCount())
   while uo.FindCount() > 0   
      uo.info('finditem')
      #uo.print(uo.GetSerial("finditem"))
      UO.Ignore("finditem")
      wait(500)
      UO.FindType('','-1','backpack')
   wend
   uo.textclear()
   uo.textclose()
   baza()
end sub
######################################################
Sub baza()
   var I
   var c
   uo.textopen()
   UO.IgnoreReset()
   UO.FindType('','-1','backpack')
   uo.print(uo.FindCount())
   c=uo.FindCount()
   uo.print(STR(c))
   For I=1 to c
      UO.FindType('','-1','backpack')
      uo.textprint(STR(I) + " " + uo.getserial("finditem") + " " + uo.GetName("finditem"))
      UO.Ignore("finditem")
   next
   UO.IgnoreReset()
end sub
Sub CheckGold()
   var item_amount = 0
   var i=0
   If UO.TradeCount() and i<5 Then
      REPEAT
         UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
         If UO.FindCount() Then
            If UO.GetQuantity('finditem')==0 Then
               item_amount = item_amount + 1
            Else
               item_amount = item_amount + UO.GetQuantity('finditem')
            EndIf
            UO.Ignore('finditem')
            UO.FindType('0x0EED', '-1', UO.TradeContainer('right'))
         EndIf
      Until UO.FindCount()==0 or UO.Dead()
      UO.IgnoreReset()
      UO.Print("Gold: "+STR(item_amount)+"Gp")
   Else
      UO.Print("No Trade")
      i=i+1
      wait(1000)
   EndIf
end sub

Author:	tylllkah [ 2013-04-04 00:27:17 ]
Post subject:	Re: Искуственный вендор!
Ап! Добрые люди, помогите)

Author:	Mirage [ 2013-04-04 06:35:58 ]
Post subject:	Re: Искуственный вендор!
Quote: кто поможет подставить игнор себя? UO.Ignore("self") - команда есть в хелпе. Quote: и второй вопрос считает он деньги в трайде или нет? Запусти и проверь.

Author:	tylllkah [ 2013-04-04 22:31:15 ]
Post subject:	Re: Искуственный вендор!
Mirage wrote: Quote: кто поможет подставить игнор себя? UO.Ignore("self") - команда есть в хелпе. Quote: и второй вопрос считает он деньги в трайде или нет? Запусти и проверь. Она ведь работает при поиске а не по игнору журнала, я ее элемов игнорирую))

Author:	ZeroDX [ 2013-04-05 05:05:05 ]
Post subject:	Re: Искуственный вендор!
Code: line = uo.injournal(msg) if line then if uo.journalserial(line-1) == uo.getserial('self') then uo.setjournalline(line-1, '') else ... endif endif

Author:	tylllkah [ 2013-04-05 06:09:11 ]
Post subject:	Re: Искуственный вендор!
ZeroDX wrote: Code: line = uo.injournal(msg) if line then if uo.journalserial(line-1) == uo.getserial('self') then uo.setjournalline(line-1, '') else ... endif endif Вопрос ее вставит перед тем как я сказал трэйд или после? Разумеется перед тем как мне скажут трэйд

Author:	ZeroDX [ 2013-04-05 07:10:44 ]
Post subject:	Re: Искуственный вендор!
вытирать что-то из журнала, следует после добавления чего-то в журнал

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/