///////////////////////////////////////////////////////////////////////
// *Scripter Name: -
// *Shard Name: The Rosario Game
// *Shard Address: www.rosario.gen.tr
// *Personal Address: www.raskolserna.com
// *Sphere Version: 0.56b
//
// *Bu kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// *The codes are written or were edited by TheRaskol (Raskol Serna).
///////////////////////////////////////////////////////////////////////

[CHARDEF c_h_farmer_murat]
name #names_humanmale the Farmer
id c_man
can mt_equip|mt_nonmover

TSPEECH=spk_farmer

On=@Create
str 9500
dex 9500
int 9500
color 0418
speechcolor 0481
food 990
npc 1

itemnewbie i_hair_long
color 044e
itemnewbie i_beard_vandyke
color 044e
itemnewbie i_hat_floppy
color 57
itemnewbie i_robe
color 52
itemnewbie i_backpack
itemnewbie i_bankbox
color 0384
timer 900
attr 014
itemnewbie i_shirt_plain
itemnewbie i_pants_long
itemnewbie i_shoes_plain

On=@Dclick
if (<distance> > 2)
src.sysmessage @38 Vendora cok uzaksin.
return 1
else
src.dialog d_farmer
return 1
endif

On=@GetHit
return 1

On=@Death
hits 9500
return 1




// FUNCTIONLAR ////


[PLEVEL 1]
farmer


[FUNCTION skillartis]
if (<src.tag.farming> == 1000)
return 1
else
if (rand(7) == 1)
src.tag.farming <eval <src.tag.farming>+1>
src.sysmessage @68 Farming skilliniz 0.1 artti.
return 1
endif
endif

/// DIALOGLAR ////




[DIALOG d_farmer]
200,200
resizepic 0 0 5120 275 205
resizepic 10 10 3000 255 185
button 30 60 4005 4006 1 0 1
button 30 95 4005 4006 1 0 2
button 30 130 4005 4006 1 0 3
button 200 160 4005 4006 1 0 4
text 30 25 0 0
text 70 60 0 1
text 70 95 0 2
text 70 130 0 3
text 120 160 0 4



//// NPC ////

On=@Dclick
if (<distance> > 2)
src.sysmessage @38 Vendora cok uzaksin.
return 1
else
src.dialog d_farmer
return 1
endif

On=@GetHit
return 1

On=@Death
hits 9500
return 1




// FUNCTIONLAR ////


[FUNCTION skillartis]
if (<src.farming> == 1000)
return 1
else
src.farming <eval <src.farming>+3>
return 1
endif
endif

/// DIALOGLAR ////

[dialog d_farmsil]
50, 0
resizepic 0 30 83 180 187
resizepic 7 39 3000 168 170
resizepic 7 39 3500 168 170

htmlgump 43 60 150 200 0 0 0
htmlgump 43 80 150 200 1 0 0
htmlgump 43 100 150 200 2 0 0
htmlgump 54 130 150 20 3 0 0
htmlgump 54 150 150 20 4 0 0
tilepic 105 100 01e34

button 30 130 2511 2510 1 0 1
button 30 150 2511 2510 1 0 2

[DIALOG d_farmsil text]
Tarlayi kaldirmak
istediginize emin
misiniz?
Evet
Hayir

