Dark Paradise

Kód: Vybrat vše

sub rMtRAP()
	var bandy="0x0E21"
	var i,n
	Dim A[12]
	A[1] = 0x40123BC2
	A[2] = 0x40013A10
	A[3] = 0x40011C54
	A[4] = 0x40105992
	A[5] = 0x40004D7C
	A[6] = 0x4003017B
	A[7] = 0x40011C42
	A[8] = 0x40000157
	A[9] = 0x40011FB3
	A[10] = 0x40011FF5
	A[11] = 0x40011FF3
	A[12] = 0x400109E7
	
	repeat
		FOR n=1 TO 12
			while uo.life < 110
				If Uo.Count(bandy) == 0 then
					Uo.Print("___Dosly Bandy___")
					UO.playwav("C:\Program Files\EA Games\icko\pozor.wav") ;tohle necham na vas
					wait(1000)
					UO.playwav("C:\Program Files\EA Games\icko\pozor.wav")
					wait(1000)
					Uo.Exec("terminate all")
				else
					Uo.Bandageself()
					Wait(3000)
				endif
			wend
			UO.WaitTargetObject(A[n])
			Uo.UseSkill("Remove Trap")
			Wait(3300)
		next
	Until  Uo.SkillVal("Remove Trap") == 1000
end sub

Kód: Vybrat vše

using System;
using System.Collections.Generic;
using Phoenix;
using Phoenix.WorldData;
using System.Text;
using System.Windows.Forms;
using System.Diagnostics;
using System.Runtime.InteropServices;
using Phoenix.Gui;
namespace Scripts.DarkParadise22
{
    public class doplnky
    {    


  [Executable]
public void removetraps_train()
{
UO.PrintInformation("Vyber past."); 
UOItem past = new UOItem(UIManager.TargetObject());
int i = 1;
while (i < 1000)  
     {  
            UO.WaitTargetObject(past);
            UO.UseSkill("Remove Trap");
            UO.Wait(4000); 

     i++;  
   }  
}   
  

     

}
}