Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Ypypy : (Yesterday, 12:00) kuplju aqua ingi
@  E-D-I : (22 March 2019 - 21:25) где этот Layer najti ?
@  Ultimate : (22 March 2019 - 18:19) куплю пушку 100 дур предложения в приват
@  Salagaa : (22 March 2019 - 12:00) Sell full nekro c norm durab - 4kk !!!
@  OBLADAET : (21 March 2019 - 22:59) Ребят! Подкиньте пожалуйста скриптов на инжу? Честное слово буду хранить только у себя и никому больше передавать не буду. Нужен рабочий автолут и на ПВП хорошие, заточенные скрипты под шард. Очень хочу магом тут полетать! Я ветеран UO с конца 1999, сфера 056 :)
@  Ultimate : (21 March 2019 - 17:13) куплю пушку 100 дуп предложения в приват
@  regi : (21 March 2019 - 11:33) :D
@  beatiful : (21 March 2019 - 11:28) Sell Hell Stallion 10kk
@  vik23 : (20 March 2019 - 22:00) mistik! mozes pom4o so shmotam na pvm
@  El-diablo : (20 March 2019 - 21:30) Юва �������� всё правильно ��
@  Ultimate : (19 March 2019 - 10:20) Buy Oldp.Terium Puwku 100 dur
@  Ювелир*ЗМ : (19 March 2019 - 00:16) да бомжы эти бестиан ...нех даже чёто расписывать xD на падсосе ,это гуманетарная помошь сервера такие нам нужны !!!если каждый воп мы бы соберались чисто гуйлдом то забей чё было бы xD Шана помошь прос
@  E-D-I : (18 March 2019 - 22:38) Posadili bljaaaaaaaaaa stavj block ne srazu ? :D
@  El-diablo : (18 March 2019 - 21:20) нам темболее ����
@  sonyplayer : (18 March 2019 - 19:23) @El-diablo еще раз повторюсь, нам пойух +)
Есть и другие игроки помимо вас +)
@  El-diablo : (18 March 2019 - 19:09) а как нас двое - трое . вы добигаете до нашей гз , почтояв у забора 5 минут , даже не забежав в гз , убегаете обратно в мун или мп . мол вы по гз не бегаете , вот т мы теперь только по воскресеньям.
@  El-diablo : (18 March 2019 - 19:05) причем тут мы вообще ? мы выходим каждый день к муну , там видем картину - как вы дружите с гвардами . мы ждём 20 минут , вы не выходите - мы идём офф . а в воскресенье , когда у нас собираются люди , мы вас гоняем в гз . если вам в кайф такой пвп , то теперь только по воскресеньям :)
@  El-diablo : (18 March 2019 - 18:59) ты понял
@  sonyplayer : (18 March 2019 - 18:06) @El-diablo Вот серьезно, вас жаба душит что без вас реально есть нормальное пвп? или что я не пойму?
@  El-diablo : (18 March 2019 - 16:06) что есть такие кто к вам в гз бежит ? а внатуре , когда нас нет вы выходите на бомжиков )

Photo

Есть У Кого Скрипт На Oldp Dungeon * Newbie Dungeon?


  • Please log in to reply
6 replies to this topic

#1 regi

regi

    Player

  • Members
  • 159 posts

Posted 05 November 2017 - 18:49

Йоу

есть у кого скрипт на oldp dungeon * newbie dungeon?



#2 Alexis

Alexis

    Player

  • Members
  • 261 posts
  • Gender:Male
  • Location:Jurmala

Posted 05 November 2017 - 19:16

set %weapon TSF  ; wepon type
set %armor GFF_PPH_CQH_QPH_AQH_ZPH  ; all armor on charcter
set %repairTools OKMZLMD  ; ID Repair Tools
set %repairWeap 99 ; after how many killed bots repair weapon
set %repairArmor 99  ; after how many killed bots repair all armor
set %minimalHP 100  ; when to drink greater heal
set %criticalHP 20  ; when to drink invis, make campfire
set %loot GEJ_DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL
set %protection #true
set %minimalTerathansHits 200
 
 
; ****************************************************************
 
 
set %bW 0
set %bA 0
set %killed 0
set %looted 0
set %st 0
set %h 0
set %lo 0
set %ignore #false
set #sysmsgcol 64
namespace global looting
set !lootProcess #false
msg $
 
 
moving:
set %q 1
move 5344 1588 0
move 5347 1588 0
move 5347 1589 0
move 5349 1589 0
move 5349 1588 0
move 5356 1588 0
gosub scan
 
