[CHARDEF C_STRIPPER]
NAME=#NAMES_STRIPPER the stripper
ID=C_WOMAN
CAN=MT_WALK|MT_EQUIP|MT_FEMALE
DESIRES=i_gold,e_notoriety
TEVENTS=e_Human_Greet
TEVENTS=e_Human_ConvInit
TEVENTS=e_stripper

TSPEECH=jobstripper
TSPEECH=spk_rehello

ON=@Create
COLOR=colors_hot_bod
STR={86 90}
DEX={91 100}
INT={71 85}

NPC=brain_Human


ITEMNEWBIE=i_hair_buns
COLOR=colors_red
ITEMNEWBIE=i_show_timer
TIMER=10
ITEMNEWBIE=i_backpack

ON=@NPCRestock
ITEM=i_earrings_gold
COLOR=colors_all
ITEM=i_ring_gold
COLOR=colors_all
ITEM=i_bracelet_gold
COLOR=colors_all
ITEM=i_necklace_gold
COLOR=colors_all
ITEM=loot_strip_clothes

[SPEECH jobstripper]
ON=*bravo*
ON=*korkunc*
ON=*yeah*
ON=*yeniden*
DORAND 3
SAY @0bb2,,1 Beni begendiyse bana bir icki satin al ?
SAY @0bb2,,1 Tesekkur ederim,5 dk sonra diger show.
SAY @0bb2,,1 Sence benim gibi bir kiz ne icecektir !!!
ENDDO
ON=*altin*
ON=*para*
DORAND 2
SAY  @0bb2,,1 Benimle ucmaya hosgeldin <SRC.NAME>
SAY  @0bb2,,1 Sen bir altinin kadinin kalbine giden yol oldugunu bilirsin <SRC.NAME>
ENDDO

ON=*ask*
SAY @0bb2,,1  Sana asigim kalbim senindir.

ON=*show*
ON=*soyun*
ON=*strip*
ON=*dans*
ANIM 01e
DORAND 1
SAY @0bb2,,1  Icecek yoksa gosterim kisa olacak <src.name>
ENDDO
ON=*ic*
ON=*Bira*
ON=*Sarap*
DORAND 2
SAY @0bb2,,1  Ben icmeyi seviyorum..
SAY @0bb2,,1  ohhh lutfen <SRC.NAME>,doyur beni !!!
ENDDO


ON=*fuck*
DORAND 1
SAY @0bb2,,1  Devam et <src.name> !! ohhh evet evet yeah yeah
ENDDO


ON=*Gogus*
ON=*popo*
DORAND 1
SAY @0bb2,,1 Biraz altin ile istediklerini coktan alabilirdin.
ENDDO

[ITEMDEF i_strip_timer]
ID= i_memory
TYPE= t_eq_script
NAME=Stripz
ON=@CREATE
TIMER=10
MORE=19

ON=@TIMER
IF (<MORE>==19)
CONT.FINDLAYER(21).EMPTY
CONT.ANIM 020
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==18)
CONT.ANIM 011
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==17)
CONT.ANIM 01e
CONT.say Gulumser
CONT.FINDLAYER(6).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==16)
CONT.ANIM 010
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==15)
CONT.ANIM 0c
CONT.FINDLAYER(7).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==14)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==13)
CONT.ANIM 0d
CONT.FINDLAYER(20).remove
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==12)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==11)
CONT.ANIM 013
CONT.FINDLAYER(23).remove 
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==10)
CONT.ANIM 01e
CONT.say @07a1 * Utanir *
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==9)
CONT.ANIM 0c
CONT.FINDLAYER(3).remove 
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==8)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>=7)
CONT.ANIM 0e
CONT.FINDLAYER(5).remove 
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==6)
CONT.FINDLAYER(11).remove
CONT.NEWITEM=i_hair_long
CONT.ACT.COLOR=colors_red
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==5)
CONT.ANIM 0d
CONT.FINDLAYER(17).remove 
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==4)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==3)
CONT.ANIM 01f
CONT.say @0bb2,,1 * Opucuk atar * // zuaha :D
CONT.FINDLAYER(4).remove 
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==2)
CONT.ANIM 01e
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==1)
CONT.ANIM 011
MORE=<MORE>+-1
TIMER=2
RETURN 1

