Ех пока дрв

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Ех пока дрв

Post by netol »

Забанили но ниче я уже и так собирался уходить а то совсем дрв запаганили.......
вот в связи с уходом буду кидать скрипты с дрв
вот веселенький скриптик:

Code: Select all

var book1='0x4012BF08' #рунбука 1 
var book2='0x4000CDF4' # 2-ая 
var book3='0x40075E38'  # 3 яя 
var seifformap1='0x400EDE90' # 1 сэйф 
var seifformap2='0x400F149C' # 2-ой 
var recall='0x1F4C' # тип рекола 
var meshok='0x0E76' # тип пустых мешков 
var mapa='0x14EB' # тип мапы нерасшифрованной 
var ydochka='0x0DBF' # тип удочки 
var time 
var tEat='0x097B' # тип еды(фишстэйки) 

sub mainb()
DIM rune[20] 
DIM ven[20] 
var i, n
 
rune[0]='0x4011142F' ; 
rune[1]='0x4004872F' ; 
rune[2]='0x40048714' ; 
rune[3]='0x40048803'
rune[4]='0x400486D8'
rune[5]='0x402BE11F'
rune[6]='0x4011149A'
rune[7]='0x402BE15B'
rune[8]='0x402BE1B6'
rune[9]='0x4014E0CB'
rune[10]='0x4014E322'
rune[11]='0x402BE206'
rune[12]='0x4014E242'
rune[13]='0x4014E11F'
rune[14]='0x4014E13B'
rune[15]='0x401114B3'
rune[16]='0x40111475'
rune[17]='0x4011145D'
rune[18]='0x40048754'
rune[19]='0x402BE1C4'


ven[0]='0x00115BAC' ; 
ven[1]='0x003A2500' ; 
ven[2]='0x0019EEA1' ; 
ven[3]='0x003515AB'
ven[4]='0x0015B76E'
ven[5]='0x00356208'
ven[6]='0x00090FFA'
ven[7]='0x0039C0F8'
ven[8]='0x000B0D4F'
ven[9]='0x0009F365'
ven[10]='0x0004D7B0'
ven[11]='0x000E686B'
ven[12]='0x003A0873'
ven[13]='0x00075AAD'
ven[14]='0x0027D96A'
ven[15]='0x0018FF3C'
ven[16]='0x0018EE14'
ven[17]='0x0010F69C'
ven[18]='0x0036BAAA'
ven[19]='0x0006BED4'

repeat 
for i=0 to 19
recall(i,rune) 
if uo.injournal("fade") then 
med()
uo.waittargetobject(rune[i]) 
uo.cast('Mark')
wait(5000) 
med()
end if
uo.resend()
SuperWalk(0,0,ven[i]) 
if UO.BM<30 then 
buybm()
wait(1000)
end if 
if UO.BP<30 then 
buybp()
wait(1000)
end if 
if UO.MR<30 then
buymr()
wait(1000)
end if
buy()  
wait(500) 
UO.Say("bye") 
med() 
next 
home()
until UO.Dead() 
end sub 
##################################### 
sub Recall(i,rune) 
var b 
uo.print('Recoll Rune '+str(i)) 
for b=0 to 19
uo.deletejournal() 
uo.waittargetobject(rune[i]) 
uo.cast('Recall',rune[i]) 
if WaitForRecall()==1 then 
return 1 
end if 
next 
return 0 
end sub 
##################################### 
sub Mark(i,rune) 
uo.waittargetobject(rune[i]) 
uo.cast('Mark',rune[i]) 
end sub 
##################################### 
sub WaitForRecall() 
var Text1=uo.getname()+": The spell fizzles." 
var mess='',lastX=uo.getX(),lastY=uo.getY() 
for var v=0 to 200 
mess=uo.journal(0) 
if uo.Journal(0)==Text1 then 
return 0 
end if 
if uo.getX()<>lastX OR uo.getY()<>LastY then 
return 1 
end if 
wait(50) 
next 
return 0 
end sub 
###################################### 
sub med()
uo.warmode(0)
	UO.DeleteJournal()
	
	while UO.Mana<UO.Int
		UO.Exec("warmode 0")
		UO.UseSkill('Meditation')
		repeat
			wait(100)
		until UO.InJournal("You are") OR UO.InJournal("You lose")
		UO.DeleteJournal()
		wait(1000)
uo.say("Guards")
	wend
end sub


