Yoko :: Ех пока дрв

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

Ех пока дрв http://forum.yoko.com.ua/viewtopic.php?f=20&t=4619	Page 1 of 3

Author:

netol [ 2005-07-22 17:36:45 ]

Post subject:

Ех пока дрв

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

Code:

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 скрипт на фишинг и скрипт на скупку регов юзайте все нормально работает перезаряжает рунбуку

З.Ы. помогите с выбором шарда чтоб было хорошее пвп и разрешен инжект

Author:	netol [ 2005-07-22 17:41:36 ]
Post subject:
пишите кому че надо буду кидать....

Author:	Leo [ 2005-07-22 17:48:35 ]
Post subject:
Какой-нить скрипт, что бы деньги зарабтывать выложи.

Author:	Alarm [ 2005-07-22 17:51:50 ]
Post subject:
кинь пвп макрос!

Author:	netol [ 2005-07-22 18:00:04 ]
Post subject:
я на ловле карт в неделю зарабатывал по 8кк

Author:

netol [ 2005-07-22 18:00:48 ]

Post subject:

Code:

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

Author:	Leo [ 2005-07-22 18:06:14 ]
Post subject:
netol wrote: я на ловле карт в неделю зарабатывал по 8кк Тем скриптом, что выше? Кому нерасшифрованные сбагривал, игрокам? И по чём продавал.

Author:	netol [ 2005-07-22 18:15:26 ]
Post subject:
может быть тебе еще трафик подарить ????? кинул скрипт лови момент а цены ща фигня каждый хочет подешевле продать

Author:	Dard [ 2005-07-22 18:16:17 ]
Post subject:
netol wrote: Забанили но ниче я уже и так собирался уходить а то совсем дрв запаганили....... За что забанили? netol wrote: пишите кому че надо буду кидать.... Всё что есть кидай! В нашем деле лишнего нету Пригодиться.

Author:	netol [ 2005-07-22 18:19:07 ]
Post subject:
зато что я натали басофа и всю эту свору на форуме называл жополизами

Author:	Angurat [ 2005-07-22 18:59:55 ]
Post subject:
а чем те натали и басоф не нравяца? отличные ребята

Author:	netol [ 2005-07-22 19:10:59 ]
Post subject:
да мля как то они неправильно каждый день топы "я вас всех люблю"(имеется ввиду гмов) натали это ваще пацан а постоянно пишет чмок чмок как то неправильно . просто уже тяжко на все это смотреть. У натали вообще стремление выйти в гмы наверно поэтому так унижается еще в спонсоры записался. Но не так же унриижатся.!!!!

Author:	Leo [ 2005-07-22 19:14:13 ]
Post subject:
netol wrote: да мля как то они неправильно каждый день топы "я вас всех люблю"(имеется ввиду гмов) натали это ваще пацан а постоянно пишет чмок чмок как то неправильно . просто уже тяжко на все это смотреть. У натали вообще стремление выйти в гмы наверно поэтому так унижается еще в спонсоры записался. Но не так же унриижатся.!!!! Я думал, что Натали - дэвушка...

Author:	Ультимщик [ 2005-07-23 08:49:00 ]
Post subject:
Вот пара хороших шардов с достойными системами пвп http://www.middle-earth.ru/index.php?pa ... what=about http://resurrection.zuluhotel.ru/news/ инжект на обоих разрешён

Author:	spider [ 2005-07-26 19:47:27 ]
Post subject:
Странно, а разве Зулу еще не упал?? он сейчас до сих пор платный?

Author:	Dread Masta [ 2005-07-26 22:58:53 ]
Post subject:
http://nova-uo.com/news.shtml вот отличный шард на АОС - пвп сферы инжект разрешен!

Author:	Stels [ 2005-07-27 14:44:45 ]
Post subject:
spas tebe netoll !!! a to u drugih proshu mne skinut net vse shkroti !!! vso toka za dengi =((( !!!!

Author:	Stels [ 2005-07-27 15:06:44 ]
Post subject:
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 !!!!

Author:	netol [ 2005-07-27 15:28:11 ]
Post subject:
ща я буду винимать строки да? может за тебя еще регов скупить? кинул скрипт радуйся!

Author:	Stels [ 2005-07-27 15:51:43 ]
Post subject:
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 !!!

Page 1 of 3	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/