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

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

Скрипт на тупую копку http://forum.yoko.com.ua/viewtopic.php?f=17&t=11423	Page 1 of 2

Author:	InDependent [ 2007-02-10 20:53:16 ]
Post subject:	Скрипт на тупую копку
Нужен скрипт, чтоб перс тупо капал... пусть у него всё валится из пака, но он всё капает... кто сможет сделать? оч. просто... плиииз...

Author:	Scripts Writer [ 2007-02-11 10:13:35 ]
Post subject:
min_round (c) Edred уже не в моде?

Author:	InDependent [ 2007-02-11 12:11:26 ]
Post subject:
ещё бы знать, чё эт такое...

Author:	InDependent [ 2007-02-11 13:17:16 ]
Post subject:
аууу.... нароооод.... дайте скрипт...

Author:	Scripts Writer [ 2007-02-11 17:50:11 ]
Post subject:
Ну и игроки пошли =\ Это скрипт на обкопку вокруг себя- minround. автор Edred.

Author:	InDependent [ 2007-02-11 18:18:06 ]
Post subject:
ну и где мне его взять.... мне пофиг как он называется...

Author:

InDependent [ 2007-02-11 19:25:19 ]

Post subject:

ОНО?

Code:

##################################################################### 
; 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

Author:	Nmy [ 2007-02-11 20:10:57 ]
Post subject:
клоун, я удевлен он нашол

Author:	InDependent [ 2007-02-11 20:24:23 ]
Post subject:
ещё бы он работал ************** MiningAround Выдаёт табличку Execute at 25** Line 25: Function not found - UO.ASMTLMAPOPEN **************** MiningAround2 В УО пишет: Usage: useobject object/lastobject/lasttarget/lastcontainer

Author:

mez [ 2007-02-11 21:53:50 ]

Post subject:

Code:

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')

Author:	InDependent [ 2007-02-11 21:55:23 ]
Post subject:
угу... куда капать, эт типа мешок?

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

Author:

Nmy [ 2007-02-12 01:50:13 ]

Post subject:

Code:

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:

Author:	InDependent [ 2007-02-12 06:41:11 ]
Post subject:
не пашет...

Author:

Nmy [ 2007-02-12 11:29:49 ]

Post subject:

Code:

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

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

поправил

Author:	InDependent [ 2007-02-13 17:31:13 ]
Post subject:
NMY wrote: если непашет говори что непашет... поправил Выдаёт табличку... SetScript at 13 Line 13: Variable undefined - I

Author:	Nmy [ 2007-02-13 18:46:51 ]
Post subject:
добавь сам в вар i, j

Author:	InDependent [ 2007-02-13 19:24:58 ]
Post subject:
sub main() var waittime = 4000 var mx, my, mz, ij mx = UO.GetX("self") ????

Author:	Nmy [ 2007-02-13 19:48:12 ]
Post subject:
я неясно написал ? i, j

Author:	InDependent [ 2007-02-13 20:14:36 ]
Post subject:
sub main() var waittime = 4000 var mx, my, mz, i, j mx = UO.GetX("self")

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