Yoko

All sides of Injection
https://yoko.uokit.com/

Скрипт на тупую копку

https://yoko.uokit.com/viewtopic.php?t=11423

Page 1 of 2

Скрипт на тупую копку

Posted: 2007-02-10 20:53:16
by InDependent
Нужен скрипт, чтоб перс тупо капал... пусть у него всё валится из пака, но он всё капает... кто сможет сделать? оч. просто... плиииз... :P

Posted: 2007-02-11 10:13:35
by Scripts Writer
min_round (c) Edred уже не в моде?

Posted: 2007-02-11 12:11:26
by InDependent
ещё бы знать, чё эт такое...

Posted: 2007-02-11 13:17:16
by InDependent
аууу.... нароооод.... дайте скрипт...

Posted: 2007-02-11 17:50:11
by Scripts Writer
Ну и игроки пошли =\

Это скрипт на обкопку вокруг себя- minround. автор Edred.

Posted: 2007-02-11 18:18:06
by InDependent
ну и где мне его взять.... мне пофиг как он называется... :!:

Posted: 2007-02-11 19:25:19
by InDependent
ОНО? :?: :?

Code: Select all

##################################################################### 
; MiningAround. v.2.01b (c) Edred 
; 
; Копаем вокруг чара. Используется ASM-модуль для инжекта для поиска 
; выкапыемых тайлов или краев скал. 
; 
; MiningAround2 - вскапываем вокруг чара без АСМа 
; 
; 
sub MiningAround() 
; MiningAround() - вскапываем вокруг чара 
; 
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag 
   VAR MaxTime = 600                     ; измеряется в 1/10 сек. 
   VAR ms1 = "There is no ore here to mine" 
   VAR ms2 = "Это не копается." 
   VAR ms3 = "in your pack." 
   VAR ms4 = "You fail to find any useable ore" 
   VAR ms5 = "Далеко. Не дотянуться." 
   VAR ms6 = "Try mining in rock" 
;   VAR ms7 = "You can't see that" 
   VAR ms7 = "Хм... Не вижу.. Где копать то?." 
   VAR ms8 = "is destroyed*"               ; кирка развалилась совсем 
   VAR ms9 = "ore at your feet."            ; предположительно - элементаль 
   UO.asmTLMapOpen('Resource_Map.dat')         ; Загрузим таблицу типов карты 
   UO.asmTLStaticOpen('Resource_Static.dat')   ; Загрузим таблицу типов статики 
   VAR i, strpoint 
   VAR MaxVes = 600 
   cx = UO.GetX() 
   cy = UO.GetY() 
   for tmpx = -2 to 2 
      for tmpy = -2 to 2 
         k = 0 
         pointX = cx + tmpx 
         pointY = cy + tmpy 
         repeat 
            DeleteJournal( ms1 ) 
            DeleteJournal( ms2 ) 
            DeleteJournal( ms3 ) 
            DeleteJournal( ms4 ) 
            DeleteJournal( ms5 ) 
            DeleteJournal( ms6 ) 
            DeleteJournal( ms7 ) 
            DeleteJournal( ms8 ) 
            DeleteJournal( ms9 ) 
            t = UO.Timer() + MaxTime 
            k = k + 1 
            flag = 1 
            wait(300) 
            If UO.Waiting() Then 
               UO.CancelTarget() 
            Endif 
            CanMine = UO.asmWaitTargetMapTile( 'rock', pointX, PointY, 0 ) 
            wait(50) 
            If CanMine Then 
               UO.UseObject(UO.ObjAtLayer('Lhand')) 
            Else 
               If UO.Waiting() Then 
                  UO.CancelTarget() 
               Endif 
               CanMine = UO.asmWaitTargetStaticTile( 'rock', PointX, PointY, 0 ) 
               wait(50) 
               If CanMine Then 
                  UO.UseObject(UO.ObjAtLayer('Lhand')) 
               Else 
                  flag = 0 
               Endif 
            EndIf 
            If flag == 1 Then 
               repeat 
                  wait(100) 
               until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms8) OR UO.InJournal(ms9) OR (t < UO.Timer()) 
            Endif 
            If UO.InJournal( ms9 ) Then 
               ; вывалился элементаль... 
               return 
            Endif 
            If UO.Weight > MaxVes Then 
               ; Вес превышен! 
               return 
            Endif 
            If UO.InJournal( ms8 ) Then 
               ; кирка накрылась! 
               return 
            Endif 
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) 
      next 
   next 
   If UO.Waiting() Then 
      UO.CancelTarget() 
   Endif 
endsub 

sub MiningAround2() 
; MiningAround2() - вскапываем вокруг чара без АСМа 
; 
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag 
   VAR MaxTime = 600                     ; измеряется в 1/10 сек. 
   VAR ms1 = "There is no ore here to mine" 
   VAR ms2 = "Это не копается." 
   VAR ms3 = "in your pack." 
   VAR ms4 = "You fail to find any useable ore" 
   VAR ms5 = "Далеко. Не дотянуться." 
   VAR ms6 = "Try mining in rock" 
