Script Payla$ım..

Theron · 13-07-06, 16:10

merhaba arkada$lar ;
Forumdan bir kaç arkada$ım scp.isteqlerinde bulunduLar..
ßende kendi yazdığım bir kaç scripti ekliyorum ;
Sizde ;;;
Yazdığınız , elinizde $uan mevcut olan scriptleri ekleyebilirsiniz tabii

Genel itibariyle accountsystemi olmadan accountlar Remote den
## account add theron theron
## account theron plevel 7
## save(#)
yazarak açılıyor..
ßunu ßiraz kolayla$tırmak açısından ;;

Kod:

\\\\ †™theron ///
\\\\\ Å :) ♪ /////#.accadd komutunuz kullanınız..
[plevel 6]
accekle

[function accekle]
if (<src.account.plevel> > 4)
	if (strmatch('<src.name>','theron'))
	src.dialog d_accadd
	return 1
	else
	src.smg Plevel'in du$uk dostum - 
        src.smg Eger acc eklemek istiyorsan veya eklettirmek istiyorsan - theron'u bul :)
	return 1
	endif

endif

[dialog d_accadd]
150,50
page 0
resizepic 0 0 3500 330 200
text 70 15 920 0
text 70 25 920 1

text 25 50 46 2

text 25 80 0 3
resizepic 130 77 9300 180 30
textentry 150 80 170 16 990 1 7

text 80 120 0 4
resizepic 130 117 9300 180 30
textentry 150 120 170 16 990 2 7



button 270 160 4031 4030 1 0 1 
text 210 160 0 8 

resizepic 0 220 3500 330 80
text 40 240 990 5
text 75 260 990 6

[dialog d_accadd text]
    <serv.name> / by  theron 
__________________

        <serv.name> Shard Acc system
Kullanici Adi:
Sifre:
Kullanici adi ve sifre sadece 
rakamlar ve harflerden olusmali !
<var.blankline>
Yarat
<SRC.TAG.ARGTXT1>
<SRC.TAG.ARGTXT2>

[dialog d_accadd button]
on=0
src.sms Iptal Edildi.

on=1
SRC.TAG.argtxt1=<ARGTXT[1]>
SRC.TAG.argtxt2=<ARGTXT[2]>
src.serv.account add <ARGTXT[1]> <ARGTXT[2]>
src.update
src.smg Account yaratildi.
src.smg Kullanici adi: <ARGTXT[1]>
src.smg Sifre: <ARGTXT[2]> 


///////layerbul
[function layerbul]
tag.layerbul1 <findlayer(1).dispid>
tag.layerbul2 <findlayer(2).dispid>
tag.layerbul3 <findlayer(3).dispid>
tag.layerbul4 <findlayer(4).dispid>
tag.layerbul5 <findlayer(5).dispid>
tag.layerbul6 <findlayer(6).dispid>
tag.layerbul7 <findlayer(7).dispid>
tag.layerbul8 <findlayer(8).dispid>
tag.layerbul9 <findlayer(9).dispid>
tag.layerbul10 <findlayer(10).dispid>
tag.layerbul11 <findlayer(11).dispid>
tag.layerbul12 <findlayer(12).dispid>
tag.layerbul13 <findlayer(13).dispid>
tag.layerbul14 <findlayer(14).dispid>
tag.layerbul15 <findlayer(15).dispid>
tag.layerbul16 <findlayer(16).dispid>
tag.layerbul17 <findlayer(17).dispid>
tag.layerbul18 <findlayer(18).dispid>
tag.layerbul19 <findlayer(19).dispid>
tag.layerbul20 <findlayer(20).dispid>
tag.layerbul21 <findlayer(21).dispid>
tag.layerbul22 <findlayer(22).dispid>
tag.layerbul23 <findlayer(23).dispid>
tag.layerbul24 <findlayer(24).dispid>
tag.layerbul25 <findlayer(25).dispid>
tag.layerbul26 <findlayer(26).dispid>
tag.layerbul27 <findlayer(27).dispid>
tag.layerbul28 <findlayer(28).dispid>
tag.layerbul29 <findlayer(29).dispid>
dialog d_tagci