[DIALOG d_farmsil button]
on=1
try uid.<src.targ.tag.farm1>.remove
try uid.<src.targ.tag.farm2>.remove
try uid.<src.targ.tag.farm3>.remove
try uid.<src.targ.tag.farm4>.remove
try uid.<src.targ.tag.farm5>.remove
try uid.<src.targ.tag.farm6>.remove
try uid.<src.targ.tag.farm7>.remove
try uid.<src.targ.tag.farm8>.remove
try uid.<src.targ.tag.farm9>.remove
try uid.<src.targ.tag.farm10>.remove
try uid.<src.targ.tag.farm11>.remove
try uid.<src.targ.tag.farm12>.remove
try uid.<src.targ.tag.farm13>.remove
try uid.<src.targ.tag.farm14>.remove
try uid.<src.targ.tag.farm15>.remove
try uid.<src.targ.tag.farm16>.remove
try uid.<src.targ.tag.farm17>.remove
try uid.<src.targ.tag.farm18>.remove
try uid.<src.targ.tag.farm19>.remove
try uid.<src.targ.tag.farm20>.remove
try uid.<src.targ.tag.farm21>.remove
try uid.<src.targ.tag.farm22>.remove
try uid.<src.targ.tag.farm23>.remove
try uid.<src.targ.tag.farm24>.remove
try uid.<src.targ.tag.farm25>.remove
try uid.<src.targ.tag.farm26>.remove
try uid.<src.targ.tag.farm27>.remove
try uid.<src.targ.tag.farm28>.remove
try uid.<src.targ.tag.farm29>.remove
try uid.<src.targ.tag.farm30>.remove
try uid.<src.targ.tag.farm31>.remove
try uid.<src.targ.tag.farm32>.remove
try uid.<src.targ.tag.farm33>.remove
try uid.<src.targ.tag.farm34>.remove
try uid.<src.targ.tag.farm35>.remove
try uid.<src.targ.tag.farm36>.remove
try uid.<src.targ.tag.farm37>.remove
try uid.<src.targ.tag.farm38>.remove
try uid.<src.targ.tag.farm39>.remove
try uid.<src.targ.tag.farm40>.remove
try uid.<src.targ.tag.farm41>.remove
try uid.<src.targ.tag.farm42>.remove
try uid.<src.targ.tag.farm43>.remove
try uid.<src.targ.tag.farm44>.remove
try uid.<src.targ.tag.farm45>.remove
try uid.<src.targ.tag.farm46>.remove
try uid.<src.targ.tag.farm47>.remove
try uid.<src.targ.tag.rented>.id i_forrent
try uid.<src.targ.tag.rented>.color 58
try uid.<src.targ.tag.rented>.name kiralik
try uid.<src.targ.tag.rented>.fix
src.tag.farmer 0
src.newitem i_deed_farm
src.act.bounce
src.sysmessage @07d5,3,1 Tarlanizi basariyla sildiniz..
return 1

on=2
return 1




/////// farmer


[dialog d_farmer]
0,0
page 0

resizepic 30 30 83 270 236
resizepic 37 39 3000 258 218
resizepic 37 39 3500 258 218
htmlgump 70 60 250 20 0 0 0

htmlgump 220 200 50 20 1 0 0
button 200 200 2511 2510 1 0 100

page 1
htmlgump 90 90 150 20 2 0 0
htmlgump 90 120 150 20 3 0 0
htmlgump 90 150 150 20 4 0 0

tilepic 50 85 014ef
tilepic 50 125 0c75
tilepic 46 150 0ff6


button 250 90 2511 2510 1 0 10
button 250 120 2511 2510 1 0 11
button 250 150 2511 2510 1 0 12

[dialog d_farmer text]
Darkness Farmer Alisveris Menusu
Kapat
Farm Deed (250k)
Kaman Seed (500gp)
Empty Jug (3000gp)

[dialog d_farmer button]
on 10
src.tag.dlgnoxi d_farmer
src.tag.fiyat 250000
src.tag.urun i_deed_farm
src.dialog d_alcak2

on 11
src.tag.dlgnoxi d_farmer
src.tag.fiyat 500
src.tag.urun i_tohum
src.dialog d_alcak

on 12
src.tag.dlgnoxi d_farmer
src.tag.fiyat 3000
src.tag.urun i_surahi
src.dialog d_alcak


/// ITEMLER ////


[ITEMDEF i_deed_farm]
name farm deed
id i_deed

On=@Create
attr attr_newbie
color 58

on=@click
message @58 a farm deed
return 1

on=@dclick
if (<src.farming> > 300)
target @07a1,3,1 Tarlanizi kurmak istediginiz alanin kira tasina tiklayin.
return 1
else
src.sysmessage @066d,3,1 Farming yeteneginizin en az 30 olmasi gerekiyor.
return 1

