Перейти к содержимому


Свернуть/развернуть блок Chat Открыть чат в новом окне

Прямая связь с администрацией по скайпу: gods.dragon
@  Pablo : (15 March 2024 - 21:12) Sell regs from pandora box.
@  Pablo : (15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@  fr33 : (11 March 2024 - 16:38) blee gm zb atdai bank
@  GM SOLAR : (10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@  Pablo : (06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis :D
@  Senseless : (05 March 2024 - 09:42) Opatj ataki na server powli :(
@  Pablo : (03 March 2024 - 19:19) Riebiigais
@  Ganjakur : (03 March 2024 - 15:10) kāds niks mp?
@  Pablo : (02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@  Senseless : (02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@  GM SOLAR : (02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@  Ganjakur : (01 March 2024 - 17:32) labi
@  Pablo : (29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības :D
@  fr33 : (29 February 2024 - 09:45) yes
@  EmmaSb : (28 February 2024 - 21:00) Easyuo still working ?
@  Artemy Shan : (18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@  jurasiks : (18 February 2024 - 20:04) da pipec tu, zdelal on
@  Senseless : (17 February 2024 - 19:17) Lagi powli opatj
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.
@  Artemy Shan : (13 February 2024 - 02:44) Сменился айпи для входа в игру. Теперь заходим через: loginserver=login.oldp.net,2593 или loginserver=91.121.232.151,2593

Фото

Newbie Dungeon Lvl 2


  • Чтобы отвечать, сперва войдите на форум
5 ответов в теме

#1 Cmapk

Cmapk

    Newbie

  • Members
  • 23 сообщений

Опубликовано 13 January 2021 - 23:14

Может найдётся добрый человек, который поделился бы пвм скриптом в данный данж ?



#2 Cmapk

Cmapk

    Newbie

  • Members
  • 23 сообщений

Опубликовано 14 January 2021 - 12:34

Видать на сервере остались одни жлобы, жаль что так ;]



#3 Bliezeejs

Bliezeejs

    Novice Player

  • Members
  • 115 сообщений
  • Gender:Male

Опубликовано 14 January 2021 - 13:13

Ja nedumaju shto komu ta estj takoj. Tam zhe bez pvp disabled... malo lji script laganjot tibja ubjot i vsjo..

#4 Pixels

Pixels

    Journeyman

  • Members
  • 99 сообщений

Опубликовано 14 January 2021 - 14:26

Может найдётся добрый человек, который поделился бы пвм скриптом в данный данж ?

                                           initevents
set %shmot FZH_CUD_POF_UJG_IJG_SJG_FWL_DCI_NZH_RVH_GEJ  ;4e lutitj
set %corpse YFM
set %name #Charname  ; lancelot :
set %keyheal 1
set %sumka #BACKPACKID
set %sumka1 #BACKPACKID
set %sumka2 #BACKPACKID
;______________________________________________
;   ______________ banki  _____________
set %invis PGJ
set %hits1 SGJ   ;malenjkaja
set %hits2 SGJ   ;boljwaja
set %ref
 
SET %STAM #MAXSTAM - 10
set %H1 130    ; ziznj kada le4itsa nada
set %H2 80    ;ziznj kada nada nikatsa
 
 
set %puxa TSF
set %arm CQH_PPH_QPH_AQH_ZPH
 
set %mobs UC_GD_WD_UD_XC_BF_QD_Z_Q
;_____________________________________________________
;___________rabo4ii peremenie_______________________
;______________________________________________________
set %r 10 ; Radius poiska
set %s 0   ;s4et4ik dlja le4ilki
set %sn 0  ;s4et4ik dlja nikalki
set %rept 1
set %nespratalsa 0   ;0 = spratalsa; 1 = nespratalsa
 set %Tim #SCNT + 100
set %celX #CHARPOSX
set %celY #CHARPOSy
set %zmob 0
 
;________________________________________________________
;|         infa
;________________________________________________________
; goto moveto  -  peredvizenie
; sub movetomob  - presledovanie moba
;  %mobID   -  id blizajwego moba
;  sub LOOTING - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;  sub zonamoba  - opredelitj zonu moba
 
 
 
repeat    ;GLAVNOE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
gosub poiskmoba
      if %poisk > 0 ;ne nawol
      gosub moveto
      if %poisk = 0 ;nawol
      gosub movetomob
until #CHARNAME = 1
 
 
 
 
 
 
 
 
 
 
 
 
sub movetomob
 
   repeat
     {
     if #hits < %H2
   gosub nikalka
 
              }
     if #hits < %H1 3
            set %s %s + 1
            if %s > 20
            gosub le4ilka
            sub macropause
     finditem %mobID
     gosub mob4ek
     set #LTARGETID %mobID
   event macro 27 0
     event pathfind #findx #findy 3
     if #CHARPOSX < 2
     halt
     }
   until #findcnt = 0
   gosub Sr
   gosub LOOTING
   return
 
GoSub MacroPause
If #contkind = UCHB && #Contsize = 240_165 && #contname = generic_gump
{
sound
wait 7
sound
wait 7
sound
wait 7
sound
wait 7
sound
}
set %kill #Scnt + 16
If Frozen in #sysmsg
{
pause
display Antimacros!!!
set %Kill %Scnt + 32
}
;terminate uo
return
 
 
 
 
 
sub poiskmoba
   poisk:
   if #CHARPOSX < 2
     halt
   finditem %mobs G_ , %r
   if #FINDKIND = 1 ;nawol
      {
      set %poisk 0
      set %mobID #FINDID
      goto vixod
      }
   if #FINDKIND = -1 ;nenawol
      {
      set %r %r + 2
      if %r > 14
          {
          set %r 2
          set %poisk 1
          goto vixod
          }
 
 
   goto poisk
   vixod:
   return
 
 
sub le4ilka
  set %s 0
  event macro 8 7
  finditem %hits1  C_ , #BACKPACKID
  set #LOBJECTID #findid
  event macro 17 0
  msg .camp heal $
  wait 3
  return
 
 
sub nikalka
  msg $,exec waroff $
msg $.drink invis$
wait 10
If %K < #scnt
{
msg $.camp  $
 
     finditem %hits2 C_ , #BACKPACKID
     set #LOBJECTID #findid
     event macro 17 0
     finditem %hits1 C_ , #BACKPACKID
     set #LOBJECTID #findid
     event macro 17 0
     msg .camp $
        set %tn #SCNT + 6
       scanj:
         scanjournal
         if %name in #JOURNAL 2
         set %nespratalsa 1
         goto EndOFnikalka
         if %tn < #SCNT
         goto le4enie1
         if #hits = #MAXHITS 3
         set %nespratalsa 0
         set %sn 0
         goto EndOFnikalka
         goto scanj
  EndOFnikalka:
  return
 
 
 
 
Sub LOOTING
startlooot:
mSG ,EXEC LOOTPVM $
wait 1
return
sub SR
 
 
   if %Tim < #SCNT
   gosub REP
   FINDITEM %invis C_ , #BACKPACKID
    IF #FINDKIND <> 0
      GOSUB end
   FINDITEM %hits1 C_ , #BACKPACKID
    IF #FINDKIND <> 0
      GOSUB end
   FINDITEM RMK C_ , #BACKPACKID
    IF #FINDKIND <> 0
      GOSUB end
   IF #STAMINA < %STAM 3
    FINDITEM RGJ C_ , #BACKPACKID
    set #LOBJECTID #findid
    event macro 17 0
 
 
return
 
 
 
sub end
return
  ignoreitem reset
  set %nespratalsa 0
  event macro 6 0
  event macro 6 0
  event macro 6 0
  event macro 6 0
  finditem %invis C_ , #BACKPACKID
  set #LOBJECTID #findid
  event macro 17 0
  key f4 alt
  return
 
 sub rep
    FINDITEM VDJ C_ , #BACKPACKID
    IF #FINDKIND <> 0
        GOSUB end
        set %reptools #FINDID
    FINDITEM %puxa  C_ , #CHARID
    IF #FINDKIND <> 0
        GOSUB end
        set %reppuxa #FINDID
 repeat
 {
    finditem %reppuxa
    exevent Drag %reppuxa
    wait 1
    exevenT Dropc #BACKPACKID
    wait 10
 }
 until #FINDBAGID = #BACKPACKID
 
repeat
    {
    scanjournal
    set #LOBJECTID %reptools
    set #LTARGETID %reppuxa
    event macro 17 0
    wait 20
    event macro 22 0
    wait 2
    if is_fully_repaired in #SYSMSG
    set %rept 0
    }
    until %rept = 0
    set %rept 1
    finditem GND C_ , #BACKPACKID
     IF #FINDKIND <> 0
      GOSUB end
     set #LOBJECTID #FINDID
    event macro 17 0
 
    msg .ARM  $
    wait 2
    msg .ARM  $
    set %Tim #SCNT + 800
    return
 
 
 
 
 
 
 
;______________________________________________
; __________rabo4ii peremenie__________________
;  %zona4ara - mesto naxozdenie chara
;  %zonamoba - mesto naxozdenie moba
;  %celX - kogo iskatj moba/4ara (izna4alna 4ara)
 
 
sub mob4ek
  if #findx > 5287 && #findx < 5304 && #findy < 1330
  move 5298 1357
  if #findx > 5327 && #findx < 5336 && #findy > 1375 2
   move 5333 1364
   move 5346 1364
  if #findy < 1320
  ignoreitem #findid
return
 
 
 
 
 
 
 
sub moveto
    set %celX #CHARPOSX
    set %celY #CHARPOSy
    GOSUB gde
    if %zona = 13
    move 5314 1365 10s
         if %zona = 12
    move 5316 1352 10s
     if %zona = 22
    move 5296 1358 10s
     if %zona = 21
    move 5299 1340 10s
     if %zona = 31
    move 5299 1340 10s
     if %zona = 41
    move 5315 1339 10s
     if %zona = 42
    move 5332 1328 10s
     if %zona = 43 2
     move 5332 1345 10s
    move 5346 1331 10s
     if %zona = 33
    move 5346 1331 10s
     if %zona = 44
    move 5360 1330 10s
     if %zona = 45 2
    move 5347 1336 10s
    move 5350 1349 10s
     if %zona = 34
    move 5365 1346 10s
     if %zona = 35
    move 5364 1367 10s
     if %zona = 25
    move 5364 1367 10s
      if %zona = 15 3
    move 5364 1345 10s
    move 5346 1346 10s
    move 5349 1367 10s
     if %zona = 24
    move 5349 1367 10s
     if %zona = 14
    move 5331 1365 10s
    set %zona x
return
 
 
 
 
 
sub zonamoba   ;ANALIZZZ NAXOZDENIJA MOBA I 4ARA!!!!!!!
    set %celX #FINDX
    set %celY #FINDy
    GOSUB gde  ;  de MOB
    set %zonamoba %zona
    set %celX #CHARPOSX
    set %celY #CHARPOSy
 
    GOSUB gde  ; De 4AR
    set %zona4ara %zona
 
    if %zonamoba > 49 2
    set %zmob 1
    goto vixodPMOB
vixodPMOB:
return
 
 
 
 
 
 
sub gde
if %celY < 1376 && %celY > 1359
set %y 1
if %celY < 1360 && %celY > 1351
 set %y 2
if %celY < 1352 && %celY > 1343
 set %y 3
if %celY < 1344 && %celY > 1321
set %y 4
if %celY < 1319 ; opasnaja zona!!!!!
set %y 5
if %celX > 5287 && %celX < 5304
set %x 1
if %celX > 5303 && %celX < 5320
set %x 2
if %celX > 5319 && %celX < 5336
set %x 3
if %celX > 5335 && %celX < 5352
set %x 4
if %celX > 5352 && %celX < 5368
set %x 5
set %zona %y , %x
return


#5 Cmapk

Cmapk

    Newbie

  • Members
  • 23 сообщений

Опубликовано 14 January 2021 - 15:08

 

                                           initevents
set %shmot FZH_CUD_POF_UJG_IJG_SJG_FWL_DCI_NZH_RVH_GEJ  ;4e lutitj
set %corpse YFM
set %name #Charname  ; lancelot :
set %keyheal 1
set %sumka #BACKPACKID
set %sumka1 #BACKPACKID
set %sumka2 #BACKPACKID
;______________________________________________
;   ______________ banki  _____________
set %invis PGJ
set %hits1 SGJ   ;malenjkaja
set %hits2 SGJ   ;boljwaja
set %ref
 
SET %STAM #MAXSTAM - 10
set %H1 130    ; ziznj kada le4itsa nada
set %H2 80    ;ziznj kada nada nikatsa
 
 
set %puxa TSF
set %arm CQH_PPH_QPH_AQH_ZPH
 
set %mobs UC_GD_WD_UD_XC_BF_QD_Z_Q
;_____________________________________________________
;___________rabo4ii peremenie_______________________
;______________________________________________________
set %r 10 ; Radius poiska
set %s 0   ;s4et4ik dlja le4ilki
set %sn 0  ;s4et4ik dlja nikalki
set %rept 1
set %nespratalsa 0   ;0 = spratalsa; 1 = nespratalsa
 set %Tim #SCNT + 100
set %celX #CHARPOSX
set %celY #CHARPOSy
set %zmob 0
 
;________________________________________________________
;|         infa
;________________________________________________________
; goto moveto  -  peredvizenie
; sub movetomob  - presledovanie moba
;  %mobID   -  id blizajwego moba
;  sub LOOTING - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;  sub zonamoba  - opredelitj zonu moba
 
 
 
repeat    ;GLAVNOE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
gosub poiskmoba
      if %poisk > 0 ;ne nawol
      gosub moveto
      if %poisk = 0 ;nawol
      gosub movetomob
until #CHARNAME = 1
 
 
 
 
 
 
 
 
 
 
 
 
sub movetomob
 
   repeat
     {
     if #hits < %H2
   gosub nikalka
 
              }
     if #hits < %H1 3
            set %s %s + 1
            if %s > 20
            gosub le4ilka
            sub macropause
     finditem %mobID
     gosub mob4ek
     set #LTARGETID %mobID
   event macro 27 0
     event pathfind #findx #findy 3
     if #CHARPOSX < 2
     halt
     }
   until #findcnt = 0
   gosub Sr
   gosub LOOTING
   return
 
GoSub MacroPause
If #contkind = UCHB && #Contsize = 240_165 && #contname = generic_gump
{
sound
wait 7
sound
wait 7
sound
wait 7
sound
wait 7
sound
}
set %kill #Scnt + 16
If Frozen in #sysmsg
{
pause
display Antimacros!!!
set %Kill %Scnt + 32
}
;terminate uo
return
 
 
 
 
 
sub poiskmoba
   poisk:
   if #CHARPOSX < 2
     halt
   finditem %mobs G_ , %r
   if #FINDKIND = 1 ;nawol
      {
      set %poisk 0
      set %mobID #FINDID
      goto vixod
      }
   if #FINDKIND = -1 ;nenawol
      {
      set %r %r + 2
      if %r > 14
          {
          set %r 2
          set %poisk 1
          goto vixod
          }
 
 
   goto poisk
   vixod:
   return
 
 
sub le4ilka
  set %s 0
  event macro 8 7
  finditem %hits1  C_ , #BACKPACKID
  set #LOBJECTID #findid
  event macro 17 0
  msg .camp heal $
  wait 3
  return
 
 
sub nikalka
  msg $,exec waroff $
msg $.drink invis$
wait 10
If %K < #scnt
{
msg $.camp  $
 
     finditem %hits2 C_ , #BACKPACKID
     set #LOBJECTID #findid
     event macro 17 0
     finditem %hits1 C_ , #BACKPACKID
     set #LOBJECTID #findid
     event macro 17 0
     msg .camp $
        set %tn #SCNT + 6
       scanj:
         scanjournal
         if %name in #JOURNAL 2
         set %nespratalsa 1
         goto EndOFnikalka
         if %tn < #SCNT
         goto le4enie1
         if #hits = #MAXHITS 3
         set %nespratalsa 0
         set %sn 0
         goto EndOFnikalka
         goto scanj
  EndOFnikalka:
  return
 
 
 
 
Sub LOOTING
startlooot:
mSG ,EXEC LOOTPVM $
wait 1
return
sub SR
 
 
   if %Tim < #SCNT
   gosub REP
   FINDITEM %invis C_ , #BACKPACKID
    IF #FINDKIND <> 0
      GOSUB end
   FINDITEM %hits1 C_ , #BACKPACKID
    IF #FINDKIND <> 0
      GOSUB end
   FINDITEM RMK C_ , #BACKPACKID
    IF #FINDKIND <> 0
      GOSUB end
   IF #STAMINA < %STAM 3
    FINDITEM RGJ C_ , #BACKPACKID
    set #LOBJECTID #findid
    event macro 17 0
 
 
return
 
 
 
sub end
return
  ignoreitem reset
  set %nespratalsa 0
  event macro 6 0
  event macro 6 0
  event macro 6 0
  event macro 6 0
  finditem %invis C_ , #BACKPACKID
  set #LOBJECTID #findid
  event macro 17 0
  key f4 alt
  return
 
 sub rep
    FINDITEM VDJ C_ , #BACKPACKID
    IF #FINDKIND <> 0
        GOSUB end
        set %reptools #FINDID
    FINDITEM %puxa  C_ , #CHARID
    IF #FINDKIND <> 0
        GOSUB end
        set %reppuxa #FINDID
 repeat
 {
    finditem %reppuxa
    exevent Drag %reppuxa
    wait 1
    exevenT Dropc #BACKPACKID
    wait 10
 }
 until #FINDBAGID = #BACKPACKID
 
repeat
    {
    scanjournal
    set #LOBJECTID %reptools
    set #LTARGETID %reppuxa
    event macro 17 0
    wait 20
    event macro 22 0
    wait 2
    if is_fully_repaired in #SYSMSG
    set %rept 0
    }
    until %rept = 0
    set %rept 1
    finditem GND C_ , #BACKPACKID
     IF #FINDKIND <> 0
      GOSUB end
     set #LOBJECTID #FINDID
    event macro 17 0
 
    msg .ARM  $
    wait 2
    msg .ARM  $
    set %Tim #SCNT + 800
    return
 
 
 
 
 
 
 
;______________________________________________
; __________rabo4ii peremenie__________________
;  %zona4ara - mesto naxozdenie chara
;  %zonamoba - mesto naxozdenie moba
;  %celX - kogo iskatj moba/4ara (izna4alna 4ara)
 
 
sub mob4ek
  if #findx > 5287 && #findx < 5304 && #findy < 1330
  move 5298 1357
  if #findx > 5327 && #findx < 5336 && #findy > 1375 2
   move 5333 1364
   move 5346 1364
  if #findy < 1320
  ignoreitem #findid
return
 
 
 
 
 
 
 
sub moveto
    set %celX #CHARPOSX
    set %celY #CHARPOSy
    GOSUB gde
    if %zona = 13
    move 5314 1365 10s
         if %zona = 12
    move 5316 1352 10s
     if %zona = 22
    move 5296 1358 10s
     if %zona = 21
    move 5299 1340 10s
     if %zona = 31
    move 5299 1340 10s
     if %zona = 41
    move 5315 1339 10s
     if %zona = 42
    move 5332 1328 10s
     if %zona = 43 2
     move 5332 1345 10s
    move 5346 1331 10s
     if %zona = 33
    move 5346 1331 10s
     if %zona = 44
    move 5360 1330 10s
     if %zona = 45 2
    move 5347 1336 10s
    move 5350 1349 10s
     if %zona = 34
    move 5365 1346 10s
     if %zona = 35
    move 5364 1367 10s
     if %zona = 25
    move 5364 1367 10s
      if %zona = 15 3
    move 5364 1345 10s
    move 5346 1346 10s
    move 5349 1367 10s
     if %zona = 24
    move 5349 1367 10s
     if %zona = 14
    move 5331 1365 10s
    set %zona x
return
 
 
 
 
 
sub zonamoba   ;ANALIZZZ NAXOZDENIJA MOBA I 4ARA!!!!!!!
    set %celX #FINDX
    set %celY #FINDy
    GOSUB gde  ;  de MOB
    set %zonamoba %zona
    set %celX #CHARPOSX
    set %celY #CHARPOSy
 
    GOSUB gde  ; De 4AR
    set %zona4ara %zona
 
    if %zonamoba > 49 2
    set %zmob 1
    goto vixodPMOB
vixodPMOB:
return
 
 
 
 
 
 
sub gde
if %celY < 1376 && %celY > 1359
set %y 1
if %celY < 1360 && %celY > 1351
 set %y 2
if %celY < 1352 && %celY > 1343
 set %y 3
if %celY < 1344 && %celY > 1321
set %y 4
if %celY < 1319 ; opasnaja zona!!!!!
set %y 5
if %celX > 5287 && %celX < 5304
set %x 1
if %celX > 5303 && %celX < 5320
set %x 2
if %celX > 5319 && %celX < 5336
set %x 3
if %celX > 5335 && %celX < 5352
set %x 4
if %celX > 5352 && %celX < 5368
set %x 5
set %zona %y , %x
return

 

не работает...



#6 Cmapk

Cmapk

    Newbie

  • Members
  • 23 сообщений

Опубликовано 14 January 2021 - 16:31

или же если не жалко, кто нибудь дайте скрипт на олдп данж который не крашит ... а то мой сцп постоянно






0 пользователей читают эту тему

0 пользователей, 0 гостей, 0 невидимых