Yoko

All sides of Injection
It is currently 2025-11-13 12:59:33

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  This topic is locked, you cannot edit posts or make further replies.  Page 1 of 1
  [ 9 posts ] 
  Print view Previous topic | Next topic 
Author Message
DenjaGanjubass
PostPosted: 2006-07-28 17:23:14 
Offline
User avatar

Joined: 2006-07-28 00:21:50
Posts: 76
LJUDI , U MENJA ESTJ SCP NA FISHING NA SERVER OLDPARADISE !!!
POMOGITE ZDELATJ , STAB SLOVLENUJU RIBJOXU ON RAZREZAL MARGANECE DAGEROM ! ZARANEE SPOSIBO , ESORAZ SORY ZA LATINICU , JA NE S ROSII :(

Code:
sub FishingAround() 
   VAR Ms0 = "You can't see"         ; ?? ????? ????? ????? 
   VAR Ms1 = "You can't fish under the ship"   ; ?? ????? ?????? ????? 
   VAR Ms2 = "You are too far away"      ; ?????? 
   VAR Ms3 = "There are no fish here"      ; ????????? ??? 
   VAR Ms4 = "You fish a while, but fail to catch anything"   ; ???? 
   VAR Ms5 = "You pull out"         ; ?????? ???-?? 
   VAR Ms6 = "You fail to catch anything."      ; ?? ????? ?????? ????? 
   VAR k, t, v, x, y 
   VAR MaxTime = 800 
   For y = -4 To 4 
      For x = -4 To 4 
         k = 0 
         repeat 
            If UO.Dead() Then 
               return 
            Endif 
            DeleteJournal(ms0) 
            DeleteJournal(ms1) 
            DeleteJournal(ms2) 
            DeleteJournal(ms3) 
            DeleteJournal(ms4) 
            DeleteJournal(ms5) 
            DeleteJournal(ms6) 
            t = UO.Timer() 
            If UO.Waiting() Then 
               UO.CancelTarget() 
            Endif 
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251') 
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) ) 
            repeat 
               wait(100) 
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer()) 
            k = k + 1 
            If UO.InJournal(ms5) Then 
               k = 0 
            Endif 
            If UO.Dead() Then 
               return 
            Endif 
            If UO.InJournal( ms5 ) Then 
               GetResultFish() 
            Endif 
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6) 
         If UO.Dead() Then 
            return 
         Endif 
      Next 
   Next 
endsub 

Sub GetResultFish() 
   ; ------- ???? ------- 
   DIM Fish[18] 
   Fish[0]  = '0x170B'   ; ?????? 
   Fish[1]  = '0x170F'   ; ????? 
   Fish[2]  = '0x170D'   ; ???????? 
   Fish[3]  = '0x1711'   ; ?????? 
   Fish[4]  = '0x09CC'   ; ??? ???? 1 
   Fish[5]  = '0x09CD'   ; ??? ???? 2 
   Fish[6]  = '0x09CE'   ; ??? ???? 3 
   Fish[7]  = '0x09CF'   ; ??? ???? 4 
   Fish[8]  = '0x0FC4'   ; ???????, ??? 1 
   Fish[9]  = '0x0FC5'   ; ???????, ??? 2 
   Fish[10] = '0x0FC6'   ; ???????, ??? 3 
   Fish[11] = '0x0FC7'   ; ???????, ??? 4 
   Fish[12] = '0x0FC8'   ; ???????, ??? 5 
   Fish[13] = '0x0FC9'   ; ???????, ??? 6 
   Fish[14] = '0x0FCA'   ; ???????, ??? 7 
   Fish[15] = '0x0FCB'   ; ???????, ??? 8 
   Fish[16] = '0x0FCC'   ; ???????, ??? 9 
   Fish[17] = '0x14ED'   ; ????? 
   VAR Razmer = 17      ; ?????? ??????? - 1 
   VAR Scissor = '0x0F9E'   ; ??? ?????? 
   VAR Bandag = '0x0E21'      ; ??? ?????? 
   VAR i 
   ; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ?????????????? 
   ; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????. 
   For i = 0 To Razmer 
      UO.FindType( Fish[i], '-1', 'ground' ) 
      If UO.FindCount() > 0 Then 
         If i < 4 Then 
            ; ????? 
            UO.WaitTargetObject( 'finditem' ) 
            UO.UseType( Scissor ) 
            Wait( 3000 ) 
            UO.FindType( Bandag ) 
         Endif 
         UO.Grab( '0', 'finditem' ) 
         Wait( 2000 ) 
         If i > 7 AND i < 17 Then 
            ; ??????? 
            UO.UseObject( 'finditem' ) 
            wait(1000) 
         Endif 
      Endif 
   Next 