On=@Targon_Item
if (<src.tag.farmer> == 0)
if (<src.targ.baseid> == i_forrent)
src.tag.farmer 1
src.targ.id i_rented
src.targ.color 089
src.targ.name <src.name>
src.targ.tag.rented <src.targ.uid>
src.targ.fix
src.targ.tag.sahip <src.uid>
src.act.tag.sahip <src.uid>
src.newitem 088a
src.targ.tag.farm1 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -4 -1 0
src.newitem 088a
src.targ.tag.farm2 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -3 -1 0
src.newitem i_kapi_farm
src.targ.tag.farm3 <src.act.uid>
src.act.more1 <src.uid>
src.act.p <src.targ.p>
src.act.move -2 -1 0
src.newitem 088a
src.targ.tag.farm4 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -1 -1 0
src.newitem 088a
src.targ.tag.farm5 <src.act.uid>
src.act.p <src.targ.p>
src.act.move 0 -1 0
src.newitem 088b
src.targ.tag.farm6 <src.act.uid>
src.act.p <src.targ.p>
src.act.move 0 -1 0
src.newitem 088b
src.targ.tag.farm7 <src.act.uid>
src.act.p <src.targ.p>
src.act.move 0 -2 0
src.newitem 088b
src.targ.tag.farm8 <src.act.uid>
src.act.p <src.targ.p>
src.act.move 0 -3 0
src.newitem 088b
src.targ.tag.farm9 <src.act.uid>
src.act.p <src.targ.p>
src.act.move 0 -4 0
src.newitem 088b
src.targ.tag.farm10 <src.act.uid>
src.act.p <src.targ.p>
src.act.move 0 -5 0
src.newitem 088a
src.targ.tag.farm11 <src.act.uid>
src.act.p <src.targ.p>
src.act.move 0 -6 0
src.newitem 088a
src.targ.tag.farm12 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -1 -6 0
src.newitem 088a
src.targ.tag.farm13 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -2 -6 0
src.newitem 088a
src.targ.tag.farm14 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -3 -6 0
src.newitem 088a
src.targ.tag.farm15 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -4 -6 0
src.newitem i_toprak
src.targ.tag.farm16 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -4 -5 0
src.newitem i_toprak
src.targ.tag.farm17 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -3 -5 0
src.newitem i_toprak
src.targ.tag.farm18 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -2 -5 0
src.newitem i_toprak
src.targ.tag.farm19 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -1 -5 0
src.newitem i_toprak
src.targ.tag.farm20 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -4 -4 0
src.newitem i_toprak
src.targ.tag.farm21 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -3 -4 0
src.newitem i_toprak
src.targ.tag.farm22 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -2 -4 0
src.newitem i_toprak
src.targ.tag.farm23 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -1 -4 0
src.newitem i_toprak
src.targ.tag.farm24 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -4 -3 0
src.newitem i_toprak
src.targ.tag.farm25 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -3 -3 0
src.newitem i_toprak
src.targ.tag.farm26 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -2 -3 0
src.newitem i_toprak
src.targ.tag.farm27 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -1 -3 0
src.newitem i_toprak
src.targ.tag.farm28 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -4 -2 0
src.newitem i_toprak
src.targ.tag.farm29 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -3 -2 0
src.newitem i_toprak
src.targ.tag.farm30 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -2 -2 0
src.newitem i_toprak
src.targ.tag.farm31 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -1 -2 0
src.newitem i_toprak
src.targ.tag.farm32 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -4 -1 0
src.newitem i_toprak
src.targ.tag.farm33 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -3 -1 0
src.newitem i_toprak
src.targ.tag.farm34 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -2 -1 0
src.newitem i_toprak
src.targ.tag.farm35 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -1 -1 0
src.newitem 088b
src.targ.tag.farm36 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -5 -1 0
src.newitem 088b
src.targ.tag.farm37 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -5 -2 0
src.newitem 088b
src.targ.tag.farm38 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -5 -3 0
src.newitem 088b
src.targ.tag.farm39 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -5 -4 0
src.newitem 088b
src.targ.tag.farm40 <src.act.uid>
src.act.p <src.targ.p>
src.act.move -5 -5 0
src.newitem i_toprak
src.targ.tag.farm41 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move 0 -5 0
src.newitem i_toprak
src.targ.tag.farm42 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move 0 -4 0
src.newitem i_toprak
src.targ.tag.farm43 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move 0 -3 0
src.newitem i_toprak
src.targ.tag.farm44 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move 0 -2 0
src.newitem i_toprak
src.targ.tag.farm45 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move 0 -1 0
src.newitem i_korkuluk
src.act.name <src.name>
src.targ.tag.farm46 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move 0 -7 0
src.newitem i_fici
src.targ.tag.farm47 <src.act.uid>
src.act.tag.sahip <src.uid>
src.act.p <src.targ.p>
src.act.move -4 0 0
remove
return 1
endif
endif
if (<src.targ.baseid> == i_rented)
src.sysmessage @066d,3,1 Bu alana daha once tarla kurulmus.
return 1
endif
if !(<src.targ.baseid> == i_forrent)
src.sysmessage @066d,3,1 Bu bir kiralama tasi degil.
return 1
endif
if !(<src.tag.farmer> == 0)
src.sysmessage @066d,3,1 Daha onceden kurulu bir tarlaniz bulunmakta.
return 1
endif