[dialog d_tagci]
0,0
resizepic 100 20 3000 300 600
text 110 25 920 0
text 110 45 920 1
text 110 65 920 2
text 110 85 920 3
text 110 105 920 4
text 110 125 920 5
text 110 145 920 6
text 110 165 920 7
text 110 185 920 8
text 110 205 920 9
text 110 225 920 10
text 110 245 920 11
text 110 265 920 12
text 110 285 920 13
text 110 305 920 14
text 110 325 920 15
text 110 345 920 16
text 110 365 920 17
text 110 385 920 18
text 110 405 920 19
text 110 425 920 20
text 110 445 920 21
text 110 465 920 22
text 110 485 920 23
text 110 505 920 24
text 110 525 920 25
text 110 545 920 26
text 110 565 920 27
text 110 585 920 28

[dialog d_tagci text]
Layer 1: <tag.layerbul1>
Layer 2: <tag.layerbul2>
Layer 3: <tag.layerbul3>
Layer 4: <tag.layerbul4>
Layer 5: <tag.layerbul5>
Layer 6: <tag.layerbul6>
Layer 7: <tag.layerbul7>
Layer 8: <tag.layerbul8>
Layer 9: <tag.layerbul9>
Layer 10: <tag.layerbul10>
Layer 11: <tag.layerbul11>
Layer 12: <tag.layerbul12>
Layer 13: <tag.layerbul13>
Layer 14: <tag.layerbul14>
Layer 15: <tag.layerbul15>
Layer 16: <tag.layerbul16>
Layer 17: <tag.layerbul17>
Layer 18: <tag.layerbul18>
Layer 19: <tag.layerbul19>
Layer 20: <tag.layerbul20>
Layer 21: <tag.layerbul21>
Layer 22: <tag.layerbul22>
Layer 23: <tag.layerbul23>
Layer 24: <tag.layerbul24>
Layer 25: <tag.layerbul25>
Layer 26: <tag.layerbul26>
Layer 27: <tag.layerbul27>
Layer 28: <tag.layerbul28>
Layer 29: <tag.layerbul29>


[dialog d_tagci button]
[EOF]

Genel Olarak UO accountunuzdaki charların silinme süresi 7 gündür
ßunu indirgeyebilirsiniz
Nasıl mı ? Ahanda böyle ;

Kod:

// Guncellendi / †™ Theron / Xhearon(2004)///////
////////////////////////////////////////////////

[Function charsil]
dialog d_charsil
return 1

[Function charsil_iptal]
src.findid.i_charsil.remove
src.sysmessage @55 Karakterinizin silme islemini durdurdunuz.
return 1

[ITEMDEF i_charsil]
ID=i_gold
name=charimi silmek istiorum
layer=layer_special
type t_eq_script

On=@Create
timer=60*60*24*2 // 2 gün - son rakkam 7 yapılırsa bir hafta olabilir..
return 1

On=@Timer
remove 1
return 1

/////////////
// Dialog //
///////////

[DIALOG d_charsil]
150,200

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 0

[DIALOG d_charsil TEXT]
Charinizi sileceksiniz,
Evet!
Emin misiniz?
Vazgec!

[DIALOG d_charsil BUTTON]
ONBUTTON=0
src.sysmessage @150 Karakterinizi silmekten vazgectiniz.
RETURN 1

ONBUTTON=1
src.newitem i_charsil
src.act.equip
src.sysmessage @1153 Karakteriniz 2 icerisinde silinecektir. Islemi durdurmak icin .charsil_iptal komutunu kullanmaniz yeterli olacaktir.
return 1

[EOF]

Hatalı evler için uyarı & Playerkiller (pk)ların resurrect olması & Moongate giri$lerini,destart,,covetus vs gibi dungeonların giri$ ve çıkı$larına field atılmasını engellemek için gereken script ;

Kod:

