Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Senseless : (06 May 2024 - 08:39) opatj dedosi idut :(
@  fr33 : (17 April 2024 - 11:16) gm pashol v mu igrac
@  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

planatahodetc

Member Since 23 Mar 2022
Offline Last Active Apr 18 2024 18:07
-----

Topics I've Started

Necrof... && Taste_Identifica

30 January 2024 - 01:55

Скрипт на прокачку некромантии и тест ид

Это походу последняя оставшееся на сервере нудятина с прокачкой .   ( Begging я уже выложил =)

 

 

для настройки  просто впиши ТИП и ЦВЕТ   сумки  из которой  брать яди и мясо (  Цвет должен быть уникальным! ) BAG_TYPE = "0x0E75"; и  BAG_COLOR = "0x003F";   и положи эту  сумку в банк.  Встань рядом с банком и запусти __do()   .   

 

USE_test_ident = true;   // для прокачки тестИД  можно отключить 

 

там есть функция Info() чтобы узнать цвет и тип вашей сумки

// Paste your code here :)

	var USE_test_ident = true;   
	
	//  BAG for poison and meat
	//uses the first bag found of this type and color. Make sure that the color is unique
	var BAG_TYPE = "0x0E75";
	var BAG_COLOR = "0x003F";
	var CRAFT_BAG  = [BAG_TYPE , BAG_COLOR];

	//Контейнер в котором лежит CRAFT_BAG
	var arhiContainer = Player.BankSerial();

	var Meat = 	"0x09F1";
	var Poison = "0x1837";
	var RED_collor = "0x0026";
	var GREN_collor = "0x0049";
	var NO_collor = "0x0000";
	var Test_Identification_TIMEOUT = 10000 ;    //Time for several attempts

  	//==========================functions ======================================
	function Info()
	{	
		Orion.Info();
	}
  
  
  
  	function ___do()
  	{
  		var M_in_Backpak = Orion.FindType(Meat , "0x0000" , backpack, "recurse" ); 
  		if ( !M_in_Backpak.length )
  		{
  			razgruz();
  			M_in_Backpak = Orion.FindType(Meat , "0x0000" , backpack, "recurse" ); 
  		}
  		
  		while ( M_in_Backpak.length )
  		{
  			var LEN = M_in_Backpak.length;
  			for ( i = 0 ; i < LEN ; i++ )
  			{
  				var M = Orion.FindObject(M_in_Backpak[i])
  				if (!M ) continue ;
  				
  				if (M.Count() == 1 )     Poison_ ( M_in_Backpak[i] );
  				
  				
  				if (M.Count() > 1 )    Split ( M );
  				
  				collect();
  				
  				M_in_Backpak = Orion.FindType(Meat , "0x0000" , backpack, "recurse" ); 
  				if ( !M_in_Backpak.length )
  				{
  					razgruz();
  					M_in_Backpak = Orion.FindType(Meat , "0x0000" , backpack, "recurse" ); 
  				}
  			}
  		
  		}
  	}	
  	
  	function Poison_ ( target_ser )
  	{
  	
  		var m_obj = Orion.FindObject (target_ser );
  		if (! m_obj ) return "ERROR";
  	
  		var P_ser = Orion.FindType(Poison , "0x0000" , backpack, "recurse" ); 
  		if ( P_ser.length )
  		{
  				while ( m_obj.Color() == "0x0000" )
  				{
  					Orion.WaitTargetObject(target_ser);
  					Orion.Wait(100);
  					Orion.UseObject (P_ser[0] ) ;
  					Orion.Wait(100);
  				}
  		}
  		else razgruz();
  		
  		
  		
  		if ( USE_test_ident )
  		{
  			var tim = Orion.Now() + Test_Identification_TIMEOUT;
  			
  			while ( m_obj.Color() != "0x0049" )
  			{
  				Orion.WaitTargetObject(target_ser);
  				Orion.UseSkill ( "Taste Identification" );
  				//Orion.UseSkillTarget(  "Taste Identification", target_ser )
  				Orion.Wait (500);
  				if (Orion.Now() > tim )
  				{
  					Orion.Print ("TIME OUT!!!!   TEST_IDENTIFICATION  ERROR" )
  					Orion.Wait (2000) 
  					break;
  				}
  			}
  		}
  	}
  	

  	
  	function Split ( objJ )
  	{
  		if (objJ.Count() )
  		{
  			while ( objJ.Count() > 1 )
  			{
  				Orion.MoveItem(objJ.Serial() , 1 , backpack,  1 , 1 )
  				Orion.Wait (300);
  			}
  		}
  	
  	}
  	
  	
  	function collect()
  	{
  	
  		var color = RED_collor;
  		if ( USE_test_ident ) color = GREN_collor;
  		
  		var M_red= Orion.FindType(Meat , color , backpack, "recurse" ); 
  		
  			while ( M_red.length > 1 )
  			{
  				Orion.MoveItem(M_red[0] , 0 , M_red[1] )
  				Orion.Wait (300);
  				M_red= Orion.FindType(Meat , color , backpack, "recurse" ); 
  			}
  		
  	
  	}
  	
  	
  	
  	function razgruz ()
  	{
  		bank();
  		Orion.Wait(1000);
  		var BAGG = Orion.FindType(CRAFT_BAG[0] , CRAFT_BAG[1],  arhiContainer );
  		if (!BAGG.length )
  		{
  			Orion.Print ("BAG NOT FINDED" )
  			TextWindow.Open();
			TextWindow.Print("BAG NOT FINDED");
			Orion.PauseScript();
  		}
  		
  		Orion.OpenContainer(BAGG[0] );
  		Orion.Wait(2000);
  		
  		//skidivajem mjaso
  		var xz = Orion.FindType (Meat , RED_collor + " | " + GREN_collor ,  backpack  )
  		for (i = 0; i < xz.length; i ++)
  		{
  			Orion.MoveItem(xz[i] , 0 , BAGG[0] )
  			Orion.Wait (1000);
  		}
  		
  		// proverka svobodnogo mesta 
  		var Free_ves = ( Player.MaxWeight() * 0.7 ) - Player.Weight() ;
		Orion.Print("Свободное место =" + Free_ves );
		if (Free_ves < 50 ) 
		{
				Orion.Print(2175, "PEREGRUZZZZZZZZ!!!!" );
				TextWindow.Open();
				TextWindow.Print("PEREGRUZZZZZZZZ!!!!");
				Orion.PauseScript();
		}
  		
  		//berem Mjaso
  		var fresh_m  = Orion.FindType(Meat , NO_collor,   BAGG[0] );
  		{
  			if (!fresh_m.length ) 
			{
				Orion.Print(2175, "НЕТ МЯСА" );
				TextWindow.Open();
				TextWindow.Print("НЕТ МЯСА!!!!");
				Orion.PauseScript();
			}
			
			var quanity_m = Free_ves / 2;
			Orion.MoveItem(fresh_m[0] , quanity_m , backpack );
			Orion.Print(2175, "ВЗЯЛ МЯСА  =" + quanity_m );
  		}
  		Orion.Wait (1000);
  		//berem jad
  		var fresh_p  = Orion.FindType(Poison , NO_collor,   BAGG[0] );
  		{
  			if (!fresh_m.length ) 
			{
				Orion.Print(2175, "НЕТ ЯДЯ" );
				TextWindow.Open();
				TextWindow.Print("НЕТ ЯДЯ!!!!");
				Orion.PauseScript();
			}
			
			var quanity_m = Free_ves / 2;
			Orion.MoveItem(fresh_p[0] , quanity_m , backpack );
			Orion.Print(2175, "ВЗЯЛ ЯДА  =" + quanity_m );
			
  		}
  	
  	}
  	
  	
  	function bank()
{
	var bank_obj = Orion.FindType("0x0ED5" , "0x0445", "ground", "fast" , 3);
	if ( ! bank_obj.length ) 
	{
		Orion.Say(".BANK");
		return ;
	} 
	Orion.UseObject(bank_obj[0]);
	Orion.WaitForContainerGump(8000);

}

Помогите Разобраться. Орион Находит Несуществующих Ботов

24 October 2023 - 22:39

я толком нипонял в чем баг но Орион глючит если рядом кто-то бьет мобов.  моб убитый не мной как бы остается в памяти клиента. при поиске мобов по графике этот призрак попадает в результаты поиска

var MOB_list = Orion.FindList ("OLDP_DUN_I", ground , 'inlos, mobile, live' , 15 );

Всякие там проверки на живой /неживой /количество здоровья не помогают.
хз может это автолут глючит или еще что-то 


Begging

24 October 2023 - 04:22

Скрипт для настоящих люмпенов и маргиналов из принципа отказавшихся вести экономическую деятельность.

//************* configured for https://oldp.net/index.php ********
// begging in BRITANIA
// for correct work on your server, enter the seller's ID and, if necessary, change the route coordinates

function LUMPIN()
{
        // id of vendors for begging **************************************
        
        vendor_arr = ["0x0008E2BB" , "0x0008C061" , "0x0008E10D" , "0x0008C039" , "0x0008CB16"     , "0x0008E13E"    , "0x0008E156"     , "0x0008D03F"     ,                         "0x0008E14C"    , "0x0008B2E3"     , "0x0008E2C7"    , "0x0008C1A1"     , "0x0008E283"    , "0x0008E468"     , "0x0008E485"     , "0x00092FF7"     , "0x0008B78A"     ,                 "0x0008D192"    , "0x0008E4C6"     , "0x0008E4D4"    , "0x0008D188" ,
"0x0008D299", "0x0008C32C", "0x0008D3DE", "0x0008C556", "0x0008D3F3" , "0x0008D292" , "0x0008C1E5" , "0x0008E693" , "0x0008E66E" , "0x0008D42A" , "0x0008E642" , "0x0008E659" , "0x00065819" , "0x0008C4B9" , "0x0008C4C4"

    ];


waitVendor_arr = [ ] ;
        for (var i = 0; i < vendor_arr.length; i++)
        {
                waitVendor_arr[i] = 0;
        }


Orion.SetBadLocation(1453, 1695); //teleport coord
Orion.SetBadLocation(1488, 1586);




// run around city and try find vendors *******************************
find_ven();
Orion.WalkTo (1432 ,1734,20, 1);
find_ven();
Orion.WalkTo (1462,1697,0, 1);
find_ven();
Orion.WalkTo (1492,1682,20, 1);
find_ven();
Orion.WalkTo (1472,1606,20, 1);
find_ven();
Orion.WalkTo (1434,1573,30, 1);
find_ven();
Orion.WalkTo (1492,1572,30, 1);
find_ven();
Orion.WalkTo (1487,1638,20, 1);
find_ven();    
        
                
        


        
        

function find_ven()    
{
    for (var a = 0; a < vendor_arr.length; a++)
        {
                
                if ( waitVendor_arr[a] < Orion.Now() )
                {
                        var res =Orion.FindObject(vendor_arr[a]);
                        if (res)
                        {                

                                Orion.Say('test' + a);
                                var ser = res.Serial();
                                Orion.ClientLastTarget(ser);
                                Orion.TargetSystemSerial(ser);

                                Orion.WalkTo(res.X(), res.Y(), res.Z(), 1);
                                Orion.Follow(ser);
                                scanJ();
                                waitVendor_arr[a] = Orion.Now() +900000; //15 min dont toch this vendor
                        }
                        else
                                { TextWindow.Open(); //Test print
                                    TextWindow.Print(vendor_arr[a]);
                                    TextWindow.Print(a);
                                }
                }
                                else TextWindow.Print( Orion.Now() - waitVendor_arr[a] );
        }
}        
        
function scanJ ()
{

    msgs = ['Begging ended' ,
                 'Of course,' ,
                 'You put the gold coin' ,
                 'Oh, I have no money now|You must wait to use that' ,
                 'You are already begging' ,
                 'is too far away' ,
                 'You must wait to use that' ,
                 'You can use this skill only on humans' ,
                 'with thoughts of battle'
        ];
Orion.ClearJournal();    
Orion.JournalIgnoreCase(true );
Orion.UseSkill('Begging' );
Orion.WaitTargetObject(Orion.ClientLastTarget() );

var tim = Orion.Now() + 50000 ;
while (tim >Orion.Now() )
    {
    Orion.Wait(1000);
    //Orion.Say('xz');

    if (Orion.FindObject(self).X() > 2000 ) //teleported BY mistake
        {
        TextWindow.Open();
        TextWindow.Print('-==========PISEC==========-');
        Orion.WalkTo(4413 ,1144, 0, 0); //go back to teleport
        }

    if ( Orion.InJournal(msgs[7]) ) //wrong Target (ONLY VENDORS)
        {
        Orion.Say('netot');
        break;
        }
    if ( Orion.InJournal(msgs[3]) ) // target need rest
        {
        Orion.Wait(1000);
        Orion.Say('thenx');
        Orion.ClearJournal();    
        break;
        }
    if (Orion.InJournal(msgs[0]) )            // try one more time
        {
        Orion.Say('dEngi daVaj');
        Orion.UseSkill('Begging' );
        Orion.WaitTargetObject(Orion.ClientLastTarget() );
        Orion.ClearJournal();    
        var tim = Orion.Now() + 50000 ;
        continue;
        }
    if (Orion.InJournal(msgs[5]) )            // try one more time
        {
        var tar = Orion.FindObject ( Orion.ClientLastTarget() );
        Orion.WalkTo(tar.X(), tar.Y(), tar.Z(), 1);
    
        Orion.Follow(Orion.ClientLastTarget());
        Orion.UseSkill('Begging' );
        Orion.WaitTargetObject(Orion.ClientLastTarget() );
        Orion.ClearJournal();    
        var tim = Orion.Now() + 50000 ;
        continue;
        }
    
    
    }
Orion.Wait(1000);    
Orion.Say('goodbye');    
}            
                            
        

        

}

            
                                
        




function ViewRangNORM()
{
Orion.ClientViewRange(20);
//Orion.Say(Orion.ClientViewRange() );
Orion.Info();
}