4 replies to this topic

[CmPunk]

vai var kads ludzu iedot skriptu uz tinkeringu lai nemtu taisitu un liktu soma pudeles mekleju krievu foruma nava!

[ExTjUtY]

Paņem parasto Carpentry scp uz blank scrooliem pamaini tik type i scp gatavs!

[CmPunk]

nevaru o tip taja scripta atrast waja!ko tur jasamaina!?
CODE:

initevents

set %pila EGG ;pila
set %item MMF ;shto gotovim
set %chest NAKSLMD ; kuda klodom sunduk
set %log ZLK ;Logi
set %kolbaski GND ;bekon
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 400
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 15s
finditem %milk c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 15s
finditem %kolbaski c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 5s
finditem %kolbaski c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 5s
return

[ExTjUtY]

set %pila EGG ;pila - te uzliec tinker tools type
set %item MMF ;shto gotovim - te ko taisisi piemeram flash type
set %chest NAKSLMD ; kuda klodom sunduk - kur stav resursi i nems
set %log ZLK ;Logi - ingu type
set %kolbaski GND ;bekon
set %milk ZBM

[CmPunk]

set %pila EGG ;pila - te uzliec tinker tools type
set %item MMF ;shto gotovim - te ko taisisi piemeram flash type
set %chest NAKSLMD ; kuda klodom sunduk - kur stav resursi i nems
set %log ZLK ;Logi - ingu type
set %kolbaski GND ;bekon
set %milk ZBM

paldies