endsub 

Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, 'string replaced' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub


Top
   
 
Scripts Writer
 Post subject:
PostPosted: 2006-07-28 17:32:28 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Code:
Sub GetResultFish() 
   ; ------- ???? ------- 
   DIM Fish[18] 
   Fish[0]  = '0x170B'   ; ?????? 
   Fish[1]  = '0x170F'   ; ????? 
   Fish[2]  = '0x170D'   ; ???????? 
   Fish[3]  = '0x1711'   ; ?????? 
   Fish[4]  = '0x09CC'   ; ??? ???? 1 
   Fish[5]  = '0x09CD'   ; ??? ???? 2 
   Fish[6]  = '0x09CE'   ; ??? ???? 3 
   Fish[7]  = '0x09CF'   ; ??? ???? 4 
   Fish[8]  = '0x0FC4'   ; ???????, ??? 1 
   Fish[9]  = '0x0FC5'   ; ???????, ??? 2 
   Fish[10] = '0x0FC6'   ; ???????, ??? 3 
   Fish[11] = '0x0FC7'   ; ???????, ??? 4 
   Fish[12] = '0x0FC8'   ; ???????, ??? 5 
   Fish[13] = '0x0FC9'   ; ???????, ??? 6 
   Fish[14] = '0x0FCA'   ; ???????, ??? 7 
   Fish[15] = '0x0FCB'   ; ???????, ??? 8 
   Fish[16] = '0x0FCC'   ; ???????, ??? 9 
   Fish[17] = '0x14ED'   ; ????? 
   VAR Razmer = 17      ; ?????? ??????? - 1 
   VAR dagger = 'type '
   VAR i 
   ; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ?????????????? 
   ; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????. 
   For i = 0 To Razmer 
      UO.FindType( Fish[i], '-1', 'ground' ) 
      If UO.FindCount() > 0 Then 
            UO.WaitTargetObject( 'finditem' ) 
            UO.UseType( dagger ) 
            Wait( 300 ) 
      Endif 
   next 
endsub


Last edited by Scripts Writer on 2006-07-28 20:16:40, edited 1 time in total.

Top
   
 
DenjaGanjubass
 Post subject:
PostPosted: 2006-07-28 17:52:15 
Offline
User avatar

Joined: 2006-07-28 00:21:50
Posts: 76
line 31 - error
Top
   
 
Sfagnum
 Post subject:
PostPosted: 2006-07-28 18:26:31 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
You Must Die wrote:
Code:
   VAR dagger = 'type '
   VAR i 
   ; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ?????????????? 
   ; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????. 
   For i = 0 To Razmer 
      UO.FindType( Fish[i], '-1', 'ground' ) 
      If UO.FindCount() > 0 Then 
            UO.WaitTargetObject( 'finditem' ) 
            UO.UseType( Scissor ) 
            Wait( 300 ) 
      Endif 
   next 
endsub
2 You Must Die
dagger <> Scissor.
ты блин не парь людям мозги.

2 DenjaGanjubass
1. >SPOSIBO , ESORAZ SORY ZA LATINICU , JA NE S ROSII
я тоже, и что? да и в инете не отменили ещё соответсвующие сервисы.
2.
Code:
Sub GetResultFish()
   ; ------- ???? -------
   DIM Fish[18]
   Fish[0]  = '0x170B'   ; ??????
   Fish[1]  = '0x170F'   ; ?????
   Fish[2]  = '0x170D'   ; ????????
   Fish[3]  = '0x1711'   ; ??????
   Fish[4]  = '0x09CC'   ; ??? ???? 1
   Fish[5]  = '0x09CD'   ; ??? ???? 2
   Fish[6]  = '0x09CE'   ; ??? ???? 3
   Fish[7]  = '0x09CF'   ; ??? ???? 4
   Fish[8]  = '0x0FC4'   ; ???????, ??? 1
   Fish[9]  = '0x0FC5'   ; ???????, ??? 2
   Fish[10] = '0x0FC6'   ; ???????, ??? 3
   Fish[11] = '0x0FC7'   ; ???????, ??? 4
   Fish[12] = '0x0FC8'   ; ???????, ??? 5
   Fish[13] = '0x0FC9'   ; ???????, ??? 6
   Fish[14] = '0x0FCA'   ; ???????, ??? 7
   Fish[15] = '0x0FCB'   ; ???????, ??? 8
   Fish[16] = '0x0FCC'   ; ???????, ??? 9
   Fish[17] = '0x14ED'   ; ?????
   VAR Razmer = 17      ; ?????? ??????? - 1
   VAR Scissor = 'id'   ;  #пропиши id нуби ножика.
   VAR i
   ; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ??????????????
   ; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????.
   For i = 0 To Razmer
      UO.FindType( Fish[i], '-1', 'ground' )
      If UO.FindCount() > 0 Then
         If i < 4 Then
            UO.WaitTargetObject( 'finditem' )
            UO.UseObject( Scissor )
            wait(1000)
         else
            If i > 7 AND i < 17 Then    
               UO.UseObject( 'finditem' )
               wait(1000)
            else
               uo.moveItem('finditem','-1','backpack')
               wait(1000)
            end if
         Endif
      Endif
   Next