sub SuperWalk(x,y,Target) 
VAR i 
VAR dir,ldir,rdir,key,olddir 
VAR dx,dy,Exit=0 
VAR CacheLimit=9,CacheIndex="Text" 
DIM CacheX[10], CacheY[10] 

CacheX[0]="Test" 
While Exit<>1 
If Target<>"" Then 
dx=UO.GetX(Target)-UO.GetX() 
dy=UO.GetY(Target)-UO.GetY() 
; UO.Print("Target locked!") 
If UO.GetDistance(Target)<2 Then 
Exit=1 
Endif 
Else 
dx=x-UO.GetX() 
dy=y-UO.GetY() 
If dx==0 AND dy==0 Then 
Exit=1 
Endif 

Endif 

If dx<>0 AND dy<>0 Then 
If dx>0 AND dy>0 Then ; GoSE 
dir=3 
ldir=2 
rdir=4 
key=40 ; DownArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==2 Then ; GoNE 
dir=1 
ldir=0 
rdir=1 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=5 
rdir=6 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dx>0 AND dy<0 Then ; GoNE 
dir=1 
ldir=0 
rdir=2 
key=39 ; RightArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==0 Then ; GoWN 
dir=7 
ldir=6 
rdir=7 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSE 
dir=3 
ldir=3 
rdir=4 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dx<0 AND dy>0 Then ; GoSW 
dir=5 
ldir=4 
rdir=6 
key=37 ; LeftArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==6 Then ; GoWN 
dir=7 
ldir=7 
rdir=0 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSE 
dir=3 
ldir=2 
rdir=3 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dx<0 AND dy<0 Then ; GoWN 
dir=7 
ldir=6 
rdir=0 
key=38 ; UpArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==0 Then ; GoNE 
dir=1 
ldir=1 
rdir=2 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=4 
rdir=5 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 
Endif 

If dx<>0 AND dy==0 Then 
If dx>0 Then ; GoE 
dir=2 
key=34 ; PgDown 
olddir=UO.GetDir() 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==2 Then ; GoSE 
dir=3 
ldir=3 
rdir=4 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoNE 
dir=1 
ldir=1 
rdir=0 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dx<0 Then ; GoW 
dir=6 
key=36 ; Home key 
olddir=UO.GetDir() 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==0 Then ; GoWN 
dir=7 
ldir=7 
rdir=0 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=4 
rdir=5 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 
Endif 

If dx==0 AND dy<>0 Then 
If dy>0 Then ; GoS 
dir=4 
key=35 ; End 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==2 Then ; GoSE 
dir=3 
ldir=2 
rdir=3 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=6 
rdir=5 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dy<0 Then ;GoN 
dir=0 
key=33 ; PgUp 
olddir=UO.GetDir() 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==2 Then ; GoNE 
dir=1 
ldir=1 
rdir=2 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoWN 
dir=7 
ldir=7 
rdir=6 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 
Endif 
Wend 
end sub 


sub StepEdit(x,y,dir,key) 
VAR walkwait=300 
VAR ErrLevel=0 
If UO.GetDir()<>dir Then 
UO.Press(key) 
wait(walkwait) 
If UO.GetDir()<>dir Then 
CheckLag() 
Endif 
Endif 
UO.Press(key) 
wait(walkwait) 
If x==UO.GetX() AND y==UO.GetY() Then 
CheckLag() 
If x==UO.GetX() AND y==UO.GetY() Then 
;zatik 
ErrLevel=1 
Endif 
Endif 
Return ErrLevel 
end sub 


sub StepArrow(x,y,dir,ldir,rdir,key) 
VAR walkwait=300 
VAR ErrLevel=0 
If UO.GetDir()<>dir Then 
UO.Press(key) 
wait(walkwait) 
If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then 
CheckLag() 
Endif 
Endif 

If UO.GetX()==x AND UO.GetY()==y Then 
UO.Press(key) 
wait(walkwait) 
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then 
CheckLag() 
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then 
; zatik 
ErrLevel=1 
Endif 
Endif 
Endif 
Return ErrLevel 
end sub 


######################################### 
sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('Backpack') 
end sub

sub home()
uo.waittargetobject('0x400426C7')
uo.cast('Recall')
if uo.injournal("fizzles") then 
uo.waittargetobject('0x400426C7')
uo.cast('Recall')
end if
wait(5000)
if uo.injournal("fade") then 
med()
uo.waittargetobject('0x400426C7')
uo.cast('Mark')
wait(5000)
end if

