Toggle shoutbox Chat
|
Inscription
#1
Posted 27 May 2009 - 22:53
Berjet regi s sunduka vse kotorie nado takzhe blank scrol, i regi vse.
i kogda delaet kladjet sdelanie tuda i berjet zanovo.
Kogda ho4et kuwatj wtobi bral s sunduka 1 milk 2 becona,i kuwal.
Pozhalusto adjte takoj skripteg.
Игрок Oldparadise XL
#2
Posted 29 May 2009 - 09:08
initevents set %Scrl MMF set %mandrake MZF set %blcprl KUF set %bldms JUF set %item WTL ;Итемсы которые изготавливаются set %chest FVQBLMD;Сундук куда сбрасываются сделаные рекаллы и реги set %kolbaski GND; set %milk ZBM; Display yesno Have you alredy made 1 Recall? if #dispres = yes goto start if #dispres = no { display Make 1 recall, and restart scrpt... halt } start: finditem %Scrl c_ , #backpackid set #lobjectid #findid event macro 17 0 wait 10 click 459 454 goto scaner Scaner: set %overt #scnt + 7 Scan: DELETEJOURNAL SCANJOURNAL 1 if You_put_ in #journal || Your_skill in #journal || You_fail in #journal || #scnt => %overt goto start if World_Save_has_ in #journal { wait 5s goto Scaner } if You_need_ in #journal { goto reload goto Scaner } if _hungry! in #sysmsg || You_scribble_ in #sysmsg { gosub eat goto Scaner } goto scan Reload: set #lobjectid %chest event macro 17 0 while #contid <> %chest wait 1 finditem %item c_ , #backpackid exevent drag #findid #findstack exevent dropc %chest wait 15 finditem %Scrl c_ , #backpackid exevent drag #findid #findstack exevent dropc %chest wait 15 finditem %bldms c_ , #backpackid exevent drag #findid #findstack exevent dropc %chest wait 15 finditem %blcprl c_ , #backpackid exevent drag #findid #findstack exevent dropc %chest wait 15 finditem %mandrake c_ , #backpackid exevent drag #findid #findstack exevent dropc %chest wait 15 finditem %Scrl c_ , %chest if #findkind = -1 { Display Out of regs. Go and buy some! halt } exevent drag #findid 520 ; Здесь должно быть количество большее чем количество регов exevent dropc #backpackid wait 15 finditem %mandrake c_ , %chest if #findkind = -1 { Display Out of regs. Go and buy some! halt } exevent drag #findid 500 exevent dropc #backpackid wait 15 finditem %bldms c_ , %chest if #findkind = -1 { Display Out of regs. Go and buy some! halt } exevent drag #findid 500 exevent dropc #backpackid wait 15 finditem %blcprl c_ , %chest if #findkind = -1 { Display Out of regs. Go and buy some! halt } exevent drag #findid 500 exevent dropc #backpackid wait 15 goto start sub eat finditem %milk c_ , %chest exevent drag #findid 1 exevent dropc #backpackid set #lobjectid #findid event macro 17 0 event macro 17 0 wait 1s finditem %milk c_ , %chest exevent drag #findid 1 exevent dropc #backpackid set #lobjectid #findid event macro 17 0 event macro 17 0 wait 1s finditem %kolbaski c_ , %chest exevent drag #findid 1 exevent dropc #backpackid set #lobjectid #findid event macro 17 0 event macro 17 0 wait 3s return
Сначаладелаем 1 рекалл, выкладываем все реги, оставляем лишний бланк скрулл и запускаем. В сундуке еще должно быть много молока и колбасок
#3
Posted 07 October 2009 - 17:02
kastes ID uzliku pareizu
#4
Posted 07 October 2009 - 17:08
#5
Posted 07 October 2009 - 17:16
Edit: Paldies, izlaboju kljuudu
#7
Posted 07 October 2009 - 20:21
#9
Posted 20 October 2009 - 23:55
ATBRIVO SAVU SOMU NO REGIEM UN UZLIEC 10 BLANK SCROOLS, UN PALAIDVisu nomainiju ko vajadzeja mainit ,bet scp nenem regus no lades .. lades id 100% pareizs
#10
Posted 10 January 2010 - 23:24
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#11
Posted 10 January 2010 - 23:56
if You_need_ in #journalПоменяй эту строчку на то что показывает когда кончаются реги (+ если реги кончились в сумке должны остаться скролы)
#12
Posted 11 January 2010 - 00:16
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#13
Posted 11 January 2010 - 00:24
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.
#14
Posted 11 January 2010 - 01:05
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#15
Posted 01 July 2011 - 02:19
#16
Posted 01 July 2011 - 02:31
Na injecti mozna uznatj s pomoshi ,info i na sunduk!A po easyuo votvar Sunduk = '0x400276F0' ; Сериал сундука - а как в инже сериал смотреть?
Первый вопрос по Изи.
Доделывает бланки, которые в бекпаке и потом стоит. Сундук, реги, еду прописал правильно. В чем может быть проблема?
Еще и пишет You can`t reach that.
set %chest FVQBLMD;Сундук куда сбрасываются сделаные рекаллы и реги set %kolbaski GND; set %milk ZBM;dalzno bitj
set %chest FVQBLMD ;Сундук куда сбрасываются сделаные рекаллы и реги
set %kolbaski GND ;
set %milk ZBM ;
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#17
Posted 02 July 2011 - 14:40
#18
Posted 10 November 2012 - 05:44
ir tada programa EUOX vkluchil powol film smatret toka monitor nado vilkuchitj na chas 2 hvotaet zato gloza otdahnut nu krch eto staraja temaPaldies tagad vareshu ar magu rakstit skrulus :cool2: pirms tam ar rokam mocijos
#19
Posted 14 October 2013 - 20:39
Можете написать самый простой чтоб реги все и бланк скрулы лежали в бакпаке и он мутил рекалы.Без всяких этих наворотов.
#20
Posted 15 October 2013 - 00:54
if #lobjecttype = MMF
set %x 462
else
set %x 493
if #lobjecttype = RQF
set %gumpJump #true
else
set %gumpJump #false
if #lobjecttype = PEF
set %wait #true
else
set %wait #false
set %fail 0
_start:
event macro 17 0
wait 20
gosub gumpWait
goto _click
_make:
if ! %gumpJump
{
event macro 17 0
gosub gumpWait
}
_click:
event sysmessage craft..
click %x 455
set %j #jindex
gosub scan
if %wait
wait 70
goto _make
sub gumpWait
set %failT #scnt + 15
repeat
{
if #contname = generic_gump && #contkind = MIJB
return
if #contname = generic_gump && #contkind = UCHB
return
wait 10
}
until #scnt > %failT
return
sub scan
deletejournal
set %lag #scnt + 30
repeat
{
scanjournal %j
if hungry in #journal
{
gosub eat
return
}
if you_put in #journal 2
set %fail 0
return
if you_fail in #journal && : notin #journal
{
gosub fail
return
}
if failed in #journal && : notin #journal && event notin #journal
{
gosub fail
return
}
if you_need in #journal
{
display ok SCP STOPPED
halt
}
if #jindex > %j
set %j %j + 1
}
until #scnt > %lag
return
sub eat
set %l #lobjectid
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
set #lobjectid %l
return
sub fail
set %fail %fail + 1
if %fail >= 3 3
click 491 455
wait 30s
set %fail 0
return
обычный make last работает для всего собственно)
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users