Totoshka

Короче сталкнулса с такой проблемой. У мена давно был ацц, майл на нево я потерял(забыл пароль). На этова чара знают пароль человек 6. Я поставил на него пароль(на банк). На ацц лежало чуть больше 400к и человек который знал пароль украл эти деньги с помощью команды .check. Помойму это бред что я магу юзать эту команду без всяких препятствий когда на банке стоит пароль.
PS. Деньги та берутьса из банка.

Крч из простых артов есть staff of magi и hat of magi, так почемубы не сделать остальные шмотки для такова комплекта (на клерика думаю самый раз).

Ljudi dobrije pomagite plz nepawet scp na mining piwit pri zapuske "line127"

##===============================================================####========================Kopalka================================####===============================================================##sub mining() var x, y, i, tmp, inside, goto_x, st, first , positst=0 first=UO.GetX() start: inside=0 for y=-2 to 2for x=-2 to 2try: UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") UO.exec ("usetype 0x0E85") #tip kirki#UO.Print (""+STR(x)) #UO.Print (""+STR(y)) i=0 while i< 100 if UO.InJournal("You loosen some rocks but fail to find any useable ore") then wait (1000) i=200 UO.DeleteJournal() goto try endifif UO.InJournal("Try mining elsewhere") then i=200 UO.DeleteJournal() endif if UO.InJournal("You cant mine in this Region.") then i=200 UO.DeleteJournal() endif if UO.InJournal("Your pickaxe is destroyed") theni=200UO.DeleteJournal()endifif UO.InJournal("You must wait to perform another action") then wait (1000) i=200 UO.DeleteJournal() goto try endifif uo.InJournal("Elemental") or uo.InJournal("is attacking you")thenuo.playwav("C:\injection\alert.wav")killelem() wait(1000)loot()i=200 UO.DeleteJournal() goto try endif  if UO.InJournal("There is nothing here to mine for")  then wait (1000) i=200 UO.DeleteJournal() endif if UO.InJournal("You have no line of sight to that location") then wait (1000) i=200 UO.DeleteJournal() endif wait (500) i=i+1 if UO.Weight>400 thenUO.print ( 'maxweight reached' )recalltohouse()dropores()gotocave()return 1UO.print ("Your weight is "+STR(UO.Weight))goto tryend ifwend next next if st == 0 then  posit=UO.GetX() posit=posit+5 while UO.GetX() < posit   UO.Press (39, 1, 500)  wend   st=1  goto startendif if st == 1 then  posit=UO.GetY() posit=posit+5 while UO.GetY() < posit   UO.Press (40, 1, 500)  wend   st=2  goto startendif if st == 2 then  posit=UO.GetX() posit=posit-5 while UO.GetX() > posit   UO.Press (37, 1, 500)  wend   st=3  goto startendif if st == 3 then  posit=UO.GetY() posit=posit-5 while UO.GetY() > posit   UO.Press (38, 1, 500)  wend   st=0  goto startendif goto startfinish:wait(1000)recalltohouse()wait(1000)dropores()wait(1000)recalltocave()end subsub recalltohouse()uo.say ( ',recall 0x40004331 2' ) #ID runbukawait(25000)end subGoToXY(2431 183,"") ##тут вставь координаты куда идти UO.DeleteJournal()wend end sub sub GotoXY(x,y,prec)var myX,myY,LastX=0,LastY=0,i,halt=0,z,r=0for i=1 to 60myX=uo.GetX()myY=uo.GetY()if LastX==myX and LastY==myY thenhalt=halt+1elsehalt=0end ifif halt>=10 thenif uo.GetDir()==1 thenfor z=0 to 8uo.Press(40)nextend ifif uo.GetDir()==3 thenfor z=0 to 8uo.Press(37)nextend ifif uo.GetDir()==5 thenfor z=0 to 8uo.Press(38)nextend ifif uo.GetDir()==7 thenfor z=0 to 8uo.Press(39)nextend ifhalt=15end ifif Numb(x-myX)<=1 and Numb(y-myY)<=2 thenreturn 1end ifif x<=myX thenif y<=myY thenfor z=0 to 3uo.Press(38)nextelsefor z=0 to 3uo.Press(37)nextend ifelseif y<=myY thenfor z=0 to 3uo.Press(39)nextelsefor z=0 to 3uo.Press(40)nextend ifend ifLastX=myXLastY=myYwait(200)nextreturn 0end subsub Numb(num)if num>=0 thenreturn numelsereturn num*(-1)end ifend subsub recalltocave()var Chest='0x09a8' #ID sunduka kuda skidivatj ruduuo.FindType('0x1F4C','-1',Chest)uo.Grab('4','finditem')wait(3000) uo.recall(0x40004331, 1) #ID runbukawait(3000)uo.recall(0x40004331, 1) #ID runbukawait(3000)uo.recall(0x40004331, 1) #ID runbukawait(3000)uo.recall(0x40004331, 3) #ID runbukawait(25000)uo.Exec('exec mine') wait(15000)end sub##==================================================================##sub GetXY(str,arnum)    arnum[0]=val(mid(str, 7, 3))    arnum[1]=val(mid(str, 10, 3)) end sub sub decode() var temp='',i=0 var pos=0 var line=5 var sX=0, sY=0 var code='' var finding = 1 var CurrX=0 var CurrY=0 var NumSum dim tempXY[2] dim Num[9] Num[0]=6 Num[1]=35 Num[2]=45 Num[3]=-24 Num[4]=34 Num[5]=-5 Num[6]=26 Num[7]=4 Num[8]=-6    Repeat       temp=uo.LastGump('command',line)       GetXY(temp, tempXY)       if pos >= 17 then          if pos == 17 then             NumSum=(CurrX-sX)*10+(CurrY-sY)             finding = 1             i=0             while finding                 if NumSum == num[i] then                   code=code+str(i+1)                   finding = 0                end if                i=i+1             wend          end if          if tempXY[0]-CurrX > 5 then             pos=0          end if       end if       if not pos then          sX=tempXY[0]          sY=tempXY[1]          pos=15          line=line+15       end if       CurrX=tempXY[0]       CurrY=tempXY[1]       pos=pos+1       line=line+1    Until len(code) == 4    return code end sub sub AAmacro()    while not uo.dead()       if uo.LastGump('text',0) == 'enter anti macro code:' and uo.LastGump('replyed') == 0 then          uo.lclick(uo.LastGump('x')+75, uo.LastGump('y')+69)          wait(300)          uo.say(decode())          wait(300)          uo.lclick(uo.LastGump('x')+77, uo.LastGump('y')+108)       end if       wait(1000)    wend end sub sub DropOres()Uo.Say(" bla ")wait(3000) if uo.Waiting() then uo.CancelTarget() end if var a, Exit var UnloadChest='0x400E95CA' ## - Id sunduka kuda skidivaemDIM Ore[5] Ore[0]=0x19B9 ## - 4 and more ore Ore[1]=0x19B7 ## - 1 ore Ore[2]=0x19BA ## - 2 ore Ore[3]=0x19B8 ## - 3 ore uo.SetReceivingContainer(UnloadChest) wait(500) for a=0 to 3 exit=0 repeat uo.FindType(Ore[a]) if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') wait(1500) else exit=1 end if until Exit==1 next uo.UnSetReceivingContainer() end sub #============================================================== #  CheckLag() - click on backpack and awaiting "backpack" #               message in journal. # #  Journal has been deleted!!! #-------------------------------------------------------------- sub CheckLag()    UO.DeleteJournal()    UO.Click('backpack')    Repeat       wait(1000)    Until UO.InJournal('backpack') end subsub killelem()    VAR Count,Elem        uo.equipt('Rhand','0x0F60') #tip oruzija kotorim budem bitj elementa   UO.DeleteJournal()    UO.Exec('warmode 1')    UO.FindType('0x000E',-1,'ground')    Elem=UO.GetSerial('finditem') wait (300)   UO.Attack(Elem)        repeat       wait(1000)       If UO.Life<170 Then         UO.WaitMenu('Camping','Healing Campfie')         UO.UseType(0x0DE1)       Endif        If UO.Life<150 Then         UO.UseType(0x182E)       Endif    until UO.IsNPC(Elem)==0    wait(3000)    UO.Exec('warmode 0')    wait(1000)    UO.Print("poka!") end sub sub loot()  var corpse='0x2006' ; objtype ??? ???? ??????, ?????????? ?? ????, ??? ????.  var waittime=1000  var body,bodypack,i  DIM Loot[12]  Loot[0]=0x19B9 Loot[1]=0x19BA Loot[2]=0x19B7  Loot[3]=0x19B8 Loot[4]=0x141A  Loot[5]=0x1416  Loot[6]=0x1410  Loot[7]=0x1417  Loot[8]=0x1418  Loot[9]=0x1419  Loot[10]=0x0E76  Loot[11]=0x1413  Loot[12]=0x1086  uo.set('finddistance','2')   while uo.countonground(corpse)>0    uo.findtype(corpse,'-1','ground')    body=uo.getserial('finditem') #-----------????????? ???? ???    uo.useobject('backpack') #-----------???? ???????? ?????? ????    repeat     wait(100)    until uo.getserial('lastcontainer')==uo.getserial('backpack') #-----------????????? ????    uo.useobject(body)    repeat     wait(100)    until uo.getserial('lastcontainer')<>uo.getserial('backpack') #------------    bodypack=uo.getserial('lastcontainer')    For i=0 to 12     repeat      UO.FindType(Loot[i],-1,bodypack)      if UO.GetQuantity('finditem') then       UO.MoveItem('finditem','backpack')       repeat        wait(100)       until uo.containerof('finditem')==uo.getserial('backpack')       wait(waittime)      endif     until uo.findcount()==0    next    uo.ignore(body)   wend endsub sub say()    UO.Say( "bla" )    wait(3000) endsub

Меняю 5 левела арчера на 5-4 левела мага ! БЕЗ НЮБИ ШМОТА и т.д. проста голий ацц

Predlagaju ubratj ItemIdent na maine hotabi so vsakih melo4ej tipo brasletov monster slayerov i t.d.