\\\\\\\\\\\\\\\\\\ †™theron //////////////////
\\\\\\\\ Son güncelleme : 05.10.2005 ////////
---------------------------------------------

[function uyari]
if (<src.account.plevel> > 2)
newitem=i_deed_uyari
ACT.P=<P>
else
return 1
endif


[ITEMDEF i_deed_uyari]
DEFNAME=i_deed_uyari
ID=i_deed


On=@Create
color 0480
timer -1
attr 00010

on=@dclick // Deed e çift tıkladığınızda args menüsü gelecek !
dialog d_uyarideed

[dialog d_uyarideed]
-175,150
resizepic 190 175 5120 640 150
resizepic 200 185 3000 620 130
resizepic 220 235 3000 575 22

htmlgump 220 200 200 20 0 0 0		// ba$lik
htmlgump 255 277 100 20 1 0 0		// ok
button 220 275 4006 4007 1 0 1		// ok b
htmlgump 435 277 100 20 2 0 0		// cancel
button 400 275 4018 4019 1 0 2		// cancel b
textentry 225 237 650 25 0 0 3		// isim buraya
htmlgump 265 297 200 200 4 0 0

[dialog d_uyarideed TEXT]
Uyari ne olacak?
Tamam
Sil
<name>
Sil dediginizde deed kaldirilir.

[dialog d_uyarideed BUTTON]
On=2
src.targ.remove
src.sysmessage @0481,,1 Uyari i$lemi iptal edildi. Deed kaldirildi.
return 1



On=1
src.targ.name  @07a1 <argtxt[0]>
Src.sysmessage @044,,1 Uyari deed ( <argtxt[0]> )  olarak yerle$tirildi.



[ITEMDEF i_res_gate] ///Pk Res Gate
ID=i_moongate_blue

on=@click
message @0481,,1 Resurrection Gate
return 1

ON=@Create
COLOR=025

ON=@STEP
SRC.resurrect
return 1
SRC.MOVE 2,0,0
RETURN 1

[plevel 2]
t

[function t]
if (<src.account.plevel> > 1) 
dialog d_t
endif
return 1

[DIALOG d_t]
-90,0

nomove
page 0 
resizepic 100 10 3600 180 400
text 120 25 367 0
button 130 51 2103 2104 1 0 1
text 145 45 990 1
button 130 66 2103 2104 1 0 2
text 145 60 990 2
button 130 81 2103 2104 1 0 3
text 145 75 990 3
button 130 96 2103 2104 1 0 4
text 145 90 990 4
button 130 111 2103 2104 1 0 5
text 145 105 990 5
button 130 126 2103 2104 1 0 6
text 145 120 990 6
button 130 141 2103 2104 1 0 7
text 145 135 990 7
button 130 156 2103 2104 1 0 8
text 145 150 990 8
button 130 171 2103 2104 1 0 9
text 145 165 990 9
button 130 186 2103 2104 1 0 10
text 145 180 990 10
button 130 201 2103 2104 1 0 11
text 145 195 990 11
button 130 216 2103 2104 1 0 12
text 145 210 990 12
button 130 231 2103 2104 1 0 13
text 145 225 990 13
button 130 246 2103 2104 1 0 14
text 145 240 990 14
button 130 261 2103 2104 1 0 15
text 145 255 990 15
button 130 276 2103 2104 1 0 16
text 145 270 990 16
button 130 291 2103 2104 1 0 17
text 145 285 990 17
button 130 306 2103 2104 1 0 18
text 145 300 990 18
button 130 321 2103 2104 1 0 19
text 145 315 990 19
button 130 336 2103 2104 1 0 20
text 145 330 990 20
button 130 351 2103 2104 1 0 21
text 145 345 990 21
button 130 366 2103 2104 1 0 22
text 145 360 990 22
text 180 375 367 23


[DIALOG d_t TEXT]   
Gidilecek yeri secin.
Britain
Britain Kopru
Britain Mezar
Yew
Minoc
Moonglow
Trinsic
Ocllo
Magincia
Jhelom
Njuhelm
Cove
Serpents Hold
Skara Brae
Wind
Vesper
Njuhelm Mezar
Jhelom Mezar
Britain Reg
PK alani
PAZAR
Bos
<serv.name>

