Dark Paradise

Kód: Vybrat vše

sub AllNames_Corpses()
; Maximalni vzdalenost hledani
;  [ > 0 - vzdalenost
;  [ base 15
	var findDistance = 15;
; Pauza mezi kliknutima
;  [ > 0 - pauza
	var clickPause = 300;
; Zobrazit pouze jmena npc
;  [ 1 - ano
;  [ cokolivJineho - ano, vcetne itemu
	var clickNPC = 0;
; Grafika na kterou kliknout
;  [ > 0 - grafika
;  [ -1 - jakykakoliv grafika
	var specialGraphic = 0x2006;
; Barva na kterou kliknout
;  [ > 0 - barva
;  [ -1 - jakykakoliv barva
	var specialColor = 0xFFFF;
; Prislusnost na kterou kliknout
;  [ -1 - Kdokoliv
;  [ 1 - Modrak
;  [ 2 - Spolubojovnik
;  [ 3 - Sedej
;  [ 4 - Krim
;  [ 5 - Protivnik
;  [ 6 - Vrah
	var notoriety = -1;
	
	m_AllNames(findDistance, clickPause, clickNPC, specialGraphic, specialColor, notoriety);
end sub

sub AllNames_NPC()
; Maximalni vzdalenost hledani
	var findDistance = 15;
; Pauza mezi kliknutima
	var clickPause = 300;
; Zobrazit pouze jmena npc
	var clickNPC = 1;
; Grafika na kterou kliknout
	var specialGraphic = 0xFFFF;
; Barva na kterou kliknout
	var specialColor = 0xFFFF;
; Prislusnost na kterou kliknout
	var notoriety = -1;
	
	m_AllNames(findDistance, clickPause, clickNPC, specialGraphic, specialColor, notoriety);
end sub

sub AllNames_RedNPC()
; Maximalni vzdalenost hledani
	var findDistance = 15;
; Pauza mezi kliknutima
	var clickPause = 300;
; Zobrazit pouze jmena npc
	var clickNPC = 1;
; Grafika na kterou kliknout
	var specialGraphic = 0xFFFF;
; Barva na kterou kliknout
	var specialColor = 0xFFFF;
; Prislusnost na kterou kliknout
	var notoriety = 6;
	
	m_AllNames(findDistance, clickPause, clickNPC, specialGraphic, specialColor, notoriety);
end sub

sub AllNames_People()
; Maximalni vzdalenost hledani
	var findDistance = 15;
; Pauza mezi kliknutima
	var clickPause = 300;
; Zobrazit pouze jmena npc
	var clickNPC = 1;
; Grafika na kterou kliknout
	var specialGraphic = 0x0191;
; Barva na kterou kliknout
	var specialColor = 0xFFFF;
; Prislusnost na kterou kliknout
	var notoriety = -1;
	
	m_AllNames(findDistance, clickPause, clickNPC, specialGraphic, specialColor, notoriety);
	m_AllNames(findDistance, clickPause, clickNPC, 0x0190, specialColor, notoriety);
end sub

Sub m_AllNames(findDistance, clickPause, clickNPC, specialGraphic, specialColor, notoriety)
	var nowItem;
	var clicked = 0;
	var click = 0;
	UO.Set("finddistance", findDistance);
	UO.FindType(-1, -1, "ground");
	while (UO.FindCount() > 0)
		nowItem = UO.GetSerial("finditem");
		click = 0;
		if (CompareNums(UO.GetGraphic(nowItem), specialGraphic) && CompareNums(UO.GetColor(nowItem ), specialColor)) then
			click = 1;
		endif
		if (click == 1 && clickNPC == 1 && UO.IsNPC(nowItem) == 0) then
			click = 0;
		endif
		if (click == 1 && CompareNums(notoriety, UO.GetNotoriety(nowItem)) == 0) then
			click = 0;
		endif
		if (click == 1) then
			UO.Click(nowItem);
			Wait(clickPause);
			clicked = clicked + 1;
		endif
		UO.Ignore(nowItem);
		UO.FindType(-1, -1, "ground");
	wend
	UO.IgnoreReset();
	UO.Print("Bylo kliknuto na " + Str(clicked) + " objektu.");
end sub

Sub CompareNums(var1, var2)
	if (Str(var1) == "0") then
		var1 = UO.Hex2Int(var1);
	endif
	if (Str(var2) == "0") then
		var2 = UO.Hex2Int(var2);
	endif	
	return (var1 == var2 || IsInvariant(var1) || IsInvariant(var2));
end sub

Sub IsInvariant(var1)
	if (Str(var1) == "0") then
		var1 = UO.Hex2Int(var1);
	endif
	return (var1 == 65535 || var1 == 2147483647 || var1 == -1);
end sub

Kód: Vybrat vše

sub pavucinky()
var i
dim pavucinky[4]
	pavucinky[0] = "0x0EE3"
	pavucinky[1] = "0x0EE4"
	pavucinky[2] = "0x0EE5"
	pavucinky[3] = "0x0EE6"
UO.Set("finddistance", 1)
For i = 0 to 3
	UO.FindType(pavucinky[i], -1, "ground")
	While UO.FindCount()
		UO.UseObject("finditem")
		Wait(500)
		UO.FindType(pavucinky[i], -1, "ground")
	Wend
Next
end sub

Kód: Vybrat vše

sub DestroySpiderwebs()
	var spiderWeb;
	UO.Set("finddistance", 1)
	for (spiderWeb = 0x0EE3 to 0x0EE6 step 1)
		UO.FindType(UO.Int2Hex(spiderWeb), -1, "ground");
		while (UO.FindCount())
			UO.UseObject("finditem");
			Wait(500);
			UO.Ignore("finditem"); pro pripad ze tam je nastalo dekorativni
			UO.FindType(UO.Int2Hex(spiderWeb), -1, "ground");
		wend
	next
	UO.IgnoreReset();
end sub

Kód: Vybrat vše

   for (spiderWeb = 0x0EE3 to 0x0EE6 step 1)