endsub

3. line 31 - error - это ни очём не говорит, как минимум надо приводить указанную строчку, оптимальн - процедуру, которая содержит данную строчку + указать явно(например минусов на тойже строчке пяток нарисовать) которая строчка вызывает ошибку.
Top
   
 
Scripts Writer
 Post subject:
PostPosted: 2006-07-28 20:16:48 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
DenjaGanjubass wrote:
line 31 - error


Code:
Sub GetResultFish() 
   ; ------- ???? ------- 
   DIM Fish[18] 
   Fish[0]  = '0x170B'   ; ?????? 
   Fish[1]  = '0x170F'   ; ????? 
   Fish[2]  = '0x170D'   ; ???????? 
   Fish[3]  = '0x1711'   ; ?????? 
   Fish[4]  = '0x09CC'   ; ??? ???? 1 
   Fish[5]  = '0x09CD'   ; ??? ???? 2 
   Fish[6]  = '0x09CE'   ; ??? ???? 3 
   Fish[7]  = '0x09CF'   ; ??? ???? 4 
   Fish[8]  = '0x0FC4'   ; ???????, ??? 1 
   Fish[9]  = '0x0FC5'   ; ???????, ??? 2 
   Fish[10] = '0x0FC6'   ; ???????, ??? 3 
   Fish[11] = '0x0FC7'   ; ???????, ??? 4 
   Fish[12] = '0x0FC8'   ; ???????, ??? 5 
   Fish[13] = '0x0FC9'   ; ???????, ??? 6 
   Fish[14] = '0x0FCA'   ; ???????, ??? 7 
   Fish[15] = '0x0FCB'   ; ???????, ??? 8 
   Fish[16] = '0x0FCC'   ; ???????, ??? 9 
   Fish[17] = '0x14ED'   ; ????? 
   VAR Razmer = 17      ; ?????? ??????? - 1 
   VAR dagger = 'type '
   VAR i 
   ; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ?????????????? 
   ; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????. 
   For i = 0 To Razmer 
      UO.FindType( Fish[i], '-1', 'ground' ) 
      If UO.FindCount() > 0 Then 
            UO.WaitTargetObject( 'finditem' ) 
            UO.UseType( dagger ) 
            Wait( 300 ) 
      Endif 
   next 
endsub
Top
   
 
DenjaGanjubass
 Post subject:
PostPosted: 2006-07-28 22:48:27 
Offline
User avatar

Joined: 2006-07-28 00:21:50
Posts: 76
teperj line 18 nepraveljno
Code:
 DeleteJournal(ms0)
Top
   
 
DenjaGanjubass
 Post subject:
PostPosted: 2006-07-28 23:35:10 
Offline
User avatar

Joined: 2006-07-28 00:21:50
Posts: 76
vot tut u menja nepravlejno 18 stroka - DeleteJourlal(ms0)

Vot SCP

