FISHING , SORY ZA LATINICU , JA NE S ROSII !!!

DenjaGanjubass · Post by **DenjaGanjubass** » 2006-07-28 17:23:14

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: Select all

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

Scripts Writer · Post by **Scripts Writer** » 2006-07-28 17:32:28

Code: Select all

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

DenjaGanjubass · Post by **DenjaGanjubass** » 2006-07-28 17:52:15

line 31 - error

Sfagnum · Post by **Sfagnum** » 2006-07-28 18:26:31

You Must Die wrote:

Code: Select all

   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: Select all

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 - это ни очём не говорит, как минимум надо приводить указанную строчку, оптимальн - процедуру, которая содержит данную строчку + указать явно(например минусов на тойже строчке пяток нарисовать) которая строчка вызывает ошибку.

Scripts Writer · Post by **Scripts Writer** » 2006-07-28 20:16:48

DenjaGanjubass wrote:line 31 - error

Code: Select all

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

DenjaGanjubass · Post by **DenjaGanjubass** » 2006-07-28 22:48:27

teperj line 18 nepraveljno

Code: Select all

 DeleteJournal(ms0)

DenjaGanjubass · Post by **DenjaGanjubass** » 2006-07-28 23:35:10

vot tut u menja nepravlejno 18 stroka - DeleteJourlal(ms0)

Vot SCP

Code: Select all

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 :Тебе всё тут разъяснили,-а этими словами ты охарактеризовал себя не с хорошей стороны. Тут никто тебе ничем не обязан, а выслушивать такие реплики-лично я не намерен.
Тема закрыта.В след. раз думай что , кому и куда пишешь.

Ex-Brodyaga · Post by **Ex-Brodyaga** » 2006-07-29 12:25:13

замени deletejournal на uo.deletejournal и там ошибка твоя в 31 строке, это ты не заменик ID дагера , напиши в игре ,info и таргетом на нож, появится окно text в нём возьмёшь id, удачи

Scripts Writer · Post by **Scripts Writer** » 2006-07-29 12:58:02

Ex-Brodyaga wrote:замени deletejournal на uo.deletejournal и там ошибка твоя в 31 строке, это ты не заменик ID дагера , напиши в игре ,info и таргетом на нож, появится окно text в нём возьмёшь id, удачи

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

1. В твоём скрипте, нету второстепенного скрипта sub DeleteJournal(msg) -который ты выложил в самом начале.
2. Никакого ID вписывать ненадо-впиши тип,а не ID