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

Help


  • Please log in to reply
3 replies to this topic

#1 MadaFaka

MadaFaka

    Newbie

  • Members
  • 15 posts

Posted 29 March 2013 - 22:31

set %weapon GFF ; wepon type KTF=sword; TSF=dagger
set %armor MSH_LSH_ISH_OSH_HSH_NSH_MSK_IMH ; all armor on charcter
set %repairTools BBQPKMD ; ID Repair Tools
set %repairWeap 999; after how many killed bots repair weapon
set %repairArmor 999; after how many killed bots repair all armor
set %minimalHP 60 ; when to drink greater heal
set %criticalHP 40 ; when to drink invis, make campfire
set %loot DCI_UJG_IJG_POF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_GEJ
set %protection #true
set %minimalTerathansHits 172; [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 5331 1377 0
gosub hp
move 5331 1364 0


moving:
set %q 1
move 5346 1364 0
gosub scan

set %q 2
move 5348 1348 0
gosub hp
move 5363 1348 0
gosub scan

set %q 3
move 5363 1348 0
gosub hp
move 5348 1348 0
gosub scan

set %q 4
move 5348 1333 0
gosub hp
move 5361 1333 0 ; !
gosub scan ; !

set %q 5
move 5348 1333 0
gosub hp
move 5333 1343 0
gosub scan

set %q 6
move 5333 1331 0
gosub hp
move 5316 1331 0
gosub scan

set %q 1
move 5307 1341 0
move 5297 1352 0
move 5315 1356 0
move 5331 1367 0
gosub hp
gosub scan
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 XC_UD_WD_UC_QD_GD_BF G_10
if #findcnt >= 1
gosub checking
}
until %d > 14
return

sub checking
set %x #charposx
set %y #charposy
set %bot #findid
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
wait 20
gosub hp
}
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
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$
msg $.userestoration$
set %h #scnt + 3
}
if #hits =< %criticalHP
{
event macro 6 0
event macro 6 0
msg $.drink invis$
event macro 6 0
event macro 6 0
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
wait 1s
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 20
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 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$
set %killed 0
return

sub ignore
set %ignore #true
ignoreitem #findid 1
return

Kaa es varu shim skriptam pielikt lai vinjs visu laiku healojaas kad sit monstrus un peec vinju nosishanas?

#2 MadaFaka

MadaFaka

    Newbie

  • Members
  • 15 posts

Posted 31 March 2013 - 14:18

:fuckyeah:

#3 doxen

doxen

    Newbie

  • Members
  • 15 posts

Posted 06 May 2013 - 01:43

pacik esmu noobs scriptos pac macos tikai un vel visa sitaa stele nav skaidra es varu ieteikt izmantot papildus skriptu kas tewi healos wnk iesledz velveinu un vinsh tewi bintes visu laiku. forumaa ir autoheal skripti pasties... tas ir labakais ko varu sobrid ieteikt.

#4 BreD

BreD

    Master

  • Members
  • 664 posts
  • Gender:Male
  • Location:Riga

Posted 07 May 2013 - 00:50

pacik esmu noobs scriptos pac macos tikai un vel visa sitaa stele nav skaidra es varu ieteikt izmantot papildus skriptu kas tewi healos wnk iesledz velveinu un vinsh tewi bintes visu laiku. forumaa ir autoheal skripti pasties... tas ir labakais ko varu sobrid ieteikt.

+++ Labakais variants.
Ты говоришь : "Это всё невозможно!" ??? - На%уй иди, я тебя не спрашивал! Мне от Вас, - пессимистов, тошно! Все беды из-за нытья %бучего Вашего!

Скрипка + Dubstep: Lindsey Stirling- Crystallize

Posted Image
Posted Image




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users