6 replies to this topic

[beilijs]

Neesmu iisti drosh, vai jau shaads skripts nav te bijis, bet nu whatever.
Ja nu kaadam nepatiik muuzhiigie puspilnie regu maisi, jeb arii kaads negrib sviest tos veejaa, bet veel savaakt tos regus, kas tajos palicis, tad luudzu skriptinjsh:

set %bloodmoss JUF

set %mandrakeroot MZF

set %sulfuriousash SZF

set %spiderssilk RZF

set %nightshade WZF

set %ginseng JZF

set %garlic KZF

set %blackpearls KUF



gosub setup

gosub moving regs

ignoreitem reset

event sysmessage gatavs!

halt



sub setup

event macro 13 1

event macro 25

 repeat

  {

   wait 10

	}

 until #targcurs = 0

set %receivingcontainer #ltargetid

finditem %receivingcontainer C_ , #backpackid

ignoreitem #findid

return



sub moving regs

repeat

{

finditem CKF C_ , #backpackid

set #lobjectid #findid

event macro 17

 waitforgump:

  {

  if #contsize <> 176_194

   {

	goto waitforgump

   }

   wait 4

  }

gosub moveregs

wait 5

finditem CKF C_ , #backpackid

}

until #findcnt = 0

return



sub moveregs

finditem %bloodmoss C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

finditem %spiderssilk C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

finditem %mandrakeroot C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

finditem %ginseng C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

finditem %garlic C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

finditem %blackpearls C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

finditem %sulfuriousash C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

finditem %nightshade C_ , #contid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %receivingcontainer

wait 5

}

wait 1s

finditem #lobjectid C_ , #backpackid

exevent drag #findid #findstack

wait 5

exevent dropg #charposx #charposy #charposz

wait 5

ignoreitem #findid

return

Tagad mazliet paskaidroshu :
Tad, kad paraadas targets, jaanoraada uz to maisinju charactera sominjaa, kuraa gribat samest visus regus. ( tas var buut trapeds,laade,bekpeks utt. )
Kad no viena maisinja regi tiek izvaakti, tas tiek izmests pie kaajaam (tas taa lai nebuutu peectam vinji veel jaamet aaraa).
Un tas arii viss. Nav jau patiesiibaa diezko noderiiga shtelle, bet man vienmeer apniik izvaakt visus regus ar rokaam. :cool2:

[beilijs]

Man pasham massmoovs vairs nestraadaa, paaris lietas tikai paarmet un raksta cant pick up item. Dll`s man no oldp.net.

Ja bloodmossa vietaa ieliksi, tad jau nekas nesanaaks, jo vinjsh meklees trapedus maisos. uz aatro kko uzrakstiishu:

;;;;;;;;; Author : Beilijs;;;;;;;;;;

gosub setup

gosub movetrapeds

event sysmessage viss bumbaas!

halt





sub setup

event macro 13 1

event macro 25

repeat

  {

   wait 10

	}

until #targcurs = 0

set %receivingcontainer #ltargetid

return



sub movetrapeds

finditem IUD C_ , #backpackid

 if #findcnt > 0

  {

   repeat

	{

	 exevent drag #findid

	 wait 3

	 exevent dropc %receivingcontainer

	 wait 3

	 finditem IUD C_ , #backpackid

	}

   until #findcnt = 0

  }

return

Taargetojam uz taa kontainera, kuraa gribam visu samest.

[EnFlame]

Move Regs:

set %dropBag #false; #true - nomet tuksho maisu, #false - nee





set #targcurs 0

display ok From?

set #targcurs 1

while #targcurs = 1

wait 1

set %from #ltargetid

display ok To?

set #targcurs 1

while #targcurs = 1

wait 1

set %to #ltargetid

set #lobjectid %from

event macro 17

while #contid <> %from

wait 1

set %regs KZF_SZF_JUF_MZF_JZF_RZF_WZF_KUF

repeat

{

finditem %regs C_ , %from

if #findcnt >= 1

 {

 exevent drag #findid #findstack

 exevent dropc %to

 wait 20

 }

finditem %regs C_ , %from

}

until #findcnt = 0

if %dropBag

(

exevent drag %from

exevent dropg #charposx #charposy #charposz

wait 10

}

event sysmessage Done.

halt

Move Trappeds:

set #targcurs 0

display ok Move trappeds to:

set #targcurs 1

while #targcurs = 1

wait 1

set %to #ltargetid

repeat

{

finditem IUD C_ , #backpackid

if #findcnt >= 1

 {

 exevent drag #findid #findstack

 exevent dropc %to

 wait 10

 }

finditem IUD C_ , #backpackid

}

until #findcnt = 0

event sysmessage Done.

halt

Principā tas pats vien ir, bet nu...

[mczii]

nestrada

[keidzhii]

nestrada

kuru skriptu tu lieto ? + paspaidot F7, kur iestreegst ?

[Tadeus]

Palidziet ar scriptu , regu maisi pa pilno bt scripts nestrada

[vinnie]

izdzees tukshaas rindas kodaa!