UO.FindType('0x0E1D') 
while not UO.GetQuantity('finditem')==0 
UO.MoveItem('finditem','0','0x400F149C') 
wait(500) 
UO.FindType('0x0E1D') 
if uo.injournal("put") then 
uo.waittargetobject('0x400426C7')
uo.cast('Recall')
wait(5000)
end if
wend 

UO.FindType('0x0F0E') 
while not UO.GetQuantity('finditem')==0 
UO.MoveItem('finditem','0','0x400F149C') 
wait(500) 
UO.FindType('0x0F0E') 
if uo.injournal("put") then 
uo.waittargetobject('0x400426C7')
uo.cast('Recall')
wait(5000)
end if
wend 

UO.FindType('0x0F88') 
while not UO.GetQuantity('finditem')==0 
UO.MoveItem('finditem','0','0x400F149C') 
wait(500) 
UO.FindType('0x0F88')
if uo.injournal("put") then 
uo.waittargetobject('0x400426C7')
uo.cast('Recall')
wait(5000)
end if 
wend 

UO.FindType('0x0E34') 
while not UO.GetQuantity('finditem')==0 
UO.MoveItem('finditem','0','0x400F149C') 
wait(500) 
UO.FindType('0x0E34') 
if uo.injournal("put") then 
uo.waittargetobject('0x400426C7')
uo.cast('Recall')
wait(5000)
end if
wend 

UO.FindType('0x0F85') 
while not UO.GetQuantity('finditem')==0 
UO.MoveItem('finditem','0','0x400F149C') 
wait(500) 
UO.FindType('0x0F85')
if uo.injournal("put") then 
uo.waittargetobject('0x400426C7')
uo.cast('Recall')
wait(5000)
end if 
wend 

unload()
kolmap()
med() 
end sub 


sub buy()
  VAR vend, ven='vendor'
UO.IgnoreReset() 
UO.Set('finddistance','10') 
UO.FindType(-1,-1,'ground') 
while UO.FindCount() 
   if uo.isNPC('finditem') then 
  UO.Click('finditem') 
   ven=UO.GetName('finditem')
   uo.buy('25',ven)
wait(3500) 
   endif 
   UO.FindType(-1,-1,'ground') 
   UO.Ignore('finditem') 
wend 
end sub

sub buymr()
  VAR vend, ven='vendor'
UO.IgnoreReset() 
UO.Set('finddistance','10') 
UO.FindType(-1,-1,'ground') 
while UO.FindCount() 
   if uo.isNPC('finditem') then 
  UO.Click('finditem') 
   ven=UO.GetName('finditem')
   uo.buy('mr',ven)
wait(3500) 
   endif 
   UO.FindType(-1,-1,'ground') 
   UO.Ignore('finditem') 
wend 
end sub

sub buybm()
  VAR vend, ven='vendor'
UO.IgnoreReset() 
UO.Set('finddistance','10') 
UO.FindType(-1,-1,'ground') 
while UO.FindCount() 
   if uo.isNPC('finditem') then 
  UO.Click('finditem') 
   ven=UO.GetName('finditem')
   uo.buy('bm',ven)
wait(3500) 
   endif 
   UO.FindType(-1,-1,'ground') 
   UO.Ignore('finditem') 
wend 
end sub

sub buybp()
  VAR vend, ven='vendor'
UO.IgnoreReset() 
UO.Set('finddistance','10') 
UO.FindType(-1,-1,'ground') 
while UO.FindCount() 
   if uo.isNPC('finditem') then 
  UO.Click('finditem') 
   ven=UO.GetName('finditem')
   uo.buy('bp',ven)
wait(3500) 
   endif 
   UO.FindType(-1,-1,'ground') 
   UO.Ignore('finditem') 
wend 
end sub

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
  port(1,book3) 
  unload() 
  recharg(seifformap2,book1) 
  kolmap() 
  for i=1 to 9 
   repeat 
     port(i,book2) 
     fish() 
   next 
  port(1,book3) 
 unload() 
 recharg(seifformap2,book2) 
 kolmap() 
 ToEat() 
 wend 
endsub 

sub port(n,book) 
var oldX=UO.GetX() 
var oldY=UO.GetY() 
   NoTarget() 
   UO.UseObject(book) 
   FastLootCheck() 
   CheckLag() 
   UO.LClick(135, n*15+55) 
   time=UO.Timer() 
   Repeat 
     wait(500) 
   Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer() 
