Fleet-Street FAQ (скрипты) [5/7]

From
SS' bot (2:5062/27)
To
All (2:5054/37.63)
Date
2004-02-22T00:11:44Z
Area
RU.FLEETSTREET
>Q7: <*Д*>обавление описаний в FleetStreet`кий areas.ini (понимает DZ и NA
>   форматы описания эх) и установка атрибута "foreign characters
>   allowed". (Nestyurkin Nikolay, 2:5020/1404.77)

   Вот тут скриптик ниписал добавляющий описания в area.ini и
устанавливающий атрибут "foreign characters allowed", понимающий 2
формата описания эх + работает как конвертер этих описаний,
поддерживающий одновременно несколько файлов с описаниями эх.

=========[dsc2flt.ha]=========
begin 644 dsc2flt.ha
M2$$!`"+X!0``L0T``#37H4"4J^@V`&1S8S)F;'0N8VUD``(!("]"&NH>06\K
MIP(&JIUD#HS="FJQ:;G>$Z0\DN&?";329T/7@6\#\K=6+W^QF<HX8$X/^CM"
M[!62-^>$%AX.,8:1HFM=%9M6#'56>_.#N^"'CW6?;'MQ2#4#!(::=P3A_>FI
MM`I"A\:Y[#]QA0O=[150/"!3':%7Y0X"]*`B>,Z0Z,*;K@S*V@"BN`8FVEEI
MB=_(LLD^.GGKBSK;.%OY?)&%L*#H-:A(8OGX3N%!6G`]B*&/2RM,E$MRB.3$
MTT$U1+0%@7@MYN)D`5#382FJ'&3B[[^>Q\!24$%ZVE&'[Q2?E*4,\_O\O!Q@
MT32A[ZHRY*#8WR3#=-*^6>$NV-R"".;2)V\S.4_44;B5;EK0ZZ;MD)\69$4V
M:@G1G5[P5#PG)L/^4#>X5<<"48"WTQI^:9H.V?F54"6RL,-+FR#\+JW+2X'E
MKB#AYW06#R?V:R1IYF*SZYC<D"9'F,2N;V;QQ#B&=X!B_QJ[XN]4FC)VK2F;
M0@[VKZ^RKWMVZU[8\2/)YX$F@;RPWLKGI3H\LZ=$/+_=Z[C]R)EZJR$D)S5A
M:QO?2K$)79JQ,0V))2C0656O6L=07D$[,O*H6OU9DQ"=7L^BRDX*RD2:`#=\
MFL+5H1H^J6&13,L:M'(SX/2@`MZ5H)#WC$`AO9#)J\E_-N$VD]F@A(GV0(1R
MMF>@O.=_$!':Y`Y'!I*>6#&IQ\6A]+!-1[3:/VN^79E=^`N=/]G6F7<,=<!J
M-#EP>6P04`LV%5&PR'&9\=!5:_&C;#'?NAR6!W9&Q+E_F9L5IM`[DG[+4(GU
M%S^DF%^EU308'3#V#:<J)1VBCI:<`(\RK*I0:<G\7AO@I2['L0[;7BYX59W=
M=#TAFY5-QKYRM6=WPCU(&8(ZI"G3@:<92A$)\$5$&ID>1^O9K#/'-^O3Y\1-
MJL"9TN?O#B8I'X1F/>0\Y1Q7J-ZX@H.GPPSATNSN;AZ,>8FU4=!9[$1]GN"/
M[#^PEQ*1I(2:!(L7J5=#?U$=(>#G$37FI^W3IL$UW(6L$=:=OL38FG.3=A._
MYL?1EZ:*'&=Y%KT&7-)=$%/>$[=('F>*"E8B\^)^&B!]4MV[',W,@>**+!H4
MV.6!5[KWTSOV(92!$YC4`B\C.KJ[-8T@>R:W<B>^8O*WR5@U7;CFX8M+9EUY
M&RN4V%%0_),MJ/36_W`L"5^`C>\!6K2/*!\`]@S.C^1/>"LTB\7_^!,8>\-A
M51\#L=@\[%'^NQ!VJ6&TVAJZK1"][1YN^10?8^>7M@T\PD,8B/+UD4N'X;"O
MRR#<.N%;_I&C_NV7YP3W]M&WA?.L.ED6R.OGS5\X/O5E[?:I#&=0]5W4F_=6
MA0^-H+C?%NJ=`UPXVNCK(!`IW`J=A/2J@X&R&[N.RNEN2Y,*R,9-SB(R46PL
M>U)`A;F%["V^DPHO)S`S47T]?&Q7VJ=;@&.XCX'EX+T12\$P[H!&D*EEX_)@
M!9^14#:Y#&<<2A[)[9&:*=?U"-<_D4=,YO?E50KTX2U#S!I-],?3IHJ+CD%\
MI6&^D-=]8I?!#>85PE3*+[.AI*;DK8:BA]TY@NCM?'(Z^*3))(?R]G?A,SY'
M[.#I2A'X]*V`P$W(R'6?`<H*J!+[<\(`J^18L/(@0NO5#T+:"!&\/M07GHTZ
MS*B?$WXC'@V0^BJ$+5G1#]++$:)YWG)J*?:('`2<`-[4UTOEF&G^4QP/U[8Q
M?SK=A_0!UOW%I#GCJR+V$[+LP7-)^V1)W>D"!2I-N*ZNGRMBG_6;N)Y@'8@[
MR5P.FW*F.JOVF\6]P]11$V&NRM9)$LH)XO4=N(R@\I,DG>%<86B'/QQ"1$,%
M'Y\EMS7>/Q^]4T+P;H9'ABFI,:`P,'87!,HZ+!:JN'.^2_T3Y0].VR@>!04T
M*H5DX:(NP_3BR$YE.KT29:HDLWW6QZK8*N21-;.ZBCLPBRL_[:@1A3]@8BNY
MNBKJ0"\[[WGBY`$L;7*3(:[PJXR9`9YRP5Q"VL7E7CZNT"<T+7\<!!@2+?%R
C,W"D?=5Z9DY!4(&/KVLNJ^\F`205*)]KLM=+R@]_"L2J7\`
`
end
sum -r/size 50346/1565 entire input file
=========[dsc2flt.cmd]=========

>Q8: <*Б*>ыстро сохраняет письмо в предопределённую директорию.
>   (Nestyurkin Nikolay, 2:5020/1404.77)

============[QMsgSave.Ha]============
begin 644 QMsgSave.Ha
M2$$!`"+#!0``#PX``!I[:"#NSNDV`%%M<V=3879E+F9R>``"`2`O0AKJ(6G(
M\J_A\_)LQ2<5R:,YSF*=.>-1#GVZ8E2_V;GFZ"'#J39=!*5$>5H2"0UI@Q3^
MC@F#!Y4[:#NONU=5D-7A'(5!$A6&#VO6MX[<@#SK:)@ZZ.3>5$OUH9FN,WWL
M!API";S5)EI`R^=#]P@CQGR)M,\NB%RU;,M8UF/V@F:I2!:79F7,O5!98%L=
M@H*JR6[^.>2""E.AYHLT[(.:?-[0G'2>!S,A7P_]@G?&`M#G.TD-M3N2Q8/P
MJH@:44(I,!@,/ZQS?@K->9K,BN$Y<MA,#GIESFPQF7SQ'2+Y:*R#@_\6)J8C
MJ4^I9M3D'$:39AM6VTGZ9#39SM06P""*2C,2'E!I4-+.0$Q;E$[-.K:)%&Z.
M?M+.Z1J$-="?T7M%S[D`E*-TEX_[82>\"XP5)28=DUN0FWO+)R4"/7?B]=9[
M=`C&(>$:&8?1S2#*$EYO%\!JM*W@0PQA`Y1&P,@3I+:@$/L&D;N]R`MB'V>I
MTP`B)['5@WC%VL7[]8IHKNS0IZA[VE].8\X09KI-1U87B:V(IZVV0L-LE=9Y
M>S`6/W!(&D*=.IQ<4VA-)NCY!,OWE^)\_HJ$>SR=\E5ORFQA]`^0FJ-IM4K4
M5L^`#NLH"H3WBGLZ9.C.QJON+D^M,UY/(&3+\Q&9XJHCUX^CFIG"?XR_N8R:
M+AK#J$*^M>>>+_C5V&`#6,=#'PUX9GB7<]5D?><0=(X)<)5**8?.<$L_!F`I
MIXD$#2/V,%`N-$MKPC)_,I--@*GAGTQ?^#&B)3QVW-VTV"Q9T4NO7=UJ+@A2
M/CL)]V^<@OHW_AKF``(WI5+;RMKDFJ,8\5H3@9)KG"XCDD[P).Q.M_\_(&+E
M7QT?IG/,#RV?7![<>2"F0B8JQ&E"@J%1"C62T%IV<A`@U:?5@VD5#Q9T^+$'
MO?ZP*\W:0$9'`B-YVCE[)78Y)QGAK_LO=N90^3A[W[JUTL7]"H-5F$CT^4]7
M"BN#[9*-C9]@^>K<DISQ"%J=A-8FOM7;^E/3TEIS!S]2E$%QYB2LCQE+44A3
M([]@5'L;9OY3$*:?SGGNL2")J787G18#!R<)-SY'=K0,C*![W^`9QPFHB#`W
M)%.QP8%W!;!VAL=PR<7/KSC8MP7B,4"I._=^/`DH]>KWU?0=;8*A,SE2AL**
M*+T4'F/UH4#:=%__T!UBAQS(%GA_@IYVX/&A()KD#XE_K3().>)PE_&6;*,G
M`-6EB!""$K8#?=_YVD;VG:'AXWY6U=-E5DA91Q(OJ?PP7^UU#`85<,OV*F.G
M&KU:1T=RL=M1_VOLFDF!"T!R7\QZ1LHEV5@N+V`C_X<RR9=4^(T?M>RQ>P3I
MSLY0W]U<W-V;^99JL\_P@51A)M,1&-20"5,EA(?!?J!]?K/#<CC<H"\Q:<D2
MG?L?;>:UE:OZ7,<%H+Q`7G4C5]>K>`"P^^Q(2KS74SJ@&(7J[0LZ*34;C%L#
M`^B\U8@KX).1<5-!K+1NAV@D7,%#+FRQ:?I#N=C+D#4VGS]\B8I?"Q`TA6=+
MK.8.F3U$6:5CJ"[V=CCK<;QQ?H>62B\FDY^RAV15R`UZ%R:+.)]H:^$'T@J`
MZODGU]7)(R892\:,#'BZ:9?:RIO=:L@=>4%[0`F:%A#OSWS?+=HO\X8%"]6N
M1(J:=Y=-&_U)CYZ#+@!RWBD./2+6";TC?;*CU`'KQ\YC@E34VTW%AU]`&50&
M5%DE_MQIKG==7L`.OH*?F()1#HXL)""@D.0S;W(W;9`LDRQL=WSL9Y0^!<J*
M'>RA%8V"RX?/@2`]T2B\"/K")FGNTP$8,A*'5N>)@56166H-Z1AL(B61=8$!
M2.'^:\T\(HO`,"7MO9OU@=*C7E/Q.'H/OSP0HP]>>D+[,/L'FSX=^?EDW".W
M]47I?81PH[!(WKP>@)&"G\N(?<P\-;R:LI_RBPKZ#":TP_N?!R-V>J,S;O\G
<F<!E:1C?./-.82?_>(_^;5*"SPV$<,IOTB@J8`
`
end
sum -r/size 54722/1513 entire input file
============[QMsgSave.Ha]============

---
 * Origin:  Volgodonsk, Russia  (2:5062/27.0)
SEEN-BY: 450/102 160 452/25 461/74 106 132 220 640 462/30 463/68 220 464/34 36
SEEN-BY: 465/62 64 204 469/125 303 550/5068 4615/21 4625/9 4626/6 5000/5000
SEEN-BY: 5002/5002 5003/34 5005/14 5006/1 5009/14 5010/77 5015/4 28 5020/37 52
SEEN-BY: 5020/69 115 128 252 321 323 362 400 549 715 758 794 902 921 982 1169
SEEN-BY: 5020/1234 1642 1822 1873 2020 2200 4400 4441 12000 5021/44 600 5022/5
SEEN-BY: 5023/11 5025/3 39 5030/69 382 423 1016 1023 1688 1900 5031/50 5036/1
SEEN-BY: 5037/21 5040/33 47 59 5042/8 5045/7 5050/9 41 5051/35 5052/4 5053/16
SEEN-BY: 5053/18 5054/1 9 10 30 37 67 79 5055/158 181 5058/24 106 5059/9 10 20
SEEN-BY: 5061/15 5062/1 17 21 27 5066/18 5069/7 5070/26 66 5071/1 5078/20
SEEN-BY: 5080/80 301 1003 5083/13 21 5085/13 5090/3 5093/4 57 5095/1 6035/1
SEEN-BY: 6083/12
PATH: 5062/27 1 5020/4441 52 5054/1 79 37