Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
bugfix 23.09.03 21:17 Число просмотров: 1534
Автор: :-) <:-)> Статус: Elderman Отредактировано 23.09.03 21:18 Количество правок: 1
|
> Procedure Fuck( Who : Sex ); > Var > HowMany: LongInt; > Begin ...
> Repeat > Call(Next(Who)); > Delete(DressOf(Who)); > Kiss(Lips,Brest,OtherPartsOfBody); > Repeat > Asm > PUSH YourPenis > POP YourPenis > End; > Until YouHaveOrgasm; > Case HowMany of > Inc(HowMany); > If (HowMany mod 15 = 0) then Write('You are BIG man !!!'); > Until YourPenisStay; ~~~~~~~~~~~~
вместо until нужно while:
while YourPenisStay;
> End;{ Fuck }
|
|
|