Kod:
[CHARDEF c_h_town_crier]
ID=c_man
NAME=#NAMES_HUMANMALE the town crier
CAN=MT_NONMOVER|MT_MALE
TEVENTS=e_townCrier
TSPEECH=spk_townCrier
ON=@Create
FLAGS=statf_conjured
STR=100
DEX=100
INT=25
NPC=brain_townCrier
COLOR=colors_skin
ITEMNEWBIE=i_shirt_fancy
COLOR=colors_blue
ITEMNEWBIE={ i_kilt 1 i_skirt_long 1 }
COLOR=colors_green
ITEMNEWBIE=i_hat_feather
COLOR=colors_green
ITEMNEWBIE={ i_boots_calf 1 i_boots_thigh 1 }
ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=i_crier
ITEMNEWBIE=i_crying_timer
[CHARDEF c_h_town_crier_f]
ID=c_woman
NAME=#NAMES_HUMANFEMALE the town crier
CAN=MT_NONMOVER|MT_FEMALE
TEVENTS=e_townCrier
TSPEECH=spk_townCrier
ON=@Create
FLAGS=statf_conjured
STR=100
DEX=100
INT=25
NPC=brain_townCrier
COLOR=colors_skin
ITEMNEWBIE=i_shirt_fancy
COLOR=colors_blue
ITEMNEWBIE={ i_kilt 1 i_skirt_long 1 }
COLOR=colors_green
ITEMNEWBIE=i_hat_feather
COLOR=colors_green
ITEMNEWBIE={ i_boots_calf 1 i_boots_thigh 1 }
ITEMNEWBIE=random_female_hair
COLOR=colors_hair
ITEMNEWBIE=i_crier
ITEMNEWBIE=i_crying_timer
[SPEECH spk_townCrier]
ON=*news*
FACE=<SRC>
IF !(<FINDID(i_crier).TAG0.NEWS>)
SAY @03b2,,2 1005643 // I have no news at this time.
ELSE
FINDID(i_crier).TIMER=1
SAY @03b2,,2 502978 // Some of the latest news!
ENDIF
[EVENTS e_townCrier]
ON=@NPCSeeNewPlayer
IF (<FINDID(i_crier).TIMER> == -1)
SAY @03b2,,2 502976 // Hear ye! Hear ye!
FINDID(i_crier).TIMER=2
ENDIF
ON=@DClick
IF (<SRC.ACCOUNT.PLEVEL> >= 4)
SDIALOG d_townCrier_local
ENDIF
[ITEMDEF i_crier]
ID=i_memory
NAME=town crier memory
TYPE=t_eq_script
ON=@Destroy
RETURN 1
ON=@Timer
IF !(<MORE1> == <TAG0.NEWS>)
TOPOBJ.SAY @03b2,,1 <TAG0.NEWS_<dMORE1>>
MORE1 ++
TIMER=3
ELSE
TIMER=-1
MORE1=0
ENDIF
RETURN 1
[ITEMDEF i_crying_timer]
ID=i_memory
NAME=town crier memory 2
TYPE=t_eq_script
ON=@Destroy
RETURN 1
ON=@Timer
REF1=<TOPOBJ.FINDID(i_crier).UID>
FOR 0 <EVAL (<REF1.TAG0.NEWS> - 1)>
REF1.TAG.NEWS_<dLOCAL._FOR>=
ENDFOR
REF1.TAG.NEWS=
RETURN 1
[FUNCTION townCrier]
SDIALOG d_townCrier_all
[DIALOG d_townCrier_all]
100,100
IF !(<CTAG0.NEWS_LINES>)
SYSMESSAGE @038,,1 Uygula butonuna bastığınızda bütün Town Crier haberleri şu anda belirteceğinizle değişecektir.
CTAG.NEWS_LINES=1
ENDIF
resizepic 0 0 5054 500 <EVAL (100 + (<CTAG.NEWS_LINES> * 30))>
gumppictiled 10 10 480 <EVAL (80 + (<CTAG.NEWS_LINES> * 30))> 2624
checkertrans 10 10 480 <EVAL (80 + (<CTAG.NEWS_LINES> * 30))>
resizepic 440 9 3000 52 30
IF (<CTAG0.NEWS_LINES> > 1)
button 445 14 038 038 1 0 1
ELSE
gumppic 445 14 038 038
ENDIF
IF (<CTAG0.NEWS_LINES> < 10)
button 472 14 037 037 1 0 2
ELSE
gumppic 472 14 037 038
ENDIF
dtext 15 30 1153 Süre:
resizepic 72 27 3000 30 26
dtextentry 75 30 20 20 0 11 <QVAL (<ISEMPTY <CTAG.NEWS_HOURS>>) ? : <dCTAG.NEWS_HOURS>>
dtext 105 30 1153 saat,
resizepic 142 27 3000 30 26
dtextentry 145 30 20 20 0 12 <QVAL (<ISEMPTY <CTAG.NEWS_MINS>>) ? : <dCTAG.NEWS_MINS>>
dtext 175 30 1153 dakika,
resizepic 222 27 3000 30 26
dtextentry 225 30 20 20 0 13 <QVAL (<ISEMPTY <CTAG.NEWS_SECS>>) ? : <dCTAG.NEWS_SECS>>
dtext 255 30 1153 saniye
LOCAL.Y=60
FOR <CTAG0.NEWS_LINES>
dtext 15 <dLOCAL.Y> 1153 Satır <dLOCAL._FOR>:
resizepic 72 <EVAL (<LOCAL.Y> - 3)> 3000 358 26
dtextentry 75 <dLOCAL.Y> 350 20 0 <dLOCAL._FOR> <CTAG.NEWS_LINE_<dLOCAL._FOR>>
LOCAL.Y += 30
ENDFOR
button 300 <LOCAL.Y> 4017 4018 1 0 3
dtext 335 <EVAL (<LOCAL.Y> + 2)> 1153 Reset
button 400 <LOCAL.Y> 4005 4006 1 0 4
dtext 435 <EVAL (<LOCAL.Y> + 2)> 1153 Onayla
[DIALOG d_townCrier_all BUTTON]
ON=0
CLEARCTAGS NEWS_
ON=1
CTAG.NEWS_HOURS=<ARGTXT[11]>
CTAG.NEWS_MINS=<ARGTXT[12]>
CTAG.NEWS_SECS=<ARGTXT[13]>
CTAG0.NEWS_LINES --
FOR <CTAG0.NEWS_LINES>
CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_all
ON=2
CTAG.NEWS_HOURS=<ARGTXT[11]>
CTAG.NEWS_MINS=<ARGTXT[12]>
CTAG.NEWS_SECS=<ARGTXT[13]>
CTAG0.NEWS_LINES ++
FOR <EVAL (<CTAG0.NEWS_LINES> - 1)>
CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_all
ON=3
CLEARCTAGS NEWS_
SDIALOG d_townCrier_all
ON=4
OBJ=<UID>
FORINSTANCES i_crier
TAG.NEWS=<OBJ.CTAG.NEWS_LINES>
FOR 0 <EVAL (<OBJ.CTAG.NEWS_LINES> - 1)>
TAG.NEWS_<dLOCAL._FOR>=<ARGTXT[<EVAL (<LOCAL._FOR> + 1)>]>
ENDFOR
IF (!(<ISEMPTY <ARGTXT[11]>>) || !(<ISEMPTY <ARGTXT[12]>>) || !(<ISEMPTY <ARGTXT[13]>>)
TOPOBJ.FINDID(i_crying_timer).TIMER=<EVAL ((<ARGTXT[11]> * 3600) + (<ARGTXT[12]> * 60) + <ARGTXT[13]>)>
ELSE
TOPOBJ.FINDID(i_crying_timer).TIMER=-1
ENDIF
TIMER=-1
MORE1=0
ENDFOR
SYSMESSAGE @,,1 Town Crier'lar güncellenmiştir.
CLEARCTAGS NEWS_
[DIALOG d_townCrier_local]
100,100
IF !(<SRC.CTAG0.NEWS_LINES>)
SRC.CTAG.NEWS_LINES=1
ENDIF
resizepic 0 0 5054 500 <EVAL (100 + (<SRC.CTAG.NEWS_LINES> * 30))>
gumppictiled 10 10 480 <EVAL (80 + (<SRC.CTAG.NEWS_LINES> * 30))> 2624
checkertrans 10 10 480 <EVAL (80 + (<SRC.CTAG.NEWS_LINES> * 30))>
resizepic 440 9 3000 52 30
IF (<SRC.CTAG0.NEWS_LINES> > 1)
button 445 14 038 038 1 0 1
ELSE
gumppic 445 14 038 038
ENDIF
IF (<SRC.CTAG0.NEWS_LINES> < 10)
button 472 14 037 037 1 0 2
ELSE
gumppic 472 14 037 038
ENDIF
dtext 15 30 1153 Süre:
resizepic 72 27 3000 30 26
dtextentry 75 30 20 20 0 11 <QVAL (<ISEMPTY <SRC.CTAG.NEWS_HOURS>>) ? : <dSRC.CTAG.NEWS_HOURS>>
dtext 105 30 1153 saat,
resizepic 142 27 3000 30 26
dtextentry 145 30 20 20 0 12 <QVAL (<ISEMPTY <SRC.CTAG.NEWS_MINS>>) ? : <dSRC.CTAG.NEWS_MINS>>
dtext 175 30 1153 dakika,
resizepic 222 27 3000 30 26
dtextentry 225 30 20 20 0 13 <QVAL (<ISEMPTY <SRC.CTAG.NEWS_SECS>>) ? : <dSRC.CTAG.NEWS_SECS>>
dtext 255 30 1153 saniye
LOCAL.Y=60
FOR <SRC.CTAG0.NEWS_LINES>
dtext 15 <dLOCAL.Y> 1153 Satır <dLOCAL._FOR>:
resizepic 72 <EVAL (<LOCAL.Y> - 3)> 3000 358 26
dtextentry 75 <dLOCAL.Y> 350 20 0 <dLOCAL._FOR> <SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>>
LOCAL.Y += 30
ENDFOR
button 300 <LOCAL.Y> 4017 4018 1 0 3
dtext 335 <EVAL (<LOCAL.Y> + 2)> 1153 Reset
button 400 <LOCAL.Y> 4005 4006 1 0 4
dtext 435 <EVAL (<LOCAL.Y> + 2)> 1153 Onayla
IF (<FINDID(i_crier).TAG0.NEWS>)
resizepic 500 0 5054 200 140
gumppictiled 510 10 180 120 2624
checkertrans 510 10 180 120
dhtmlgump 515 15 170 80 0 0 <DEF.BFONT_white>Bu town crier'ın zaten duyurduğu bir haber bulunmaktadır. Bunu değiştirmek ister misiniz?
button 620 100 4005 4006 1 0 5
dtext 655 102 1153 Evet!
ENDIF
[DIALOG d_townCrier_local BUTTON]
ON=0
SRC.CLEARCTAGS NEWS_
ON=1
SRC.CTAG.NEWS_HOURS=<ARGTXT[11]>
SRC.CTAG.NEWS_MINS=<ARGTXT[12]>
SRC.CTAG.NEWS_SECS=<ARGTXT[13]>
SRC.CTAG0.NEWS_LINES --
FOR <SRC.CTAG0.NEWS_LINES>
SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_local
ON=2
SRC.CTAG.NEWS_HOURS=<ARGTXT[11]>
SRC.CTAG.NEWS_MINS=<ARGTXT[12]>
SRC.CTAG.NEWS_SECS=<ARGTXT[13]>
SRC.CTAG0.NEWS_LINES ++
FOR <EVAL (<SRC.CTAG0.NEWS_LINES> - 1)>
SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_local
ON=3
SRC.CLEARCTAGS NEWS_
SDIALOG d_townCrier_local
ON=4
FINDID(i_crier).CLEARTAGS
FINDID(i_crier).TAG.NEWS=<SRC.CTAG.NEWS_LINES>
FOR 0 <EVAL (<SRC.CTAG.NEWS_LINES> - 1)>
FINDID(i_crier).TAG.NEWS_<dLOCAL._FOR>=<ARGTXT[<EVAL (<LOCAL._FOR> + 1)>]>
ENDFOR
IF (!(<ISEMPTY <ARGTXT[11]>>) || !(<ISEMPTY <ARGTXT[12]>>) || !(<ISEMPTY <ARGTXT[13]>>)
FINDID(i_crying_timer).TIMER=<EVAL ((<ARGTXT[11]> * 3600) + (<ARGTXT[12]> * 60) + <ARGTXT[13]>)>
ELSE
FINDID(i_crying_timer).TIMER=-1
ENDIF
SRC.SYSMESSAGE @,,1 Town Crier güncellenmiştir.
SRC.CLEARCTAGS NEWS_
ON=5
SRC.CLEARCTAGS NEWS_
SRC.CTAG.NEWS_HOURS=<EVAL (<FINDID(i_crying_timer).TIMER> / 3600)>
SRC.CTAG.NEWS_MINS=<EVAL ((<FINDID(i_crying_timer).TIMER> % 3600) / 60)>
SRC.CTAG.NEWS_SECS=<EVAL ((<FINDID(i_crying_timer).TIMER> % 3600) % 60)>
SRC.CTAG.NEWS_LINES=<FINDID(i_crier).TAG0.NEWS>
FOR <SRC.CTAG.NEWS_LINES>
SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>=<FINDID(i_crier).TAG.NEWS_<EVAL (<LOCAL._FOR> - 1)>>
ENDFOR
SDIALOG d_townCrier_local
ID=c_man
NAME=#NAMES_HUMANMALE the town crier
CAN=MT_NONMOVER|MT_MALE
TEVENTS=e_townCrier
TSPEECH=spk_townCrier
ON=@Create
FLAGS=statf_conjured
STR=100
DEX=100
INT=25
NPC=brain_townCrier
COLOR=colors_skin
ITEMNEWBIE=i_shirt_fancy
COLOR=colors_blue
ITEMNEWBIE={ i_kilt 1 i_skirt_long 1 }
COLOR=colors_green
ITEMNEWBIE=i_hat_feather
COLOR=colors_green
ITEMNEWBIE={ i_boots_calf 1 i_boots_thigh 1 }
ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=i_crier
ITEMNEWBIE=i_crying_timer
[CHARDEF c_h_town_crier_f]
ID=c_woman
NAME=#NAMES_HUMANFEMALE the town crier
CAN=MT_NONMOVER|MT_FEMALE
TEVENTS=e_townCrier
TSPEECH=spk_townCrier
ON=@Create
FLAGS=statf_conjured
STR=100
DEX=100
INT=25
NPC=brain_townCrier
COLOR=colors_skin
ITEMNEWBIE=i_shirt_fancy
COLOR=colors_blue
ITEMNEWBIE={ i_kilt 1 i_skirt_long 1 }
COLOR=colors_green
ITEMNEWBIE=i_hat_feather
COLOR=colors_green
ITEMNEWBIE={ i_boots_calf 1 i_boots_thigh 1 }
ITEMNEWBIE=random_female_hair
COLOR=colors_hair
ITEMNEWBIE=i_crier
ITEMNEWBIE=i_crying_timer
[SPEECH spk_townCrier]
ON=*news*
FACE=<SRC>
IF !(<FINDID(i_crier).TAG0.NEWS>)
SAY @03b2,,2 1005643 // I have no news at this time.
ELSE
FINDID(i_crier).TIMER=1
SAY @03b2,,2 502978 // Some of the latest news!
ENDIF
[EVENTS e_townCrier]
ON=@NPCSeeNewPlayer
IF (<FINDID(i_crier).TIMER> == -1)
SAY @03b2,,2 502976 // Hear ye! Hear ye!
FINDID(i_crier).TIMER=2
ENDIF
ON=@DClick
IF (<SRC.ACCOUNT.PLEVEL> >= 4)
SDIALOG d_townCrier_local
ENDIF
[ITEMDEF i_crier]
ID=i_memory
NAME=town crier memory
TYPE=t_eq_script
ON=@Destroy
RETURN 1
ON=@Timer
IF !(<MORE1> == <TAG0.NEWS>)
TOPOBJ.SAY @03b2,,1 <TAG0.NEWS_<dMORE1>>
MORE1 ++
TIMER=3
ELSE
TIMER=-1
MORE1=0
ENDIF
RETURN 1
[ITEMDEF i_crying_timer]
ID=i_memory
NAME=town crier memory 2
TYPE=t_eq_script
ON=@Destroy
RETURN 1
ON=@Timer
REF1=<TOPOBJ.FINDID(i_crier).UID>
FOR 0 <EVAL (<REF1.TAG0.NEWS> - 1)>
REF1.TAG.NEWS_<dLOCAL._FOR>=
ENDFOR
REF1.TAG.NEWS=
RETURN 1
[FUNCTION townCrier]
SDIALOG d_townCrier_all
[DIALOG d_townCrier_all]
100,100
IF !(<CTAG0.NEWS_LINES>)
SYSMESSAGE @038,,1 Uygula butonuna bastığınızda bütün Town Crier haberleri şu anda belirteceğinizle değişecektir.
CTAG.NEWS_LINES=1
ENDIF
resizepic 0 0 5054 500 <EVAL (100 + (<CTAG.NEWS_LINES> * 30))>
gumppictiled 10 10 480 <EVAL (80 + (<CTAG.NEWS_LINES> * 30))> 2624
checkertrans 10 10 480 <EVAL (80 + (<CTAG.NEWS_LINES> * 30))>
resizepic 440 9 3000 52 30
IF (<CTAG0.NEWS_LINES> > 1)
button 445 14 038 038 1 0 1
ELSE
gumppic 445 14 038 038
ENDIF
IF (<CTAG0.NEWS_LINES> < 10)
button 472 14 037 037 1 0 2
ELSE
gumppic 472 14 037 038
ENDIF
dtext 15 30 1153 Süre:
resizepic 72 27 3000 30 26
dtextentry 75 30 20 20 0 11 <QVAL (<ISEMPTY <CTAG.NEWS_HOURS>>) ? : <dCTAG.NEWS_HOURS>>
dtext 105 30 1153 saat,
resizepic 142 27 3000 30 26
dtextentry 145 30 20 20 0 12 <QVAL (<ISEMPTY <CTAG.NEWS_MINS>>) ? : <dCTAG.NEWS_MINS>>
dtext 175 30 1153 dakika,
resizepic 222 27 3000 30 26
dtextentry 225 30 20 20 0 13 <QVAL (<ISEMPTY <CTAG.NEWS_SECS>>) ? : <dCTAG.NEWS_SECS>>
dtext 255 30 1153 saniye
LOCAL.Y=60
FOR <CTAG0.NEWS_LINES>
dtext 15 <dLOCAL.Y> 1153 Satır <dLOCAL._FOR>:
resizepic 72 <EVAL (<LOCAL.Y> - 3)> 3000 358 26
dtextentry 75 <dLOCAL.Y> 350 20 0 <dLOCAL._FOR> <CTAG.NEWS_LINE_<dLOCAL._FOR>>
LOCAL.Y += 30
ENDFOR
button 300 <LOCAL.Y> 4017 4018 1 0 3
dtext 335 <EVAL (<LOCAL.Y> + 2)> 1153 Reset
button 400 <LOCAL.Y> 4005 4006 1 0 4
dtext 435 <EVAL (<LOCAL.Y> + 2)> 1153 Onayla
[DIALOG d_townCrier_all BUTTON]
ON=0
CLEARCTAGS NEWS_
ON=1
CTAG.NEWS_HOURS=<ARGTXT[11]>
CTAG.NEWS_MINS=<ARGTXT[12]>
CTAG.NEWS_SECS=<ARGTXT[13]>
CTAG0.NEWS_LINES --
FOR <CTAG0.NEWS_LINES>
CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_all
ON=2
CTAG.NEWS_HOURS=<ARGTXT[11]>
CTAG.NEWS_MINS=<ARGTXT[12]>
CTAG.NEWS_SECS=<ARGTXT[13]>
CTAG0.NEWS_LINES ++
FOR <EVAL (<CTAG0.NEWS_LINES> - 1)>
CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_all
ON=3
CLEARCTAGS NEWS_
SDIALOG d_townCrier_all
ON=4
OBJ=<UID>
FORINSTANCES i_crier
TAG.NEWS=<OBJ.CTAG.NEWS_LINES>
FOR 0 <EVAL (<OBJ.CTAG.NEWS_LINES> - 1)>
TAG.NEWS_<dLOCAL._FOR>=<ARGTXT[<EVAL (<LOCAL._FOR> + 1)>]>
ENDFOR
IF (!(<ISEMPTY <ARGTXT[11]>>) || !(<ISEMPTY <ARGTXT[12]>>) || !(<ISEMPTY <ARGTXT[13]>>)
TOPOBJ.FINDID(i_crying_timer).TIMER=<EVAL ((<ARGTXT[11]> * 3600) + (<ARGTXT[12]> * 60) + <ARGTXT[13]>)>
ELSE
TOPOBJ.FINDID(i_crying_timer).TIMER=-1
ENDIF
TIMER=-1
MORE1=0
ENDFOR
SYSMESSAGE @,,1 Town Crier'lar güncellenmiştir.
CLEARCTAGS NEWS_
[DIALOG d_townCrier_local]
100,100
IF !(<SRC.CTAG0.NEWS_LINES>)
SRC.CTAG.NEWS_LINES=1
ENDIF
resizepic 0 0 5054 500 <EVAL (100 + (<SRC.CTAG.NEWS_LINES> * 30))>
gumppictiled 10 10 480 <EVAL (80 + (<SRC.CTAG.NEWS_LINES> * 30))> 2624
checkertrans 10 10 480 <EVAL (80 + (<SRC.CTAG.NEWS_LINES> * 30))>
resizepic 440 9 3000 52 30
IF (<SRC.CTAG0.NEWS_LINES> > 1)
button 445 14 038 038 1 0 1
ELSE
gumppic 445 14 038 038
ENDIF
IF (<SRC.CTAG0.NEWS_LINES> < 10)
button 472 14 037 037 1 0 2
ELSE
gumppic 472 14 037 038
ENDIF
dtext 15 30 1153 Süre:
resizepic 72 27 3000 30 26
dtextentry 75 30 20 20 0 11 <QVAL (<ISEMPTY <SRC.CTAG.NEWS_HOURS>>) ? : <dSRC.CTAG.NEWS_HOURS>>
dtext 105 30 1153 saat,
resizepic 142 27 3000 30 26
dtextentry 145 30 20 20 0 12 <QVAL (<ISEMPTY <SRC.CTAG.NEWS_MINS>>) ? : <dSRC.CTAG.NEWS_MINS>>
dtext 175 30 1153 dakika,
resizepic 222 27 3000 30 26
dtextentry 225 30 20 20 0 13 <QVAL (<ISEMPTY <SRC.CTAG.NEWS_SECS>>) ? : <dSRC.CTAG.NEWS_SECS>>
dtext 255 30 1153 saniye
LOCAL.Y=60
FOR <SRC.CTAG0.NEWS_LINES>
dtext 15 <dLOCAL.Y> 1153 Satır <dLOCAL._FOR>:
resizepic 72 <EVAL (<LOCAL.Y> - 3)> 3000 358 26
dtextentry 75 <dLOCAL.Y> 350 20 0 <dLOCAL._FOR> <SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>>
LOCAL.Y += 30
ENDFOR
button 300 <LOCAL.Y> 4017 4018 1 0 3
dtext 335 <EVAL (<LOCAL.Y> + 2)> 1153 Reset
button 400 <LOCAL.Y> 4005 4006 1 0 4
dtext 435 <EVAL (<LOCAL.Y> + 2)> 1153 Onayla
IF (<FINDID(i_crier).TAG0.NEWS>)
resizepic 500 0 5054 200 140
gumppictiled 510 10 180 120 2624
checkertrans 510 10 180 120
dhtmlgump 515 15 170 80 0 0 <DEF.BFONT_white>Bu town crier'ın zaten duyurduğu bir haber bulunmaktadır. Bunu değiştirmek ister misiniz?
button 620 100 4005 4006 1 0 5
dtext 655 102 1153 Evet!
ENDIF
[DIALOG d_townCrier_local BUTTON]
ON=0
SRC.CLEARCTAGS NEWS_
ON=1
SRC.CTAG.NEWS_HOURS=<ARGTXT[11]>
SRC.CTAG.NEWS_MINS=<ARGTXT[12]>
SRC.CTAG.NEWS_SECS=<ARGTXT[13]>
SRC.CTAG0.NEWS_LINES --
FOR <SRC.CTAG0.NEWS_LINES>
SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_local
ON=2
SRC.CTAG.NEWS_HOURS=<ARGTXT[11]>
SRC.CTAG.NEWS_MINS=<ARGTXT[12]>
SRC.CTAG.NEWS_SECS=<ARGTXT[13]>
SRC.CTAG0.NEWS_LINES ++
FOR <EVAL (<SRC.CTAG0.NEWS_LINES> - 1)>
SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>=<ARGTXT[<dLOCAL._FOR>]>
ENDFOR
SDIALOG d_townCrier_local
ON=3
SRC.CLEARCTAGS NEWS_
SDIALOG d_townCrier_local
ON=4
FINDID(i_crier).CLEARTAGS
FINDID(i_crier).TAG.NEWS=<SRC.CTAG.NEWS_LINES>
FOR 0 <EVAL (<SRC.CTAG.NEWS_LINES> - 1)>
FINDID(i_crier).TAG.NEWS_<dLOCAL._FOR>=<ARGTXT[<EVAL (<LOCAL._FOR> + 1)>]>
ENDFOR
IF (!(<ISEMPTY <ARGTXT[11]>>) || !(<ISEMPTY <ARGTXT[12]>>) || !(<ISEMPTY <ARGTXT[13]>>)
FINDID(i_crying_timer).TIMER=<EVAL ((<ARGTXT[11]> * 3600) + (<ARGTXT[12]> * 60) + <ARGTXT[13]>)>
ELSE
FINDID(i_crying_timer).TIMER=-1
ENDIF
SRC.SYSMESSAGE @,,1 Town Crier güncellenmiştir.
SRC.CLEARCTAGS NEWS_
ON=5
SRC.CLEARCTAGS NEWS_
SRC.CTAG.NEWS_HOURS=<EVAL (<FINDID(i_crying_timer).TIMER> / 3600)>
SRC.CTAG.NEWS_MINS=<EVAL ((<FINDID(i_crying_timer).TIMER> % 3600) / 60)>
SRC.CTAG.NEWS_SECS=<EVAL ((<FINDID(i_crying_timer).TIMER> % 3600) % 60)>
SRC.CTAG.NEWS_LINES=<FINDID(i_crier).TAG0.NEWS>
FOR <SRC.CTAG.NEWS_LINES>
SRC.CTAG.NEWS_LINE_<dLOCAL._FOR>=<FINDID(i_crier).TAG.NEWS_<EVAL (<LOCAL._FOR> - 1)>>
ENDFOR
SDIALOG d_townCrier_local
Yorumlar
Henüz yorum yapılmamıştır.
|
OylamalarOylama :
Üyelerin oylama ortalaması (10 dışında) : Henüz Oylanmamış
Oylar: 0 |
Benzer Sayfalar
| Sayfalar | Yorumlar | Gönderen | Tarih |
| Town Pond | 0 | TheRaskol | 05-08-2009 |
