67 lines
No EOL
1.7 KiB
Text
67 lines
No EOL
1.7 KiB
Text
:::Output(1,1,"*HUMAN TO BUNNY**GIRL VER. 3.0C*---------------- PRESS ENTER TO CONTINUE ----------------REQUESTED BY: ID 1001 MISTRESS
|
|
Pause
|
|
ClrHome
|
|
:::Output(1,1,"----------------NOW LOADING... [ ]
|
|
0->P
|
|
While P!=14
|
|
Output(3,2+P,"=
|
|
P+1->P
|
|
For(L,1,randInt(10,100
|
|
8*8
|
|
End
|
|
End
|
|
ClrHome
|
|
:::Output(1,1,"MISTRESS HAS ALLOWED YOU TO SET A LIMITED AMOUNT OF OPTIONS. YOU MAYCHOOSE THEM NOW.---------------- PRESS ENTER
|
|
Pause
|
|
ClrHome
|
|
:::Output(1,1,"SPECIFY OPTIONS---------------->[ ]LONGER EARS [ ]BUCK TEETH [ ]ENHANCED STAMINA ----------------SET=0,NEXT=ENTER
|
|
0->D
|
|
1->P
|
|
{0,0,0->L1
|
|
Repeat D
|
|
Repeat K
|
|
getKey->K
|
|
End
|
|
If K=25:P-1->P
|
|
If K=34:P+1->P
|
|
If P<1:3->P
|
|
If P>3:1->P
|
|
If K=102:Then
|
|
If L1(P:Then
|
|
0->L1(P
|
|
Else
|
|
1->L1(P
|
|
End
|
|
End
|
|
If K=105:1->D
|
|
For(L,1,3
|
|
Output(2+L,1,"
|
|
Output(2+L,3,"
|
|
If L1(L
|
|
Output(2+L,3,"*
|
|
If L=P
|
|
Output(2+L,1,">
|
|
End
|
|
End
|
|
ClrHome
|
|
:::Output(1,1,"MISTRESS HAS SPECIFIED SOME OPTIONS FOR YOURNEW FORM. PRESS ENTER TO VIEW THEM. ---------------- PRESS ENTER
|
|
Pause
|
|
ClrHome
|
|
:::Output(1,1,"+ESTROUS CYCLE +ENHANCED FERTILITY -LOWER STRENGTH +TOTAL LOYALTY +WIDENED HIPS +ENH. LUST !PERMANENT
|
|
Pause
|
|
ClrHome
|
|
:::Output(1,1,"----------------THIS NEW FORM WILL NOW BE IRREVOCABLY APPLIED TO YOUR BODY. ---------------- PRESS ENTER
|
|
Pause
|
|
ClrHome
|
|
:::Output(1,1,"----------------THE SPECIFIED CHANGES ARE NOW BEING PERMANENTLY APPLIED. [ ]----------------
|
|
For(A,2,15
|
|
Output(7,A,"=
|
|
For(B,0,randInt(25,150
|
|
8*8
|
|
End
|
|
End
|
|
ClrHome
|
|
:::Output(1,1,"PROCESS COMPLETE----------------YOU ARE NOW A SUBSERVIENT BUNNYGIRL, LOYALTO MISTRESS. ENJOY YOUR NEW FORM! <3
|
|
Pause
|
|
ClrHome
|
|
" ENTER = REPLAY |