Yoko

Posted: **2005-04-20 10:37:01**

sub main()
start:
if UO.STR<=190 then  ; это сила чара
UO.Usetype("0x097B") ; кушаем жаренную рыбку
wait(500)
UO.Usetype("0x097B")
wait(500)
UO.Usetype("0x097B")
wait(500)
UO.Usetype("0x097B")
wait(500)
UO.Usetype("0x097B")
wait(500)
UO.WaitMenu('What','Daemon') 
UO.Cast('Polymorph') 
wait(8000)
end if
if UO.InJournal("mana")then
UO.Exec("usetype 0x1086")    ; надеваем брас маны
wait(500)
while uo.Mana<UO.INT 
uo.UseSkill('Meditation')    ; медитируем
repeat 
wait(1500)
until uo.InJournal("peace") or uo.InJournal("You lose")
wend 
uo.deletejournal()
endif
UO.SetArm('Weapon')         ;в руках должна быть курсанутая кирка 
UO.Exec("bandageself")
wait(2000) 
UO.Arm('Weapon')
wait(2000)
UO.FindType('0x0E20','-1','backpack')  ; промываем кровяшки
If UO.GetQuantity('finditem')>0 Then
UO.WaitTargetType('0x1008')            ; это промывачка   
UO.UseObject('finditem')
wait(1500) 
endif
if UO.InJournal("cure")then
UO.Usetype("0x0E85")                  ; тут указываем тип кирки
wait(15000)
uo.deletejournal()
endif
goto start 
end sub


sub abort()
uo.exec("terminate all")
end sub

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = Time() 
RFlag = 0 
endif 
Wait(120000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate main')
wait(3000)
UO.Exec('exec main')
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub  

sub Time() 
var Date,nTime,uTime,i 
uTime=str(uo.Time()) 
nTime='' 
for i=0 to Len(uTime) 
nTime=uTime[Len(uTime)-i]+nTime 
if (i==2) or (i==4) then 
nTime=':'+nTime 
end if 
next 
uTime=str(uo.Date()) 
Date='' 
for i=0 to Len(uTime) 
Date=uTime[Len(uTime)-i]+Date 
if (i==2) or (i==4) then 
Date='.'+Date 
end if 
next 
uTime=nTime+' @ '+Date 
return uTime 
end sub

Засунул твой скрипт в code, чего и тебе желаю, а еще разметочку бы, а то читать трудно. KrafteR

Posted: **2005-04-20 17:59:46**

Неплохо конечно:
1. Прочитай про переменные, for ex:

Code: Select all

var havka = "0x097B"
uo.usetype(havka)

2. Прочитай про циклы:

Code: Select all

var i,havka = "0x097B"
for i=1 to 5 
UO.Usetype(havka) 
wait(300) 
next

Дальше разбирать даже не пробывал :roll:

Posted: **2005-04-21 09:29:33**

Destruction wrote:Неплохо конечно:
1. Прочитай про переменные, for ex:
Code: Select all
var havka = "0x097B"
uo.usetype(havka)
2. Прочитай про циклы:
Code: Select all
var i,havka = "0x097B"
for i=1 to 5 
UO.Usetype(havka) 
wait(300) 
next
Дальше разбирать даже не пробывал

С переменными мудитесь сами, и нечего его разбирать - запускаешь и идешь пить пиво

Posted: **2005-04-21 11:22:33**

На самом деле такие переменные только облегчают работу и делают скрипт более удобным для модификаций :idea:

Posted: **2005-04-21 13:39:20**

Wahoocka wrote:С переменными мудитесь сами, и нечего его разбирать - запускаешь и идешь пить пиво

слушай старших, может со временем програмить научишься, а не ток клепать скрипты

Posted: **2005-04-21 17:05:53**

Sfagnum wrote:
Wahoocka wrote:С переменными мудитесь сами, и нечего его разбирать - запускаешь и идешь пить пиво
слушай старших, может со временем програмить научишься, а не ток клепать скрипты

Никогда старших не слушался - делаешь скрипт, делай так, чтобы всем было понятно :!:

Если не хочешь делать, чтобы всем было понтно сразу - не давай всем, чтобы не было потом "тупых" вопросов.

Yoko

ВОТ СЛЕПИЛ СКРИПТ НА ВЕТЕРИНАРИЮ С РЕКОНЕКТОМ

ВОТ СЛЕПИЛ СКРИПТ НА ВЕТЕРИНАРИЮ С РЕКОНЕКТОМ