[DIALOG d_t BUTTON]  
ONBUTTON=1
src.go britain
ONBUTTON=2
src.go 1386,1748
ONBUTTON=3
src.go britain graveyard
ONBUTTON=4
src.go yew
ONBUTTON=5
src.go minoc
ONBUTTON=6
src.go moonglow
ONBUTTON=7
src.go trinsic
ONBUTTON=8
src.go ocllo
ONBUTTON=9
src.go magincia
ONBUTTON=10
src.go jhelom
ONBUTTON=11
src.go 3755,1243
ONBUTTON=12
src.go cove
ONBUTTON=13
src.go 3024,3392,15
ONBUTTON=14
src.go skara brae
ONBUTTON=15
src.go wind
ONBUTTON=16
src.go vesper
ONBUTTON=17
src.go 3536,1160,20
ONBUTTON=18
src.go 1297,3716
ONBUTTON=19
src.go 1491,1575,30
ONBUTTON=20
src.go 1155,1793
ONBUTTON=21
src.go marble island
ONBUTTON=22
src.smsgx BOS
ONBUTTON=23

\\\\\\ pk gate'ler /////
\\\\\\ scp.adet :2 /////
------------------------

[ITEMDEF i_pkgate1]
id=i_moongate_blue

ON=@Create
COLOR=02c

on=@click
message @0481,,1 Pk Gate
return 1

ON=@STEP
IF (<src.kills> > 6 )
SRC.GO 1141,1789
return 1
ELSE
SRC.Sysmessage @0481,,1 Pk degilsiniz.
SRC.MOVE 2,0,0
RETURN 1
ENDIF


[ITEMDEF i_pkgate2]
id=i_moongate_blue

ON=@Create
COLOR=38

on=@click
message @0481,,1 Pk Gate
return 1

ON=@STEP
IF (<src.kills> > 6 )
SRC.GO 1159,1788
return 1
ELSE
SRC.Sysmessage @0481,,1 Pk degilsiniz.
SRC.MOVE 2,0,0
RETURN 1
ENDIF

///// moongate,dungeon giriş çıkışlarına konulması farz olan bir item ;) \\\\\\\
///// timer = 5 ßunu azaltırsanız daha çabuk dispel eder... \\\\\\\\\\\\\
///// plevel 1 == playerler göremezler.. \\\\\\\\\\\\*

[itemdef i_dispeler]
name=Dispeller
id=i_crystal_red
type=t_script
ON=@create
attr=attr_move_never|attr_can_decay|attr_invis
timer=5

ON=@timer
foritems 
	if (<attr>&attr_magic)
		if <type==t_magic>
			timer
		endif
	endif
endfor
timer=5
return 1

ON=@dclick
return 1

[eof]

Eğer stat kasarken zaman harcamak istemiyorsanız tam size göre bir script ;

Kod:

//////////////////////////////////////////////////////////
/////////////////////Scripted by †™theron/////////////////
----------------------------------------------------------

[PLEVEL 1]
statayar

[FUNCTION STATAYAR]
SRC.DIALOG statayar_menu
RETURN 1

[DIALOG statayar_menu]
0, 0
PAGE 0
resizepic 124 32 3600 205 179
PAGE 1
button 143 100 2117 2118 1 1 1
button 143 78 2117 2118 1 1 2
text 140 44 1153 0
text 181 73 1153 1
text 181 96 1153 2
text 181 118 1153 3
button 143 122 2117 2118 1 1 3
resizepic 56 302 3600 0 0
text 219 176 995 4

[DIALOG statayar_menu TEXT]
Stat Ayarlama Menusu
100,100,25
90,45,90
100,25,100


[DIALOG statayar_menu BUTTON]
on=1
SRC.str=90
SRC.int=45
SRC.DEX=90
on=2
SRC.str=100
SRC.int=100
SRC.DEX=25
on=3
SRC.str=100
SRC.int=25
SRC.DEX=100