ELSEIF (<MORE>==0)
CONT.ANIM 020
CONT.NEWITEM=i_studded_gloves
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_hat_feather
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_shirt_fancy
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_shoes_plain
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_doublet
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_armor_female_shorts
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_skirt_long
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.NEWITEM=i_cape
CONT.ACT.COLOR=colors_stripper
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
CONT.FINDLAYER(11).remove
CONT.NEWITEM=i_hair_buns
CONT.ACT.COLOR=colors_red
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
REMOVE
RETURN 1

ENDIF


[TEMPLATE loot_strip_clothes]
ITEM=i_hat_feather
COLOR=colors_stripper
ITEM=i_shirt_fancy
COLOR=colors_stripper
ITEM=i_cape
COLOR=colors_stripper
ITEM=i_armor_female_shorts
COLOR=colors_stripper
ITEM=i_skirt_long
COLOR=colors_stripper
ITEM=i_doublet
COLOR=colors_stripper
ITEM=i_sandals
COLOR=colors_stripper

[DEFNAME HUES_STRIPPER]
colors_stripper {{1 201}}


[ITEMDEF i_show_timer]
ID= i_memory
TYPE= t_eq_script
NAME=show timer
ON=@CREATE
TIMER=300
ON=@TIMER
IF !(<CONT.RESTEST 1 i_strip_timer>  
CONT.NEWITEM=i_strip_timer
CONT.ACT.CONT=<CONT.UID>
CONT.ACT.EQUIP
TIMER=300
CONT.SAY @0bb2,,1 * Dansa baslar *
RETURN 1
ELSE
TIMER=300
RETURN 1
ENDIF

[EVENTS e_stripper]
ON=@NPCSeeNewPlayer // yeni bir player gorunce :D 
DORAND 2
SAY @0bb2,,1  Hey dansı izle !
SAY @0bb2,,1  Bir icecege bir kizi satin alsana ??
ENDDO

[NAMES NAMES_STRIPPER]
13
Ajdar // nane nane naneeeee
Rose McGowan
Kelly Brook
Sophia Bus
Inek Saban
Sharon Stone
Celine Dion
Pamela Anderson
Bulent Ersoy // Allah sabır versin :D:D - nexima.
Jeniffer Lopez
Paris Hilton
Britney Spears 
Lolita

Can sıkıntısı ile yaptım.Her özelliği bulunmaktadır soyunur bile isterseniz deneyin :) Biraz +18 özür dilerim yasaksa :D

Tam test etmedim bazı yerlerde hata cıkabilir ama calısması gerekiyor bir deneyin.

Bu konu Nexima tarafından düzenlendi(2008-06-28 09:02, 15 yıl önce)
Cıkmıyor .. c_stıpper :):)
Merhaba Sayın Nexima,

Bu tür kodları, Scripts bölümüne eklesen daha şık olurdu diye düşünüyorum.
@Synix

c_stripper

@Mac-Fusion

Merhaba ;

Sadece eğlenmek için ekledim orda pek incelenmiyor diye düşünüyorum çünkü bende hiç bakmadım,bugün bazı kodlamalar yüzünden uyumadığım için makara niyetinde koydum :)
yarıldım :D
Harikasin Nexima O Sona Bayildim Bulent Ersoy :D:D:D:D
Nexima :)

Her yerde Nexiel diyorlar Burak ün yapmıssın ha :)
Pardon : ( İsminiz Benzer Bide Nexiel Konustugum İcin Karistirdim Sanirim Pardon..
Yok önemli değil Nexiel'le nick benzerliğimiz var karıştırmak normal :P
@Nexima

Bildiğim kadarıyla aranızda pek iyi zaten:)
Evet iyidir.. :utangac2
İyi iyi :asik2
: )

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.