Yoko

All sides of Injection
It is currently 2026-01-16 21:44:38

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 2
  [ 24 posts ]  Go to page 1 2 Next
  Print view Previous topic | Next topic 
Author Message
InDependent
PostPosted: 2007-02-10 20:53:16 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
Нужен скрипт, чтоб перс тупо капал... пусть у него всё валится из пака, но он всё капает... кто сможет сделать? оч. просто... плиииз... :P

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2007-02-11 10:13:35 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
min_round (c) Edred уже не в моде?
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-11 12:11:26 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
ещё бы знать, чё эт такое...

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-11 13:17:16 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
аууу.... нароооод.... дайте скрипт...

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2007-02-11 17:50:11 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Ну и игроки пошли =\

Это скрипт на обкопку вокруг себя- minround. автор Edred.
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-11 18:18:06 
Offline

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

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-11 19:25:19 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
ОНО? :?: :?
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

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2007-02-11 20:10:57 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
:lol: клоун, я удевлен он нашол

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-11 20:24:23 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
ещё бы он работал

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

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

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

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

MiningAround2
В УО пишет:

Usage: useobject
object/lastobject/lasttarget/lastcontainer

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
mez
 Post subject:
PostPosted: 2007-02-11 21:53:50 
Offline
User avatar

Joined: 2006-04-02 11:33:38
Posts: 91
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')
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-11 21:55:23 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
угу...
куда капать, эт типа мешок?

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-11 22:11:14 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
чёт на ДРВ он мне выдаёт какую-то красную надпись, типа это чит... и типа его засекли... :roll: :?:

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2007-02-12 01:50:13 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
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:

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2007-02-12 11:29:15, edited 1 time in total.

Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-12 06:41:11 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
не пашет...

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2007-02-12 11:29:49 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
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

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

поправил

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-13 17:31:13 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
NMY wrote:
если непашет говори что непашет...

поправил


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

SetScript at 13
Line 13: Variable undefined - I

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2007-02-13 18:46:51 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
добавь сам в вар i, j

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-13 19:24:58 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
sub main()
var waittime = 4000
var mx, my, mz, ij
mx = UO.GetX("self")

????

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2007-02-13 19:48:12 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
я неясно написал ?

i, j

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
InDependent
 Post subject:
PostPosted: 2007-02-13 20:14:36 
Offline

Joined: 2006-02-11 12:47:22
Posts: 46
sub main()
var waittime = 4000
var mx, my, mz, i, j
mx = UO.GetX("self")

_________________
С уважением, InDependent... From DRW.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 2
  [ 24 posts ]  Go to page 1 2 Next

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited