Yoko
http://forum.yoko.com.ua/

I'm having a lot of trouble making these 2 scripts..
http://forum.yoko.com.ua/viewtopic.php?f=20&t=869		 Page 1 of 1
Author:  Haist [ 2004-07-15 00:16:37 ]
Post subject:  I'm having a lot of trouble making these 2 scripts..
Can somone please help me make 2 scripts.. One that loots everything, and another that automatically heals me with bandages when i am missing hp? Thanks!!
Author:  Haist [ 2004-07-15 00:43:10 ]
Post subject: 
Only need the autoloot one now.. anyone?
Author:  Kazoo [ 2004-07-16 17:40:37 ]
Post subject: 
Code:
#==============================================================
#  Loot() - looting corpse and from ground
#--------------------------------------------------------------
sub Loot()
   VAR WaitTime=500
   VAR Exit=0, i
   DIM Loot[30]
   

   Loot[0]=0x19B9 ; ore
   Loot[1]=0x0EED ; gp
   Loot[2]=0x0F7B ; BM
   Loot[3]=0x0F7A ; BP
   Loot[4]=0x0F84 ; GA
   Loot[5]=0x0F85 ; GI
   Loot[6]=0x0F86 ; MR
   Loot[7]=0x0F88 ; NS
   Loot[8]=0x0F8C ; SA
   Loot[9]=0x0F8D ; SS
   Loot[10]=0x0F90 ; Dead Woods
   Loot[11]=0x0F7E ; Sceleton Bones
   Loot[12]=0x0F87 ; Eyes of newt
   Loot[13]=0x0E76 ; Bag
   Loot[14]=0x09B0 ; Pounch
   Loot[15]=0x1BDD ; Logs
   Loot[16]=0x1078 ; Hides
   Loot[17]=0x1BFB ; Bolts
   Loot[18]=0x0E34 ; Blanc Scroll
   Loot[19]=0x0F25 ; Pieces of Amber
   Loot[20]=0x0F16 ; Ametist
   Loot[21]=0x0F20 ; Tourmaline
   Loot[22]=0x0F26 ; Diamond
   Loot[23]=0x0F30 ; Diamond
   Loot[24]=0x0F8E ; Serpent Scales
   Loot[25]=0x14EB ; Treassure Map
   Loot[26]=0x0F79 ; Blackmoor
   Loot[27]=0x0F3F ; Arrow
   Loot[28]=0x0F79 ; Blackmoor
   Loot[29]=0x0F79 ; Blackmoor
   
   UO.UseObject('lastcorpse')

   if UO.GetQuantity('lastcorpse') then
      UO.SetArm('temp')
      UO.WaitTargetObject('lastcorpse')
      UO.UseType('0x0F51') ;dagger
      wait(1000)
      UO.Arm('temp')
      wait(1500)
   endif
   
;   UO.SetReceivingContainer('0x400935D4') ; loot store bag

   For i=0 to 27
      UO.FindType(Loot[i],-1,'ground')
      if UO.GetQuantity('finditem') then 
         UO.Grab(STR(0),'finditem')
         wait(WaitTime)
      endif

      if UO.GetQuantity('lastcorpse') then
         UO.FindType(Loot[i],-1,'lastcorpse')
         if UO.GetQuantity('finditem') then 
            if Loot[i]==0x1078 then
               UO.WaitTargetObject('finditem')
               UO.UseType('0x0F9E')
            else
               UO.Grab(STR(0),'finditem')
            endif            
            wait(WaitTime)
         endif
      endif
   next

;   UO.UnSetReceivingContainer()
end sub
Author:  Thdin [ 2004-07-27 19:41:25 ]
Post subject: 
Quote:
For i=0 to 27


I'm not too sure about that...Why not make a simple Repeat Until ?

Repeat
#Get items
i = i + 1
Until (i==27)
Author:  Edred [ 2004-07-27 20:24:14 ]
Post subject: 
Nidht wrote:
Quote:
For i=0 to 27


I'm not too sure about that...Why not make a simple Repeat Until ?

Repeat
#Get items
i = i + 1
Until (i==27)


I think what you need in correct to:
For i=0 to 29
;)

'For' is simplest cycle in any language. Why you not use it?
Author:  Thdin [ 2004-07-27 20:27:30 ]
Post subject: 
Didn't know that For i = 0 to 29 worked :P I was thinking C++, so the injection script didn't make sense :P
Author:  BETEPAH [ 2004-07-29 12:58:37 ]
Post subject: 
Here i= number of massive

DIM Loot[30]
Loot[0]=0x19B9 ; ore
Loot[1]=0x0EED ; gp
Loot[2]=0x0F7B ; BM
Loot[3]=0x0F7A ; BP
Loot[4]=0x0F84 ; GA
Loot[5]=0x0F85 ; GI
Loot[6]=0x0F86 ; MR
Loot[7]=0x0F88 ; NS

IF i=1 to 29
Then inject find one of numbers in ground and grab it ))))
Author:  Drakull [ 2004-07-29 21:48:35 ]
Post subject:  Re: I'm having a lot of trouble making these 2 scripts..
Haist wrote:
Can somone please help me make 2 scripts.. One that loots everything, and another that automatically heals me with bandages when i am missing hp? Thanks!!


Well i see it as easy as:

sub lootall()
var mycontainer = 'yourcontainerId'

uo.setreceivingcontainer(mycontainer)
uo.emptycontainer (560)
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/