19 replies to this topic

[Klikyn]

Nuzhen skript, kotorij delaet recalli.
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.

[Duplomat]

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 рекалл, выкладываем все реги, оставляем лишний бланк скрулл и запускаем. В сундуке еще должно быть много молока и колбасок

[sanja.]

Man taada probleema es uztaisu 1 rekaalu palaizhu skriptu kad beidzas resursi vinjsh vnk staav un neko nedara
kastes ID uzliku pareizu

[nerac]

Vajag lai vinjam scroll butu vairak neka regi, piemeram 20 scroli un 15 regus panem, un vel labak izliec visus regus no somas un panem vienu blank scrolu un palaid, tad viss bus labi

[sanja.]

uzliku ar 1 blanku bez regiem rezultaats taads ka paraadas teksts ar vaidzigajiem resursiem bet scp vienk staav un neko nedara


Edit: Paldies, izlaboju kljuudu

[yamakashi]

Paldies tagad vareshu ar magu rakstit skrulus :cool2: pirms tam ar rokam mocijos

[nerac]

NPK

[yamakashi]

Visu nomainiju ko vajadzeja mainit ,bet scp nenem regus no lades .. lades id 100% pareizs

[nerac]

Visu nomainiju ko vajadzeja mainit ,bet scp nenem regus no lades .. lades id 100% pareizs

ATBRIVO SAVU SOMU NO REGIEM UN UZLIEC 10 BLANK SCROOLS, UN PALAID

[ExTjUtY]

nipodskazal bi ktonibudj po4imu on neberot regi i scrooli iz sunduka?id vso pravilno postavleno dodelajit skoka jest regs i vso stajit.probavala kak pisali i ubiratj regi iz sumke i vso vsoravno ni4ivo.ili ktota mozit zakinutj scp katorij rabotajit???

[nerac]

if You_need_ in #journal

Поменяй эту строчку на то что показывает когда кончаются реги (+ если реги кончились в сумке должны остаться скролы)

[ExTjUtY]

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...

[hedrix]

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.

[ExTjUtY]

Balshoje spasibo...

[gjabue]

var Sunduk = '0x400276F0' ; Сериал сундука - как в инже посмотреть?

[ExTjUtY]

var Sunduk = '0x400276F0' ; Сериал сундука - а как в инже сериал смотреть?


Первый вопрос по Изи.

Доделывает бланки, которые в бекпаке и потом стоит. Сундук, реги, еду прописал правильно. В чем может быть проблема?

Еще и пишет You can`t reach that.

Na injecti mozna uznatj s pomoshi ,info i na sunduk!A po easyuo vot

set %chest FVQBLMD;Сундук куда сбрасываются сделаные рекаллы и реги

set %kolbaski GND;

set %milk ZBM;

dalzno bitj

set %chest FVQBLMD ;Сундук куда сбрасываются сделаные рекаллы и реги
set %kolbaski GND ;
set %milk ZBM ;

[gjabue]

Не ест вообще, хотя все есть, все типы правильно написаны.

[Microlab]

Paldies tagad vareshu ar magu rakstit skrulus :cool2: pirms tam ar rokam mocijos

ir tada programa EUOX vkluchil powol film smatret toka monitor nado vilkuchitj na chas 2 hvotaet zato gloza otdahnut nu krch eto staraja tema

[Jokerlove]

Можете написать самый простой чтоб реги все и бланк скрулы лежали в бакпаке и он мутил рекалы.Без всяких этих наворотов.

[VIenki]

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 работает для всего собственно)