Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: 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

Photo

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


  • Please log in to reply
6 replies to this topic

#1 regi

regi

    Player

  • Members
  • 226 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
  • 226 posts

Posted 05 November 2017 - 19:37

thnx



#4 regi

regi

    Player

  • Members
  • 226 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