Page 1 of 1

Camping

Posted: 2004-07-03 08:12:24
by kooler
Вообщемто и вопрос монали написать скрипт на кампинг? )
Если мона то напишите плиз :D

Posted: 2004-07-03 08:14:28
by Kazoo
използуй search а потом уже проси !

Posted: 2004-07-03 10:18:07
by kooler
Ну какбы я уже потыкал Search :)
Ниче ненашол :( Плз хелп

Posted: 2004-07-05 18:05:17
by Mguai
Kazoo wrote:използуй search а потом уже проси !
ЛОЛ

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

Posted: 2004-07-06 11:20:40
by Edred
Mguai wrote:
Kazoo wrote:използуй search а потом уже проси !
ЛОЛ

В SEARCH нету скрипта на кампинг
В старом форуме полно. Скачай и пользуйся.

Posted: 2004-07-07 13:43:19
by Mguai
так бы сразу говорили что в старом !

Posted: 2004-07-07 15:44:11
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 
нашол в старом форуме

Re: Camping

Posted: 2004-07-14 22:32:33
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