;   VAR ms7 = "You can't see that" 
   VAR ms7 = "Хм... Не вижу.. Где копать то?." 
   VAR ms8 = "is destroyed*"               ; кирка развалилась совсем 
   VAR ms9 = "ore at your feet."            ; предположительно - элементаль 
   VAR i, strpoint 
   VAR MaxVes = 600 
   cx = UO.GetX() 
   cy = UO.GetY() 
   for tmpx = -2 to 2 
      for tmpy = -2 to 2 
         k = 0 
         pointX = cx + tmpx 
         pointY = cy + tmpy 
         repeat 
            DeleteJournal( ms1 ) 
            DeleteJournal( ms2 ) 
            DeleteJournal( ms3 ) 
            DeleteJournal( ms4 ) 
            DeleteJournal( ms5 ) 
            DeleteJournal( ms6 ) 
            DeleteJournal( ms7 ) 
            DeleteJournal( ms8 ) 
            DeleteJournal( ms9 ) 
            t = UO.Timer() + MaxTime 
            k = k + 1 
            flag = 1 
            wait(300) 
            If UO.Waiting() Then 
               UO.CancelTarget() 
            Endif 
            UO.WaitTargetTile( 'all', str(pointX), str(PointY), '0' ) 
            UO.UseObject(UO.ObjAtLayer('Lhand')) 
            repeat 
               wait(100) 
            until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms8) OR UO.InJournal(ms9) OR (t < UO.Timer()) 
            Endif 
            If UO.InJournal( ms9 ) Then 
               ; вывалился элементаль... 
               return 
            Endif 
            If UO.Weight > MaxVes Then 
               ; Вес превышен! 
               return 
            Endif 
            If UO.InJournal( ms8 ) Then 
               ; кирка накрылась! 
               return 
            Endif 
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) 
      next 
   next 
endsub 
; 
Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, ' ' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub 
; 
Sub CheckLag() 
   DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(50) 
   until UO.InJournal( 'backpack' ) 
   return 
endsub

Posted: 2007-02-11 20:10:57
by Nmy
:lol: клоун, я удевлен он нашол

Posted: 2007-02-11 20:24:23
by InDependent
ещё бы он работал

****************

MiningAround
Выдаёт табличку

Execute at 25
Line 25: Function not found - UO.ASMTLMAPOPEN

****************

MiningAround2
В УО пишет:

Usage: useobject
object/lastobject/lasttarget/lastcontainer

Posted: 2007-02-11 21:53:50
by mez

Code: Select all

sub main() 
var mx, my, mz, i, j 
var ismining, ixx, isheavy 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 

wait(1000) 
UO.Exec('terminate Reconnector') 
wait(1000) 
UO.Exec('exec Reconnector') 
wait(1000) 
uo.setcatchbag('0x400AD1EC') 

While not UO.Dead() 
UO.DeleteJournal() 


for i = mx-4 to mx+4 
for j = my -4 to my+2 
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
ismining = 1 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining 

UO.DeleteJournal() 
hide() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype('0x0F39') 
ixx = 0 
ismining=1 
while not UO.InJournal("You put") and not UO.InJournal("location")and not UO.InJournal("but fail") and not UO.InJournal("no ore") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100 
wait (1500) 
ixx = ixx + 1 
wend 
while UO.InJournal("but fail") 
Wait (3000) 
UO.DeleteJournal() 
wend 




if uo.injournal("Dull Copper") then 
ismining = 0 
endif 

if not ismining then 
uo.print("Not mining here") 
endif 
wend 
UO.DeleteJournal() 
next 
next 
wend 
end sub 

sub hide()      
     while not UO.Hidden() 
          UO.Warmode("0") 
          UO.UseSkill("Hiding") 
          wait(4000) 
     wend 
end sub 
  

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 

repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub 

Sub Reconnector() 
var RFlag 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
RFlag = 0 
endif 
Wait(20000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) Then 
UO.Exec('terminate main') 
wait(1000) 
UO.Exec('exec main') 
wait(1000) 
RFlag = 1 
endif 
Until false 
end sub


пропеши куда капать!uo.setcatchbag('0x400AD1EC')
чем капать!(стоит лапата)UO.Usetype('0x0F39')

Posted: 2007-02-11 21:55:23
by InDependent
угу...
куда капать, эт типа мешок?

Posted: 2007-02-11 22:11:14
by InDependent
чёт на ДРВ он мне выдаёт какую-то красную надпись, типа это чит... и типа его засекли... :roll: :?:

Posted: 2007-02-12 01:50:13
by Nmy

Code: Select all

sub main()
var waittime = 4000
var mx, my, mz 
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")

While 1

for i = mx-4 to mx+4
for j = my-4 to my+4

UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0F39')
wait(waittime)

next
next

wend

end sub


тупо и вокруг :lol:

Posted: 2007-02-12 06:41:11
by InDependent
не пашет...

Posted: 2007-02-12 11:29:49
by Nmy

Code: Select all

sub main()
var waittime = 4000
var mx, my, mz
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")

While 1

for i = mx-4 to mx+4
for j = my-4 to my+4

UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0F39')
wait(waittime)

next
next

wend

end sub

если непашет говори что непашет...

поправил

Posted: 2007-02-13 17:31:13
by InDependent
NMY wrote:если непашет говори что непашет...

поправил


Выдаёт табличку...

SetScript at 13
Line 13: Variable undefined - I

Posted: 2007-02-13 18:46:51
by Nmy
добавь сам в вар i, j

Posted: 2007-02-13 19:24:58
by InDependent
sub main()
var waittime = 4000
var mx, my, mz, ij
mx = UO.GetX("self")

????

Posted: 2007-02-13 19:48:12
by Nmy
я неясно написал ?

i, j

Posted: 2007-02-13 20:14:36
by InDependent
sub main()
var waittime = 4000
var mx, my, mz, i, j
mx = UO.GetX("self")
All times are UTC+02:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited