Код
/////////////////////////////////////////////////////
// //
// Made by NFix* //
// Type : Chat system //
// Use : type .ch //
// Version : o.55 R4 (to use in 55.i remove @**) //
// //
/////////////////////////////////////////////////////
// Main Menu - главное меню
[DIALOG chat_s]
0, 0
PAGE 0
resizepic 9 9 2600 181 244
text 55 22 162 0
text 76 220 162 1
button 37 134 4005 4006 1 1 1
text 72 134 1345 2
button 37 156 4005 4006 1 1 2
text 72 156 1345 3
button 37 178 4005 4006 1 1 3
text 72 178 1345 4
gumppic 69 57 223
[DIALOG chat_s TEXT]
Chat sys v2.0
by NFix*
Server chat
Guild Chat
Help Page
[DIALOG chat_s BUTTON]
ONBUTTON=1
f_taghelp
dialog schat
ONBUTTON=2
f_taghelp
dialog schat
ONBUTTON=3
helppage
//Распределение тагов
[FUNCTION f_taghelp]
IF (0<tag.off>==1)
tag.usechat=OFF
tag.tc=238
ELSE
tag.tc=64
tag.usechat=ON
ENDIF
IF (0<tag.goff>==1)
tag.usegc=OFF
tag.gtc=238
ELSE
tag.gtc=64
tag.usegc=ON
ENDIF
IF (0<tag.gcol> == 00)
tag.gcol=64
ENDIF
IF (0<tag.chatcol> == 00)
tag.chatcol=64
ENDIF
// Server Chat - Общесерверный чат
[FUNCTION ch]
IF (strmatch("<args>",""))
sysmessageua @238 No text! Be careful! Type "!help" to get help'
dialog chat_s
return 1
ENDIF
IF (strmatch("<args>","!help"))
sysmessageua @64 Type ".ch text" to use chat
sysmessageua @64 Type ".ch on" to activate chat
sysmessageua @64 Type ".ch off" to de-activate chat
return 1
ENDIF
IF (strmatch("<args>","on"))
IF (0<tag.off> == 1)
sysmessageua @128 Chat is activated!
tag.off=0
return 1
ELSE
sysmessageua @128 Chat is already activated!
return 1
ENDIF
ELSEIF (strmatch("<args>","off"))
IF (0<tag.off> == 1)
sysmessageua @128 Chat is already de-activated!
return 1
ELSE
tag.off=1
sysmessageua @128 Chat de-activated!
return 1
ENDIF
ENDIF
IF (0<tag.off>==1)
src.sysmessageua @238 Chat is de-activated
src.sysmessageua @238 Type .ch on to activate chat!
RETURN 1
ENDIF
var.speech=<args>
var.sname=<name>
var.sregion=<region.name>
var.scolor=<tag.chatcol>
serv.allclients f_chat
[FUNCTION f_chat]
IF (0<tag.off>==1)
RETURN 1
ENDIF
sysmessageua <eval <var.scolor>>,0,0,rus,<var.sname> [<var.sregion>]: <var.speech>
[DIALOG schat]
190, 0
PAGE 0
resizepic 9 9 2600 181 244
text 57 22 162 0
text 76 220 162 1
text 32 74 1345 2
text 42 94 1345 3
text 127 94 <eval <tag.tc>> 4
text 32 124 1345 5
text 42 144 1345 6
textentry 127 144 30 40 <eval <tag.chatcol>> 0 7
button 107 188 2311 2312 1 0 1
[DIALOG schat TEXT]
Chat options
by NFix*
Chat status:
Chat is ......
<tag.usechat>
Chat color:
Color is ....
<eval <tag.chatcol>>
[DIALOG schat BUTTON]
ONBUTTON=1
IF (<ARGTXT[0]> != <eval <tag.chatcol>>)
tag.chatcol=<ARGTXT[0]>
src.sysmessage @<eval <tag.chatcol>> Color changed to <eval <tag.chatcol>> !
RETURN 1
ENDIF
/// Gchat - Гильд Чат
[FUNCTION .]
IF (<MEMORYFINDTYPE(0400).LINK> == 0)
src.sysmessage You are not in a guild!
RETURN 1
ENDIF
IF (strmatch("<args>",""))
sysmessage @238 No text! Be careful! Type "!help" to get help'
dialog chat_s
return 1
ENDIF
IF (strmatch("<args>","!help"))
sysmessage @64 Type ".. text" to use chat
sysmessage @64 Type ".. on" to activate chat
sysmessage @64 Type ".. off" to de-activate chat
return 1
ENDIF
IF (strmatch("<args>","on"))
IF (0<tag.goff> == 1)
sysmessage @128 GChat is activated!
tag.goff=0
return 1
ELSE
sysmessage @128 GChat is already activated!
src.sysmessage @238 Type ".. off" to de-activate GChat!
return 1
ENDIF
ELSEIF (strmatch("<args>","off"))
IF (0<tag.goff> == 1)
sysmessage @128 GChat is already de-activated!
return 1
ELSE
tag.goff=1
sysmessage @128 GChat de-activated!
return 1
ENDIF
ENDIF
IF (0<tag.goff>==1)
src.sysmessage @238 GChat is de-activated
src.sysmessage @238 Type ".. on" to activate GChat!
RETURN 1
ENDIF
var.gpeech=<args>
var.gname=<name>
var.gregion=<region.name>
var.gcol=<tag.gcol>
var.gchecks=<MEMORYFINDTYPE(0400).uid>
serv.allclients f_gchat
[FUNCTION f_gchat]
IF (0<tag.goff> == 1)
RETURN 1
ENDIF
IF (0<MEMORYFINDTYPE(0400).UID> == 0)
RETURN 1
ENDIF
IF (0<MEMORYFINDTYPE(0400).UID> != <var.gcheks>)
RETURN 1
ENDIF
sysmessageua <eval <var.scolor>>,0,0,rus,***Guild*** <var.sname> [<var.sregion>]: <var.speech>
[DIALOG gchat]
190, 0
PAGE 0
resizepic 9 9 2600 181 244
text 53 22 162 0
text 76 220 162 1
text 32 74 1345 2
text 42 94 1345 3
text 127 94 <eval <tag.gtc>> 4
text 32 124 1345 5
text 42 144 1345 6
textentry 127 144 30 40 <eval <tag.gcol>> 0 7
button 107 188 2311 2312 1 0 1
[DIALOG gchat TEXT]
GChat options
by NFix*
Chat status:
Chat is ......
<tag.usegc>
Chat color:
Color is ....
<eval <tag.gcol>>
[DIALOG gchat BUTTON]
ONBUTTON=1
IF (<ARGTXT[0]> != <eval <tag.gcol>>)
tag.gcol=<ARGTXT[0]>
src.sysmessage @<eval <tag.gcol>> Color changed to <eval <tag.gcol>> !
RETURN 1
ENDIF
ЛОВИтЕ! После того как написал пред. пост я наконец понял, почему юникод глючит.... Кароч я пытался переводить на русский юникод отталкиваясь от Тарановскои функции, но подумав, решил что проще не менять стандартную команду его ыфункциеи, а поюзать её напрямую....
Итого - chat sys 2.0
Теперь моно пистаь по русски (IMG:
style_emoticons/default/smile.gif) (сча разберусь еще с гильд чатом, времени в образ). Убрал Пеиджинг, ибо лаги, создаваемые им, себя не оправдали
Chat-system
19.8.2004, 23:32
NFx Chat-system 19.8.2004, 23:32
