Bu Spawn Komutu
[FUNCTION spawn]
IF !(STRCMP(<ARGS>,?))
SRC.SYSMESSAGE Opens up the spawn creation dialog.
SRC.SYSMESSAGE Format: spawn ARGUMENT
SRC.SYSMESSAGE Where ARGUMENT can be 1 or 2. 1 will recreate the last spawn point set up.
SRC.SYSMESSAGE 2 will clear spawn settings.
RETURN 1
ENDIF
IF (<ARGN> == 1)
SRC.NEWITEM=01ea7
SRC.ACT.P=<P>
SRC.ACT.TYPE=34
SRC.ACT.AMOUNT=<TAG.SPAWNAMOUNT>
SRC.ACT.MORE=<TAG.SPAWNID>
SRC.ACT.MOREX=<TAG.MINTIME>
SRC.ACT.MOREY=<TAG.MAXTIME>
SRC.ACT.MOREZ=<TAG.MAXDIST>
SRC.ACT.ATTR=0b0
SRC.ACT.DCLICK
SRC.MESSAGE=Spawn created and initialized.
SRC.MESSAGE=First creature will spawn in <ACT.TIMER> seconds.
RETURN 1
ENDIF
IF (<ARGN> == 2)
SRC.TAG.SPAWNAMOUNT=0
SRC.TAG.SPAWNID=0
SRC.TAG.MINTIME=0
SRC.TAG.MAXTIME=0
SRC.TAG.MAXDIST=0
SRC.MESSAGE Spawn settings cleared.
RETURN 1
ENDIF
IF !(0<SRC.TAG.SPAWNAMOUNT>)
SRC.TAG.SPAWNAMOUNT=1
SRC.TAG.SPAWNID=c_man
SRC.TAG.MINTIME=5
SRC.TAG.MAXTIME=10
SRC.TAG.MAXDIST=5
ENDIF
SRC.DIALOG d_spawner
RETURN 1
[DIALOG d_spawner]
0,-10
resizepic 400 370 2620 350 200
page 0
text 500 375 1000 0
text 405 395 1000 1
button 550 395 2440 2440 1 0 1
text 560 396 1000 6
text 405 425 1000 2
button 550 425 2440 2440 1 0 2
text 560 426 1000 7
text 405 455 1000 3
button 550 455 2440 2440 1 0 3
text 560 456 1000 8
text 405 485 1000 4
button 550 485 2440 2440 1 0 4
text 560 486 1000 9
text 405 515 1000 5
button 550 515 2440 2440 1 0 5
text 560 516 1000 10
button 415 545 2076 2075 1 0 6
button 615 545 2073 2072 1 0 0
[DIALOG d_spawner TEXT]
Creature Spawn
Amount
Creature ID
Minimum time
Maximum time
Maximum Distance
<eval <SRC.TAG.SPAWNAMOUNT>>
<SRC.TAG.SPAWNID>
<eval <SRC.TAG.MINTIME>>
<eval <SRC.TAG.MAXTIME>>
<eval <SRC.TAG.MAXDIST>>
[DIALOG d_spawner BUTTON]
ONBUTTON=0
SYSMESSAGE=Spawning Canceled
RETURN 0
ONBUTTON=1
INPDLG TAG.SPAWNAMOUNT 3
src.DIALOG d_spawner
RETURN 1
ONBUTTON=2
INPDLG TAG.SPAWNID 20
src.DIALOG d_spawner
RETURN 1
ONBUTTON=3
INPDLG TAG.MINTIME 10
src.DIALOG d_spawner
RETURN 1
ONBUTTON=4
INPDLG TAG.MAXTIME 10
src.DIALOG d_spawner
RETURN 1
ONBUTTON=5
INPDLG TAG.MAXDIST 5
src.DIALOG d_spawner
RETURN 1
ONBUTTON=6
NEWITEM=01ea7
ACT.P=<P>
ACT.TYPE=34
ACT.AMOUNT=<TAG.SPAWNAMOUNT>
ACT.MORE=<TAG.SPAWNID>
ACT.MOREX=<TAG.MINTIME>
ACT.MOREY=<TAG.MAXTIME>
ACT.MOREZ=<TAG.MAXDIST>
ACT.ATTR=0b0
ACT.DCLICK
MESSAGE=Spawn created and initialized.
MESSAGE=First creature will spawn in <ACT.TIMER> seconds.
RETURN 0
Buda Otomatik Anons
[itemdef i_anons_tasi]
type=t_script
id=i_grave_stone
name=Haber Tasi
on=@create
color=0489
timer=1800
on=@dclick
if (0<src.account.plevel> >5)
dialog d_announce
else
src.sysmessage @39 Bunu Kullanmak Icin Yetkiniz Yok
endif
return 1
on=@pickup_ground
src.sysmessage @56,,1 Bu Tasi Silmeyin
return 1
on=@timer
if (<cont.timer> < 1)
serv.allclients sysmesua *<serv.name> Duyuru*:
serv.allclients sysmesua <tag.announce>
timer 600
return 0
ENDIF
[Dialog d_announce]
0,250
htmlgump 45 5 500 30 0 0 0
resizepic 0 0 3600 650 90
resizepic 20 25 9300 620 30
//-- Textentry posx posy x y 0 <argtext[num]> <line>
Textentry 30 30 650 30 0 1 1
Button 600 60 4006 4005 1 0 1
htmlgump 535 60 60 30 2 0 0
[Dialog d_announce TEXT]
<var.font2>> Duyurulmasini Istediginiz Mesaji Yaziniz.
<tag.announce>
<var.font2>>Duyur.
[Dialog d_announce BUTTON]
ON=1
If (strmatch(<argtxt[1]>,))
src.sysmessage @080a Duyuru Yazmadiniz.
tag.announce <argtxt[1]>
return 1
endif
IF (strlen(<argtxt[1]>)>200)
src.sysmessage @07a1 200 Karakteri Gecmemeye Ozen Gosterelim.
tag.announce <argtxt[1]>
return 1
endif
f_announce <argtxt[1]>
tag.announce <argtxt[1]>
timer 1
[Function f_announce]
//src.newitem i_announcer
//src.act.tag.announce <args>
//src.act.bounce
//src.act.drop
tag.announce <argn>
[DEFNAME htmlgump_vars]
BFONT_SIZE1 <basefont SIZE="1">
BFONT_SIZE4 <basefont SIZE="4">
BFONT_SIZE7 <basefont SIZE="7">
BFONT_white <basefont color="#ffffff">
BFONT_LGRAY <basefont color="#aaaaaa">
BFONT_GRAY <basefont color="#888888">
BFONT_DGRAY <basefont color="#444444">
BFONT_BLACK <basefont color="#000011">
BFONT_LRED <basefont color="#ff0000">
BFONT_RED <basefont color="#880000">
Bfont_DRED <basefont color="#440000">
BFONT_LGREEN <basefont color="#00ff00">
BFONT_GREEN <basefont color="#008800">
BFONT_DGREEN <basefont color="#004400">
BFONT_LBLUE <basefont color="#0000ff">
BFONT_BLUE <basefont color="#000088">
BFONT_DBLUE <basefont color="#000044">
BFONT_LYELLOW <basefont color="#ffff88">
BFONT_YELLOW <basefont color="#ffff00">
BFONT_DYELLOW <basefont color="#888800">
BFONT_LPURPLE <basefont color="#ff88ff">
BFONT_PURPLE <basefont color="#ff00ff">
BFONT_DPURPLE <basefont color="#880088">
BFONT_LCYAN <basefont color="#88ffff">
BFONT_CYAN <basefont color="#00ffff">
BFONT_DCYAN <basefont color="#008888">
BFONT <BASEFONT
BFONTE </BASEFONT>
DIV_RIGHT <div align="right">
DIV_LEFT <div align="left">
DIV_END </DIV>
CENTER <CENTER>
CENTERE </CENTER>
BR <BR>
L1 <
R1 >
B <B>
BE </B>
BIG <BIG>
BIGE </BIG>
SMALL <SMALL>
SMALLE </SMALL>
EM <EM>
EME </EM>
U <U>
UE </U>
H1 <H1>
H1E </H1>
H2 <H2>
H2E </H2>
H3 <H3>
H3E </H3>
H4 <H4>
H4E </H4>
H5 <H5>
H5E </H5>
H6 <H6>
H6E </H6>
A <a
AE </a>
Bu konu Rexnort tarafından düzenlendi(2008-03-29 23:59, 17 yıl önce)