set %q 2
move 5349 1588 0
move 5349 1589 0
move 5347 1589 0
move 5344 1586 0
move 5344 1581 0
move 5343 1579 0
move 5343 1559 0
move 5355 1559 0
move 5355 1548 0
gosub scan
 
set %q 3
move 5355 1559 0
move 5349 1559 0
move 5349 1565 0
gosub scan
 
set %q 4
move 5349 1559 0
move 5343 1559 0
move 5343 1551 0    ; !
gosub scan          ; !
 
set %q 5
move 5343 1559 0
move 5337 1559 0
move 5337 1563 0
gosub scan
 
set %q 6
move 5337 1559 0
move 5334 1558 0
move 5334 1548 0
gosub scan
 
set %q 7
move 5334 1558 0
move 5343 1559 0
move 5343 1580 0
move 5344 1583 0
move 5344 1590 0
move 5316 1590 0
gosub scan
 
set %q 8
move 5305 1590 0
gosub scan
 
set %q 9
move 5316 1590 0
move 5316 1569 0
gosub scan
 
set %q 10
move 5316 1562 0
move 5292 1562 0
move 5292 1557 0
move 5288 1557 0
gosub scan
 
set %q 11
move 5306 1557 0
gosub scan
 
set %q 12
move 5292 1557 0
move 5292 1562 0
move 5267 1562 0
gosub scan
 
set %q 13
move 5288 1562 0
move 5288 1572 0
gosub scan
 
set %q 14
move 5288 1562 0
move 5294 1562 0
move 5294 1567 0
move 5303 1567 0
gosub scan
 
set %q 9
move 5294 1567 0
move 5294 1562 0
move 5317 1562 0
move 5316 1569 0
gosub scan
 
set %q 7
move 5317 1569 0
move 5317 1590 0
gosub scan
 
set %q 8
move 5305 1590 0
gosub scan
 
move 5340 1590 0
goto moving
 
sub scan
ignoreitem reset 1
set %d 0
event exmsg #charid 3 64 scanning sector %q
gosub find
return
 
sub find
repeat
{
set %d %d + 2
finditem K_U_J G_ , %d
 if #findcnt >= 1
 gosub checking
}
until %d > 14
return
 
sub checking
 gosub where
 if %ignore
 {
 set %ignore #false
 return
 }
 set %x #charposx
 set %y #charposy
 set %bot #findid
 if %protection
  {
    set #ltargetid %bot
    event macro 27 0
    set %lag #scnt + 7
    while %lag > #scnt && #enemyid <> %bot
    wait 1
    while #enemyhits = 4 && %lag > #scnt
    wait 1
   while #enemyhits < 400 && #enemyhits > 200 && %lag > #scnt
    wait 1
    event sysmessage #enemyhits
    if #scnt >= %lag || #enemyhits < %minimalTerathansHits
     {
     ignoreitem #findid 1
     return
     }
  }
 gosub moveToMob
 gosub kill
 repeat
 {
 event pathfind %x %y #charposz
 wait 10
 move %x %y 0 1s
 gosub hp
 }
 until #charposx = %x && #charposy = %y
 set %d 0
return
 
