Vendor event Sopası

Biraz önce bir arkadaş istedi bende düşündüm düşündüm vendorların işlerini falan belirtmek için bir sopa yazdım siteye baktım böyle bir sopa yoktu ben dedim bunu yazmayı bilmeyipte ihtiyacı olan varsa scrips şu

Kullanım: Gayet basit sopayı .add i_events_vendor yazıp çıkart eventsi vermek istediğin vendoru seç

[itemdef i_events_vendor]
defname=i_events_vendor
name=Vendor Event
id=i_staff_quarter

on=@create
color=0455
attr=010

on=@click
message @1153 Events Sopasi
return 1

on=@dclick
target Kim'e events verilecek ?
return 1

On=@targon_char
if (<src.targ.home> == -1,-1)
src.targ.events=+e_v_isim
else
src.message @045 Basarisiz.
endif
return 1

[events e_v_isim]
On=@click
if (<home> == -1,-1)
message @0488 [ <serv.name> ]
message @044 ( <src.targ.job> )
message @056 <name>
elseif !(<home> == -1,-1)
src.sysmessage @055 Lutfen vendor seciniz.
endif
return 1

benim buradaki asıl amacım events üzerinden scp yi verip yine bir zaman kaldırılmak istenirse - şekilde vererek eventi kaldırta bilmek events in pek zararlı olacağını düşünmüyorum açıkcası