On=@Targon_Char
return 1

On=@Targon_Ground
return 1

[itemdef i_korkuluk]
defname i_korkuluk
id i_scarecrow
name scarecrow

on=@create
attr attr_move_never

on=@click
message @58 a scarecrow
message @065 [<name>]
return 1

[itemdef i_forrent]
name kiralik
id 01bda
type t_normal

on=@create
attr attr_move_never
color 58

on=@click
message @58 Farm Area
message @065 [for rent]
return 1

on=@dclick
src.sysmessage @58,3,1 Tarlayi kurmak icin farm deed'e tiklayip bu tasi secmeniz gerekiyor..
return 1

[itemdef i_rented]
name kiralik
id 01bda
type t_normal

on=@create
attr attr_move_never
color 089

on=@click
message @065 [Owner: <name>]
message @58 Farm Area
message @38 [rented]
return 1

on=@dclick
if (<src.targ.tag.sahip> = <src.uid>)
src.dialog d_farmsil
return 1
else
src.sysmessage @066d,3,1 Bu tarla size ait degil. Tarla sahibi <name>.
return 1
endif

[ITEMDEF i_toprak]
name Toprak
id 031f4
type t_eq_Script

On=@Create
attr 010

On=@Click
if (<eval <src.targ.tag.dolu>> == 0)
message @065 a field
message @38 [seed missing]
return 1
endif
if (<src.targ.tag.dolu> == 1)
message @065 a field
message @58 [seed available]
message @38 [dehydration in <eval <timer>/3600> hours]
return 1
endif

on=@dclick
return 1

On=@Pickup_Ground
return 1

On=@Timer
try uid.<tag.tohum>.remove
tag.dolu 0
return 1


[ITEMDEF i_kapi_farm]
id 0866
name door

On=@Create
attr 010

On=@Dclick
if (<src.targ.distance> < 3)
if !(<more1> == <src.uid>)
src.sysmessage @066d,3,1 Baskasinin tarlasina giremezsiniz.
return 1
else
return 0
endif
else
return 1
endif

[ITEMDEF i_tohum]
name seed
id i_fruit_honeydewmelon
type t_eq_Script


On=@Create
color 07d5

On=@Click
if (<amount> == 1)
message @58 a kaman seed
else
message @58 <amount> kaman seeds
endif
return 1

On=@Dclick
Target @084a,3,1 Tohumu tarlanizdaki bos bir alana ekin.
return 1

On=@Targon_Item
if (<src.targ.baseid> == i_toprak)
if (<src.targ.tag.sahip> == <src.uid>)
if (<src.targ.distance> > 1)
src.sysmessage @066d,3,1 Cok uzaksiniz.
return 1
else
if (<eval <src.targ.tag.dolu>> == 0)
if (rand(50) <= <eval <src.farming>/40>)
if (<amount> == 1)
remove
src.skillartis
src.targ.tag.dolu 1
src.targ.timer 18000
src.newitem i_tohum2
src.act.tag.topragi <src.targ.uid>
src.targ.tag.tohum <src.act.uid>
src.act.link <src.targ.uid>
src.act.tag.sahibi <src.uid>
src.act.timer 3*60*60
src.act.p <src.targ.p>
src.act.move 0 0
src.sysmessage @58,3,1 Tohumu topraga ektiniz..
return 1
else
amount -= 1
update
src.skillartis
src.targ.tag.dolu 1
src.targ.timer 18000
src.newitem i_tohum2
src.act.tag.topragi <src.targ.uid>
src.targ.tag.tohum <src.act.uid>
src.act.link <src.targ.uid>
src.act.tag.sahibi <src.uid>
src.act.timer 3*60*60
src.act.p <src.targ.p>
src.act.move 0 0
src.sysmessage @58,3,1 Tohumu topraga ektiniz..
return 1
endif
else
src.sysmessage @066d,3,1 Tohumu ekemediniz.
return 1
endif
else
src.sysmessage @066d,3,1 Bu toprak daha once islenmis.
return 1
endif
endif
else
src.sysmessage @066d,3,1 Yalnizca kendi topraginiza ekim yapabilirsiniz.
return 1
endif
else
return 1
endif