[EOF]

Axis açmak istemiyorum uzun sürüyor , axis kullanmak istemiyorum ! diyenLer için ;

Kod:

[function spawnkoy]
src.dialog d_spawntheron

[dialog d_spawntheron]
25,6
resizepic 100 100 83 350 300
resizepic 107 109 3000 338 282
resizepic 110 112 3500 332 278

htmlgump 150 125 300 20 0 0 0

htmlgump 135 170 100 20 1 0 0
resizepic 235 170 3000 180 20
textentry 240 170 300 25 0 0 5

htmlgump 135 200 100 20 2 0 0
resizepic 235 200 3000 180 20
textentry 240 200 150 25 0 1 6

htmlgump 135 230 100 20 3 0 0
resizepic 235 230 3000 180 20
textentry 240 230 150 25 0 2 7

htmlgump 135 260 100 20 4 0 0
resizepic 235 260 3000 180 20
textentry 240 260 150 25 0 3 8

htmlgump 135 290 100 20 12 0 0
resizepic 235 290 3000 180 20
textentry 240 290 150 25 0 4 9

htmlgump 170 345 100 20 10 0 0
button 140 340 2473 2474 1 0 1

htmlgump 350 345 32 20 11 0 0
button 385 340 2473 2476 1 0 0

[dialog d_spawnntherontext]
Spawn Creater By theron [Vrs:1.1]
Spawn Komutu:
Minimum Dakika:
Maximum Dakika:
Yurume Payi:
<ARGTXT[0]>
<ARGTXT[1]>
<ARGTXT[2]>
<ARGTXT[3]>
<ARGTXT[4]>
Spawni Yarat
iptal
Spawnin idsi:

[dialog d_spawntheron button]
on=0
src.sms islem iptal edildi...
on=1
if (<argtxt[0]>==0)
src.smy Spawnin defname'ini tanimlarsan daha iyi olacak!!!/theron
return 1
elseif (<argtxt[1]>==0)
src.smy Spawnin zamanini tanimlarsan daha iyi olacak!!!/theron
elseif (<argtxt[2]>==0)
src.smy Spawnin zamanini tanimlarsan daha iyi olacak!!!/theron
elseif (<argtxt[3]>==0)
src.smy Spawnin normalde kac adim uzaklasacagini tanimlarsan daha iyi olacak!!!/theron
elseif (<argtxt[4]>==0)
src.smy Spawnin yerde nasil gorunecegini tanimlarsan daha iyi olacak!!!/theron
else
src.newitem i_worldgem_bit
src.act.p=<src.p>
src.act.attr=attr_invis
src.act.dispid <ARGTXT[4]>
src.act.color 020
src.act.more1 <ARGTXT[0]>
src.act.morep <ARGTXT[1]> <ARGTXT[2]> <ARGTXT[3]>
src.act.fix
src.act.timer 1
endif

[PLEVEL 6]
spawnkoy

//Bug Report
// 0 Bug 

[EOF]

Sizde olmayan veya istediğiniz herhangi bir script varsa bana PM atın , yazmaya çalı$ırız

~~semihgs~~ · 13-07-06, 20:40

binek scriptlerini yazarmısın

Theron · 14-07-06, 02:37

Sen hangi tür binek scripti istiyorsun arkada$im ?
# sen bir ßinek ismi,türü v.s belirt ayarlarız

Örnek olarak 1-2 ßinekScripti ekliyeyim ;
1.Herkesce bilinen Shire Scripti

Kod:

[CHARDEF c_shire] 
NAME=Shire
SOUND=snd_ANIMALS_HORSE1
ID=c_horse_brown_lt
CAN=MT_WALK|MT_RUN
FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass
ICON=i_pet_horse_brown_lt
DESCRIPTION=Shire
SUBSECTION=Horses 
CATEGORY=Animals 