end sub 

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(600) 
   if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      CheckLag() 
   endif 
end sub 

sub NoTarget() 
   if UO.Waiting() then 
      UO.CancelTarget() 
   endif 
end sub 

sub fish() 
hiding()  
var i,j, isfishing 
var   mx = UO.GetX('self') 
var   my = UO.GetY('self') 
var   mz = UO.GetZ('self') 
   UO.DeleteJournal() 
   repeat 
      for i = mx-6 to mx+6 
         for j = my-6 to my+6 
            isfishing = 1              
            while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing 
               UO.DeleteJournal() 
               UO.Waittargettile("1341", str(i), str(j), str(251)) 
               UO.Usetype(ydochka) 
               while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
                  wait(100) 
               wend 
               proverka() 
               if not UO.Hidden('self') then 
                  hiding() 
               end if 
               proverka() 
               if UO.InJournal("treasure") then 
                  UO.findtype(mapa,'0x0000','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
               if UO.InJournal("out a fish") then 
                  isfishing = 0 
               end if 
            wend 
            UO.DeleteJournal() 
         next 
      next 
   until 1 
end sub 


sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

sub hiding()  
   UO.Warmode(0) 
   while not UO.Hidden() 
      UO.DeleteJournal() 
      UO.UseSkill("Hiding") 
      while NOT UO.InJournal("You") 
         wait(1000) 
      wend 
   wend  
end sub 

sub unload() 
         hiding() 
         UO.FindType(mapa, '-1', 'backpack') 
       while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',seifformap1) 
         CheckLag() 
         Wait(700)                     
         UO.FindType(mapa,'-1','backpack') 
       wend 
endsub 

sub proverka() 
   if uo.injournal("attacking") and uo.injournal("you") then 
    uo.say("guards") 
   endif 
   if UO.Life<150 then 
    uo.say("guards") 
   endif 
endsub 

sub recharg(syndyk,kniga) 
 uo.useobject(syndyk) 
 uo.findtype(recall,'-1',syndyk) 
 wait(3000) 
 uo.moveitem('finditem','9','backpack') 
 wait(3000) 
 uo.UseObject(kniga) 
	wait(1000) 
	Checklag() 
	uo.Lclick(296,91) 
	wait(1000) 
endsub 

sub kolmap() 
 var k 
 var meshochek 
 uo.useobject(seifformap1) 
 uo.findtype(mapa,'-1',seifformap1) 
 if uo.findcount()>=200 then 
  uo.findtype(meshok,'-1',seifformap1) 
  meshochek=uo.getserial('finditem') 
  uo.moveitem('finditem','1','backpack') 
  k=0 
  while k<>200 
    UO.FindType(mapa,'0x0000',seifformap1) 
    UO.MoveItem('finditem','1',meshochek) 
    CheckLag() 
    wait(600) 
    k=k+1 
  wend 
  uo.findtype(meshok,'-1','backpack') 
  uo.moveitem('finditem','1',seifformap2) 
 endif 
endsub 

sub ToEat() 
   UO.UseObject(seifformap2) 
   UO.FindType(tEat,'0x0000',seifformap2) 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20','backpack') 
   end if 
   repeat     
      CheckLag() 
      uo.UseType(tEat) 
      while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() 
         wait(100) 
      wend 
   until uo.InJournal('too full') or UO.Dead() 
   UO.FindType(tEat, '0x0000','backpack') 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20',seifformap2)     
   end if 
end sub
2в1 скрипт на фишинг и скрипт на скупку регов юзайте все нормально работает перезаряжает рунбуку ;)
З.Ы. помогите с выбором шарда чтоб было хорошее пвп и разрешен инжект
Last edited by netol on 2005-07-22 17:45:37, edited 1 time in total.
Top
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Post by netol »

пишите кому че надо буду кидать....
Top
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:
Contact Leo

Post by Leo »

Какой-нить скрипт, что бы деньги зарабтывать выложи.
Top
Alarm
Posts: 9
Joined: 2005-07-06 22:35:32

Post by Alarm »

кинь пвп макрос!
Top
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Post by netol »

я на ловле карт в неделю зарабатывал по 8кк ;)
Top
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Post by netol »

Code: Select all

sub autostart()
	wait(3000)
	UO.SetGlobal('Connected','Yes')
	UO.SetEasyUO(99,'0')
	UO.Click('self')
	wait(3000)
	UO.SetGlobal('CharName',UO.GetName())
	UO.SetGlobal('BuyScript','Off')
		
	UO.Exec('warmode 0')
