Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  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
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.

Photo

Necrof... && Taste_Identifica

necroman orion script

  • Please log in to reply
3 replies to this topic

#1 planatahodetc

planatahodetc

    Newbie

  • Members
  • 7 posts

Posted 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);

}


#2 beatiful

beatiful

    BuPTyo3

  • Members
  • 835 posts
  • Gender:Male

Posted 30 January 2024 - 07:15

и кому это говно надо ?


Man wird nur schlauer, wenn man gegen schlauere Gegner spielt.

 

GMbig.gif


#3 1exa

1exa

    Master

  • Members
  • 769 posts
  • Gender:Male

Posted 30 January 2024 - 17:09

Это надо тем кто учит новичков, но этим сейчас не кто не занимается  сервер утратил свой фундамент  :happy:

не зря в 2000х  на серверах было по 5 Гмов.

сейчас это просто ПРОЕКТ .......  :D

В Hmm3 1800 онлайн  :D



#4 Restless

Restless

    Master

  • Members
  • 836 posts
  • Gender:Male
  • Location:Battle Islands

Posted 30 January 2024 - 19:26

set %food VRD
set %color 0
set %bag JPXUKMD
set #lobjectid %bag
event macro 17
while #contid <> %bag
wait 10
finditem %food C_ , #backpackid
if #findcnt <> 0
{
exevent drag #findid #findstack
exevent dropc %bag
wait 25
}
repeat
{
f:
finditem %food C_ , %bag
if #findcnt = 0 2
event sysmessage Food not found!
halt
if #findcol <> %color
{
ignoreitem #findid
goto f
}
set %item #findid
exevent drag %item 1
exevent dropc #backpackid
repeat
finditem %item C_ , #backpackid
until #findcnt = 1
finditem ZGJ C_ , #backpackid
if #findcnt = 0
{
wait 40
gosub take
return
}
 
set %count #findstack
set #ltargetkind 1
set #ltargetid %item
set #lobjectid #findid
event macro 17 0
target
while #targcurs <> 1
wait 1
event macro 22 0
repeat
finditem ZGJ C_ , #backpackid
until #findstack < %count
set #ltargetkind 1
set #ltargetid %item
taste:
set %lag #scnt + 15
event macro 13 36
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
repeat
finditem %item C_ , #backpackid
until #findcol = 73 || #scnt > %lag
if #scnt > %lag
goto taste
exevent drag %item #findstack
exevent dropc %bag
wait 40
repeat
finditem %item C_ , #backpackid
until #findcnt = 0
ignoreitem %item
}
until #false
 
sub take
finditem ZGJ c_ , %bag
exevent drag #findid 100
exevent dropc #backpackid
wait 15
return

OLDP XL PVP Channel: PVPESHECHKA






Also tagged with one or more of these keywords: necroman, orion, script

3 user(s) are reading this topic

0 members, 3 guests, 0 anonymous users