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