$ פריערדיק = וובסעאָ_סמ_פּריאָריטי ($ וובאָפּטיאָנס ['וובסעאָ_סמ_פּריאָריטי_רט'], $ רעלפּ);
אויב ($ וובאָפּטיאָנס ['וובסעאָ_סמ_פרעק_צמאַרט'])
{
$ דפּאַססעד = (מאָל () - $ טהרעאַדראָוו ['לאַסטפּאָסט']) / 86400;
אויב ($ דפּאַססעד <3) $ פרעק = 'טעגלעך';
אַנדערש אויב ($ דפּאַססעד <10) $ פרעק = 'וואכנשריפט';
אַנדערש אויב ($ דפּאַססעד <100) $ פרעק = 'כוידעשלעך';
אַנדערש $ פרעק = 'יאָריק';
} אַנדערש
$ פרעק = $ וובאָפּטיאָנס ['וובסעאָ_סמ_פרעק_ט'];
וובסעאָ_לאָג_ענטרי ("[שאָווטהרעאַד] פאָרומ_יד: $ פאָרומיד, טהרעאַד_יד: $ טהרעאַדראָוו [טהרעאַדיד], גאַנץ הודעות: $ טאָטאַלפּאָסץ, בלעטער: $ טאָטאַלפּאַגעס, מיינונגען: $ טהרעאַדראָוו [קוקן] $ פריערדיק");
/ / נאָך קאָד
$ אַלאַנגואַגעס = מענגע
אויב (! $ אַרטשיוועד) {
$ סטרלענהאָסט = סטרלען ($ וובסעאָ_וואַרס ['בבורל']."/");
$ קוררענטטהרעאַדורל = וובסעאָ_ורל_טהרעאַד ($ טהרעאַדראָוו, 1, $ אַרטשיוועד);
$ קוררענטטהרעאַדורל_בעפאָרע = סובסטר ($ קוררענטטהרעאַדורל, 0, $ סטרלענהאָסט);
$ קוררענטטהרעאַדורל_אַפטער = "/". סובסטר ($ קוררענטטהרעאַדורל, $ סטרלענהאָסט);
$ לאַסטפּאָסט = & $ טהרעאַדראָוו ['לאַסטפּאָסט'];
$ וובסעאָ_סטאַט ['ה'] + = סיזעאָף ($ אַלאַנגואַגעס);
פאָרעאַטש ($ אַלאַנגואַגעס ווי $ שפּראַך) {
וובסעאָ_אַדד_ורל ($ קוררענטטהרעאַדורל_בעפאָרע. $ שפּראַך. $ קוררענטטהרעאַדורל_אַפטער, $ פריערדיק, $ לאַסטפּאָסט, $ פרעק);
}
}
/ / סוף נאָך קאָד
פֿאַר ($ פּ = 1, $ פּ <= $ טאָטאַלפּאַגעס, $ פּ + +)
{
$ וובסעאָ_סטאַט [$ אַרטשיוועד? 'בייַ': 'ה'] + = וובסעאָ_אַדד_2ורלס (
וובסעאָ_ורל_טהרעאַד ($ טהרעאַדראָוו, $ פּי, $ אַרטשיוועד),
וובסעאָ_ורל_טהרעאַד ($ טהרעאַדראָוו, $ פּי, $ אַרטשיוועד, אמת),
$ פריערדיק,
$ טהרעאַדראָוו ['לאַסטפּאָסט'],
$ פרעק
);
}
אויב ($ שאָוופּאָסט)
{
$ געטפּאָסץ = $ דב-> אָנפֿרעג ("
אויסקלייַבן פּ.דאַטעלינע, פּ.פּאָסטיד, פּ.טהרעאַדיד
פֿון ". טאַבלע_פּרעפיקס." פּאָסטן ווי פּי
ווו פּ.טהרעאַדיד = $ טהרעאַדראָוו [טהרעאַדיד]
און קענטיק = 1
סדר דורך פּ.דאַטעלינע
");
$ פּקאָונט = 0;
בשעת ($ פּאָסטראָוו = $ דב-> פעטטש_אַררייַ ($ געטפּאָסץ))
{
$ פּקאָונט + +;
וובסעאָ_לאָג_ענטרי ("[שאָוופּאָסט] פאָרומ_יד: $ פאָרומיד, טהרעאַד_יד: $ פּאָסטראָוו [טהרעאַדיד], פּאָסט_יד: $ פּאָסטראָוו [פּאָסטיד]");
$ רעלפּ = $ רעלפּ * 0.8 + $ פּקאָונט / ($ טהרעאַדראָוו ['רעפּליקאָונט'] +1) * 0,2,
$ רעלפּ *= וובסעאָ_אַפּפּלי_קוסטאָמ_פּריאָריטי ('פאָרום', $ טהרעאַדראָוו ['פאָרומיד']);
$ פּריאָר2 = וובסעאָ_סמ_פּריאָריטי ($ וובאָפּטיאָנס ['וובסעאָ_סמ_פּריאָריטי_רפּ'], $ רעלפּ);
$ וובסעאָ_סטאַט ['פּ'] + = וובסעאָ_אַדד_2ורלס (
וובסעאָ_ורל_פּאָסט ($ טהרעאַדראָוו, $ פּאָסטראָוו, $ פּקאָונט),
וובסעאָ_ורל_פּאָסט ($ טהרעאַדראָוו, $ פּאָסטראָוו, $ פּקאָונט, אמת),
$ פּריאָר2,
$ פּאָסטראָוו ['דייטליין'],
$ וובאָפּטיאָנס ['וובסעאָ_סמ_פרעק_פּ']
);
}
$ דב-> פרעע_רעסולט ($ געטפּאָסץ);
}
}
$ דב-> פרעע_רעסולט ($ געטטהרעאַדס);
$ וובסעאָ_פּראָגרעסס ['סטעפּ3'] = 0;
}
וובסעאָ_ינק_פּראָגרעסס ();
}
פֿונקציע וובסעאָ_סיטעמאַפּ_פּאָללס ($ פּראָגרעס)
{
גלאבאלע $ דב, $ וובאָפּטיאָנס, $ וובסעאָ_וואַרס;
אויב (וובסעאָ_טשעקק_פּראָגרעסס ($ פּראָגרעס)) קריק,
$ אַדדעד_ורלס = 0;
וובסעאָ_לאָג_ענטרי ("[אָפּטיילונג אָנהייב] פּאָללס", אמת);
$ סטריט = $ דב-> קווערי_פירסט ("
קלייַבן
מאקס (וואָטערס) ווי מאַקסרע, מין (וואָטערס) ווי מינרע, אַווג (וואָטערס) ווי אַווגרע
פֿון ". טאַבלע_פּרעפיקס." באַקומען
");
פאָרעאַטש ($ וובסעאָ_וואַרס ['פאָרומסליסט'] ווי $ פאָרומיד)
{
$ געטטהרעאַדס = $ דב-> אָנפֿרעג ("
אויסקלייַבן *
פֿון ". טאַבלע_פּרעפיקס." פאָדעם ווי פאָדעם
ווו פאָרומיד = $ פאָרומיד
און קענטיק = 1
און פּאָלליד> 0
");
בשעת ($ טהרעאַדראָוו = $ דב-> פעטטש_אַררייַ ($ געטטהרעאַדס))
{
$ געטפּאָלל = $ דב-> קווערי_פירסט ("
אויסקלייַבן *
פֿון ". טאַבלע_פּרעפיקס." באַקומען
ווו פּאָלליד = ". $ טהרעאַדראָוו ['פּאָלליד']."
");
אויב (! $ געטפּאָלל)
פאָרזעצן;
וובסעאָ_לאָג_ענטרי ("[אַנקעטע] פאָרומ_יד: $ פאָרומיד, טהרעאַד_יד: $ טהרעאַדראָוו [טהרעאַדיד], פּאָלליד: $ טהרעאַדראָוו [פּאָלליד]");
$ אַדדעד_ורלס + +;
$ רעלפּ2 = וובסעאָ_מאַטה_אַווג_וועיגהט ($ געטפּאָלל ['וואָטערס'], $ סטריט ['מינרע'], $ סטריט ['מאַקסרע'], $ סטריט ['אַווגרע']);
$ רעלפּ2 *= וובסעאָ_אַפּפּלי_קוסטאָמ_פּריאָריטי ('פאָרום', $ טהרעאַדראָוו ['פאָרומיד']);
$ פריערדיק = וובסעאָ_סמ_פּריאָריטי ($ וובאָפּטיאָנס ['וובסעאָ_סמ_פּריאָריטי_רפּאָלל'], $ רעלפּ2);
$ אַדדעד_ורלס + = וובסעאָ_אַדד_2ורלס (
וובסעאָ_ורל_פּאָלל ($ טהרעאַדראָוו, $ געטפּאָלל),
וובסעאָ_ורל_פּאָלל ($ טהרעאַדראָוו, $ געטפּאָלל, אמת),
$ פריערדיק,
$ געטפּאָלל ['דייטליין'],
$ וובאָפּטיאָנס ['וובסעאָ_סמ_פרעק_פּאָלל']
);
}
$ דב-> פרעע_רעסולט ($ געטטהרעאַדס);
}
וובסעאָ_ינק_פּראָגרעסס ();
קריק $ אַדדעד_ורלס;
}
פֿונקציע וובסעאָ_סיטעמאַפּ_בלאָגס ($ פּראָגרעס)
{
גלאבאלע $ דב, $ וובאָפּטיאָנס, $ וובסעאָ_וואַרס;
אויב (וובסעאָ_טשעקק_פּראָגרעסס ($ פּראָגרעס)) קריק,
אויב (! וובסעאָ_דבטבל_עקסיסץ ('בלאָג'))
קריק 0;
וובסעאָ_לאָג_ענטרי ("[אָפּטיילונג אָנהייב] בלאָגס", אמת);
וובסעאָ_אַדד_ורל (וובסעאָ_אָן? וובסעאָ_אַני_ורל ($ וובסעאָ_וואַרס ['בבורל'].'/ בלאָג.'. וובסעאָ_פפּ_עקסט): $ וובסעאָ_וואַרס ['בבורל'].'/ בלאָג.'. וובסעאָ_פפּ_עקסט, 1.0);
$ אַדדעד_ורלס = 0;