Arkadaşlar şimdi pokemon projem için yazdığım skill_baller i yolluyorum kısalta bilecvek birşey varsa sizde bir bakın yardımcı olun :D:D
[ITEMDEF i_baller]
DEFNAME=i_baller
Id=i_bonnet
TYPE=T_BALLER
WEIGHT=2
Name=Ball Creater
CATEGORY=Items by Professions
SUBSECTION=Baller
DESCRIPTION=Baller's Tools
SKILLMAKE=BALLERING 35.0,t_baller
RESOURCES=4 i_ingot_iron
On=@Create
Color=077
On=@Dclick
src.xwerswoodx
Dialog d_skill_baller
return 1
[PLEVEL 1]
f_baller_makeball
f_baller_makerobe
[FUNCTION XWERSWOODX]
var.hamitfunc01=Your skill in Ballering has decreased by 0.1%. It is now <src.ballering>%.
[FUNCTION ballermake]
SOUND 002a
DORAND 3
SRC.ANIM 11
SRC.ANIM 12
SRC.ANIM 13
ENDDO
[FUNCTION f_baller_makeball]
if (<src.ballering> < <def.$<src.tag.baller>_skill>) || !(<src.restest <def.$<src.tag.baller>_ball> i_Ball>) || !(<src.restest <def.$<src.tag.baller>_kristal> i_Kristal>)
src.sysmessage=@026 <def.$<src.tag.baller>_msj>
return 1
else
src.consume=<def.$<src.tag.baller>_ball> i_ball
src.consume=<def.$<src.tag.baller>_kristal> i_kristal
src.ballermake
src.newitem=i_<src.tag.baller>
src.act.bounce
if (<src.ballering> < 100.0)
src.ballering=<src.ballering> + 0.1
src.sysmessage=@058 <var0.hamitfunc01>
else
src.sysmessage=@026 <def.$baller_function2>
endif
return 1
endif
[FUNCTION f_baller_makerobe]
if (<src.ballering> < <def.$<src.tag.baller>_skill>) || (<src.tailoring> < <def.$<src.tag.baller>_skill2>) || !(<src.restest <def.$<src.tag.baller>_cloth> i_cloth>) || !(<src.restest <def.$<src.tag.baller>_kristal> i_kristal>)
src.sysmessage=@026 <def.$<src.tag.baller>_msj>
return 1
else
src.consume=<def.$<src.tag.baller>_cloth> i_cloth
src.consume=<def.$<src.tag.baller>_kristal> i_kristal
src.ballermake
src.newitem=i_<src.tag.baller>
src.act.bounce
if (<src.ballering> < 100.0)
src.ballering=<src.ballering> + 0.1
src.sysmessage=@054 <var0.hamitfunc01>
src.tailoring=<src.tailoring> + {0.0 0.1}
else
endif
return 1
endif
[Dialog d_skill_baller]
10,10
page 0
// Arkaplan
resizepic 0 0 3600 525 315
resizepic 10 30 3000 150 275
resizepic 160 30 3000 355 275
resizepic 10 10 3000 505 20
// Butonlar
button 20 55 4006 4007 0 1 1
button 20 85 4006 4007 0 2 2
button 20 270 4006 4007 1 0 99 // Tekrar Yap
button 415 270 4006 4007 1 0 0 // Cancel button
dtext 60 270 155 Tekrar
dtext 455 270 155 Cancel
dtext 215 10 155 Baller Menu
dtext 60 55 155 Toplar
dtext 60 85 155 Diger
//***************************************
Page 1 //Toplar
dtext 175 35 155 Pokeball
dtext 275 35 155 Net Ball
dtext 375 35 155 Nest Ball
dtext 175 90 155 Great Ball
dtext 275 90 155 Luxury Ball
dtext 375 90 155 Ultra Great Ball
dtext 175 145 155 Ultra Ball
dtext 275 145 155 Master Ball
dtext 375 145 155 Ultra Master Ball
button 175 55 210 211 1 0 5
button 275 55 210 211 1 0 6
button 375 55 210 211 1 0 7
button 175 110 210 211 1 0 8
button 275 110 210 211 1 0 9
button 375 110 210 211 1 0 10
button 175 165 210 211 1 0 11
button 275 165 210 211 1 0 12
button 375 165 210 211 1 0 13
//************************************
Page 2 //Diğer
// row 1
dtext 175 35 155 Baller Robe
dtext 175 90 155 Baller Mage Robe
button 175 55 210 211 1 0 14
button 175 110 210 211 1 0 15
[DIALOG d_skill_baller text]
[DIALOG d_skill_baller button]
On=5
src.tag.baller=pokeball
src.f_baller_makeball
return 1
On=6
src.tag.baller=netball
src.f_baller_makeball
return 1
On=7
src.tag.baller=nestball
src.f_baller_makeball
return 1
On=8
src.tag.baller=greatball
src.f_baller_makeball
return 1
On=9
src.tag.baller=luxuryball
src.f_baller_makeball
return 1
On=10
src.tag.baller=ultragreatball
src.f_baller_makeball
return 1
On=11
src.tag.baller=ultraball
src.f_baller_makeball
return 1
On=12
src.tag.baller=masterball
src.f_baller_makeball
return 1
On=13
src.tag.baller=ultramasterball
src.f_baller_makeball
return 1
return 1
On=14
src.tag.baller=robe_baller
src.f_baller_makerobe
return 1
On=15
src.tag.baller=magerobe_baller
src.f_baller_makerobe
return 1
onbutton=99
if !(<src.tag.baller> == robe_baller) || !(<src.tag.baller> == magerobe_baller)
src.f_baller_makeball
return 1
else
src.f_baller_makerobe
return 1
endif
onbutton=0
RETURN 1
[eof]
aslında bunu ilk yapamamıştım ama nemesis abim saolsun deflerden falan bahsedince tuttum şu def işini :D:D
//*****************************************
// YAPIM: Hamit Devecioğlu ©2006-2009
// YAZAR: xwerswoodx
// KONU : Hamit Devecioğlu & Defname...
//*****************************************
// FILE LAST UPDATED: Pazar, Mayıs 31, 2009
VERSION=0.56b
//*****************************************
// BALLER
//*****************************************
[DEFNAME baller]
//Pokeball
$pokeball_msj=Bunu yapmak icin en az 50 ballering, 1 ball ve 1 kristale ihtiyaciniz var.
$pokeball_skill=50.0
$pokeball_ball=1
$pokeball_kristal=1
//Net Ball
$netball_msj=Bunu yapmak icin en az 55 ballering, 1 ball ve 2 kristale ihtiyaciniz var.
$netball_skill=55.0
$netball_ball=1
$netball_kristal=2
//Nest Ball
$nestball_msj=Bunu yapmak icin en az 60 ballering, 1 ball ve 3 kristale ihtiyaciniz var.
$nestball_skill=60.0
$nestball_ball=1
$nestball_kristal=3
//Great Ball
$greatball_msj=Bunu yapmak icin en az 65 ballering, 2 ball ve 4 kristale ihtiyaciniz var.
$greatball_skill=65.0
$greatball_ball=2
$greatball_kristal=4
//Luxury Ball
$luxuryball_msj=Bunu yapmak icin en az 70 ballering, 2 ball ve 5 kristale ihtiyaciniz var.
$luxuryball_skill=70.0
$luxuryball_ball=2
$luxuryball_kristal=5
//Ultra Great Ball
$ultragreatball_msj=Bunu yapmak icin en az 75 ballering, 2 ball ve 6 kristale ihtiyaciniz var.
$ultragreatball_skill=75.0
$ultragreatball_ball=2
$ultragreatball_kristal=6
//Ultra Ball
$ultraball_msj=Bunu yapmak icin en az 80 ballering, 3 ball ve 7 kristale ihtiyaciniz var.
$ultraball_skill=80.0
$ultraball_ball=3
$ultraball_kristal=7
//Master Ball
$masterball_msj=Bunu yapmak icin en az 85 ballering, 3 ball ve 8 kristale ihtiyaciniz var.
$masterball_skill=85.0
$masterball_ball=3
$masterball_kristal=8
//Ultra Master Ball
$ultramasterball_msj=Bunu yapmak icin en az 90 ballering, 3 ball ve 9 kristale ihtiyaciniz var.
$ultramasterball_skill=90.0
$ultramasterball_ball=3
$ultramasterball_kristal=9
//Baller Robe
$robe_baller_msj=Bunu yapmak icin en az 75 ballering, 80 tailoring, 150 kumas ve 1 kristale ihtiyaciniz var.
$robe_baller_skill=75.0
$robe_baller_skill2=80.0
$robe_baller_cloth=150
$robe_baller_kristal=1
//Baller Mage Robe
$magerobe_baller_msj=Bunu yapmak icin en az 85 ballering, 90 tailoring, 300 kumas ve 2 kristale ihtiyaciniz var.
$magerobe_baller_skill=85.0
$magerobe_baller_skill2=90.0
$magerobe_baller_cloth=300
$magerobe_baller_kristal=2
//*****************************************
// RENKLER
//*****************************************
[DEFNAME kilicrenkleri]
colors_nomagic=0
colors_rucky=0541
colors_quader=004f
colors_ruin=0063
colors_zinpier=01c7
colors_premier=01b2
colors_might=0592
colors_hitriquer=0078
colors_mitiums=027d
colors_force=02ae
colors_cutter=003a
colors_mignight=0253
colors_power=00ea
colors_landier=0148
colors_mortisma=02df
colors_vanquishing=0901
colors_healkiller=026a
colors_legentlier=00a8
colors_hellmith=03d9
[itemdef i_masterball_dolu]
//id i_bonnet
id=i_cannon_ball
name=Masterball
on=@create
hitpoints 100
color 0c
on=@dclick
if (<topobj.uid> != <src.uid>)
src.sysmessage @95 Top cantanda olmadan pokemonu cikartamazsin.
return 1
elseif (<more2>)
if (<src.flags>&statf_invisible) || (<src.flags>&statf_hidden)
src.sysmessage @95,,1 Gizlenmis durumdayken <name> kullanamazsin.
return 1
endif
endif
try src.newnpc <tag.beysid>
link <src.act.uid>
link.name <tag.name>
link.color <tag.color>
link.str <tag.bnkstr>
link.dex <tag.bnkdex>
link.int <tag.bnkint>
link.fame <tag.bnkfame>
link.karma <tag.bnkkarma>
link.memorydel <src.uid>
link.newitem i_memory
link.act.attr 04
link.act.more1 04
link.act.more2 <serv.time>
link.act.morep <link.p>
link.act.color memory_ipet
link.act.timer -1
link.act.link <src.uid>
link.act.cont <link.uid>
link.flags <link.flags>&statf_pet
link.update
link.anim 5
link.bark 3
link.effect 3,i_fx_sparkle,6,15,1
link.sayua @0790 HRRRRRRR !!
Dorand 6
src.say @080 Seni sectim <tag.name> !
src.say @080 Hakla onu <tag.name> !
src.say @080 <tag.name> git !
src.say @080 Ye onu <tag.name> !
src.say @080 Isini bitir onun <tag.name> !
src.say @080 Git <tag.name> !
Enddo
src.newitem i_<name>
src.act.bounce
remove
return 1
on=@click
message @<tag.color> <tag.name> (<name>)
return 1
on=@equip
unequip
return 1
////////////////////////////////////////////////////////////////////////////
// BOŞ POKE TOPU
////////////////////////////////////////////////////////////////////////////
[itemdef i_masterball]
//id i_bonnet
id=i_cannon_ball
name Masterball
Resources=3 i_ball, 8 i_kristal
on=@create
color 0c
on=@dclick
if (<topobj.uid> != <src.uid>
src.sysmessage @95 <name> kullanabilmek icin cantaniza almalsiniz.
return 1
elseif (<more2>
if (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @95 <name>'u bedeniniz gizlenmis iken kullanamazsiniz.
return 1
end if
else
TARGET @75 Kucultecegin pokemonu sec..
return 1
on=@targon_char
if !(<src.targ.npc> == 85)
src.sysmessage @055 Bu bir pokemon degil..
return 1
elseif !(<src.targ.ismypet>)
src.sysmessage @055 Bu pokemon size ait degil.
return 1
elseif (<src.targ.distance> > 6 )
src.sysmessage @055 Cok uzaktasiniz..
return 1
elseif (<src.targ.hits> > 55)
src.sysmessage @055 Pokemonu alabilmeniz icin caninin 55 den kucuk olmasi gerekir.
return 1
else
tag.beysid <src.targ.id>
tag.color <src.targ.color>
tag.name <src.targ.name>
tag.bnkstr <src.targ.str>
tag.bnkdex <src.targ.dex>
tag.bnkint <src.targ.int>
tag.bnkfame <src.targ.fame>
tag.bnkkarma <src.targ.karma>
tag.bnkfood <src.targ.food>
src.newitem i_<name>_dolu
new.tag.name <tag.name>
new.tag.beysid <tag.beysid>
new.tag.color <tag.color>
new.tag.bnkstr <tag.bnkstr>
new.tag.bnkdex <tag.bnkdex>
new.tag.bnkint <tag.bnkint>
new.tag.bnkfame <tag.bnkfame>
new.tag.bnkkarma <tag.bnkkarma>
new.tag.bnkfood <tag.food>
new.tag.id <tag.beysid>
src.act.bounce
src.act.color <tag.color>
src.sysmessage @088 Pokemonunuz Kucultuluyor..
src.targ.remove
Dorand 10
src.say @055 <src.targ.name> don !
src.say @055 <src.targ.name> savasmayi birak !
src.say @055 <src.targ.name> geri gel !
src.say @055 Topuna don <src.targ.name> !
src.say @055 <src.targ.name> savastan cik !
src.say @055 <src.targ.name> gel bura !
src.say @055 <src.targ.name> seni geri cagiriyorum !
src.say @055 Poketopa geri don <src.targ.name> !
src.say @055 Hey ! <src.targ.name> poke topuna don !
src.say @055 <src.targ.name> geri cekil !
Enddo
return 1
on=@targon_item
src.sysmessage @088 Yanlizca pokemonlar <name>'a kapatilabilir.
return 1
on=@targon_ground
src.sysmessage @088 Hahaha! yer <name>'a sigmaz.
return 1
on=@click
if (<amount>==1)
message @080 <name>
return 1
else
message @080 <name> (<amount>)
return 1
endif
on=@equip
unequip
return 1
1 tane ball scp si verdim hepsi aynı zaten siism değişik sadece
[ITEMDEF 01f04]
DEFNAME=i_robe_baller
RESOURCES=1 i_kristal, 16 i_cloth
Name=Baller Robe
WEIGHT=3
TYPE=T_CLOTHING
DYE=1
ARMOR=7
//DUPELIST=01f04
SKILLMAKE=Ballering 70.0, t_baller
CATEGORY=Provisions - Clothes
SUBSECTION=Shirts & Robes
DESCRIPTION=Baller Robe
On=@Create
Color=0430
HITPOINTS=400
On=@Click
message @75 [ <serv.name> ]
message @95 <name>
return 1
On=@dclick
if (<src.tinkering> >= 80.0)
equip
return 1
else
unequip
return 1
endif
ON=@Equip
IF ( <Src.Tinkering> < 80.0 )
src.message En az 80 tinkering skiline sahip olmalisiniz.
UNEQUIP
RETURN 1
ENDIF
src.events +e_ballerrobe
src.say @026,3,0,1 * <name>'nin Gucunu Uzerinde Hisseder *
SRC.SFX snd_SPELL_LIGHTNING
SRC.EFFECT=1,1
ON=@unEquip
src.events -e_ballerrobe
[events e_ballerrobe]
ON=@GetHit
if (<findid.i_rune_poison>)
say @036,0,0,0 * etkilemez *
FINDID.i_rune_poison.remove
endif
ON=@Spelleffect
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=57)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=55)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=12)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=42)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=1)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=3)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=8)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=27)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
if !(<restest 1 i_robe_baller>)
elseIF (<ARGN>=46)
say @036,0,0,0 * etkilenmez *
RETURN 1
ENDIF
//*********************************************
//*************************BALLER MAGE ROBE
//*********************************************
[itemdef i_magerobe_baller]
Defname=i_magerobe_baller
Id=i_deathshroud
Name=Baller Mage Robe
Type=t_normal
Resources=i_kristal
On=@Create
Color=0430
HITPOINTS=400
On=@Click
message @75 [ <serv.name> ]
message @95 <name>
return 1
On=@dclick
if (<src.tinkering> >= 80.0)
equip
return 1
else
unequip
src.sysmessage @026 En az 80 tinkering skiline sahip olmalisiniz.
return 1
endif
ON=@Equip
IF ( <Src.Tinkering> < 80.0 )
UNEQUIP
src.sysmessage @026 En az 80 tinkering skiline sahip olmalisiniz.
RETURN 1
endif
src.say @026,3,0,1 * <name>'nin Gucunu Uzerinde Hisseder *
SRC.SFX snd_SPELL_LIGHTNING
SRC.EFFECT=1,1
src.events +e_ballerrobe
ON=@unEquip
src.events -e_ballerrobe
[EOF]
Bu konu xwerswoodx tarafından düzenlendi(2009-06-01 05:52, 14 yıl önce)
