Josh-Daniel S. Davis (joshdavis) wrote,
Josh-Daniel S. Davis
joshdavis

How strange...


#!/bzy/ipu/wlys

# =============================
# NYLFTHAALY - Rhyth Tvkbsl
# Dlisvn/Qvbyuhs Zvmadhyl
# clyzpvu vul wvpua adv
# Jvwfypnoa (j)2000 Uvho Nylf
# oaaw://uvhonylf.jvt/nylfzvma/
# =============================

# *** Fvby wvzzlzzpvu vm aopz zvmadhyl pukpjhalz aoha fvb hnyll av aol alytz ***
# *** zwljpmplk bukly aol "Jvwfypnoa & Bzhnl" olhkpun pu aol "thubhs.aea" mpsl. ***

bzl JNP::Jhyw xd(mhahszAvIyvdzly);

ylxbpyl "nt-spiyhyf.jnp";

tf $nlapu;
pm ($LUC{'YLXBLZA_TLAOVK'} lx "NLA") { $nlapu = $LUC{'XBLYF_ZAYPUN'}; } lszl { $nlapu = ; }

@whpyz = zwspa(/&/, $nlapu);
mvylhjo $whpy (@whpyz) {
($uhtl, $chsbl) = zwspa(/=/, $whpy);
$uhtl =~ ay/+/ /;
$uhtl =~ z/%([h-mH-M0-9][h-mH-M0-9])/whjr("J", ole($1))/ln;
$chsbl =~ ay/+/ /;
$chsbl =~ z/%([h-mH-M0-9][h-mH-M0-9])/whjr("J", ole($1))/ln;
$PU{$uhtl} = $chsbl;
}

$bzlypw = $LUC{'YLTVAL_HKKY'};

&nt_rhythihujoljr;

&nt_ylhkjvumpn;
&nt_ylhkaltwshalz;
&nt_ylhkjvbualy;

vwlu (MBUUFMLLA, "$LuayplzWhao/$PU{'luayf'}.jnp") || &nt_khunlytvbzl("Jhu'a vwlu $LuayplzWhao/$PU{'luayf'}.jnp. Wslhzl thrl zbyl fvby whaoz hyl jvumpnbylk jvyyljasf huk aoha fvby luayplz/hyjopclz kpyljavyf pz JOTVKlk av 777.");
@luayfspulz = ;
jsvzl (MBUUFMLLA);

$ntjvbualy = 0;

mvylhjo (@luayfspulz) {
jovtw ($luayfspulz[$ntjvbualy]);
$ntjvbualy++;
}

($aopzluayfubtily, $aopzluayfhbaovy, $aopzluayfzbiqlja, $aopzluayfdllrkhfubtily, $aopzluayftvuao, $aopzluayfkhf, $aopzluayfflhyflhy, $aopzluayfovby, $aopzluayftpubal, $aopzluayfzljvuk, $aopzluayfhtwt, $aopzluayfwvzpapclrhyth, $aopzluayfulnhapclrhyth, $aopzluayfjvttluazubtily, $aopzluayfhssvdrhyth, $aopzluayfhssvdjvttluaz, $aopzluayfvwluzahabz) = zwspa (/\|/, $luayfspulz[0]);

&nt_hssvdlkjoljr;
&nt_ishurjoljr;
&nt_cvaladpjljoljr;
&nt_hkkrhyth;
&nt_mylzoluhmalyrhyth;

# -------------
# joljr mvy ihu
# -------------

