4 replies to this topic

[xsenik]

Вечер добрый всем. Тут пошарил по форуму, искал скрипт на бс, нашёл пару хороших, но к своему удивлению не нашёл скрипт на бс + переплавку. Мало ли у кого завалялся буду признателен. Заранее спасибо )

[..Sermulis..]

Here you go.

initevents



set %DarbaRiiks rmk; Smith Hammer

set %item FIK; Prieksmets, kas tiek taisiits

set %chest SFNQKMD; Laade, kur ir resursi

set %resurss rmk; Tas, no ka taisisiet %item

set %desa GND ;

set %tomati SQD;



Display yesno Have you already made 1 buckler?

if #dispres = yes

goto start

if #dispres = no

{

display Make 1 buckler, and restart scrpt...

halt

}

start:

finditem %DarbaRiiks c_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 20

click 492 453

goto scaner



Scaner:

set %overt #scnt + 18

Scan:

DELETEJOURNAL

SCANJOURNAL 1

if You_put_ in #journal || Your_skill in #journal || #scnt => %overt

goto start

if You_fail in #journal

{

gosub eat

goto reload

}

if World_Save_has_ in #journal

{

wait 5s

goto Scaner

}

if You_need_ in #journal

{

goto reload

goto Scaner

}

if You_are_hungry in #sysmsg

{

gosub eat

goto Scaner

}

wait 15

goto scan



Reload:

set #lobjectid %chest

event macro 17 0

wait 1

gosub smelt



sub smelt

repeat

{

finditem KZGQKMD

set #lobjectid #findid

event macro 17 0

wait 20

finditem %item C_ , #backpackid				 ;labo ieroci

set #ltargetid #findid							;labo ieroci

set #ltargetkind 1								;labo ieroci

set %lag #scnt + 10							   ;labo ieroci

event macro 17 0								  ;labo ieroci

target											;labo ieroci

while #targcurs <> 1 && #scnt < %lag			  ;labo ieroci

wait 1											;labo ieroci

event macro 22 0								  ;labo ieroci

if #scnt > %lag								   ;labo ieroci

wait 1s

}

until #findcnt = 0

return



finditem %resurss c_ , #backpackid

exevent drag #findid #findstack

exevent dropc %chest

wait 15

finditem %resurss c_ , %chest

if #findkind = -1

{

Display Out of logs!

halt

}

exevent drag #findid 200

exevent dropc #backpackid

wait 10

goto start





sub eat

finditem %tomati c_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 1s

finditem %tomati c_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 1s

finditem %desa c_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 1s

finditem %tomati c_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 1s

finditem %desa c_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 1s

return

[xsenik]

..Sermulis.., on Dec 5 2011, 23:59, said:

Here you go.

Хм... использую изи 1,5 202 при запуске тупит как то. Вроде выставил все как надо.Кладу в пак инготы запускаю начинает делать делает пока инготы не кончится лезит в мешок и выскакивает out of logs хотя инготы в мешке лежат. И ещё чето я непонял когда он плавить их должен?

initevents



set %DarbaRiiks RMK; Smith Hammer

set %item FIK; Prieksmets, kas tiek taisiits

set %chest UTWFMMD; Laade, kur ir resursi

set %resurss RMK; Tas, no ka taisisiet %item

set %desa GND;

set %tomati SQD;

[..Sermulis..]

Esli v easy takie prostie veshi neponjatni, lucse ruchkami eto delatj.

[Prey]

http://forum.egames....h...st&p=596299