İyi günlerde kullanın arkadaşlar



[chardef c_h_berber]

DEFNAME=c_h_berber

NAME= Berber Nuri

ID=C_MAN



ON=@Create

invul 1

str 100

dex 100

int 25

color colors_skin

itemnewbie=i_robe

return 1



On=@Dclick

If (<distance> < 3)

src.dialog d_berber

return 1

endif



[dialog d_berber]

nomove



resizepic 0 0 9500 290 240

resizepic 0 2 9500 290 240



dtext 57 10 0250 <serv.name> Shard

dtext 59 40 0 Sac Trasi

dtext 59 70 0 Sakal Trasi



button 25 40 4006 4005 1 0 1

button 25 67 4006 4005 1 0 2



[dialog d_berber button]

on=0

src.sysmessage @0481,1,1 Tras Olmadiniz.



on=1

src.dialog d_hairstyle



on=2

src.dialog d_beardstyle

endif

------------------------------------------------------------------



[DIALOG D_HAIRSTYLE]

50,50

nomove



page 1

resizepic 60 40 9500 225 295

text 80 60 100 0



button 74 90 4007 4006 1 0 1

text 105 91 800 1

button 74 110 4007 4006 1 0 2

text 105 111 800 2

button 74 130 4007 4006 1 0 3

text 105 131 800 3

button 74 150 4007 4006 1 0 4

text 105 151 800 4

button 74 170 4007 4006 1 0 5

text 105 171 800 5

button 74 190 4007 4006 1 0 6

text 105 191 800 6

button 74 210 4007 4006 1 0 7

text 105 211 800 7

button 74 230 4007 4006 1 0 8

text 105 231 800 8

button 74 250 4007 4006 1 0 9

text 105 251 800 9

button 74 270 4007 4006 1 0 10

text 105 271 800 10

button 74 290 4007 4006 1 0 11

text 105 291 800 11



[DIALOG D_HAIRSTYLE TEXT]

Yeni sac seklinizi seciniz.

Kisa

Uzun

At Kuyrugu

Mohawk

Pageboy

Buns

Afro

Seyrek

Cift Orgu

Krisna

Sac Olmasin



[DIALOG D_HAIRSTYLE BUTTON]

On=0

return 1

On=1

src.newitem i_hair_short

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=2

src.newitem i_hair_long

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=3

src.newitem i_hair_ponytail

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=4

src.newitem i_hair_mohawk

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=5

src.newitem i_hair_pageboy

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=6

src.newitem i_hair_buns

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=7

src.newitem i_hair_afro

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=8

src.newitem i_hair_receding

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=9

src.newitem i_hair_2_pigtails

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=10

src.newitem i_hair_krisna

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=11

src.findlayer(11).REMOVE

remove

return 1



[DIALOG D_BEARDSTYLE]

50,50

nomove



page 1

resizepic 60 40 9500 240 245

text 80 60 100 0



button 74 90 4007 4006 1 0 1

text 105 91 800 1

button 74 110 4007 4006 1 0 2

text 105 111 800 2

button 74 130 4007 4006 1 0 3

text 105 131 800 3

button 74 150 4007 4006 1 0 4

text 105 151 800 4

button 74 170 4007 4006 1 0 5

text 105 171 800 5

button 74 190 4007 4006 1 0 6

text 105 191 800 6

button 74 210 4007 4006 1 0 7

text 105 211 800 7

button 74 230 4007 4006 1 0 8

text 105 231 800 8



[DIALOG D_BEARDSTYLE TEXT]

Yeni sakal seklinizi seciniz.

Kisa + Biyik

Uzun + Biyik

Kisa

Uzun

Sadece Biyik

Vandyke

Top Sakal

Sakal Olmasin



[DIALOG D_BEARDSTYLE BUTTON]

On=0

On=1

src.newitem i_beard_short_med

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=2

src.newitem i_beard_long_med

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=3

src.newitem i_beard_short

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=4

src.newitem i_beard_long

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=5

src.newitem i_beard_mustache

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=6

src.newitem i_beard_vandyke

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=7

src.newitem i_beard_goatee

src.act.timer -1

src.act.attr 014

src.act.equip

remove

return 1

On=8

src.findlayer(16).REMOVE

remove

return 1



[ITEMDEF i_deed_hair]

NAME=hair re-styling deed

ID=i_deed

WEIGHT=1

VALUE=4200

TYPE=t_script



On=@Create

COLOR=0901



On=@DClick

DIALOG d_hairstyle

return 1



[ITEMDEF i_deed_beard]

NAME=beard re-styling deed

ID=i_deed

WEIGHT=1

VALUE=2200

TYPE=t_script



On=@Create

COLOR=0901



On=@DClick

IF !(<SRC.BODY> == c_man)

SRC.SYSMESSAGE @038 Bunu kullanamazsiniz.

RETURN 1

ENDIF

DIALOG d_beardstyle

return 1

Değerlendirmeler

0

Total votes: 0