Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Ypypy : (Today, 21:02) KUPLJU RP
@  Gogogo : (Today, 14:07) Sell Gods Kris +10 fs 80 durba 18kk
@  Gogogo : (Today, 13:41) Sell veteran plawik 60durba 5kk sell veteran items 500 durba 20 kk sell full gods chain + shield 20 kk sell gods kris +9fs 39durba 12KK sELL gods bow eif 23 durba 8KK
@  sonyplayer : (Today, 09:55) @Buldozer я не адекват по мнению 2х индивидумов, ставьте мне банан :D
@  Buldozer : (Yesterday, 22:56) Davajte uzhe reshim kto tut shto adekvatno pishit a kto net - kamu prosta ban nuzhen na forume:)
@  Buldozer : (Yesterday, 22:55) Stoljka let vsjo vseh ustraevaet po pvp priboram a kakueta pjatjorku postojanno shtota neustraevaet, i vot ani berut temi sozdajut i nojut
@  Buldozer : (Yesterday, 22:54) http://forum.oldp.ne...howtopic=104135 A vi bolshe takih ljudej slushajte tipo Lancelota i togda ,vsjo na servere vobshe vparjadke budet:)
@  Gogogo : (13 November 2018 - 17:42) Sell veteran plawik 60durba 5kk sell full gods chain+ shield 20kkSell 2 gods bow 23 durb i 69 20kk
@  kirko : (13 November 2018 - 15:14) cjo ze ti posti udaljaew?
@  kirko : (13 November 2018 - 15:14) Djukok
@  kirko : (13 November 2018 - 15:14) ;
@  Gogogo : (13 November 2018 - 14:48) buy RP
@  Gogogo : (12 November 2018 - 23:37) Sell 2 gods bow 23 durb i 69 20kk
@  Gogogo : (12 November 2018 - 23:36) Sell veteran plawik 60durba 5kk sell full gods chain+ shield 20kk
@  Gogogo : (12 November 2018 - 22:17) nu tak odevjtesj i idem draca
@  Imobilaizer : (12 November 2018 - 22:02) @Gogogo idem 3x3 4x4 nazivaite luboe mesto i vremja, a tak sidite v gz
@  Gogogo : (12 November 2018 - 21:44) @Djukok muti varki lutshi
@  Djukok : (12 November 2018 - 20:19) @GA GA GA Тебе не то что молчанки, тебя уже пора по 1.2 сажать. Но пока молчанка...
@  GA GA GA : (12 November 2018 - 19:11) Idi ikonu s Djukokom protri ot pyli,fanat Djuka Nr1
@  OLDPFUN : (12 November 2018 - 19:06) da che ti nojiw~? pravdo to estj gdeto no ti neponemajew eto nekomu neinteresno!

Photo

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


  • Please log in to reply
6 replies to this topic

#1 regi

regi

    Player

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

Posted 05 November 2017 - 19:37

thnx



#4 regi

regi

    Player

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