News Board System

[TheRaskol]

Aslında bu scriptin yaratıcısı Cloud_br.
Fakat biraz Türkiye şartlarına uyguladım hoş bir şeyler
çıktı ortaya.
Örneğin haber sistemini bir board üzerine entegre ettim.
Eh elimden geldiğince de Türkçeleştirmeye çalıştım.

Hoş bir edit oldu desem yeridir :)

News Board System

/////////////////////////////////////////////////////////////////////////////////
// Scripter Name: Cloud_br
// Shard Name: The Rosario Game
// Shard Adress : www.rosario.gen.tr
// Sphere Version: 56b
//
// Bu dosya içindeki kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// The codes was writting or editing by Raskol Serna
/////////////////////////////////////////////////////////////////////////////////

[itemdef i_news_board]
id i_bulletin_board
name News Board
type t_script

on=@click
message
return 1

on=@dclick
SDIALOG news_page 1
return 1

on=@create
color 11
attr 010
return 1



[DEFNAME news_page_settings]
MINPLEVEL 6 ///the minimum plevel needed to edit news, default = 6

[DIALOG news_page]
100,100
PAGE 1
nomove
resizepic 50 50 3600 500 400
CHECKERTRANS 50 50 500 400
dtext 200 70 2010 UO Shard Haberler
dhtmlgump 75 100 450 290 1 1 1-2-3-4-5-6-7-8-9-10-
dtext 180 400 39 Zaman:

PAGE 2
IF ()
resizepic 50 50 3600 300 300
CHECKERTRANS 50 50 300 300
dtext 130 70 2010 News - Staff Area
tilepic 150 100 7774
dtext 105 210 88 Yeni Ekle
button 70 210 4005 4006 0 3 1
dtext 105 250 88 Usttekini Editle:
dtextentry 205 250 20 25 45 1 1
button 70 250 4005 4006 1 0 2
ENDIF

PAGE 3
resizepic 50 50 3600 300 300
CHECKERTRANS 50 50 300 300
dtext 105 70 88 Type the new on the fi-
dtext 95 90 88 eld below:
resizepic 70 130 3500 250 110
dtextentry 85 150 230 65 45 0 X
button 70 250 4005 4006 1 0 3
dtext 105 250 88 OK
button 70 280 4016 4015 0 2 4
dtext 105 280 88 Back

PAGE 4
resizepic 50 50 3600 300 300
CHECKERTRANS 50 50 300 300
dtext 105 70 88 Type the new news on
dtext 95 90 88 the field below:
resizepic 70 130 3500 250 110
dtextentry 85 150 230 65 45 2 Buraya Yaziniz
button 70 250 4005 4006 1 0 5
dtext 105 250 88 OK
button 70 280 4016 4015 0 2 4
dtext 105 280 88 Voltar

[DIALOG news_page BUTTON]
ON=2
IF (>>>>)
SYSMESSAGE @07a0 Bu bolumde mesaj yok
SDIALOG news_page 2
ELSE
TAG.HEHE=>
SDIALOG news_page 4
ENDIF

ON=3
FOR 10 2
IF !(-1>>>)
TRY VAR.NOTICIA>=-1>>
ENDIF
ENDFOR
VAR.NOTICIA1="// : >"
SDIALOG news_page 1

ON=5
TRY VAR.NOTICIA>="// : >"
TAG.HEHE
SDIALOG news_page 1

[PLEVEL 1]
news

[FUNCTION news]
if !()
SDIALOG news_page 1
ELSE
IF !( < )
SDIALOG news_page 2
ELSE
src.smx Plevel'inizin 6 olmasi gereklidir.
ENDIF
ENDIF

[FUNCTION rtime.year]
return >

[FUNCTION rtime.month]
return >

[FUNCTION rtime.day]
return >

[defname def_html] // useful with htmlgumps
BFONT_SIZE1
BFONT_SIZE2
BFONT_SIZE3
BFONT_SIZE4
BFONT_SIZE5
BFONT_SIZE7
BFONT_white
BFONT_LGRAY
BFONT_GRAY
BFONT_DGRAY
BFONT_BLACK
BFONT_LRED
BFONT_RED
Bfont_DRED
BFONT_LGREEN
BFONT_GREEN
BFONT_DGREEN
BFONT_LBLUE
BFONT_BLUE
BFONT_DBLUE
BFONT_LYELLOW
BFONT_YELLOW
BFONT_DYELLOW
BFONT_LPURPLE
BFONT_PURPLE
BFONT_DPURPLE
BFONT_LCYAN
BFONT_CYAN
BFONT_DCYAN
BFONT BFONTE

DIV_RIGHT

DIV_LEFT

DIV_END

CENTER
CENTERE
BR

BRE


L1 <
R1 >

B
BE
BIG
BIGE
SMALL
SMALLE
EM
EME
U
UE
H1

H1E

H2

H2E

H3

H3E

H4

H4E

H5

H5E

H6

H6E

A AE

[EOF]

[Tcpip]

script'e diyecek çok bişey yok zaten görevine göre sade bişey.

Usttekini Editle //(yarı türkçe)
src.smx Plevel'inizin olmasi gereklidir. //şeklinde olsa daha profesyonelce durur.

Ama hoş olmuş eline saglık.

[TheRaskol]

ahh doğru halısın.

Ayrıca smx bölümlerini de sysmessage olarak değiştirirseniz daha hoş olur.

teşekkür ederim...