sub moveToMob
event exmsg %bot 3 64 moving to..
repeat
{
finditem %bot G
event pathfind #findx #findy #findz
wait 10
gosub hp
gosub where
sub kill
set #ltargetid %bot
set #lobjectid %bot
event macro 27 0
nextcpos 0 0
gosub ignoreBodies
repeat
{
finditem %bot G
event pathfind #findx #findy #findz
wait 10
gosub hp
wait 10
if %lo < #scnt
 {
 event macro 17 0
 set %lo #scnt + 4
 }
}
until #findcnt = 0
gosub loot
return
 
sub hp
if #hits =< %minimalHP && %h < #scnt
{
msg $.drink heal$
set %h #scnt + 3
}
if #hits =< %criticalHP
{
event macro 6 0
event macro 6 0
msg $.drink invis$
wait 10
msg $.camp$
while #hits < #maxhits && H in #charstatus
wait 1
set #ltargetid #findid
event macro 27 0
}
if #stamina < 5 && %st < #scnt
{
msg .drink refresh$
set %st #scnt + 5
}
return
 
sub loot
event macro 6 0
event macro 6 0
event macro 13 21
set %lootOverTime #scnt + 15
finditem YFM G_3
if #findcnt >= 1
{
 set %body #findid
 set #lobjectid %body
 event macro 17 0
 if for_looting in #sysmsg
   {
  set %killed %killed + 1
  event sysmessage %killed terathans killed, %looted terathans looted.
  return
  }
 while #contkind <> ASEB && #contsize <> 144_212 && %lootOverTime > #scnt
 wait 1
 wait 10
  if %lootOverTime <= #scnt
  {
  set %killed %killed + 1
  event sysmessage %killed terathans killed, %looted terathans looted.
  return
  }
 repeat
  {
   finditem %loot C_ , %body
   if #findcnt >= 1  && ! !lootProcess
   {
    set !lootProcess #true
    exevent drag #findid #findstack
    exevent dropc #backpackid
    wait 40
    set !lootProcess #false
   }
  }
until #findcnt = 0 || %lootOverTime < #scnt
set %looted %looted + 1
 
return
 
sub where
if %q = 1
{
 if #findx < 5344
 {
 gosub ignore
 }
}
if %q = 2
{
 if #findx < 5354 || #findy > 1559
 {
 gosub ignore
 }
}
if %q = 3
{
 if #findx < 5345 || #findy < 1561
 {
 gosub ignore
 }
}
if %q = 4
{
 if #findx < 5337 || #findx > 5352 || #findy > 1556
 {
 gosub ignore
 }
}
if %q = 5
{
 if #findx < 5326 || #findx > 5341 || #findy < 1561
 {
 gosub ignore
 }
}
if %q = 6
{
 if #findx < 5326 || #findx > 5335 || #findy > 1559
 {
 gosub ignore
 }
}
if %q = 7
{
 if #findx < 5307 || #findy < 1584
 {
 gosub ignore
 }
}
if %q = 8
{
 if #findy < 1585
 {
 gosub ignore
 }
}
if %q = 9
{
  if #findx < 5312 || #findx > 5317 || #findy < 1561 || #findy > 1580
 {
 gosub ignore
 }
}
if %q = 10
{
 if #findx < 5282 || #findx > 5290 || #findy > 1554
 {
 gosub ignore
 }
}
if %q = 11
{
  if #findx < 5296 || #findx > 5317 || #findy > 1559
 {
 gosub ignore
 }
}
if %q = 12
{
  if #findx > 5281 || #findx < 5259
 {
 gosub ignore
 }
}
if %q = 13
{
  if #findx > 5297 || #findx < 5283 || #findy < 1564
 {
 gosub ignore
 }
}
if %q = 14
{
  if #findx > 5309 || #findx < 5299 || #findy > 1577 || #findy < 1565
 {
 gosub ignore
 }
}
return
{
gosub take&repair %repairTools %weapon
set %bW 0
}
if %bA = %repairArmor
{
gosub take&repair %repairTools %armor
set %bA 0
}
return
 
sub take&repair
if %bW = %repairWeap
{
repeat
{
finditem %2 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 10
finditem %2 C
}
until #findbagid = #backpackid
}
repeat
{
finditem %2 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
finditem %2 C_ , #charid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
_repairing:
set #lobjectid %1
set #ltargetid #findid
set #ltargetkind 1
set %lag #scnt + 10
event macro 17 0
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
if #scnt >= %lag
goto _repairing
wait 10
if #findtype = CIK
ignoreitem #findid 1
finditem #findid
set #lobjectid #findid
event macro 17 0
wait 20
finditem %2 C_ , #backpackid
}
until #findcnt = 0
ignoreitem reset 1
msg .arm$
wait 10
msg .arm$
return
 
sub ignore
 set %ignore #true
 ignoreitem #findid 1
return
 
sub ignoreBodies
repeat
{
finditem YFM G
if #findcnt >= 1
ignoreitem #findid 2
}
until #findcnt = 0
return

Мысли порождают Ересь; Ересь порождает Наказание.


#3 regi

regi

    Player

  • Members
  • 159 posts

Posted 05 November 2017 - 19:37

thnx



#4 regi

regi

    Player

  • Members
  • 159 posts

Posted 06 November 2017 - 10:32

Осталось на Newbie dungeon :) 

У кого есть



#5 Alexis

Alexis

    Player

  • Members
  • 261 posts
  • Gender:Male
  • Location:Jurmala

Posted 07 November 2017 - 05:38

tak sdelai sam v chem problema 


Мысли порождают Ересь; Ересь порождает Наказание.


#6 DjedMaroz

DjedMaroz

    Newbie

  • Members
  • 24 posts

Posted 07 November 2017 - 13:12

etat script tozhe crashit... kak i vse!



#7 Littleliving

Littleliving

    Newbie

  • Members
  • 22 posts

Posted 10 November 2017 - 20:21

Kak postavitj ctob on razlical vseh botov, a to tarakanov on vidit a drugih net...






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users