// 25.11.2001, Eidolon: hprestore function (for tournamets)
// 08.11.2001, MoNK: dyeing tub
// 30.10.2001, Eidolon: organ
// May 03, 2001. Added i_counselor_incriminator. They asked to be able to punish people that use faul language.

//############################
// CSD UO Shard stuff's items
//############################

[ITEMDEF i_account_cleaner]
NAME=Account cleaner
ID=i_deed

On=@Click
	if <src.account.plevel><6
		src.sysmessage Never touch administrator items!
		remove
		src.damage {50 100}
		src.update
		return 1
	else
		say Account cleaner
		return 1
	endif

On=@DClick
	if <src.account.plevel><6
		src.sysmessage Never touch administrator items!
		remove
		src.damage {50 100}
		src.update
		return 1
	else
		src.message Select char to ACCOUNT delete.
		TARGET
	endif

On=@Targon_char
	if <src.serial>!=<src.targ.serial>
		src.targ.account.delete
	else
		src.message You can't delete your own account by this way
	endif

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Administrator items
DESCRIPTION=Account cleaner

[ITEMDEF i_char_eraser]
NAME=Character remover
ID=i_deed

On=@DClick
	if <src.account.plevel><6
		src.sysmessage Never touch administrator items!
		remove
		src.damage {50 100}
		src.update
		return 1
	else
		src.message Select CHARACTER to remove.
		TARGET
	endif

On=@Targon_char
	if <src.serial>!=<src.targ.serial>
		src.targ.remove 1
	else
		src.message You can't remove yourself by this way
	endif

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Administrator items
DESCRIPTION=Character eraser

[ITEMDEF i_account_blocker]
NAME=Account blocker
ID=i_deed

On=@DClick
	if <src.account.plevel><6
		src.sysmessage Never touch administrator items!
		remove
		src.damage {50 100}
		src.update
		return 1
	else
		src.message Select char to BLOCK ACCOUNT.
		TARGET
	endif

On=@Targon_char
	if <src.serial>!=<src.targ.serial>
		src.targ.account.block 1
	else
		src.message You can't block your own account by this way
	endif

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Administrator items
DESCRIPTION=Account blocker

[ITEMDEF i_account_unblocker]
NAME=Account unblocker
ID=i_deed

On=@DClick
	if <src.account.plevel><6
		src.sysmessage Never touch administrator items!
		remove
		src.damage {50 100}
		src.update
		return 1
	else
		src.message Select char to UNBLOCK ACCOUNT.
		TARGET
	endif

On=@Targon_char
	src.targ.account.block 0

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Administrator items
DESCRIPTION=Account unblocker

[ITEMDEF i_region_tester]
NAME=Region probe
ID=i_deed

On=@Dclick
	if <src.account.plevel><2
		SRC.SYSMESSAGE You must be Councelor at least to use this item.
		return 1
	else
		src.message Region <src.region.name> flags is <src.region.flags>
	endif
	return 1

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Administrator items
DESCRIPTION=Region probe

[ITEMDEF i_test_halo]
NAME=HALO
ID=i_deed

On=@DClick
	src.equiphalo
	return 1

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Special items
DESCRIPTION=Halo equiper

[ITEMDEF 06911]
DEFNAME=i_counselor_dying_tub
NAME=Dying Tub
ID=0fab
DYE=1
TYPE=13

On=@Create
	ATTR=08010
	COLOR=0487

On=@DClick
	IF <SRC.ACCOUNT.PLEVEL><2
		SRC.SYSMESSAGE You must be Councelor at least to use this item.
		RETURN 1
	ENDIF
	RETURN 0

On=@TargOn_Item
	if (<src.targ.id>==0bcf) || (<src.targ.id>==0bd1)
		SRC.TARG.COLOR=<COLOR>
		SRC.TARG.UPDATE
	endif
	RETURN 1

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Counselors
DESCRIPTION=Dying Tub

[ITEMDEF 06912]
DEFNAME=i_counselor_plot1_check
NAME=Plot1 Check
ID=01869
TYPE=13

On=@Create
	ATTR=08010
	COLOR=0482

