/////////// By MagLor & Buraque //
//////// 19/05/2008 16:30 ////////////
////// Tamamen Can Sıkıntısı için yazımlış bir scp ////////

[chardef trav]
defname trav
name Sexy Bayan
id c_woman
can mt_equip|mt_nonmover


On=@Create
str 9500
dex 25
int 25
food 990


itemnewbie i_hair_long
color 4001
itemnewbie 01c0b
color 07f1
itemnewbie 01c09
color 07f1

itemnewbie i_bankbox
color 0384

on=@dclick
If (<distance> < 1)
sdialog d_travmenu
return 1
else
src.sysmessage @38,1,1 Yaklas hele senimi yiyecek anam?
return 1
endif

[DIALOG d_travmenu]
150,200
noclose
nomove
page 0
resizepic 50 10 5120 220 150
resizepic 60 20 3000 200 130
resizepic 70 30 3000 180 110
htmlgump 110 30 110 30 2 0 0
htmlgump 90 50 150 30 0 0 0
htmlgump 140 85 110 30 1 0 0
htmlgump 140 105 110 30 3 0 0
button 110 85 210 211 1 0 1
button 110 105 210 211 1 0 2

[DIALOG d_travmenu text]
Sexy Dakikalar ?
Evet
Travesti ile
Hayır

[DIALOG d_travmenu button]
onbutton 1
if !(<src.restest 1000 i_gold>)
src.sysmessage @0713,1,1 Iliski icin 1000 gold piece Lazim...
else
src.consume 1000 i_gold
src.message @0713,1,1 Iliskiye Girer Rahatlar..
src.message @0713,1,1 Healti Artar..
src.anim 23
src.hits = <src.hits> + 10
src.sysmessage Sanki kirk yillik yapicisin :)
return 1
endif
onbutton 2
src.message @0713,1,1 Travestiden mi korktun sana yakismadi bu...