Code:
sub FishingAround() 
   VAR Ms0 = "You can't see"         ; ?? ????? ????? ????? 
   VAR Ms1 = "You can't fish under the ship"   ; ?? ????? ?????? ????? 
   VAR Ms2 = "You are too far away"      ; ?????? 
   VAR Ms3 = "There are no fish here"      ; ????????? ??? 
   VAR Ms4 = "You fish a while, but fail to catch anything"   ; ???? 
   VAR Ms5 = "You pull out"         ; ?????? ???-?? 
   VAR Ms6 = "You fail to catch anything."      ; ?? ????? ?????? ????? 
   VAR k, t, v, x, y 
   VAR MaxTime = 800 
   For y = -4 To 4 
      For x = -4 To 4 
         k = 0 
         repeat 
            If UO.Dead() Then 
               return 
            Endif 
            DeleteJournal(ms0) 
            DeleteJournal(ms1) 
            DeleteJournal(ms2) 
            DeleteJournal(ms3) 
            DeleteJournal(ms4) 
            DeleteJournal(ms5) 
            DeleteJournal(ms6) 
            t = UO.Timer() 
            If UO.Waiting() Then 
               UO.CancelTarget() 
            Endif 
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251') 
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) ) 
            repeat 
               wait(100) 
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer()) 
            k = k + 1 
            If UO.InJournal(ms5) Then 
               k = 0 
            Endif 
            If UO.Dead() Then 
               return 
            Endif 
            If UO.InJournal( ms5 ) Then 
               GetResultFish() 
            Endif 
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6) 
         If UO.Dead() Then 
            return 
         Endif 
      Next 
   Next 
endsub 

Sub GetResultFish() 
   ; ------- ???? ------- 
   DIM Fish[18] 
   Fish[0]  = '0x170B'   ; ?????? 
   Fish[1]  = '0x170F'   ; ????? 
   Fish[2]  = '0x170D'   ; ???????? 
   Fish[3]  = '0x1711'   ; ?????? 
   Fish[4]  = '0x09CC'   ; ??? ???? 1 
   Fish[5]  = '0x09CD'   ; ??? ???? 2 
   Fish[6]  = '0x09CE'   ; ??? ???? 3 
   Fish[7]  = '0x09CF'   ; ??? ???? 4 
   Fish[8]  = '0x0FC4'   ; ???????, ??? 1 
   Fish[9]  = '0x0FC5'   ; ???????, ??? 2 
   Fish[10] = '0x0FC6'   ; ???????, ??? 3 
   Fish[11] = '0x0FC7'   ; ???????, ??? 4 
   Fish[12] = '0x0FC8'   ; ???????, ??? 5 
   Fish[13] = '0x0FC9'   ; ???????, ??? 6 
   Fish[14] = '0x0FCA'   ; ???????, ??? 7 
   Fish[15] = '0x0FCB'   ; ???????, ??? 8 
   Fish[16] = '0x0FCC'   ; ???????, ??? 9 
   Fish[17] = '0x14ED'   ; ????? 
   VAR Razmer = 17      ; ?????? ??????? - 1 
   VAR dagger = 'type ' 
   VAR i 
   ; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ?????????????? 
   ; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????. 
   For i = 0 To Razmer 
      UO.FindType( Fish[i], '-1', 'ground' ) 
      If UO.FindCount() > 0 Then 
            UO.WaitTargetObject( 'finditem' ) 
            UO.UseType( dagger ) 
            Wait( 300 ) 
      Endif 
   next 
endsub


pozalujsto pomogite !! igraju na 6arde oldparadise , mne nado stob on lavil kvadrat vokrug sebja , potom kagda vilavlivaet ribu , razrezal ejo dagerom !! ZARANIJE SPO_SI_BO , kto ne padla , pomogite pozaljusto :wink:

You Must Die :Тебе всё тут разъяснили,-а этими словами ты охарактеризовал себя не с хорошей стороны. Тут никто тебе ничем не обязан, а выслушивать такие реплики-лично я не намерен.
Тема закрыта.В след. раз думай что , кому и куда пишешь.


Top
   
 
Ex-Brodyaga
 Post subject:
PostPosted: 2006-07-29 12:25:13 
Offline
Junior Expert
User avatar

Joined: 2004-04-12 20:26:41
Posts: 150
замени deletejournal на uo.deletejournal и там ошибка твоя в 31 строке, это ты не заменик ID дагера , напиши в игре ,info и таргетом на нож, появится окно text в нём возьмёшь id, удачи ;)
Top
   
 
Scripts Writer
 Post subject:
PostPosted: 2006-07-29 12:58:02 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Ex-Brodyaga wrote:
замени deletejournal на uo.deletejournal и там ошибка твоя в 31 строке, это ты не заменик ID дагера , напиши в игре ,info и таргетом на нож, появится окно text в нём возьмёшь id, удачи ;)


Непиши чего не понимаешь.

1. В твоём скрипте, нету второстепенного скрипта sub DeleteJournal(msg) -который ты выложил в самом начале.
2. Никакого ID вписывать ненадо-впиши тип,а не ID
Top
   
 
Display posts from previous:  Sort by  
Post new topic  This topic is locked, you cannot edit posts or make further replies.  Page 1 of 1
  [ 9 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 4 guests

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