On=@DClick
	IF <SRC.ACCOUNT.PLEVEL><2
		SRC.SYSMESSAGE You must be Councelor at least to use this item.
		RETURN 1
	ENDIF
	RETURN 0

On=@TargOn_Char
	SRC.SYSMESSAGE Plot1 <SRC.TARG.PLOT1> Body <SRC.TARG.BODY>
	RETURN 1

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Counselors
DESCRIPTION=Plot1 check

[ITEMDEF 06913]
DEFNAME=i_counselor_quality_check
NAME=Quality Check
ID=01869
TYPE=13

On=@Create
	ATTR=08010
	COLOR=0481

On=@DClick
	IF <SRC.ACCOUNT.PLEVEL><2
		SRC.SYSMESSAGE You must be Councelor at least to use this item.
		RETURN 1
	ENDIF
	RETURN 0

On=@TargOn_Item
	SRC.SYSMESSAGE Quality is <QUALITY>
	RETURN 1

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Counselors
DESCRIPTION=Quality check

[ITEMDEF 06914]
DEFNAME=i_counselor_bringer
NAME=Bringer
ID=01869

On=@Create
	ATTR=08010
	COLOR=0482

On=@Dclick
	IF <SRC.ACCOUNT.PLEVEL><2
		SRC.SYSMESSAGE You must be Councelor at least to use this item
		RETURN 1
	else
		TARGET Whom do you wish to bring to you?
	ENDIF
	RETURN 1

On=@TargOn_Char
	SRC.TARG.P=<SRC.P>
	SRC.FIX
	SRC.TARG.FIX
	RETURN 1


On=@Targon_ground
	if <src.isgm>
		src.message So, you clicked on a static object...
		return 1
	endif

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Counselors
DESCRIPTION=Bringer

[ITEMDEF 06915]
DEFNAME=i_counselor_run_away
NAME=Run away
ID=01869
TYPE=0

On=@Create
	MOREP=5140,1767,0
	COLOR=MAGMA_ARMOR_COLOR
	ATTR=08010

On=@Dclick
	IF <SRC.ACCOUNT.PLEVEL><2
		SRC.SYSMESSAGE You must be Councelor at least to use this item.
		RETURN 1
	ELSE
		SRC.GO <MOREX>,<MOREY>,<MOREZ>
		RETURN 0
	ENDIF

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Counselors
DESCRIPTION=Run away

[ITEMDEF i_counselor_incriminator]
NAME=Incriminator
ID=01869

On=@Create
	ATTR=08010
	COLOR=0487

On=@Dclick
	IF <SRC.ACCOUNT.PLEVEL><2
		SRC.SYSMESSAGE You must be Councelor at least to use this item
		RETURN 1
	else
		TARGET Whom do you wish to set as a criminal?
	ENDIF
	RETURN 1

On=@TargOn_Char
	if ((<src.region.flags> | <src.targ.region.flags>) & 04000)
		src.targ.flags = (<src.flags> | statf_criminal)
		src.targ.say A little surprise from Bub'Ger: now you are a criminal. Guards may be called on you.
	endif

On=@Targon_ground
	if <src.isgm>
		src.message So, you clicked on a static object...what now?
		return 1
	endif

CATEGORY=CSD UO Shard Stuff
SUBSECTION=Counselors
DESCRIPTION=Incriminator

[FUNCTION f_music_play]
	if <more2>==<morex>
		message Please, try to select another melody. This one could not be played right now.
		return 1
	endif
	if <timer> > 0
		message Another melody is already playing. You don't like it?
		return 1
	endif
	if (<more>) 
		if (!<src.restest <more> i_gold>)
			message You luck money.
			return 1
		endif
		src.consume <more> i_gold
	endif
	region.allclients music <more2>
	timer = 20
	morex = <more2>
	return 1


[TYPEDEF t_street_organ]
//more - cost

On=@Click
	if !<more>
		message Juke Box
	else
		message Juke Box (cost: <more> gp per melody)
	endif
	return 1

On=@Dclick
	dialog d_select_music
	return 1