[ITEMDEF i_Tohum2]
name Tohum
id i_fruit_honeydewmelon
type t_eq_script


On=@Create
attr 010
color 07d5

On=@Timer
if (rand(50) <= <eval (<uid.<tag.sahibi>.farming>/40>))
id i_cicek
color 07d5
update
link.tag.dolu 0
return 1
else
id i_cicek3
color 0455
timer 900
update
link.tag.dolu 0
return 1
endif

On=@Click
message @065 a kaman seed
message @58 [grow in <eval <timer>/3600> hours]
return 1

On=@Dclick
return 1


[ITEMDEF i_fici]
name Su Ficisi
id 0e7b
type t_eq_script

On=@Create
tag.dolu 1
attr attr_move_never

On=@Targon_Ground
return 1

On=@Timer
tag.dolu 1
return 1

on=@dclick
src.sysmessage @58,3,1 Doldurmak istediginiz surahiye tiklayip ficiyi secin.
return 1

On=@Click
if (<tag.dolu> == 0)
message @065 a water butt
message @38 [get full in <eval <timer>/60> min.]
return 1
else
message @065 a water butt
message @03a [full]
return 1
endif

On=@Pickup_Ground
return 1


[ITEMDEF i_surahi]
name Surahi
id 0ff6
type t_eq_Script

On=@Create
attr attr_decay

on=@click
message @065 a jug
message @38 [empty]
return 1

On=@Dclick
Target @58,3,1 Su doldurmak icin su ficisini secin.
return 1

On=@Targon_Item
if (<src.targ.baseid> == i_fici)
if (<src.targ.tag.dolu> == 1)
remove
src.targ.tag.dolu 0
src.targ.timer 15*60
src.newitem i_surahi_Dolu
src.act.bounce
src.sysmessage @03a,3,1 Surahiyi doldurdunuz.
return 1
else
src.sysmessage @066d,3,1 Bu fici bos.
return 1
endif
else
src.sysmessage @066d,3,1 Bu bir su ficisi degil.
return 1
endif

[ITEMDEF i_surahi_dolu]
name Dolu Surahi
id 0ff9
type t_eq_Script

On=@Create
attr attr_decay

On=@Click
message @065 a jug
message @03a [full]
return 1

On=@Dclick
Target @07d5,3,1 Sulamak istediginiz topragi secin.
return 1

On=@Targon_Item
if (<src.targ.baseid> == i_toprak)
if (<src.targ.tag.sahip> == <src.uid>)
if (<src.targ.tag.dolu> == 1)
if (<eval <src.targ.timer>/180> < 6)
remove
src.targ.timer 5*60*60
src.newitem i_surahi
src.act.bounce
return 1
else
src.sysmessage @066d,3,1 Topragi 5 saatte bir sulayiniz.
return 1
endif
else
src.sysmessage @066d,3,1 Bu topraga tohum ekilmemis.
return 1
endif
else
src.sysmessage @066d,3,1 Sadece kendi topraginizi sulayabilirsiniz.
return 1
endif
else
src.sysmessage Bu toprak deil.
return 1
endif


[ITEMDEF i_cicek]
name Cicek
id i_flower_campion
type t_eq_script

On=@Create
attr 010
color 07d5

On=@Click
message @58 kaman plant
return 1

On=@Dclick
if (<distance> < 2)
if (<src.uid> == <src.targ.tag.sahibi>)
src.anim 32
src.targ.remove
src.newitem i_cicek2
src.act.bounce
src.skillartis
return 1
else
src.sysmessage @066d,3,1 Sadece sahibi alabilir.
return 1
endif
else
src.sysmessage @066d,3,1 Cok uzaksiniz.
return 1
endif


On=@Pickup_Ground
return 1


[ITEMDEF i_cicek2]
name Fruit
id i_fruit_pumpkin
type t_eq_script
value 16000

On=@Create
dorand 2
color 084a
color 066d
enddo

On=@Click
if (<amount> = 1)
message @58 kaman fruit
return 1
else
message @58 <amount> kaman fruits
return 1

on=@dclick
return 1

[ITEMDEF i_cicek3]
name Cicek
id i_flower_redpoppies
type t_eq_script

On=@Create
attr 010
color 066d

On=@Click
message @38 faded kaman plant
return 1

on=@dclick
src.sysmessage @066d,3,1 Bu bitki solmus.
return 1

On=@timer
remove
return 1


On=@Pickup_Ground
return 1

[EOF]