hedrix

Kto mozet vilozitj script na bowcraft? 4tobi bral logi s banka i delal luki. Pozalusta kamu ne zalko vilozite> i script na esyuo - autoloot pvm. 4tobi kogda ja otkrivaju trup on sam lutil denjgi pandori brasleti koljca i.t.d . iskal nenawol. Helppp

4e ne ukovo netu?

Подскажите хотелось бы прокачать все скиллы на нюбе острове, а потом уже податься в большой мир...
Хотелось бы узнать какие скилы качаються там?
Detecting Hidden - 20 - не качаеться
Taste Identification - 20 - не качаеться
Begging - 20 - ???
Cartography - 20 - ???
Luck - 20 - это вообще хз что такое...
Riding - 20 - аналогично
Skinning - 20 - аналогично
Magic Item Craft - 20 - не качаеться, но уже знаю что это... ))
Necromancy - 20 - ???
Snooping - 20 - ???

cartography neka4aetsja

Nipamaglo tipa kagda off regi pishut You need 1 blank scroll itd...ja vpisal blank_scroll tagda on idot tipa po krugu nu neberot regi vso vreme pishut eto a kagda you_need stajit on ostanavlivajitsa i vso...

sub inscript()
var Sunduk = '0x400276F0' ; Сериал сундука
var Scroll = '0x0E34' ; бланк скрол, тип
var k = 0
var MakedScroll = '0x1F4C' ; готовый скрол, тип
var reg1 = '0x0F7A' ; сюда вписать реги, нужные для крафта
var reg2 = '0x0F86'
var reg3 = '0x0F7B'
var reg4 = ''
VAR t

While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Exec( "moveitem finditem 150" )
wait( 2000 )

UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Exec( "moveitem finditem 150" )
wait( 2000 )


UO.FindType( reg2, -1, Sunduk ) ; активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Exec( "moveitem finditem 150" )
wait( 2000 )

UO.FindType( reg3, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Exec( "moveitem finditem 150" )
wait( 2000 )
UO.UseType("0x1F99")
wait(1000)
UO.UseType("0x0978")
wait(1000)

; UO.FindType( reg4, -1, Sunduk )
; if UO.FindCount() == 0 Then
; UO.Print( "Reagents not found, script terminated" )
; return
; end if
; UO.Grab( Str(100), 'finditem' )
; wait( 2000 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()


UO.UseType( Scroll )
wait(1000)
UO.LClick(461,453)
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 500 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
wend

; if UO.Count( reg1 ) > 0 then
; UO.FindType( reg1, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if

; if UO.Count( reg2 ) > 0 then; активировать для крафта других свитков
; UO.FindType( reg2, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if

; if UO.Count( reg3 ) > 0 then
; UO.FindType( reg3, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if

; if UO.Count( reg4 ) > 0 then
; UO.FindType( reg4, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
Wend
end sub




vot eto na inject poljzujsja.

version 77 - слишком старая и поэтаму всегда скрипт покозал color - 0

a kakaja samaja norm 1.5 102