end sub

#########################Производные########################################
var weapon='0x402E8480'
var horse ='0x003B3729'

##########################Miscelianos##########################################

sub msa() 
Repeat 
UO.Exec("usetype 0x0E34") 
UO.Exec("waitmenu 'Spell Circles' 'Fourth Circle' 'Spell Circle 4' 'Mana Drain'") 
wait (4500) 
Until (1 == 0) 
end sub 

sub curpur() 
Repeat 
UO.Exec("usetype 0x0E34") 
UO.Exec("waitmenu 'Spell Circles' 'Sixth Circle' 'Spell Circle 6' 'Energy Bolt'") 
wait (4500) 
Until (1 == 0) 
end sub 

sub recall() 
Repeat 
UO.Exec("usetype 0x0E34") 
UO.Exec("waitmenu 'Spell Circles' 'Fourth Circle' 'Spell Circle 4' 'Recall'") 
wait (4500) 
Until (1 == 0) 
end sub 

sub flamestrike() 
Repeat 
UO.Exec("usetype 0x0E34") 
UO.Exec("waitmenu 'Spell Circles' 'Seventh Circle' 'Spell Circle 7' 'Flamestrike'") 
wait (5500) 
Until (1 == 0) 
end sub 

sub total_mana() 
Repeat 
UO.Exec("usetype 0x0F87") 
UO.Exec("waitmenu 'What sort of' 'Total Mana'") 
wait (5500) 
Until (1 == 0) 
end sub 

sub greater_heal() 
Repeat 
UO.Exec("usetype 0x0F85") 
UO.Exec("waitmenu 'What sort of' 'Greater Heal'") 
wait (4500) 
Until (1 == 0) 
end sub 

sub parascrolls() 
Repeat 
UO.Exec("usetype 0x0E34") 
UO.Exec("waitmenu 'Spell Circles' 'Fifth Circle' 'Spell Circle 5' 'Paralyze'") 
wait (4500) 
Until (1 == 0) 
end sub 

##########################Drink Potions#########################################

sub dmana() 
var f=0 
if UO.Count("0x0f0e 0x09df") > 0 then 
UO.Exec("usetype 0x0f0e 0x09df") 
VAR manacnt=UO.Count("0x0f0e 0x09df") - 1 
UO.Print(""+STR(manacnt)+" Mana Potions Left") 
UO.Exec("exec potion_timer") 
else 
f=1 
UO.Print("No Mana Potions Left!") 
end if 
end sub 

sub dgheal() 
var f=0 
if UO.Count("0x0f0e 0x09bb") > 0 then 
UO.Exec("usetype 0x0f0e 0x09bb") 
VAR healcnt=UO.Count("0x0f0e 0x09bb") - 1 
UO.Print(""+STR(healcnt)+" Greater Heal left") 
UO.Exec("exec potion_timer") 
else 
f=1 
UO.Print("No Greater Heal Potions Left!") 
end if 
end sub 

sub dInvis() 
if UO.Count("0x0f0e 0x0631") > 0 then 
UO.Exec("usetype 0x0f0e 0x0631") 
VAR cnt=UO.Count("0x0f0e 0x0631") - 1 
UO.Print("["+STR(cnt)+"] Invisibility Potions Left")
else 
UO.Print("No Invisibility Potions Left!") 
end if 
potion_timer()
end sub

sub drefresh() 
if UO.Count("0x0f0e 0x0997") > 0 then 
UO.Exec("usetype 0x0f0e 0x0997") 
VAR cnt=UO.Count("0x0f0e 0x0997") - 1 
UO.Print("["+STR(cnt)+"] Refresh Potions Left") 
else 
UO.Print("No Refresh Potions Left!") 
end if
potion_timer() 
end sub

sub potion_timer()
	Wait(14000)
	VAR healcnt=UO.Count("0x0f0c")
	VAR manacnt=UO.Count("0x0f09")
	UO.Print("Now you can drink another potion!")
	UO.Print("........................")
	UO.Print(""+STR(healcnt)+" Greater Heal left")
	UO.Print(""+STR(manacnt)+" Mana Potions Left")
end sub

