Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  sonyplayer : (Today, 19:39) @Kuzjambe Uncle
@  Kuzjambe : (Today, 19:08) @sonyplayer nik ? :D
@  sonyplayer : (Today, 14:29) @Kuzjambe 1.5 otdam
@  SirOregano : (Today, 12:54) http://forum.oldp.ne...opic=103459&hl=
@  Kuzjambe : (Today, 11:20) @sonyplayer drb? i kstate 2kk na vendroe stojat! mozhet dewevle?
@  sonyplayer : (Today, 11:13) @Kuzjambe sleves 2kk интересует?
@  Kuzjambe : (Today, 11:12) B> Emperrior Items!
@  Kuzjambe : (Today, 11:11) Sell +10 BS Cloak not newby!
@  Bobjor : (Today, 09:27) Buy 3 RP
@  sonyplayer : (Yesterday, 22:37) @Littleliving я посмотрю сколько есть у меня и напишу
@  Littleliving : (Yesterday, 21:43) @ sonyplayer gotov rassmotretj vse predlozenija, na venike po 1200 mozno kupitj
@  sonyplayer : (Yesterday, 20:42) @Littleliving по какой цене покупаешь?
@  Bobjor : (Yesterday, 20:24) Buy Polymorph Scroll - Newbie Ostrov.
@  Littleliving : (Yesterday, 19:33) BUY 3K ICE LOGS !!!!!
@  Bobjor : (Yesterday, 17:41) 150к плачу за каждый скролл. Деньги в большом мире.
@  IvanHaritonov : (Yesterday, 17:41) мог бы сделать рекламу тут, зачем скайп то. Если цены мизерные, то говорить неочем)
@  Bobjor : (Yesterday, 17:39) @IvanHaritonov дай свой скайп, договоримся
@  IvanHaritonov : (Yesterday, 17:35) какие цены то у тебя на скролы? :)
@  Bobjor : (Yesterday, 17:16) @IvanHaritonov скроллы не продаёшь ?
@  IvanHaritonov : (Yesterday, 17:10) поменяю любой скрол 7-8 на Energy Field scroll, на ньюби остраве

Photo

Скрипты Орион


  • Please log in to reply
16 replies to this topic

#1 WelcometoOldParadise

WelcometoOldParadise

    Advanced Player

  • Members
  • 436 posts
  • Gender:Male

Posted 05 December 2017 - 19:18

Перенес в отдельную тему, прошу почистить тему - http://forum.oldp.ne...howtopic=103382

 

 

Аутостарт
 

function Autostart()
{
Orion.Exec('horse');
Orion.Exec('Paralyze');
}

Аутопоизон шея
для парализ некласов меняется цвет, для браслетов if(!Orion.ObjAtLayer('Necklace')) на ('Bracelet') и тип с цветом

function zelsheja()
{
    while(!Player.Dead())
    {
        if(!Orion.ObjAtLayer('Necklace'))
        {
            Orion.EquipT('0x1088','0x0433');
            Orion.Wait(500);
        }
        else
            Orion.Wait(10);
    }
}

Таргет и аттака красного игрока, чтобы атаковать синих нужно заменить "gray|orange|red" на "blue"
 

//helper function for AttacktNextHuman() and TargetNextHuman()
function FindNearestHumanEnemy()
{    
    Orion.Ignore('self');
    var friends = Orion.GetFriendList();
    for(var i = 0; i < friends.length; i++)
    {
        Orion.Ignore(friends[i]);
    }
    
    var humans = Orion.FindType("-1", "-1", "ground", "human|near|live", 18, "gray|orange|red"); //Orion.FindType('0x0190|0x0191', '-1', ground, 'near|mobile', '18');    
    if ( !humans.length )
    {
        Orion.Print( '-1', 'no humans found, resetting ignore list');
        Orion.IgnoreReset();
        return '';
    }
    return humans[0];
}

//This function will swap between players in range of 18 and attack them.
function AttacktNextHuman()
{
    var serial = FindNearestHumanEnemy();
    if(!serial.length) return;
    CharPrintDelayed(serial, '30', 'ATTACKING');
    Orion.ClientLastAttack(serial);
    Orion.Attack(serial);
    Orion.Ignore(serial);        

}

