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

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

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

Post by InDependent »

Нужен скрипт, чтоб перс тупо капал... пусть у него всё валится из пака, но он всё капает... кто сможет сделать? оч. просто... плиииз... :P
С уважением, InDependent... From DRW.
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

min_round (c) Edred уже не в моде?
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

ещё бы знать, чё эт такое...
С уважением, InDependent... From DRW.
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

аууу.... нароооод.... дайте скрипт...
С уважением, InDependent... From DRW.
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Ну и игроки пошли =\

Это скрипт на обкопку вокруг себя- minround. автор Edred.
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

ну и где мне его взять.... мне пофиг как он называется... :!:
С уважением, InDependent... From DRW.
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post 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
С уважением, InDependent... From DRW.
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

:lol: клоун, я удевлен он нашол
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

ещё бы он работал

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

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

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

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

MiningAround2
В УО пишет:

Usage: useobject
object/lastobject/lasttarget/lastcontainer
С уважением, InDependent... From DRW.
Top
mez
Posts: 91
Joined: 2006-04-02 11:33:38
Contact:
Contact mez

Post 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')
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

угу...
куда капать, эт типа мешок?
С уважением, InDependent... From DRW.
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

чёт на ДРВ он мне выдаёт какую-то красную надпись, типа это чит... и типа его засекли... :roll: :?:
С уважением, InDependent... From DRW.
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post 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:
Last edited by Nmy on 2007-02-12 11:29:15, edited 1 time in total.
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

не пашет...
С уважением, InDependent... From DRW.
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post 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

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

поправил
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

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

поправил


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

SetScript at 13
Line 13: Variable undefined - I
С уважением, InDependent... From DRW.
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

добавь сам в вар i, j
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

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

????
С уважением, InDependent... From DRW.
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

я неясно написал ?

i, j
Top
InDependent
Posts: 46
Joined: 2006-02-11 12:47:22

Post by InDependent »

sub main()
var waittime = 4000
var mx, my, mz, i, j
mx = UO.GetX("self")
С уважением, InDependent... From DRW.
Top
Post Reply

Return to “I need script!”