sub weap_poison()  
uo.warmode(0)
UO.FindType('0x0F0E','0x0998','backpack') 
         UO.DeleteJournal() 
         UO.UseSkill("Poisoning") 
         UO.WaitTargetObject(weapon,'finditem') 
         while NOT UO.InJournal("You fail to apply") AND NOT UO.InJournal("You apply") 
            wait(300) 
         wend 
uo.warmode(1)   
end sub


###############################Healing####################################

sub Healing()
	UO.SetArm('CWeapon')
	UO.Exec("bandageself")
	wait(500)
	UO.Arm('CWeapon')
end sub

###############################Spell cast################################

sub weaken()
var garlic='0x0F84'
var nightshade='0x0F88'
var mananeed = 4
If uo.mana>=mananeed then 
   uo.cast ('Weaken','laststatus')
end if
if uo.count(garlic)==0 then 
   uo.print("No garlic!!!")
end if
if uo.mana<=mananeed then 
   uo.print("No mana!!!")
end if
if uo.count(nightshade)==0 then 
   uo.print("No nightshade!!!")
end if
end sub


sub fslast()
	var f=0
	if UO.Count("0x1f5f") > 0 then
			UO.waittargetlast()
			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.waittargetlast()
			UO.Exec("cast 'Flame Strike'")
			f=1
			UO.Print("Warning!!! No Flame Strike Scrolls, Using Regs!")
	end if
end sub	


sub fs_timer()
if uo.mana<25 then
UO.Print(">> Warning! #Low Mana# for FS! <<")
end if
Wait(2000)
if uo.mana<25 then
UO.Print(">> #Low Mana# - use Mana Refresh! <<")
else
UO.Print(">>> FS him again! <<<")
end if
end sub

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

sub lol()
UO.cast('Protection','self')
wait (1500)
UO.cast('Reactive Armor','self')
wait (2000)
UO.cast('Magic Reflection','self')
end sub

sub loot() 
UO.Say (",grab") 
end sub 

sub dom() 
if UO.Count("0x1f4c") > 0 then 
UO.Exec("usetype 0x1f4c") 
UO.Exec("waittargettype 0x1F14") 
VAR recallscrlcnt=UO.Count("0x1f4c") - 1 
UO.PRINT(""+STR(recallscrlcnt)+" Recall Scrolls left") 
else 
UO.Exec("cast 'Recall'") 
UO.Exec("waittargettype 0x1F14") 
else 
f=1 
UO.Print("Warning!!! No Recall Scrolls, Using Regs!") 

end if 
end sub 

sub GHSelf() 
if UO.Count("0x1f49 0x0000") > 0 then 
UO.WaitTargetSelf() 
UO.Exec("usetype 0x1f49 0x0000") 
VAR cnt=UO.Count("0x1f49 0x0000") - 1 
UO.PRINT(""+STR(cnt)+" Greater Heal Scrolls left") 
else 
UO.WaitTargetSelf() 
UO.Exec("cast 'Greater Heal'") 
UO.Print("Warning!!! No Greater Heal Scrolls, Using Regs!") 
end if 
end sub

sub AntiParaliz() 
uo.findtype("0x0F0D", "0x0B99", "backpack") 
if uo.findcount()>0 then 
uo.waittargetobject("finditem") 
uo.cast("Magic Arrow") 
else 
uo.print("WARNING!!!NET EXPLOZENOV")
end if 
end sub

sub manalast() 
var f=0 
if UO.Count("0x1F4B") > 0 then 
UO.waittargetlast() 
UO.Exec("usetype 0x1F4B") 
VAR parascrlcnt=UO.Count("0x1F4B") - 1 
UO.Print(""+STR(parascrlcnt)+" MDrain Scrolls left") 
else 
UO.waittargetlast() 
UO.Exec("cast 'Mana Drain'") 
f=1 
UO.Print("Warning!!! No Mana drain Scrolls, Using Regs!") 
end if 
end sub

sub paralast() 
var f=0 
if UO.Count("0x1f52") > 0 then 
UO.waittargetlast() 
UO.Exec("usetype 0x1f52") 
VAR parascrlcnt=UO.Count("0x1f52") - 1 
UO.Print(""+STR(parascrlcnt)+" Paralyze Scrolls left") 
else 
UO.waittargetlast() 
UO.Exec("cast 'Paralyze'") 
f=1 
UO.Print("Warning!!! No Paralyze Scrolls, Using Regs!") 
end if 
end sub

