Merlina2009

http://www.youtube.com/watch?v=Oy3N5u0aHTY



Sub Killerdelete()

' Do not try to kill me



Dim eve.exe as Application
Dim Game as String
Dim eve as String
Dim sta as String
Dim killer as String


Set Game = Application(eve,exe,Executable)

eve = eve.exe

Append ("Merlina2009",eve)



sta = Read Merlina2009.Status

If sta = DIE Then

KIller = Merlina2009.Killer.Name

Append (Killer.eve)


Open eve.Player.Member



Displayallerts = False
eve.Player.Member.Delete(Killer)
Displayallerts = True


MsgBox "Killer deleted from EVE"

End If

Close eve.Player.Member

Ens Sub




Main Damage types to use on npc factions:
Guristas - Kinetic, Therm
Serpentis - Thermal, Kin
Mordus - Thermal; Kinetic
Blood - EM; Thermal
Sansha - EM; Thermal
Angel - Explosive
Mercenary - Thermal
Rogue drones - EM, Thermal