Школоло / Говнокод #8658 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
MediaPlayer1.FileName := './data/gong.wav';
  MediaPlayer1.Open;
  g1 := timetostr(time);
  g2 := timetostr(strtotime('0:00:00'));
  g3 := timetostr(strtotime('3:00:00'));
  g4 := timetostr(strtotime('6:00:00'));
  g5 := timetostr(strtotime('5:00:00'));
  g6 := timetostr(strtotime('12:00:00'));
  g7 := timetostr(strtotime('15:00:00'));
  g8 := timetostr(strtotime('18:00:00'));
  g9 := timetostr(strtotime('21:00:00'));
  if g1 = g2 then
    MediaPlayer1.Play
  else
    Label2.Caption := 'не работает тварь...';

этнический таджик, а в душе - индокитаец

Запостил: bugmenot bugmenot, (Updated )

Комментарии (15) RSS

  • ava bugmenot # Ссылка на оригинал 0

    блядь, ну как же уже выебал этот trim индентации в первой строке...
    Ответить

  • ava i-- # Ссылка на оригинал 0

    У таджика должно быть:
    Label2.Caption := 'Ай щайтан!';
    Ответить

  • ava lucidfoxGovno # Ссылка на оригинал 0

    Хотелось бы узнать назначение программы, в которой используется этот код?
    Ответить

    • ava nobody # Ссылка на оригинал 0 ⇈

      будильник, не ужели не понятно ? я не зная паскаль и то понял это ...
      Ответить

      • ava lucidfoxGovno # Ссылка на оригинал 0 ⇈

        Ну строчка
        Label2.Caption := 'не работает тварь...';
        и строчки с g3 до g9 "очень сильно напоминают" будильник... Да и в g2 какой-то фиксированный полуношный будильник. И вся эта гкшность должна вызываться в цикле. Похоже больше на бред, чем на будильник.
        Ответить

  • ava guest # 0

    л!E!K$R.B$N!B$K"S?F$N$V:Q:M:OJ!M(Y)S$C?P,K"C?Y"N J"C"HI"N:O:E"E R!M)X.LP!ID$K,F$W"K)J T!H$E)Q$E?TJ.D)E!Y$D,Q(P"J$G)L?J?D"C.Y?B(E?S:N)Y!ZIM.T Q$R:R"Q E:I H"P(C)E Q)U"AH.Q?N!Q)S T.X"OXM,S)G Y:P,I E"C(Q!S,Z$Q.I$Z:O)R A II"D)L"F.P"F Z?O(PZ:A!HS!C,P C(V$Q"T)N(N(Q!O:G"U(U"I.Q)S?G.Z,J?U)BM,W$S$L.I!V$U!H$V)H NH$H"Q)T:M?J!T.J G"R"HT T$Q K?R?Z.F"N$M)X$T(R,D K!NL N)L,S"X(J"W(H:T K!X$H"S.A,Z(Q?N)O)V$HR K$D?Z$W X,V K)I!M S(D:J!I)I!G.X$G$Q:B S.Y:J.U)H)A"G,U?X$G?U:S$X.A)Z$K G$X!B)A:C!X.O"H$F?O)S$C:L(F$RM$D$Y!W(A X.W:GN.J:L:C F,C)T.M.M,C PB$G:N(Y:X:Q.G"Y"X,W)Y.K.OA)V.J$R:SK M:P?C"JU$G!Z!L!G(M!R E(X!FW,S!SY.RU:R M.N,R$R$Z(L(S$M:V:Z"R$X(E:N?W G XY!D!I)N:I(J"O"W)F:D(S:B SV?ZS,L)D:A.X.D"U"H.R:G:K:E:C!S B$V"U:L?R)Y.B!X.Y:Z.J?W?Q D$V$K!Q$T)L,X!R LW?I D Q:Q!Q!R"J"C.R$T$V$P"S?E.A(G?S:H?N L(KT.G!R)E,I!A R)M,C?R H"L?J(F!K,Q"C.N:L:W!HH"Y!K:U.U,B B(H(M$Q"H!J.G?O$K B"W:PF.J"J$M:W(Y)M,H(R W?R)W)L(Z"Z,D!WD:B,V.W)J)L Y$YS"R,XT(DC?P!S(L?J:V(T(M:J!VO,Q V,F"F:Q!Y)MA?M!O,EHK"S:J:L)M,U,R:O T?T)D!G(S$T(G)F G"O$X?L.I$L(G:J?U,G?E.V!C,S"X?X(MZ?K!I$G$U:T:J:S,W(H?C.X!I)DE)K)M:F:R:X,T!K$G!F(K)H!A"X?CGO:X!B"C)H?G.C?M"T"U?B.C)Y(Z.I Z)D(XX(O!J"E.D"P(J"Y!R,Y$T?W)S,R(K?M M H!W,T.K?Q.T B?F?A)B,L!O:Q,L:H N.F?X,L$V(F.B$Q?R(I D!P?C F.C(V$S!UO!T.G$Y.K.W.P.Y$W!P(L)E A(D,BZ(ML K,O,K,F)R"B"F,X"E D,J!L)D.J(G"D(T"B(Q$A O"J(N?B(B,K!Q(X)H$E!I KS?F"U,D O.G.V!J,N$I O N:R?UF"Z.AX ZT A.B!X I$A.N?J?OQ:N"I:H:VO,L(N Y M(F,U)T(U)L,Y:F?P:E?V(Q,W,P,X.E)Y:E"W E!K?Y(X"E!X.W?W"X?M F$FJ"N:L?O:GЧUBYJCDEEDUCYPMHKYOIASO
    Ответить

Добавить комментарий

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