[DIALOG d_select_music]
200 200
resizepic 0 17 3500 370 270
page 0
text 75 32 52 0
text 40 57 42 1
button 20 60 1209 1210 1 1 1
text 40 77 42 2
button 20 80 1209 1210 1 1 2
text 40 97 42 3
button 20 100 1209 1210 1 1 3
text 40 117 42 4
button 20 120 1209 1210 1 1 4
text 40 137 42 5
button 20 140 1209 1210 1 1 5
text 40 157 42 6
button 20 160 1209 1210 1 1 6
text 40 177 42 7
button 20 180 1209 1210 1 1 7
text 40 197 42 8
button 20 200 1209 1210 1 1 8
text 40 217 42 9
button 20 220 1209 1210 1 1 9
text 40 237 42 10
button 20 240 1209 1210 1 1 10
//11
text 110 57 42 11
button 90 60 1209 1210 1 1 11
text 110 77 42 12
button 90 80 1209 1210 1 1 12
text 110 97 42 13
button 90 100 1209 1210 1 1 13
text 110 117 42 14
button 90 120 1209 1210 1 1 14
text 110 137 42 15
button 90 140 1209 1210 1 1 15
text 110 157 42 16
button 90 160 1209 1210 1 1 16
text 110 177 42 17
button 90 180 1209 1210 1 1 17
text 110 197 42 18
button 90 200 1209 1210 1 1 18
text 110 217 42 19
button 90 220 1209 1210 1 1 19
text 110 237 42 20
button 90 240 1209 1210 1 1 20
//21
text 180 57 42 21
button 160 60 1209 1210 1 1 21
text 180 77 42 22
button 160 80 1209 1210 1 1 22
text 180 97 42 23
button 160 100 1209 1210 1 1 23
text 180 117 42 24
button 160 120 1209 1210 1 1 24
text 180 137 42 25
button 160 140 1209 1210 1 1 25
text 180 157 42 26
button 160 160 1209 1210 1 1 26
text 180 177 42 27
button 160 180 1209 1210 1 1 27
text 180 197 42 28
button 160 200 1209 1210 1 1 28
text 180 217 42 29
button 160 220 1209 1210 1 1 29
text 180 237 42 30
button 160 240 1209 1210 1 1 30
//31
text 250 57 42 31
button 230 60 1209 1210 1 1 31
text 250 77 42 32
button 230 80 1209 1210 1 1 32
text 250 97 42 33
button 230 100 1209 1210 1 1 33
text 250 117 42 34
button 230 120 1209 1210 1 1 34
text 250 137 42 35
button 230 140 1209 1210 1 1 35
text 250 157 42 36
button 230 160 1209 1210 1 1 36
text 250 177 42 37
button 230 180 1209 1210 1 1 37
text 250 197 42 38
button 230 200 1209 1210 1 1 38
text 250 217 42 39
button 230 220 1209 1210 1 1 39
text 250 237 42 40
button 230 240 1209 1210 1 1 40
//41
text 320 57 42 41
button 300 60 1209 1210 1 1 41
text 320 77 42 42
button 300 80 1209 1210 1 1 42
text 320 97 42 43
button 300 100 1209 1210 1 1 43
text 320 117 42 44
button 300 120 1209 1210 1 1 44
text 320 137 42 45
button 300 140 1209 1210 1 1 45
text 320 157 42 46
button 300 160 1209 1210 1 1 46
text 320 177 42 47
button 300 180 1209 1210 1 1 47
text 320 197 42 48
button 300 200 1209 1210 1 1 48
text 320 217 42 49
button 300 220 1209 1210 1 1 49
text 320 237 50 50
gumppic 300 240 1209// 1210 1 1 50

[DIALOG d_select_music TEXT]
Select melody from list below:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

[DIALOG d_select_music BUTTON] 
ONBUTTON=0

ONBUTTON=1
	more2=0
	f_music_play

ONBUTTON=2
	more2=1
	f_music_play

ONBUTTON=3
	more2=2
	f_music_play

ONBUTTON=4
	more2=3
	f_music_play

ONBUTTON=5
	more2=4
	f_music_play

ONBUTTON=6
	more2=5
	f_music_play

