Специально для Dreygon`a

Doktor_Kor · Post by **Doktor_Kor** » 2006-06-06 11:14:50

СИлтно скрипты не критикуйте

sub field() 
uo.waittargettile("400",str(uo.getx("lastattack")),str(uo.gety("lastattack")),str(uo.getz("lastattack"))) 
uo.cast("Wall of Stone") 
end sub

## Bandaid Self
sub healself() 
    var myarm 
    uo.setarm('myarm') 
    uo.bandageself()
    wait(300) 
UO.arm('myarm') 
end sub

## FS

sub fslast()
 var f=0
 if UO.Count("0x1f5f") > 0 then
   Uo.waittargetobject('lastattack')
   UO.Exec("usetype 0x1f5f")
   VAR fsscrlcnt=UO.Count("0x1f5f" - 1)
   UO.Print(""+STR(fsscrlcnt)+" Flame Strike Scrolls left")
   UO.Exec("exec fs_timer")
 else
   Uo.waittargetobject('lastattack')
   UO.Exec("cast 'Flame Strike'")
   f=1
   UO.Print("No Flame Strike Scrolls!...")
 end if
end sub 



## pl

sub pst()
 var f=0
 if UO.Count("0x1f52") > 0 then
   Uo.waittargetobject('lastattack')
   UO.Exec("usetype 0x1f52")
   VAR parascrlcnt=UO.Count("0x1f52" - 1)
   UO.Print(""+STR(parascrlcnt)+" Paralyze Scrolls left")
 else
   Uo.waittargetobject('lastattack')
   UO.Exec("cast 'Paralyze'")
   f=1
   UO.Print("No Paralyze Scrolls!....")
 end if
end sub


## Run Away Recall


sub home()
 UO.Print("Going to Home!...")
 UO.Exec("cast 'Recall'")
 UO.Exec("waittargetobject 0x40282A3E") ; Поменять
end sub

## Cast MA Last

sub M()
 
   Uo.waittargetobject('lastattack')
   UO.Exec("cast 'Magic Arrow'")
   UO.Print("You are mine!...")
end sub
###
sub Drain()
 
   Uo.waittargetobject('lastattack')
   UO.Exec("cast 'Mana Drain'")
   UO.Print("No Mana!...")
end sub
## Cast Feeblemind Last

sub Feeblimind()
 
   Uo.waittargetobject('lastattack')
   UO.Exec("cast 'Feeblemind'")
end sub


##Cast Poison Last!

sub Poison()
 
   Uo.waittargetobject('lastattack') 
   UO.Exec("cast 'Poison'")
end sub


## Cast Lighting Last

sub Light()
 
   var f=0
 if UO.Count("0x1f4a") > 0 then
   Uo.waittargetobject('lastattack')
                        uo.print("Lighting Storm!...")
   UO.Exec("usetype 0x1f4a")
   VAR lghtscrlcnt=UO.Count("0x1f4a") - 1
   UO.Print(""+STR(lghtscrlcnt)+" Lightning Scrolls left")
 else
   Uo.waittargetobject('lastattack')
   UO.Exec("cast 'Lightning'")
   f=1
   UO.Print("No Lightning Scrolls!...")
 end if
end sub

##Weaken

sub WeakenLast()
 
   uo.waittargetobject('lastattack') 
   UO.Exec("cast 'Weaken'")
end sub


##Track Peoples

sub tracking()
 UO.Exec("waitmenu 'Tracking' 'Players'")
 UO.Exec("useskill 'Tracking'")
end sub

##Protect

sub Protect()
 
   UO.waittargetself()
   UO.Exec("cast 'Protection'")
   UO.Print("Protection!...")  
end sub

## Reactive Armor

sub Rarmor()
 
   UO.waittargetself()
   UO.Exec("cast 'Reactive Armor'")
   UO.Print("Reactive Armor!...") 
end sub

## reflect

sub reflect()
 VAR f=0
 if UO.Count("reflectscrl") > 1 then
   UO.WaitTargetSelf()
   UO.Exec("usetype reflectscrl")
                        UO.Print("Magic Reflection!...")
   VAR reflectscrlcnt=UO.Count("reflectscrl" - 1)
   UO.PRINT(""+STR(reflectscrlcnt)+" Magic Reflection Scrolls left")
 else
   UO.WaitTargetSelf()
   UO.Exec("cast 'Magic Reflection'")
   f=1
   UO.Print("No Magic Reflection Scrolls!....")
 end if
end sub

## Cure

sub cure()
         UO.waittargetself()
   UO.Exec("cast 'Cure'")
   UO.Print("Casting Cure!...")
end sub

## AntiParalaZyng
sub antiplz()
uo.waittargettype('0x0F0D','0x0B99')
uo.cast('Clumsy')
end sub  


##Hiding

sub Hiding()
         UO.Warmode("0")
         UO.UseSkill("Hiding")
         uo.print("Прячемся...")
end sub

##Meditation 

sub Meditation()
UO.Warmode("0")
UO.UseSkill("Meditation")
end sub

##HorseAtack

sub horse()
 UO.FindType('0x00CC',-1,'ground')
 If UO.FindCount('finditem')>0 Then
  UO.UseObject('finditem')
 Else
  uo.UseObject('self')
  uo.waittargetobject('lastattack')
  uo.say("All Kill")
 Endif
end sub

##FF

sub fire()
 uo.waittargettype ('0x0E75')
 uo.cast ('Fire Field')
 
end sub

##PF

sub grav()
 uo.waittargettype ('0x0E75')
 uo.cast ('Paralyze Field')
end sub


###FL


sub fastloot2()
var i
dim fastloot[94]
fastloot[0]=0x13B9
fastloot[1]=0x13BA
fastloot[2]=0x13FE
fastloot[3]=0x13FF
fastloot[4]=0x13B5
fastloot[5]=0x13B6
fastloot[6]=0x143E
fastloot[7]=0x143F
fastloot[8]=0x0F4D
fastloot[9]=0x0F4E
fastloot[10]=0x1440
fastloot[11]=0x1441
fastloot[12]=0x0F60
fastloot[13]=0x0F61
fastloot[14]=0x0F5E
fastloot[15]=0x0F5F
fastloot[16]=0x13B7
fastloot[17]=0x13B8
fastloot[18]=0x13FA
fastloot[19]=0x13FB
fastloot[20]=0x0F45
fastloot[21]=0x0F46
fastloot[22]=0x0F4B
fastloot[23]=0x0F4C
fastloot[24]=0x13AF
fastloot[25]=0x13B0
fastloot[26]=0x0F49
fastloot[27]=0x0F4A
fastloot[28]=0x0F62
fastloot[29]=0x0F63
fastloot[30]=0x1402
fastloot[31]=0x1403
fastloot[32]=0x1400
fastloot[33]=0x1401
fastloot[34]=0x0F51
fastloot[35]=0x0F52
fastloot[36]=0x1406
fastloot[37]=0x1407
fastloot[38]=0x1438
fastloot[39]=0x1439
fastloot[40]=0x0F5C
fastloot[41]=0x0F5D
fastloot[42]=0x143A
fastloot[43]=0x143B
fastloot[44]=0x143C
fastloot[45]=0x143D
fastloot[46]=0x1B76
fastloot[47]=0x1B77
fastloot[48]=0x1B7B
fastloot[49]=0x1B7A
fastloot[50]=0x1B72
fastloot[51]=0x1B73
fastloot[52]=0x1B74
fastloot[53]=0x1B75
fastloot[54]=0x1B79
fastloot[55]=0x1B78
fastloot[56]=0x1416
fastloot[57]=0x1415
fastloot[58]=0x13BF
fastloot[59]=0x13C4
fastloot[60]=0x1411
fastloot[61]=0x141A
fastloot[62]=0x13BE
fastloot[63]=0x1410
fastloot[64]=0x1417
fastloot[65]=0x1412
fastloot[66]=0x1419
fastloot[67]=0x140C
fastloot[68]=0x140D
fastloot[69]=0x140A
fastloot[70]=0x140B
fastloot[71]=0x1408
fastloot[72]=0x1409
fastloot[73]=0x140E
fastloot[74]=0x140F
fastloot[75]=0x13BB
fastloot[76]=0x13C0
fastloot[77]=0x1414
fastloot[78]=0x1418
fastloot[79]=0x1413
fastloot[80]=0x1086
fastloot[81]=0x13B1
fastloot[82]=0x13B2
fastloot[83]=0x0F4F
fastloot[84]=0x0F50
fastloot[85]=0x13FC
fastloot[86]=0x13FD
fastloot[87]=0x0F0E
fastloot[88]=0x1F4A
fastloot[89]=0x1F5F
fastloot[90]=0x0E76
fastloot[91]=0x0E75
fastloot[92]=0x0E79
fastloot[93]=0x09B0
 UO.SetReceivingContainer('loot')
 for i=0 to 93
  repeat
   uo.findtype(fastloot[i],'0x0E75','lastcontainer')
   if uo.findcount()>0 then
    CheckLag()
    uo.waittargetObject('finditem')
    uo.grab()
    wait(550)
   endif
  until uo.findcount()==0
 next
 uo.print('Looting Completed....')
uO.UnSetReceivingContainer()
end sub

sub autoloot()
   uo.useobject('lastcorpse')
   wait(6000)
   uo.emptycontainer(2500,'lastcontainer','backpack')
   wait(2500)
   uo.hide('lastcontainer')
   uo.exec('resend')
end sub

###mana

sub Mana() 
UO.FindType('0x0F0E','0x09DF',-1,'my') 
UO.WaitTargetSelf() 
UO.UseObject('finditem') 
UO.Print("Mana Potion")
Endif 
end sub 

sub dtotalmana() 
UO.FindType('0x0F0E','0x09BB',-1,'my')
UO.WaitTargetSelf() 
UO.UseObject('finditem')
UO.Print("ManaPotionTotal") 
Endif 
end sub 

sub heal2()
   uo.waittargetobject('self')
   uo.cast('Greater Heal')
   uo.say("Ща, погодь подлечусь чутка...")
end sub

sub Drop() 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')), Str(uo.GetY('lastattack')), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')-1), Str(uo.GetY('lastattack')), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')+1), Str(uo.GetY('lastattack')), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')), Str(uo.GetY('lastattack')-1), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')), Str(uo.GetY('lastattack')+1), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')), Str(uo.GetY('lastattack')), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')), Str(uo.GetY('lastattack')), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 
uo.FindType('0x0f0d', '0x0B99') 
uo.Drop('1', Str(uo.GetX('lastattack')), Str(uo.GetY('lastattack')), Str(uo.GetZ('lastattack')), 'finditem') 
wait(500) 

uo.FindType('0x0f0d', '0x0B99', '1') 
uo.waittargetObject('finditem') 
uo.Cast('Feeblemind') 
end sub

sub Paral() 
UO.Set('lasttarget','laststatus') 
UO.FindType('0x1F52',-1,'my') 
If UO.GetQuantity('finditem')>0 then 
if UO.Mana>=14 then 
UO.WaitTargetObject('lasttarget') 
UO.UseObject('finditem') 
UO.Print("Scroll") 
else 
UO.Print("Low mana!!! Scroll!") 
endif 
else 
if UO.Mana>=28 then 
UO.Cast('Paralyze','laststatus') 
UO.Print("Spell") 
else 
UO.Print("Low mana!!! Spell!") 
endif 
endif 
end sub

admir · Post by **admir** » 2006-06-06 11:35:08

Code: Select all

sub fastloot2()
var i
dim fastloot[94]

жоска )

ты забыл добавить что 'lastcontainer' есть только в injection.dll от Грина )

Doktor_Kor · Post by **Doktor_Kor** » 2006-06-06 12:25:12

admir wrote:
Code: Select all
sub fastloot2()
var i
dim fastloot[94] 
 
жоска )

ты забыл добавить что 'lastcontainer' есть только в injection.dll от Грина )

дык я некоторыми пользуюся,остальные просто в файле, вдруг понадобяться

omi4 · Post by **omi4** » 2006-06-06 12:32:02

admir wrote:ты забыл добавить что 'lastcontainer' есть только в injection.dll от Грина )

это чегото новое... этот указатель есть в любой ДЛЛ
а вот injection.dll от Грина пока небыло.

admir · Post by **admir** » 2006-06-06 15:39:25

omi4 wrote:это чегото новое... этот указатель есть в любой ДЛЛ
а вот injection.dll от Грина пока небыло.

точно перепутал )