Camping

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
kooler
Posts: 28
Joined: 2004-06-27 16:17:24

Camping

Post by kooler »

Вообщемто и вопрос монали написать скрипт на кампинг? )
Если мона то напишите плиз :D
Kazoo
Posts: 173
Joined: 2004-04-03 18:39:28
Contact:

Post by Kazoo »

използуй search а потом уже проси !
kooler
Posts: 28
Joined: 2004-06-27 16:17:24

Post by kooler »

Ну какбы я уже потыкал Search :)
Ниче ненашол :( Плз хелп
Mguai
Posts: 83
Joined: 2004-06-18 09:03:31
Contact:

Post by Mguai »

Kazoo wrote:използуй search а потом уже проси !


ЛОЛ

В SEARCH нету скрипта на кампинг
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Mguai wrote:
Kazoo wrote:използуй search а потом уже проси !


ЛОЛ

В SEARCH нету скрипта на кампинг


В старом форуме полно. Скачай и пользуйся.
Mguai
Posts: 83
Joined: 2004-06-18 09:03:31
Contact:

Post by Mguai »

так бы сразу говорили что в старом !
Mguai
Posts: 83
Joined: 2004-06-18 09:03:31
Contact:

Post by Mguai »

Code: Select all

sub camp() 
   VAR Exit=0
   while NOT UO.Dead() OR Exit<>1
      UO.FindType('0x0DE1','0x0000','0x400704F3') ; container vs kindling
      If UO.GetQuantity('finditem')>0 Then
         UO.Grab('1','finditem')
         UO.DropHere('finditem')
         UO.UseObject('finditem')
         wait(1000)
         UO.SetReceivingContainer('0x400AF298') ;trash
         UO.Grab('1','finditem')
         UO.UnSetReceivingContainer()
      Else
         Exit=1
      Endif
   wend
end sub


нашол в старом форуме
Jora
Posts: 2
Joined: 2004-06-09 15:06:41
Contact:

Re: Camping

Post by Jora »

kooler wrote:Вообщемто и вопрос монали написать скрипт на кампинг? )
Если мона то напишите плиз :D

sub main()
begin:

uo.exec("usefromground '0x0de1'")
wait(5000)

UO.ServerPrint(".hungry")
Wait(10000)
if UO.InJournal("You aren't hungry at all") then
UO.Deletejournal()
UO.Exec("usetype 'steaks'")
EndIf

goto begin
end sub
Post Reply