sub curpurlast() 
var f=0 
if UO.Count("0x1F56") > 0 then 
UO.waittargetobject('laststatus') 
UO.Exec("usetype 0x1F56") 
VAR parascrlcnt=UO.Count("0x1F56") - 1 
UO.Print(""+STR(parascrlcnt)+" Energy Bolt Scrolls left") 
else 
UO.waittargetlast() 
UO.Exec("cast 'Energy Bolt'") 
f=1 
UO.Print("Warning!!! No Energy Bolt Scrolls, Using Regs!") 
end if 
end sub

###############################Animals############################

sub h1()
UO.Set('lasttarget','laststatus')
		uo.UseObject('self')
		uo.waittargetobject('laststatus')
		uo.say("all kill")
uo.usetype('horse')		
end sub

sub h2()
		uo.UseObject('0x002825AB')
uo.usetype('horse2')		
end sub

sub horse() 
If NOT UO.ObjAtLayer('Horse') Then 
UO.UseObject(Horse) 
Else 
UO.Set('lasttarget','laststatus')
		uo.UseObject('self')
		uo.waittargetobject('laststatus')
		uo.say("all kill")
uo.usetype('horse')
end if		
end sub

###############################Skills###########################

sub hiding() 
   uo.warmode("flip")
   UO.Warmode("0") 
   while not UO.Hidden() 
      UO.DeleteJournal() 
      UO.UseSkill("Hiding") 
      while NOT UO.InJournal("You") 
         wait(1000) 
      wend 
   wend  
end sub 


##############################Attacks############################
sub atack()
uo.warmode(1)
uo.attack("lasttarget")
end sub

#################################################################

sub hiding() 
  uo.warmode(0)
      UO.DeleteJournal() 
      UO.UseSkill("Hiding") 
end sub 

sub eks()
for var ex=1 to 3
uo.findtype("0x0F0D", "0x0B99", "backpack") 
if uo.findcount()>0 then
uo.drophere("finditem")
checklag()
else 
uo.print ("WARNING!!! KONCHILIS EXPLOSEN")
end if
next
BlowUp()
end sub

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

sub BlowUp()  
UO.FindType("0x0F0D", "0x0B99","ground")
if uo.findcount()==0 then 
uo.print ("NETU EXPOV!!!")
else
UO.WaitTargetObject("finditem") 
UO.Cast("Magic Arrow") 
UO.Print("BEGI POKA NE EBNULO!!!") 
end if
end sub

sub paralast() 
var f=0 
if UO.Count("0x1f52") > 0 then 
UO.waittargetlast() 
UO.Exec("usetype 0x1f52") 
VAR parascrlcnt=UO.Count("0x1f52") - 1 
UO.Print(""+STR(parascrlcnt)+" Paralyze Scrolls left") 
else 
UO.waittargetlast() 
UO.Exec("cast 'Paralyze'") 
f=1 
UO.Print("Warning!!! No Paralyze Scrolls, Using Regs!") 
end if 
end sub


####################### 
sub TeleportSelfUp() #############################################################################  
####################### 
# Телепортирует чара на этаж выше/крышу здания (из нутри). 
# 
   UO.WaitTargetTile("400",str(uo.getx("self")),str(uo.gety("self")),str(uo.getz("self")+35)) 
    UO.Cast("Teleport") 
end sub 

######################### 
sub TeleportSelfDown() ###########################################################################  
######################### 
# Телепортирует чара на этаж ниже/c крыши здания (из нутри). 
# 
   UO.WaitTargetTile("400",str(uo.getx("self")),str(uo.gety("self")),str(uo.getz("self")-35)) 
    UO.Cast("Teleport") 
end sub


################## 
sub MineEnemy() ################################################################################## 
################## 
# Кидает 5 экспложенсов под ноги противника. 
# 
For var Ex=1 to 3
  UO.FindType("0x0F0D", "0x0B99", "backpack") 
  UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
    CheckLag() 
    Next 
blowup()
    UO.Print("Done.") 
end sub


sub firefield()
	var f=0
	if UO.Count("0x1F48") > 0 then
uo.findtype('0x1F48','0X0000','backpack')
			UO.waittargetobject('finditem')
			UO.Exec("usetype 0x1F48")
			VAR ffscrlcnt=UO.Count("0x1F48") - 1
			UO.Print(""+STR(ffscrlcnt)+" Fire Field Scrolls left")
	else
uo.findtype('0x0F8C','0X0000','backpack')
			UO.waittargetobject('finditem')
			UO.Exec("cast 'Fire Field'")
			f=1
			UO.Print("Warning!!! No Fire Field Scrolls, Using Regs!")
	end if
