68 replies to this topic

[sprc]

Есть ли у кого скрипт на Oldp Dungeon для клерика?

[shagi_hors]

Есть ли у кого скрипт на Oldp Dungeon для клерика?

10rp i on tvoy

[sprc]

10rp i on tvoy

10 рп я тебе могу дать, если только на клюв возьмёшь

[shagi_hors]

10 рп я тебе могу дать, если только на клюв возьмёшь

Клюв )) ну тогда могу скрипт понюхать дать

[inoke]

Во блин еврейские жмоты. Вам че скрипт парню дать в падлу?А то все рп да рп... ппц..

[sprc]

Во блин еврейские жмоты. Вам че скрипт парню дать в падлу?А то все рп да рп... ппц..

Да зажрались курвы.. Когда сами ноют о скриптах, то не замечают этого :cool2:

[inoke]

Да есть такое... Я тут просил скрипт на нюб данг так мне сказали 50 рп ))) Зажрались мажоры...

[sprc]

Да есть такое... Я тут просил скрипт на нюб данг так мне сказали 50 рп ))) Зажрались мажоры...

Воспользуйся поиском, я видел два скрипта на нюб данг

[Drum`n`Bass]

На халяву скрипт такой на врятле дадут , сами себе хуже сделают.Недавно кто-то писал что задолбали скриптеры в олдп данже , по 10человек на 1 монстр , так что не светит тебе я так думаю.

[sprc]

На халяву скрипт такой на врятле дадут , сами себе хуже сделают.Недавно кто-то писал что задолбали скриптеры в олдп данже , по 10человек на 1 монстр , так что не светит тебе я так думаю.

Светить на по любому посветит, не дадут, так придётся самому писать

[Pray]

:-D :-D :-D :-D улыбнул, умел бы сам писать не критиковал бы тут на форуме а писал бы уже)))

[blackbeard]

:-D :-D :-D :-D улыбнул, умел бы сам писать не критиковал бы тут на форуме а писал бы уже)))

+1 haljavu bezplatnuju zahatel

[Drum`n`Bass]

Светить на по любому посветит, не дадут, так придётся самому писать

Трудно будет если раньше этим не занимался , я бы посоветовал пообщаться с EnFlame или людьми которые понимают что-то в скриптах.

[sprc]

Трудно будет если раньше этим не занимался , я бы посоветовал пообщаться с EnFlame или людьми которые понимают что-то в скриптах.

Да я то и сам справлюсь, только придётся библиотеку поднимать, специализируюсь только на инжу и сферу, а не на изик(

[Mapkobka]

a rp prosjat potomu 4to eto vsjo BILETI BILETI!oni vsex s uma rpwnikov sveli!

[sprc]

a rp prosjat potomu 4to eto vsjo BILETI BILETI!oni vsex s uma rpwnikov sveli!

Кстати говоря так и есть :roll:

[Добр]

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

set %weapon TSF; wepon type

set %armor LSH_HSH_MSH_OSH_ISH_NSH_CIK_MSK_IMH; all armor on charcter

set %repairTools MSPHMMD; ID Repair Tools

set %repairWeap 0; after how many killed bots repair weapon

set %repairArmor 0; after how many killed bots repair all armor

set %minimalHP 170; when to drink greater heal

set %criticalHP 110; when to drink invis, make campfire

set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

set %protection #true

set %minimalTerathansHits 190; [exemple: 200 = 100% of hp; 100 = 50% of hp ]





; ****************************************************************





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 $



move 5329 1635 0

move 5333 1614 0

move 5333 1590 0

move 5339 1590 0



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 3s

wait 3s

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 3s

wait 20

gosub hp

gosub where

}

until #finddist < 2 || #findcnt = 0

set #ltargetid %bot

event macro 27 0

return



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

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 25

set !lootProcess #false

}

}

until #findcnt = 0 || %lootOverTime < #scnt

set %looted %looted + 1

}

ignoreitem %body 2

set %killed %killed + 1

event sysmessage %killed terathans killed, %looted terathans looted.

set %bW %bW + 1

set %bA %bA + 1

if %bW = %repairWeap || %bA = %repairArmor

gosub repair

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 < 1584

{

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



sub repair

event macro 6 0

msg .drink invis$

event macro 6 0

event exmsg #charid 3 64 repairing..

if %bW = %repairWeap

{

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 20

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

[GREF]

10rp i on tvoy

Вот так вот значит, дал ему на халяву, а он продаёт.
Просил бы 20 - 10 мне 10 себе (:

Кругом одни засранцы

[Aidago]

i iz za vilkadivanije takix nedodelanix nastrojek skiptof, te kotorije necevo v etom nesobrazajut i polucajetsa situacija kogda 10 playerof bjut odnovo moba.

[sprc]

Добр, спасибо