//This function will swap between players in range of 18 and target them.
function TargetNextHuman()
{
    var serial = FindNearestHumanEnemy();
    if(!serial.length) return;
    CharPrintDelayed(serial, '30', 'TARGET');
    Orion.ClientLastTarget(serial);
    Orion.TargetObject(serial);
    Orion.Ignore(serial);        
}

function CharPrintDelayed(serial, color, text)
{
    var oldUse = Orion.OptionScaleSpeech();
    var oldDelay = Orion.OptionScaleSpeechDelay();
 
    Orion.OptionScaleSpeech(true);
    Orion.OptionScaleSpeechDelay(50);
 
    Orion.CharPrint(serial, color, text);
    Orion.Wait(50);
 
    Orion.OptionScaleSpeech(oldUse);
    Orion.OptionScaleSpeechDelay(oldDelay);
}

Автотрапедс
 

function Paralyze() {
var Msg = "You are frozen and can not move";
Orion.ClearJournal(Msg);
while (!Player.Dead()) {
if (Orion.InJournal(Msg)) {
Orion.ClearJournal(Msg);
Orion.WaitTargetType("0x0E26", "0x066E");
Orion.Say('.usetraped');
} else {
Orion.Wait(100);
}
}
}

Сено

function seno()
{
var list = Orion.FindType('0x0F36', '-1', 'backpack');
if (list.length)
Orion.DropHere(list[0]);
}

Трекинг
 

function TrackPP()
{
Orion.CancelWaitMenu();
Orion.CloseMenu('Tracking');
Orion.WarMode(false);
Orion.WaitMenu('Tracking', 'Players');
Orion.UseSkill('Tracking');
}

Реколл
 

function RecallFromBook()
{
    var runeIndex = 13;
    var runebook = '0x4009727F';

    Orion.WaitGump(Orion.CreateGumpHook(runeIndex));
    Orion.UseObject(runebook);
}

Автохил
 

function Heal() {
var Timer, Msg = "You put the bloody bandage|failed";
while (!Player.Dead() && Orion.Count("bandage")) {
if (Player.Hits() < Player.MaxHits() - 1) {
Orion.ClearJournal(Msg);
Orion.BandageSelf();
Timer = Orion.Now() + 5000;
while (!Orion.InJournal(Msg) && Orion.Now() < Timer) {
Orion.Wait(100);
}
} else {
Orion.Wait(100);
}
}
}

Автоконь
 

function horse()
{
while(!Player.Dead()) {
if (Orion.ObjAtLayer('Mount')) {
Orion.Wait(200);
}
else
{
Orion.Say('.mounts');
Orion.Wait(500);
}
}
}

ПикАп

function pilesos()
{
while (!Player.Dead())
{
Orion.Wait(50);
var items = Orion.FindType('0xFFFF', '0xFFFF', ground, 'items', 2);
for (var i = 0; i < items.length; i++)
{
var obj = Orion.FindObject(items[i]);
if (obj != null && !obj.Locked())
{
Orion.MoveItem(items[i], 0, backpack);
Orion.Wait(50);
}
}
}
}
function paralyzka() {
Orion.Say('.useparalyze');
Orion.WaitTargetObject('lasttarget');
}

function poizanka() {
Orion.Say('.usepoison');
Orion.WaitTargetObject('lasttarget');
}

function massdispel() {
Orion.UseType('0x183C', '0x0427');
}

function massdetect() {
Orion.UseType('0x183C', '0x0447');
}

function masspoison() {
Orion.UseType('0x1832', '0x0487');
}

Атака мобов. AttackNextHuman для гуманойдов (некры эльфы и тд. так же можно использовать для атаки играков)  Monster для всех остальных.

function AttackNextHuman(){
    var Target = Orion.FindType("-1", "-1", "ground", "human|near|live", 18, "gray|orange|red");
    if (Target.length != 0) {
        Orion.Attack(Target[0]);
        Orion.Ignore(Target[0]);
    } else {
        Orion.IgnoreReset();
        Target = Orion.FindType("-1", "-1", "ground", "human|near|live", 18, "gray|orange|red");
        if (Target.length != 0) {
            Orion.Attack(Target[0]);
            Orion.Ignore(Target[0]);
        }
    }
}