ON=@Create
DORAND 12
	COLOR=07d4 // ye$il
	COLOR=0846 // kirmizi
	COLOR=084a // mavi
	COLOR=06af // sari
	COLOR=04dc // mor
	COLOR=0840 // kahve
	COLOR=0455 // siyah
	COLOR=0901 // gri
	COLOR=04c3 // pembe
	COLOR=05e3 // cikolata
	COLOR=051b // sky
	COLOR=08ad // skygray
ENDDO

STR={80 100} 
DEX={100 120} 
INT={50 60} 

PARRYING={45.0 55.0}
MAGICRESISTANCE={25.0 30.0}
TACTICS={29.0 44.0}
WRESTLING={29.0 44.0}
TAMING={65.0 95.0}
ANIMALLORE={65.0 95.0}

KARMA=1000
FAME=1000

2.Midnight(mid) Ostard scripti

Kod:

[CHARDEF c_ostard_mid] 
NAME=Mid Ostard 
SOUND=snd_ANIMAL_OSTARD_DESERT1 
FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass
ICON=02135 
ID=00d2 

ATT=10,15
DEF=10 
RESOURCES=15 
CAN=MT_WALK|MT_RUN 

ON=@CREATE 
DORAND 3
	COLOR=0961 
	COLOR=0901
	COLOR=0450
ENDDO
STR={150 190} 
DEX={150 300} 
INT={6 10} 

PARRYING={25.0 35.0} 
MAGICRESISTANCE={27.0 32.0} 
TACTICS={29.0 44.0} 
WRESTLING={29.0 44.0} 
TAMING=80.1
ANIMALLORE=80.1

FAME=0 
KARMA=-1 
NPC=brain_animal 

CATEGORY=Animals
SUBSECTION=Ostard 
DESCRIPTION=Midnight Ostard 
ANIM=01fff

3.Staffların için bir binek scripti

Kod:

[itemdef i_hc_horse]
name=HC Ostard
id=i_pet_ostard_zostrich
type=t_script

CATEGORY=Provisions - GM Items
SUBSECTION=Special Items
DESCRIPTION=HC Ostard

on=@create
color=0810
attr=14

on=@dclick
if !((<src.body> == c_man) || (<src.body> == c_woman) || (<src.body> == c_man_gm))
elseif !(<src.findlayer(25)>)
src.newitem i_hc_horse_staff
src.act.link <src.uid>
src.act.more2 <src.uid>
src.act.more1 c_hc_horse
src.act.equip
src.update
remove
else
endif
return 1

yanii...

~~semihgs~~ · 14-07-06, 15:11

sağol tşk. repini gnderdim...

Theron · 17-07-06, 17:41

Rica ederim dostum ne zaman yardım gerekirse ; yardım etmeye çalı$ırız..

13-07-06, 20:40	#2
~~semihgs~~ Banlandı Giriş Tarihi: 26-09-2005 Yer: Ali Sami Yen Takım:GALATASARAY Okul:İstanbul Ticaret Üni. Yaş: 21 Mesajlar: 12,183 Rep Puanı: 726684 Rep Gücü: 0	Cvp: Script Payla$ım.. *binek scriptlerini yazarmısın*

14-07-06, 15:11	#4
~~semihgs~~ Banlandı Giriş Tarihi: 26-09-2005 Yer: Ali Sami Yen Takım:GALATASARAY Okul:İstanbul Ticaret Üni. Yaş: 21 Mesajlar: 12,183 Rep Puanı: 726684 Rep Gücü: 0	Cvp: Script Payla$ım.. *sağol tşk. repini gnderdim...*

17-07-06, 17:41	#5
Theron Meraklı Giriş Tarihi: 08-04-2005 Yer: ist.. Yaş: 22 Mesajlar: 269 Rep Puanı: 28990 Rep Gücü: 350	Cvp: Script Payla$ım.. Rica ederim dostum ne zaman yardım gerekirse ; yardım etmeye çalı$ırız..

ForumTR'ye Reklam Vermek İçin Tıklayınız: network@frmtr.com

Konu Araçları
Çıktı Görüntüsünü Göster Sayfayı E-posta İle Yolla