5 replies to this topic

[Elfinya]

initevents

set %pila EGG ;pila
set %item MMF ;?????? ??????? ??????????????? (???????)
set %chest VZVPLMD ;?????? ???? ???????????? ???????? ???????, ? ????? ?????? (Foldet Cloth')
set %log ZLK ;Logi
set %kolbaski GND
set %milk ZBM

Display yesno Have you alredy made 1 scroll?
if #dispres = yes
goto start
if #dispres = no
{
display Make 1 scroll, and restart scrpt...
halt
}
start:
finditem %pila 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 || 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 You_are_hungry! in #journal
{
if Your_are_hungry! in #sysmsg
gosub eat
goto Scaner
}
wait 15
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 %log c_ , %chest
if #findkind = -1
{
Display Out of logs!
halt
}
exevent drag #findid 500
exevent dropc #backpackid
wait 10
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



вот скрипт у меня почему то не кушает ;( еду ложу в %chest

[Hakypka]

Пропиши типы жрачки

[Elfinya]

set %kolbaski GND
set %milk ZBM


вот они вроде

что такое %milk c_ ?

что за с_ ?

[Hakypka]

Вот тебе сцп, он кушает.

initevents



set %pila EGG		 ;pila

set %item MMF			 ;Èòåìñû êîòîðûå èçãîòàâëèâàþòñÿ (áàíäàíû)

set %chest BMLDLMD ;Ñóíäóê êóäà ñáðàñûâàþòñÿ ñäåëàíûå áàíäàíû, è ëåæàò òðÿïêè (Foldet Cloth')

set %log ZLK		   ;Logi

set %kolbaski GND

set %milk ZBM



Display yesno Have you alredy made 1 scroll?

if #dispres = yes

goto start

if #dispres = no

{

display Make 1 scroll, and restart scrpt...

halt

}

start:

finditem %pila 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 || 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 You_are_hungry! in #sysmsg

{

gosub eat

goto Scaner

}

wait 15

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 %log c_ , %chest

if #findkind = -1

{

Display Out of logs!

halt

}

exevent drag #findid 500

exevent dropc #backpackid

wait 10

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

[Elfinya]

Спасибо,попробую

[Nothing2010]

ja tozhe poprobuju , no jesle skriptik nepajdet to
Так что звезды для тебя сегодня не сошлись...