function AttackNextMonster(){
    var Target = Orion.FindType("!0x0190|!0x0191", "-1", "ground", "near|live", 18, "gray|red");
    if (Target.length != 0) {
        Orion.Attack(Target[0]);
        Orion.Ignore(Target[0]);
    } else {
        Orion.IgnoreReset();
        Target = Orion.FindType("!0x0190|!0x0191", "-1", "ground", "near|live", 18, "gray|red");
        if (Target.length != 0) {
            Orion.Attack(Target[0]);
            Orion.Ignore(Target[0]);
        }
    }
}

 



#2 Fckyou7

Fckyou7

    Player

  • Members
  • 166 posts

Posted 05 December 2017 - 19:26

красавчик !

#3 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 05 December 2017 - 19:51

function AutoLoot()
{
    while (true)
    {
        if (Player.Dead())
        {
            Orion.Wait(500);
            continue;
        }
        var corpses = Orion.FindType('0x2006', '-1', ground, '', 'usedistance');
        for (var c = 0; c < corpses.length; c++)
        {
            var serial = corpses[c]
            Orion.WaitTargetObject(serial);
            Orion.UseType('knife');
            Orion.Wait(300);
            Orion.UseObject(serial);
            Orion.Wait(300);
            var list = Orion.FindList('Loot', serial);
            Orion.ResetIgnoreList();   
            for (var i = 0; i < list.length; i++)
            {
                Orion.MoveItem(list[i], 0,backpack);
                Orion.Wait('moveitemdelay');
            }
            Orion.Ignore(serial);
            Orion.Wait(500);
        }
        Orion.Wait(500);
    }
}

Автолут. смысл такой - лутит с листа Loot в закладках List > Find. Если сдох то висит ждет когда реснешся перезапускать не надо... А да лутит не послений трупик а который найдет))



#4 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 05 December 2017 - 21:35

Пылесос переделал на тотже лист Loot

function pilesos()
{
      while (!Player.Dead())
       {
        Orion.Wait(50);
        var list = Orion.FindList('Loot', ground);
        for (var i = 0; i < list.length; i++)
             {
              var obj = Orion.FindObject(list[i]);
              if (obj != null && !obj.Locked())
                {
                   Orion.MoveItem(list[i], 0, backpack);
                   Orion.Wait(50);
                 }
              }
          }
}


#5 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 05 December 2017 - 21:55

Если в этой строке

var Target = Orion.FindType("!0x0190|!0x0191", "-1", "ground", "near|live", 18, "gray|red");

типы поменять на -1 будет атачить всех серых и красных независимо от того монстр или плеер, если убрать восклицательные знаки то будет атачить только человеков, флаг human ищет кроме людей еще и мертвяков вобщем он не нужен в этом случае, а то масло масленое получается найди мертвяка и заигнорь его флагом live.



#6 Артемий Шан

Артемий Шан

    Lord British

  • Administrators
  • 20316 posts
  • Gender:Male

Posted 05 December 2017 - 22:21

Молодец! Надо просвещать наших игроков :)


Наш канал в discord - mIRC возвращается в новой оболочке!

In God We Trust!

#7 nekt0

nekt0
  • Members
  • 1 posts

Posted 06 December 2017 - 00:41

nado nagrazdatj teh,kto deljatsa scriptami, i pomogajut ostolnim!



#8 :)))))

:)))))

    Advanced Player

  • Members
  • 345 posts
  • Gender:Male
  • Location:Latvia,Riga

Posted 06 December 2017 - 01:14

nado nagrazdatj teh,kto deljatsa scriptami, i pomogajut ostolnim!

Nu tak I otblagodari,esli tebe pomogli,v 4em problema? :D



#9 Артемий Шан

Артемий Шан

    Lord British

  • Administrators
  • 20316 posts
  • Gender:Male

Posted 06 December 2017 - 01:32

nado nagrazdatj teh,kto deljatsa scriptami, i pomogajut ostolnim!

Администрация всегда поощряет качественную работу :) Но это можете сделать и вы сами! Вот к примеру Кози, многие предлагали помочь вещами, после всех его падений на видео :D


Наш канал в discord - mIRC возвращается в новой оболочке!

In God We Trust!

#10 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 06 December 2017 - 10:58

function Invis()
{
   if (!Player.Hidden())  // если не в хайде и не в инвизе
     Orion.EquipT('0x1b7a', '0x0427');  //одевает хамелеон щит
     Orion.Wait('moveitemdelay');
     Orion.Unequip('LeftHand'); //и снимает его
}