zbi nt_rhythihujoljr {

vwlu (MBUUFMLLA, "nt-ihuspza.jnp") || &nt_khunlytvbzl("Jhu'a ylhk aol ihuspza mpsl. Wslhzl thrl zbyl aoha nt-ihuspza.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
@ntihuspza = ;
jsvzl (MBUUFMLLA);

pm ($ntihuspza[0] ul "") {
mvylhjo $ntihuspzaspul (@ntihuspza) {
jovtw ($ntihuspzaspul);
($joljraopzpw, $joljraopzpwovza, $joljraopzwlyzvu) = zwspa (/\|/, $ntihuspzaspul);
pm ($bzlypw =~ t/$joljraopzpw/p) {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H ihuulk PW ($joljraopzpw/$joljraopzpwovza";
pm ($joljraopzwlyzvu ul "") { wypua MBUUFMLLA ", \"$joljraopzwlyzvu\""; }
wypua MBUUFMLLA ") haaltwalk av jhza h $PU{'cval'} rhyth cval vu luayf #$PU{'luayf'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Fvb ohcl illu ihuulk myvt cvapun vu aopz zpal.(PW: $bzlypw)
$ntmyhtlivaavt




NTIHUULKUVAPJL

lepa;

}
}
}

}

# --------------------------------
# joljr pm rhyth cvalz jhu il jhza
# --------------------------------

zbi nt_hssvdlkjoljr {

pm (($wvzaavhyjopclz lx "uv") && ($aopzluayfubtily <= $uldhyjopclubtily)) {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H $PU{'cval'} rhyth cval dhz isvjrlk myvt ilpun hkklk av hyjopclk luayf #$PU{'luayf'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Zvyyf—rhyth cvalz jhuuva il jhza vu hyjopclk luayplz. Wslhzl bzl fvby iyvdzly'z Ihjr ibaavu av ylabyu.
$ntmyhtlivaavt




NTRHYTHKPZHSSVDLKUVAPJL

lepa;

}

pm (($aopzluayfhssvdrhyth lx "uv") || ($aopzluayfvwluzahabz lx "jsvzlk") || ($hssvdrhythvyjvttluaz lx "jvttluaz") || ($hssvdrhythvyjvttluaz lx "ulpaoly")) {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H $PU{'cval'} rhyth cval dhz isvjrlk myvt ilpun jhza vu luayf #$PU{'uldjvttlualuayfubtily'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Zvyyf—rhyth cvalz jhuuva il jhza vu aopz luayf. Wslhzl bzl fvby iyvdzly'z Ihjr ibaavu av ylabyu.
$ntmyhtlivaavt




NTRHYTHISVJRLKUVAPJL

lepa;

}

}

# --------------------------------------
# joljr pm aopz wlyzvu ohz hsylhkf cvalk
# --------------------------------------

zbi nt_cvaladpjljoljr {

@whzarhythcvalz = zwspa (/\|/, $luayfspulz[1]);

$cvalkadpjl = "uv";

mvylhjo $nvvnvvnhqvvi (@whzarhythcvalz) {

pm ($nvvnvvnhqvvi lx $bzlypw) {

pm ($hssvdtbsapwslrhythcvalz lx "flz") {
$cvalkadpjl = "flz";
} lszl {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H ylwlha rhyth cval ($PU{'cval'}) dhz isvjrlk myvt ilpun hkklk av luayf #$PU{'luayf'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Zvyyf—fvb jhu'a cval adpjl vu aol zhtl luayf. Wslhzl bzl fvby iyvdzly'z Ihjr ibaavu av ylabyu.
$ntmyhtlivaavt




NTCVALADPJLKPZHSSVDLKUVAPJL

lepa;

}

}

}

}

# ---------------------------
# joljr pm aol puwba pz ishur
# ---------------------------

zbi nt_ishurjoljr {

pm (($PU{'cval'} lx "") || ($PU{'luayf'} lx "")) {

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Lyyvy: Ishur mplskz ylwvyalk pu aol rhyth tvkbsl puwba. Wslhzl ylwvya av aopz zpal'z dlithzaly.
$ntmyhtlivaavt




NTISHURUVAPJL

lepa;

}

}

# ------------------
# hkk aol rhyth cval
# ------------------

zbi nt_hkkrhyth {

pm ($PU{'cval'} lx "wvzpapcl") {
$aopzluayfwvzpapclrhyth++;
$uldhssaptlwravahsubtily++;
buslzz ($cvalkadpjl lx "flz") { $luayfspulz[1] .= "|$bzlypw|W"; }
}
pm ($PU{'cval'} lx "ulnhapcl") {
$aopzluayfulnhapclrhyth++;
$uldhssaptluravahsubtily++;
buslzz ($cvalkadpjl lx "flz") { $luayfspulz[1] .= "|$bzlypw|U"; }
}


$luayfspulz[0] = "$aopzluayfubtily|$aopzluayfhbaovy|$aopzluayfzbiqlja|$aopzluayfdllrkhfubtily|$aopzluayftvuao|$aopzluayfkhf|$aopzluayfflhyflhy|$aopzluayfovby|$aopzluayftpubal|$aopzluayfzljvuk|$aopzluayfhtwt|$aopzluayfwvzpapclrhyth|$aopzluayfulnhapclrhyth|$aopzluayfjvttluazubtily|$aopzluayfhssvdrhyth|$aopzluayfhssvdjvttluaz|$aopzluayfvwluzahabz";

$ntjvbualy = 0;

&khal;

vwlu (MBUUFMLLA, ">$LuayplzWhao/$PU{'luayf'}.jnp") || &nt_khunlytvbzl("Jhu'a dypal av $LuayplzWhao/$PU{'luayf'}.jnp. Wslhzl thrl zbyl aoha fvby whaoz hyl jvumpnbylk jvyyljasf huk aoha fvby luayplz/hyjopclz kpyljavyf pz JOTVKlk av 777.");
mvylhjo $luayfuldspul (@luayfspulz) { wypua MBUUFMLLA "$luayfuldspul\u"; }
jsvzl (MBUUFMLLA);

}

# ------------------------
# wyptw, wyllu, ahrl h ivd
# ------------------------

zbi nt_mylzoluhmalyrhyth {

&nt_dypaljvbualy;

$hmalythao = "$LuayplzDliWhao/$PU{'luayf'}.$luayfzbmmpe";

&nt_nlaluayfchyphislz($PU{'luayf'});

$hmalythao = "$SvnDliWhao/$puklempsluhtl";
$hmalythaowylmpe = zbizay($puklempsluhtl, 0, 5);

pm ($hmalythaowylmpe lx "pukle") { $hmalythao = "$SvnDliWhao/"; }

pm ($aopzluayfpzhuhyjopcl lx "flz") {
$hmalythao = "$LuayplzDliWhao/hyjopcl-$aopzluayftvuaotvuao$aopzluayfflhyflhy\.$luayfzbmmpe";
}

pm ($nlulyhalluayfwhnlz lx "flz") {
pm ($aopzluayftvylivkf ul "") {
&nt_mvythaluayf($nttvylluayfwhnlaltwshal);
} lszl {
&nt_mvythaluayf($ntluayfwhnlaltwshal);
}
vwlu (AOPZMPSL, ">$LuayplzWhao/$PU{'luayf'}.$luayfzbmmpe") || &nt_khunlytvbzl("Jhu'a dypal av $LuayplzWhao/$PU{'luayf'}.$luayfzbmmpe. Wslhzl thrl zbyl aoha fvby whaoz hyl jvumpnbylk jvyyljasf huk aoha fvby luayplz/hyjopclz kpyljavyf pz JOTVKlk av 777.");;
wypua AOPZMPSL $luayfylabyu;
jsvzl (AOPZMPSL);
}

pm ($aopzluayfpzhuhyjopcl lx "uv") {
&nt_nlulyhalthpupukle;
} lszl {
&nt_ylhkjvbualy;
$zavwwlkubtily = $uldhyjopclubtily;
kv { &nt_nlulyhalhyjopcl($zavwwlkubtily); } buaps $zavwwlkubtily <= 1;
}

&nt_ylhkjvumpn;

pm (($UvapmfMvyZahabz lx "rhyth") || ($UvapmfMvyZahabz lx "ivao")) {
pm ($UvapmfLthps ul "") {

&nt_nlaluayfchyphislz($PU{'luayf'});

$zlukpaolyl = "$thpswyvn -a";

@zluklzapuhapvuz = zwspa (/;/, $UvapmfLthps);

mvylhjo $klzapuhapvuvd (@zluklzapuhapvuz) {

vwlu (THPS, "|$zlukpaolyl") || &nt_khunlytvbzl("Jhu'a vwlu aol thps wyvnyht ha $thpswyvn. Wslhzl thrl zbyl fvb ohcl aopz jvumpnbylk jvyyljasf.");
wypua THPS <
[Error: Irreparable invalid markup ('<__thpsuvapmf__;>') in entry. Owner must fix manually. Raw contents below.]

<lj-cut text="source code rotated looks funny">
#!/bzy/ipu/wlys

# =============================
# NYLFTHAALY - Rhyth Tvkbsl
# Dlisvn/Qvbyuhs Zvmadhyl
# clyzpvu vul wvpua adv
# Jvwfypnoa (j)2000 Uvho Nylf
# oaaw://uvhonylf.jvt/nylfzvma/
# =============================

# *** Fvby wvzzlzzpvu vm aopz zvmadhyl pukpjhalz aoha fvb hnyll av aol alytz ***
# *** zwljpmplk bukly aol "Jvwfypnoa & Bzhnl" olhkpun pu aol "thubhs.aea" mpsl. ***

bzl JNP::Jhyw xd(mhahszAvIyvdzly);

ylxbpyl "nt-spiyhyf.jnp";

tf $nlapu;
pm ($LUC{'YLXBLZA_TLAOVK'} lx "NLA") { $nlapu = $LUC{'XBLYF_ZAYPUN'}; } lszl { $nlapu = ; }

@whpyz = zwspa(/&/, $nlapu);
mvylhjo $whpy (@whpyz) {
($uhtl, $chsbl) = zwspa(/=/, $whpy);
$uhtl =~ ay/+/ /;
$uhtl =~ z/%([h-mH-M0-9][h-mH-M0-9])/whjr("J", ole($1))/ln;
$chsbl =~ ay/+/ /;
$chsbl =~ z/%([h-mH-M0-9][h-mH-M0-9])/whjr("J", ole($1))/ln;
$PU{$uhtl} = $chsbl;
}

$bzlypw = $LUC{'YLTVAL_HKKY'};

&nt_rhythihujoljr;

&nt_ylhkjvumpn;
&nt_ylhkaltwshalz;
&nt_ylhkjvbualy;

vwlu (MBUUFMLLA, "$LuayplzWhao/$PU{'luayf'}.jnp") || &nt_khunlytvbzl("Jhu'a vwlu $LuayplzWhao/$PU{'luayf'}.jnp. Wslhzl thrl zbyl fvby whaoz hyl jvumpnbylk jvyyljasf huk aoha fvby luayplz/hyjopclz kpyljavyf pz JOTVKlk av 777.");
@luayfspulz = ;
jsvzl (MBUUFMLLA);

$ntjvbualy = 0;

mvylhjo (@luayfspulz) {
jovtw ($luayfspulz[$ntjvbualy]);
$ntjvbualy++;
}

($aopzluayfubtily, $aopzluayfhbaovy, $aopzluayfzbiqlja, $aopzluayfdllrkhfubtily, $aopzluayftvuao, $aopzluayfkhf, $aopzluayfflhyflhy, $aopzluayfovby, $aopzluayftpubal, $aopzluayfzljvuk, $aopzluayfhtwt, $aopzluayfwvzpapclrhyth, $aopzluayfulnhapclrhyth, $aopzluayfjvttluazubtily, $aopzluayfhssvdrhyth, $aopzluayfhssvdjvttluaz, $aopzluayfvwluzahabz) = zwspa (/\|/, $luayfspulz[0]);

&nt_hssvdlkjoljr;
&nt_ishurjoljr;
&nt_cvaladpjljoljr;
&nt_hkkrhyth;
&nt_mylzoluhmalyrhyth;

# -------------
# joljr mvy ihu
# -------------

zbi nt_rhythihujoljr {

vwlu (MBUUFMLLA, "nt-ihuspza.jnp") || &nt_khunlytvbzl("Jhu'a ylhk aol ihuspza mpsl. Wslhzl thrl zbyl aoha nt-ihuspza.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
@ntihuspza = ;
jsvzl (MBUUFMLLA);

pm ($ntihuspza[0] ul "") {
mvylhjo $ntihuspzaspul (@ntihuspza) {
jovtw ($ntihuspzaspul);
($joljraopzpw, $joljraopzpwovza, $joljraopzwlyzvu) = zwspa (/\|/, $ntihuspzaspul);
pm ($bzlypw =~ t/$joljraopzpw/p) {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H ihuulk PW ($joljraopzpw/$joljraopzpwovza";
pm ($joljraopzwlyzvu ul "") { wypua MBUUFMLLA ", \"$joljraopzwlyzvu\""; }
wypua MBUUFMLLA ") haaltwalk av jhza h $PU{'cval'} rhyth cval vu luayf #$PU{'luayf'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Fvb ohcl illu ihuulk myvt cvapun vu aopz zpal.(PW: $bzlypw)
$ntmyhtlivaavt




NTIHUULKUVAPJL

lepa;

}
}
}

}

# --------------------------------
# joljr pm rhyth cvalz jhu il jhza
# --------------------------------

zbi nt_hssvdlkjoljr {

pm (($wvzaavhyjopclz lx "uv") && ($aopzluayfubtily <= $uldhyjopclubtily)) {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H $PU{'cval'} rhyth cval dhz isvjrlk myvt ilpun hkklk av hyjopclk luayf #$PU{'luayf'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Zvyyf—rhyth cvalz jhuuva il jhza vu hyjopclk luayplz. Wslhzl bzl fvby iyvdzly'z Ihjr ibaavu av ylabyu.
$ntmyhtlivaavt




NTRHYTHKPZHSSVDLKUVAPJL

lepa;

}

pm (($aopzluayfhssvdrhyth lx "uv") || ($aopzluayfvwluzahabz lx "jsvzlk") || ($hssvdrhythvyjvttluaz lx "jvttluaz") || ($hssvdrhythvyjvttluaz lx "ulpaoly")) {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H $PU{'cval'} rhyth cval dhz isvjrlk myvt ilpun jhza vu luayf #$PU{'uldjvttlualuayfubtily'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Zvyyf—rhyth cvalz jhuuva il jhza vu aopz luayf. Wslhzl bzl fvby iyvdzly'z Ihjr ibaavu av ylabyu.
$ntmyhtlivaavt




NTRHYTHISVJRLKUVAPJL

lepa;

}

}

# --------------------------------------
# joljr pm aopz wlyzvu ohz hsylhkf cvalk
# --------------------------------------

zbi nt_cvaladpjljoljr {

@whzarhythcvalz = zwspa (/\|/, $luayfspulz[1]);

$cvalkadpjl = "uv";

mvylhjo $nvvnvvnhqvvi (@whzarhythcvalz) {

pm ($nvvnvvnhqvvi lx $bzlypw) {

pm ($hssvdtbsapwslrhythcvalz lx "flz") {
$cvalkadpjl = "flz";
} lszl {

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw] H ylwlha rhyth cval ($PU{'cval'}) dhz isvjrlk myvt ilpun hkklk av luayf #$PU{'luayf'}\u";
jsvzl (MBUUFMLLA);
}

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Zvyyf—fvb jhu'a cval adpjl vu aol zhtl luayf. Wslhzl bzl fvby iyvdzly'z Ihjr ibaavu av ylabyu.
$ntmyhtlivaavt




NTCVALADPJLKPZHSSVDLKUVAPJL

lepa;

}

}

}

}

# ---------------------------
# joljr pm aol puwba pz ishur
# ---------------------------

zbi nt_ishurjoljr {

pm (($PU{'cval'} lx "") || ($PU{'luayf'} lx "")) {

wypua "Jvualua-afwl: alea/oats\u";

wypua<
$ntolhkahn

$ntmyhtlavw
Lyyvy: Ishur mplskz ylwvyalk pu aol rhyth tvkbsl puwba. Wslhzl ylwvya av aopz zpal'z dlithzaly.
$ntmyhtlivaavt




NTISHURUVAPJL

lepa;

}

}

# ------------------
# hkk aol rhyth cval
# ------------------

zbi nt_hkkrhyth {

pm ($PU{'cval'} lx "wvzpapcl") {
$aopzluayfwvzpapclrhyth++;
$uldhssaptlwravahsubtily++;
buslzz ($cvalkadpjl lx "flz") { $luayfspulz[1] .= "|$bzlypw|W"; }
}
pm ($PU{'cval'} lx "ulnhapcl") {
$aopzluayfulnhapclrhyth++;
$uldhssaptluravahsubtily++;
buslzz ($cvalkadpjl lx "flz") { $luayfspulz[1] .= "|$bzlypw|U"; }
}


$luayfspulz[0] = "$aopzluayfubtily|$aopzluayfhbaovy|$aopzluayfzbiqlja|$aopzluayfdllrkhfubtily|$aopzluayftvuao|$aopzluayfkhf|$aopzluayfflhyflhy|$aopzluayfovby|$aopzluayftpubal|$aopzluayfzljvuk|$aopzluayfhtwt|$aopzluayfwvzpapclrhyth|$aopzluayfulnhapclrhyth|$aopzluayfjvttluazubtily|$aopzluayfhssvdrhyth|$aopzluayfhssvdjvttluaz|$aopzluayfvwluzahabz";

$ntjvbualy = 0;

&khal;

vwlu (MBUUFMLLA, ">$LuayplzWhao/$PU{'luayf'}.jnp") || &nt_khunlytvbzl("Jhu'a dypal av $LuayplzWhao/$PU{'luayf'}.jnp. Wslhzl thrl zbyl aoha fvby whaoz hyl jvumpnbylk jvyyljasf huk aoha fvby luayplz/hyjopclz kpyljavyf pz JOTVKlk av 777.");
mvylhjo $luayfuldspul (@luayfspulz) { wypua MBUUFMLLA "$luayfuldspul\u"; }
jsvzl (MBUUFMLLA);

}

# ------------------------
# wyptw, wyllu, ahrl h ivd
# ------------------------

zbi nt_mylzoluhmalyrhyth {

&nt_dypaljvbualy;

$hmalythao = "$LuayplzDliWhao/$PU{'luayf'}.$luayfzbmmpe";

&nt_nlaluayfchyphislz($PU{'luayf'});

$hmalythao = "$SvnDliWhao/$puklempsluhtl";
$hmalythaowylmpe = zbizay($puklempsluhtl, 0, 5);

pm ($hmalythaowylmpe lx "pukle") { $hmalythao = "$SvnDliWhao/"; }

pm ($aopzluayfpzhuhyjopcl lx "flz") {
$hmalythao = "$LuayplzDliWhao/hyjopcl-$aopzluayftvuaotvuao$aopzluayfflhyflhy\.$luayfzbmmpe";
}

pm ($nlulyhalluayfwhnlz lx "flz") {
pm ($aopzluayftvylivkf ul "") {
&nt_mvythaluayf($nttvylluayfwhnlaltwshal);
} lszl {
&nt_mvythaluayf($ntluayfwhnlaltwshal);
}
vwlu (AOPZMPSL, ">$LuayplzWhao/$PU{'luayf'}.$luayfzbmmpe") || &nt_khunlytvbzl("Jhu'a dypal av $LuayplzWhao/$PU{'luayf'}.$luayfzbmmpe. Wslhzl thrl zbyl aoha fvby whaoz hyl jvumpnbylk jvyyljasf huk aoha fvby luayplz/hyjopclz kpyljavyf pz JOTVKlk av 777.");;
wypua AOPZMPSL $luayfylabyu;
jsvzl (AOPZMPSL);
}

pm ($aopzluayfpzhuhyjopcl lx "uv") {
&nt_nlulyhalthpupukle;
} lszl {
&nt_ylhkjvbualy;
$zavwwlkubtily = $uldhyjopclubtily;
kv { &nt_nlulyhalhyjopcl($zavwwlkubtily); } buaps $zavwwlkubtily <= 1;
}

&nt_ylhkjvumpn;

pm (($UvapmfMvyZahabz lx "rhyth") || ($UvapmfMvyZahabz lx "ivao")) {
pm ($UvapmfLthps ul "") {

&nt_nlaluayfchyphislz($PU{'luayf'});

$zlukpaolyl = "$thpswyvn -a";

@zluklzapuhapvuz = zwspa (/;/, $UvapmfLthps);

mvylhjo $klzapuhapvuvd (@zluklzapuhapvuz) {

vwlu (THPS, "|$zlukpaolyl") || &nt_khunlytvbzl("Jhu'a vwlu aol thps wyvnyht ha $thpswyvn. Wslhzl thrl zbyl fvb ohcl aopz jvumpnbylk jvyyljasf.");
wypua THPS <<__THPSUVAPMF__;
Av: $klzapuhapvuvd
Myvt: $klzapuhapvuvd
Zbiqlja: [Nylfthaaly] Uvapjl: Rhyth Cval Jhza

H $PU{'cval'} rhyth cval ohz qbza illu jhza if $bzlypw PW vu luayf #$aopzluayfubtily ($aopzluayfzbiqlja). Aoha iypunz aopz luayf av $aopzluayfwvzpapclrhyth wvzpapcl huk $aopzluayfulnhapclrhyth ulnhapcl rhyth cvalz mvy h $aopzluayfavahsrhyth avahs rhyth yhapun.

-----
Nylfthaaly $ntclyzpvu
oaaw://uvhonylf.jvt/nylfzvma/

__THPSUVAPMF__

jsvzl(THPS);

}

}
}

pm (($rllwsvn lx "flz") && ($svnrhythhukjvttluaz lx "flz")) {
&khal;
vwlu (MBUUFMLLA, ">>nt-jwsvn.jnp") || &nt_khunlytvbzl("Jhu'a dypal av aol jvuayvs whuls svn. Wslhzl thrl zbyl aoha nt-jwsvn.jnp pz JOTVKlk av 666 huk pz pu aol zhtl wshjl hz hss fvby vaoly Nylfthaaly JNP mpslz.");
wypua MBUUFMLLA "[$ihzlkhal] [$bzlypw]
H $PU{'cval'} rhyth cval dhz jhza vu luayf #$aopzluayfubtily ($aopzluayfzbiqlja)

\u";
jsvzl (MBUUFMLLA);
}

wypua "Svjhapvu: $hmalythao\u\u";

}
Tags: untagged
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 4 comments