16 replies to this topic

[kocinsh]

Vajadzīgs skriptiņš ar sekojošu scenāriju:
1.Britānijā atveram banku
2.No konkrētas lādes paņemu 500-1000 aspen logus
3.Sataisu lokus
4.Aizeju līdz vendoram un pārdodu lokus

Esmu daudz mēģinājis un eksperimentējis, bet līdz galam nekas nesanāk.
Kaut kāda projekta daļa:

___________________________________

set %safe XXXXX ;aspen logu lāde bankā
set %dager XXXX ;nazis
set %logi XXX;koki

Banka:
move XXX XXX ;eju pie banku
msg bank $
finditem %safe
finditem %logs C_ , #safe ;Dikti šaubos par šamās rindas pareizumu
;Te visticamāk ar drag un drop jādabū tie 500-1000 logi somaa - man tas neizdodas
goto Loop

Loop:
if You_have_no in #sysmsg
{
Display You have no resources.
stop
}
goto Vendor
if You_can't_make_it in #sysmsg
{
Display You can't make it.
stop
}
goto Vendor
if world_save in #sysmsg
{
wait 30s
goto Make
}
if You_fail_to in #sysmsg
goto Make
if You_toss_the_failed in #sysmsg
goto Make
if You_put_the in #sysmsg
goto Make
if Your_skill_in in #sysmsg
goto Make
goto Loop

Make: ;Daļā Make 100% ir kļūdas
Finditem %dager C_, #backpack
set %dager
event Macro 17
wait 100; Cik jāliek laiks aptuveni lokiem??
click %x 455
goto Loop

Vendor:
move XXX XXX; eju pie vendora
msg Sell$
Finditem %logi C_, #backpack
Target %logi
click XXX XXX; Klik vietā, kur apstiprina pārdošanu
goto Banka


____________________________________

Diemžēl zināšanas par skriptiem easyUO valodā ir samērā niecīgas. Lūdzu palīdziet tikt galā! Lūdzu dikti nerāt par daudzajām kļūdām

[Ingars]

vieglāk nebūtu, lai viņš nomet bankā un pēc tam tu pats pārdod? pišanās sanāks, bet tomēr. pa ceļam vari kkur iestrēgt, paklupt aiz kāda akmeņa vai vel nez kas var gadīties

[EnFlame]

set %bag FUYEMMD; ID, kur staav logi

set %aspenLogs 10; Cik daudz njemt



mainLoop:

gosub bank

gosub make

gosub sell

goto mainLoop



sub bank

move 2884 670 0

repeat

{

msg bank$

wait 30

}

until #conttype = IKF

finditem %bag C

if #findcnt = 0

{

event sysmessage Wrong bag's ID!

halt

}

set #lobjectid %bag

event macro 17 0

while #contid <> %bag

wait 1

finditem ZLK C_ , %bag

exevent drag #findid %aspenLogs

wait 10

exevent dropc #backpackid

wait 20

return



sub sell

move 2902 669 0

repeat

{

finditem TOH C_ , #backpackid

set #ltargetid #findid

set #ltargetkind 1

msg Vendor Sell$

set %lag #scnt + 20

target

while #targcurs = 0 && #scnt < %lag

wait 1

event macro 22 0

}

until #scnt < %lag && #contsize = 200_150

click 326 257

wait 20

return



sub make

set %end #false

scanjournal

finditem TSF C_ , #charid

set #lobjectid #findid

repeat

{

event macro 17 0

while #contkind <> UCHB

wait 1

click 491 452

gosub scan

}

until %end

return



sub scan

deletejournal

set %lag #scnt + 20

repeat

{

 for %i 1 5

 {

 scanjournal %i

 if you_put in #journal || fail in #journal

 return

 if aspen_logs in #journal || can't_make_it in #journal

 set %end #true

 }

}

until %end

return

tiec pats ar viņu galā

[kocinsh]

Ingars - tas domāts ilglaicīgs process ar nodomu ievākt naudu un vel šo to.


EnFlame milzu paldies! Diezgan tehniski skriptus raksti skatos daudzas fīčas par kurām nepadomāju.

Vēl ir viena lieta - gadienā pašam nav skripts uz žagaru vākšanu, citādi mirstu nost katru dienu 1000 reizes uz koku spaidiit ar dadžeri...

Ja ir iedod lūdzu - mazam stimulam simboliska kompensācija miljons Tev par palīdzību uz xl. Tavs nick?

[EnFlame]

pārtaisīts lumber scp uz kidliem

set %box HCBUKMD

set %fullweight 200

set %x 1212

set %y 2121





start:

 GOSUB LJING xxxx zzzz tttt

 GOSUB LJING xxxx zzzz tttt

 GOSUB LJING xxxx zzzz tttt

goto start



sub ljing

if #weight > %fullweight

gosub moveItems

move %1 %2 1

finditem TSF

set #lobjectid #findid

event macro 17 0

target 10s

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

gosub chop

set %overtime #scnt + 100

return



sub chop

scanjournal

deletejournal

repeat

{

for %i 1 3

{

event macro 17 0

target

event macro 22 0

wait 10

if wood_left_to_harvest in #sysmsg

return

}

}

until #scnt >= %overtime

return





sub moveItems

move %x %y 0

drop:

finditem PEF c_ , #backpackid

if #findkind = -1

return

exevent Drag #Findid #findstack

wait 10

exevent Dropc %box

wait 10

goto drop



sub ghost

if #charGhost = YES

{

terminate uo

halt

}

return

[kocinsh]

SUper, tencinu! niks nebūs?

[EnFlame]

visbiežāk mp 1lvl mage Mapuwka

[kocinsh]

visbiežāk mp 1lvl mage Mapuwka

Ap 22.00 būšu. Starp citu mans čars šobrīd varbūt MP nodarbojas ar netradicionālu beggingu no spēlētājiem

[EnFlame]

Ap 22.00 būšu. Starp citu mans čars šobrīd varbūt MP nodarbojas ar netradicionālu beggingu no spēlētājiem

āhh zinu

[krans]

Ap 22.00 būšu. Starp citu mans čars šobrīd varbūt MP nodarbojas ar netradicionālu beggingu no spēlētājiem

es jau 1,5k esmu izterejis... Cik kopa jau esi dabuujis?

[Ingars]

ko ta šamais dara?

[krans]

ko ta šamais dara?

prasa 500gp par joku...

[Inquis]

prasa 500gp par joku...

viens vienreiz pie brit teica, iedod 500 gp pateikshu joku, es iedevu 500 gp, shis kko pa krieviski nomuldeeja neko nesapratu.. ap 3 gadiem atpakalj tas notika, vel tagad atceros, ja nemaldos tas bija uz main !

[kocinsh]

es jau 1,5k esmu izterejis... Cik kopa jau esi dabuujis?

Kamēr darbā biju ar visiem sūdiem kopā kas bija somā samesti - 250k bija

[krans]

Kamēr darbā biju ar visiem sūdiem kopā kas bija somā samesti - 250k bija

lol tur visadus itemus ar var mest?

[kocinsh]

lol tur visadus itemus ar var mest?

Skripts veidots tā, ka trade tiek automātiski apstiprināts. Pēc tam salīdzina iepriekšējo naudas daudzumu ar jauno - lai noskaidrotu vai iedots par maz, precīzi vai par daudz. Citas pārbaudes nav

[ceeEr]

Skripts veidots tā, ka trade tiek automātiski apstiprināts. Pēc tam salīdzina iepriekšējo naudas daudzumu ar jauno - lai noskaidrotu vai iedots par maz, precīzi vai par daudz. Citas pārbaudes nav

lol, laps