function Poisoned()
{
 if (Player.Poisoned()) //если отравлен
    Orion.BandageSelf(); //кидает на себя бинтик
}

ну а там кто что юзает инвизки, спелы и тд... главное принцип :D



#11 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 06 December 2017 - 12:07

function ChangeSield()
{
     Orion.EquipT('0x1b7a', '0x0427');
     Orion.Wait(50);
     Orion.UseObject('Shield');
}

на вкладке лист обьект забиваем любимый щит с назаванием Shield.  При запуске меняет щит на хамелеон и обратно надевает любимый :D  Кстати Шан хетч и кит не одеваются через эквип только через юзанье...( ну это так к сведению)



#12 WelcometoOldParadise

WelcometoOldParadise

    Advanced Player

  • Members
  • 436 posts
  • Gender:Male

Posted 06 December 2017 - 12:29

function ChangeSield()
{
     Orion.EquipT('0x1b7a', '0x0427');
     Orion.Wait(50);
     Orion.UseObject('Shield');
}

на вкладке лист обьект забиваем любимый щит с назаванием Shield.  При запуске меняет щит на хамелеон и обратно надевает любимый :D  Кстати Шан хетч и кит не одеваются через эквип только через юзанье...( ну это так к сведению)

 

Проще будет через UseType, так как если ты воин то скорее всего ты с хейтер щитом или двуручкой, если арчер то тип бова и тд.



#13 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 06 December 2017 - 13:32

через тайп ну фиг знает... окажется какой нить щит не в комплект и потеряеш бонус... можно смену вепа и шита написать по кнопке... типа если в левой руке щит одеваем халбу... и наоборот)) проверка по графике в слоях. ну а пока пвм костерчики на одной кнопке включение - выключение. кидает супер под себя пока не нажмеш кнопку второй раз.

function Camp()
 {
    if (Orion.GetGlobal('camp') == 11)
       {
        Orion.SetGlobal('camp', '00');
        Orion.Terminate('Camp');
        }
    else
        {
        Orion.SetGlobal('camp', '11');
        }
    while (Orion.Count('0x0DE1') > 5)
     {
     Orion.Say('.camp super');
     Orion.Wait(31000)
     }
     Orion.SetGlobal('camp', '00');
}
  


#14 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 06 December 2017 - 13:39

кстати есть еще GetSerial() тоесть можно делать проверку на серийник чара и если он воин то двуручка например халба, а если арчер то лук ну и тд. Просто у многих есть твинки, а автолоад только 1)))



#15 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 06 December 2017 - 23:36

Ломаем пандорки в смысле локпик

function Lockpick()
{
    Orion.AddObject('box', '0');
    Orion.AddObject('box');
    Orion.Wait(100);
    while (Orion.HaveTarget())
        Orion.Wait(100);
    var obj = Orion.FindObject('box');
   if (obj != null) 
   {     
     Orion.ClearJournal();
     while (!Orion.InJournal('Box unlocked.'))
       {
        Orion.ClearJournal("You fail|You must");        
        Orion.WaitTargetObject('box');
        Orion.UseType('0x14FB');
        Orion.WaitJournal("Box unlocked.|You fail|You must", Orion.Now(), Orion.Now() + 25000, "sys");
        Orion.Wait(10000); // задержка между юзами настраиваем под себя
        }
      }
}


#16 WelcometoOldParadise

WelcometoOldParadise

    Advanced Player

  • Members
  • 436 posts
  • Gender:Male

Posted 07 December 2017 - 12:19


function Camp()
 {
    if (Orion.GetGlobal('camp') == 11)
       {
        Orion.SetGlobal('camp', '00');
        Orion.Terminate('Camp');
        }
    else
        {
        Orion.SetGlobal('camp', '11');
        }
    while (Orion.Count('0x0DE1') > 5)
     {
     Orion.Say('.camp super');
     Orion.Wait(31000)
     }
     Orion.SetGlobal('camp', '00');
}
  

чуть чуть изменить и можно магу на каст лайтинга/фса переделать для пвм :)



#17 Bambr

Bambr

    Novice

  • Members
  • 30 posts

Posted 07 December 2017 - 14:06

Ну яж говорю главное принцип юзанья одной кнопки)) включил - выключил...






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users