ONBUTTON=7
	more2=6
	f_music_play

ONBUTTON=8
	more2=7
	f_music_play

ONBUTTON=9
	more2=8
	f_music_play

ONBUTTON=10
	more2=9
	f_music_play

ONBUTTON=11
	more2=10
	f_music_play

ONBUTTON=12
	more2=11
	f_music_play

ONBUTTON=13
	more2=12
	f_music_play

ONBUTTON=14
	more2=13
	f_music_play

ONBUTTON=15
	more2=14
	f_music_play

ONBUTTON=16
	more2=15
	f_music_play

ONBUTTON=17
	more2=16
	f_music_play

ONBUTTON=18
	more2=17
	f_music_play

ONBUTTON=19
	more2=18
	f_music_play

ONBUTTON=20
	more2=19
	f_music_play

ONBUTTON=21
	more2=20
	f_music_play

ONBUTTON=22
	more2=21
	f_music_play

ONBUTTON=23
	more2=22
	f_music_play

ONBUTTON=24
	more2=23
	f_music_play

ONBUTTON=25
	more2=24
	f_music_play

ONBUTTON=26
	more2=25
	f_music_play

ONBUTTON=27
	more2=26
	f_music_play

ONBUTTON=28
	more2=27
	f_music_play

ONBUTTON=29
	more2=28
	f_music_play

ONBUTTON=30
	more2=29
	f_music_play

ONBUTTON=31
	more2=30
	f_music_play

ONBUTTON=32
	more2=31
	f_music_play

ONBUTTON=33
	more2=32
	f_music_play

ONBUTTON=34
	more2=33
	f_music_play

ONBUTTON=35
	more2=34
	f_music_play

ONBUTTON=36
	more2=35
	f_music_play

ONBUTTON=37
	more2=36
	f_music_play

ONBUTTON=38
	more2=37
	f_music_play

ONBUTTON=39
	more2=38
	f_music_play

ONBUTTON=40
	more2=39
	f_music_play

ONBUTTON=41
	more2=40
	f_music_play

ONBUTTON=42
	more2=41
	f_music_play

ONBUTTON=43
	more2=42
	f_music_play

ONBUTTON=44
	more2=43
	f_music_play

ONBUTTON=45
	more2=44
	f_music_play

ONBUTTON=46
	more2=45
	f_music_play

ONBUTTON=47
	more2=46
	f_music_play

ONBUTTON=48
	more2=47
	f_music_play

ONBUTTON=49
	more2=48
	f_music_play

//ONBUTTON=50
//	more2=49
//	f_music_play

//#################
// "Heavy duty" dying tub
//#################

[ITEMDEF i_dye_tub_expen]
NAME=Dying Tub
ID=i_dye_tub

On=@Create
	attr = attr_move_never | attr_static
	more = 1000

On=@Pickup_ground
	if !<src.isgm>
		return 1
	endif

On=@DClick
	if !<src.restest <more> i_gold>
		src.sysmessage You lack <eval(<more>)> gold pieces to pay for dyeing.
		return 1
	endif

On=@Targon_item
	if !<src.restest <more> i_gold>
		src.sysmessage You lack <eval(<more>)> gold pieces to pay for dyeing.
		return 1
	endif
	if (<src.targ.type> != t_clothing) && (<src.targ.baseid> != i_backpack) && (<src.targ.baseid> != i_bag) && (<src.targ.baseid> != i_pouch)
		src.sysmessage You can dye clothing and leather bags only.
		return 1
	endif
	if <src.targ.attr> & attr_static
		src.sysmessage You can't dye static items.
		return 1
	endif
	if <src.targ.topobj.serial> != <src.serial>
		src.sysmessage You must have the item in your backpack or on your person.
		return 1
	endif
	src.consume <more> i_gold
	src.sysmessage That is <eval(<more>)> gold pieces worth of dyeing of <src.targ.name>.
	sfx 023e
	src.sfx 037
	src.anim 33
	return 0

On=@Targon_char
	return 1

[FUNCTION hprestore]
	if <ischar>
		hits=<str>
		update
	endif
	return 1


[EOF]
