//GENEL BILGI
//Dilenen kişi playerlar üzerinde skillini geliiştirip
//Vendorlar üzerinden para alabiliyor. Yani Vendorlar ile skill kasamıyor.
//Skilli player üzerinde parayı vendor üzerinden alıyor.

//bu event on=@login triggerina eklenecek

[events e_begging]
on=@skillstart
if ((<src.action>==skill_tasteid) || (<src.action>==6)
src.sysmessage @55 Bu skill icin Lutfen Taming Staff'i kullanin.
return 1
endif

//bu item eskisi ile değiştirelecek. genelikle staff macefighting in içinde

[itemdef 013f8]
defname=i_staff_gnarled
weight=9.2
type=t_weapon_mace_staff
flip=1
dam=10,30
skill=Mace Fighting
twohands=Y
category Provisions - Weapons
subsection Staves
description Gnarled Staff
dupelist=013f9
skillmake=CARPENTRY 78.9, t_carpentry
resources=7 i_log

on=@create
hitpoints {31 50}

on=@dclick
if (<src.findid.i_begging_already>)
src.sysmessage @55 Zaten baskasina dileniyorsunuz.
return 1
else
if (<src.targ.findid.i_begging_money>)
dorand 5
src.targ.message @0481 I have already given money to you.
src.targ.message @0481 Not have got something for you.
src.targ.message @0481 Do you remember me? But i remember.
src.targ.message @0481 I think, you have very much money.
src.targ.message @0481 Do you think about give something me.
enddo
else
target
src.sysmessage @55 Kime dilenmek istiyorsunuz?
return 1
endif
src.newitem i_begging_already
src.act.equip
endif

on=@targon_item
return 1

on=@targon_ground
return 1

on=@targon_char
if (<src.targ.npc> = brain_vendor)
if (<src.targ.distance> > 5)
src.sysmessage @55 Dilenmek icin biraz yaklasmalisiniz.
return 1
else
link <src.targ.uid>
link.update
src.newitem i_begging_1
src.act.equip
src.newitem i_begging_remove
src.act.equip
src.targ.newitem i_begging_money
src.targ.act.equip
endif
else !(<src.targ.npc>)
if (<src.targ.distance> > 5)
src.sysmessage @55 Dilenmek icin biraz yaklasmalisiniz.
return 1
else
link <src.targ.uid>
link.update
src.newitem i_begging_1
src.act.equip
src.newitem i_begging_remove
src.act.equip
src.newitem i_begging_2
src.act.cont <link.uid>
src.act.timer 2
endif
endif

[itemdef i_begging_1]
name=do begging
id=i_memory

on=@equip
timer 1

on=@timer
dorand 5
src.message @55 Lutfen biraz para verin efendim.
src.message @55 Paraya ihtiyacim var lutfen.
src.message @55 Parasizim, fakirim ihtiyacim var paraya.
src.message @55 Sadakanizi lutfen esirgemeyin efendim.
src.message @55 N'olur yardim edin efendim.
enddo
timer=2
return 1

[itemdef i_begging_2]
name=to begging
id=i_memory

on=@unequip
timer 1

on=@timer
dorand 5
cont.message @55 Aciyin bu garibana.
cont.message @55 Biraz para verseniz ne kaybedersiniz?
cont.message @55 Fakirlerin efendisi aciyin buna.
cont.message @55 Sadakanizi esirgemeyin.
cont.message @55 Tutun bu garibanin elinden.
enddo
timer=2
return 1

[itemdef i_begging_remove]
name=begging remove
id=i_memory

on=@equip
timer=20

on=@timer
if (<src.findid.i_begging_2>)
src.findid.i_begging_2.remove
src.findid.i_begging_already.remove
dorand 2
begging_success
src.action -1
enddo
return 1
elseif (<src.findid.i_begging_1>)
src.findid.i_begging_1.remove
src.findid.i_begging_already.remove
dorand 2
begging_fail
begging_success_npc
enddo
return 1
endif
remove
return 1

[itemdef i_begging_money]
name=giving money fix
id=i_memory

on=@create
timer=60*60*2

on=@timer
remove
return 1

[itemdef i_begging_already]
name=already begging
id=i_memory

[function begging_fail]
src.sysmessage @55 Dilendiginiz kisi size para sey vermedi.
link.findid.i_begging_money.remove
return 1

[function begging_success_npc]
if (<begging> < 25.0)
dorand 5
src.sadakaver 50
src.sadakaver 75
src.sadakaver 35
src.sadakaver 100
src.sadakaver 150
enddo
endif

if (<begging> > 24.9) && (<begging> < 50.0)
dorand 5
src.sadakaver 200
src.sadakaver 225
src.sadakaver 250
src.sadakaver 275
src.sadakaver 275
enddo
endif

if (<begging> > 49.9) && (<begging> < 75.0)
dorand 5
src.sadakaver 285
src.sadakaver 300
src.sadakaver 350
src.sadakaver 275
src.sadakaver 275
enddo

endif

if (<begging> > 74.9) && (<begging> < 100.0)
dorand 10
src.sadakaver 285
src.sadakaver 300
src.sadakaver 325
src.sadakaver 350
src.sadakaver 375
src.sadakaver 400
src.sadakaver 425
src.sadakaver 450
src.sadakaver 475
src.sadakaver 500
enddo

endif

[function sadakaver]
src.newitem i_gold
src.act.amount <args>
src.act.bounce

[function begging_success]
if (0<skilllock[6]> != 0) || (<begging> >= 100.0) || (<skilltotal> >= 7000)
return 1
endif
if (<eval <tag.skillgainbegg>>==0) || (<eval <tag.skillgainbegg>> < 0)
if (<begging> >= 0) && (<begging> < 50.0)
begging=<begging>+1
tag.skillgainbegg=0
endif

if (<begging> > 49.9) && (<begging> < 75.0)
begging=<begging>+1
tag.skillgainbegg=1
endif

if (<begging> > 74.9) && (<begging> < 100.0)
begging=<begging>+1
tag.skillgainbegg=2
endif
else
tag.skillgainbegg=<eval <tag.skillgainbegg> + (-1)>
endif

[eof]