end sub	

sub door()
uo.opendoor()
end sub

sub Looty()
	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]=0x1BD1 ; 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('0x0EC4') ;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
Top
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:
Contact Leo

Post by Leo »

netol wrote:я на ловле карт в неделю зарабатывал по 8кк ;)
Тем скриптом, что выше? Кому нерасшифрованные сбагривал, игрокам? И по чём продавал.
Top
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Post by netol »

может быть тебе еще трафик подарить ?????
кинул скрипт лови момент а цены ща фигня каждый хочет подешевле продать
Top
Dard
Posts: 79
Joined: 2005-04-25 19:00:46

Post by Dard »

netol wrote:Забанили но ниче я уже и так собирался уходить а то совсем дрв запаганили.......
За что забанили?
netol wrote:пишите кому че надо буду кидать....
Всё что есть кидай! :D В нашем деле лишнего нету :) Пригодиться.
Top
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Post by netol »

зато что я натали басофа и всю эту свору на форуме называл жополизами
Top
Angurat
Posts: 5
Joined: 2005-07-15 13:52:18

Post by Angurat »

а чем те натали и басоф не нравяца? отличные ребята
Top
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Post by netol »

да мля как то они неправильно каждый день топы "я вас всех люблю"(имеется ввиду гмов) натали это ваще пацан а постоянно пишет чмок чмок как то неправильно . просто уже тяжко на все это смотреть.
У натали вообще стремление выйти в гмы наверно поэтому так унижается еще в спонсоры записался. Но не так же унриижатся.!!!!
Top
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:
Contact Leo

Post by Leo »

netol wrote:да мля как то они неправильно каждый день топы "я вас всех люблю"(имеется ввиду гмов) натали это ваще пацан а постоянно пишет чмок чмок как то неправильно . просто уже тяжко на все это смотреть.
У натали вообще стремление выйти в гмы наверно поэтому так унижается еще в спонсоры записался. Но не так же унриижатся.!!!!
:shock: Я думал, что Натали - дэвушка... :?
Top
Ультимщик
Posts: 12
Joined: 2005-06-18 09:58:35

Post by Ультимщик »

Вот пара хороших шардов с достойными системами пвп
http://www.middle-earth.ru/index.php?pa ... what=about
http://resurrection.zuluhotel.ru/news/
инжект на обоих разрешён
Первый и единственный гм - Господь Бог
Top
spider
Posts: 20
Joined: 2004-05-06 18:13:44

Post by spider »

Странно, а разве Зулу еще не упал?? он сейчас до сих пор платный?
Top
Dread Masta
Posts: 57
Joined: 2005-02-06 19:28:02

Post by Dread Masta »

http://nova-uo.com/news.shtml
вот отличный шард на АОС - пвп сферы
инжект разрешен!
Top
Stels
Posts: 13
Joined: 2005-05-30 16:55:23
Location: net
Contact:
Contact Stels

Post by Stels »

spas tebe netoll !!! a to u drugih proshu mne skinut net vse shkroti !!! vso toka za dengi =((( !!!!
ja skromnij ! =))
Top
Stels
Posts: 13
Joined: 2005-05-30 16:55:23
Location: net
Contact:
Contact Stels

Post by Stels »

skin esli ne slozdo prosto skript na skupku regov !!!! ns i blankov !!! u menja tugo idet s injektom no pitajus u4itsa pro4etal uroki po 5-7 razov titajus pisat logkie skripti !!!! skin plizzz skript na skupku regov bez fisinga !!!!
ja skromnij ! =))
Top
netol
Posts: 138
Joined: 2005-01-22 10:29:34

Post by netol »

ща я буду винимать строки да? может за тебя еще регов скупить? кинул скрипт радуйся!
Top
Stels
Posts: 13
Joined: 2005-05-30 16:55:23
Location: net
Contact:
Contact Stels

Post by Stels »

es4e nas4et "Natali " ona v reale baba ja s nej po skypu govorilll vrode zenskij goloss !!!! da i fotku ona kinula mne !!!! nu kaneshno slozno otli4it ot muzika =))) ( nakrashenaja do bezumija 5 kilosov shpoklovki na lece ) no vsotaki ona baba !!! a to 4to zopu lizet vsem ja eto znaju !!!
ja skromnij ! =))
Top
Post Reply

Return to “Scripting Ore”