?

Log in

No account? Create an account

Josh-D. S. Davis

Xaminmo / Omnimax / Max Omni / Mad Scientist / Midnight Shadow / Radiation Master

Previous Entry Share Next Entry
How strange...
Josh 201604 KWP
joshdavis

#!/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:


  • 1
I'm not geeky enough. I don't even know where to start looking for the letter rotation stuffs, and I'm not even going to invest the time in doing it myself. So, um, toss me some wild clue juice?

the key:

tr/a-zA-Z/t-za-sT-ZA-S/;


I dunnot think she knows regex. :)
That, and I think the /bin/perl part wouldn't have been realized as the key to all... :)

gm-comments.cgi I think.

It was funny at one point, but that was ages ago. (reaches for walker)

  • 1