BDSM Roulette

Post your dares or request a dare here.
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

... re-read all this...
so many typos, so little time!
but...
OK, guys, my new verson has been out for 3 days and there has been 87 downloads...
Only here and 1 other site know about it...
So, drop me a line... like it, don't like it, it need______________....
And the new tasks got 7 downloads.... but there was little change from what was before...)
So far, I have heard back from:
1 person that had problems, I guess he did not get the 'Tasks' downloaded, fixed I think
and 1 that created his own Dressor version...
Well, there was quite abit during the creation...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
LittleElfBoy
*
Posts: 17
Joined: 11 Sep 2013, 03:18

Re: BDSM Roulette

Post by LittleElfBoy »

Runtime Error 53: File not found

I am absolutely clueless what causes this, it happens just after choosing the picture folders.
soumisseau
*
Posts: 24
Joined: 18 Apr 2011, 14:12

Re: BDSM Roulette

Post by soumisseau »

LittleElfBoy wrote:Runtime Error 53: File not found

I am absolutely clueless what causes this, it happens just after choosing the picture folders.

same here :'(
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

Did you JUST download the program, or have you downloaded the tasks as well...
It is a 2 part program and the tasks is the meat of the program...
If you do have the tasks, then something else is going on that I need to check on...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
shaggyman316
*
Posts: 3
Joined: 18 Sep 2013, 20:18

Re: BDSM Roulette

Post by shaggyman316 »

Nice work - I can already see a great many uses for this application. :D

My only gripe is that I can't resize the window to get it to fit comfortably on my lappie screen. No big deal - it still works!

Parts of it remind me of Tau's old PCMistress program that I used to program scripts for a few years back. That had some great functions that you may give you ideas... :wink:

It might also help with the Dice game or Bindme options as these currently do not allow for bondage in stages (ankles -> knees -> thighs-> etc.). You might get the same variable twice or get impossible combinations (or ones I can't achieve in my current predicament... :wink: ) , which could ruin the flow. If you had a logic where choosing x forbids the choice of y or requires the choice of z, you might be able to get around this.
I suspect this might make the program less user friendly/accessible however, which is one of its key strengths.

Keep up the great job!
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

Thanks, feedback, good or bad, always helps...
What size is you lappie screen?
I could re-scale the task window if the monitor display is smaller than the task window...
The scenarios just roll a sequence if 'dice' to select one item from each list...
To incorporate AI would be just a little advanced...
Setting-up the file sequence would be easer...
I had/ have, an idea for a sequenced staged bondage scenario where...
Step 1: strip...
[press next]
step 2: place chair in front of window...
collect rope, clothes pins, vibrator, gag, blindfold...
...
But you don't see the entire scenario but only stages...

It could follow like a PCMistress script...

... so, with your smaller screen, you may not be able to see the timmer and dice buttons...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
shaggyman316
*
Posts: 3
Joined: 18 Sep 2013, 20:18

Re: BDSM Roulette

Post by shaggyman316 »

... so, with your smaller screen, you may not be able to see the timmer and dice buttons...
You got it - makes it difficult to proceed with the 'tasks'. I can just see the top of the 'start' button, so it's not a major problem because I can still use the program :D

In reference to the scenario scripting - I would probably make use of it if it were there, but I wouldn't want to overcomplicate things.

To get the desired result for my needs with the current build I've gone at it in two ways:-

One is to add lines to the Bindme file list for the various items and add a separate text file for each. One for legs, wrists, toys, etc. Good for a quick/basic session.

The other is to create jpegs of 'playing cards' with the different body parts and materials on them (wrists/cuffs, ankles/ropes, etc.) and use different directories to store them which are defined in the 'Pictures' file. You choose a task, which gives the scenario and then 'draw' a hand of cards to decide the stuff you will use by clicking the buttons. I've used six for materials, one for location and the rest for toys. Works very well for most of my needs! :wink:

Like I said before - great job. Really good program.
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

The new version, but only for the newbies...
http://www.mediafire.com/download/czthe ... e+V2_1.exe
This one has the protection of tasks and scenarios not found...
If there is no scenario, it will create the "Penalities" one...
Well, that will give you a starting sample...
Oh, also, if you only have the main program, you will need to set-up the 9 picture paths, please set-up all 9
if not to different paths, then atleast all to the same one...
And, the program will crash after setting up the paths, (BUT, only for first time run)
Just re-run it and it will set-up the sample scenario...
(Yea, I know, I could have it do both if there is no pictures and scenarios... I just thought of that... :o )
I may re-do that for the next ver...

If there are anymore bugs, let me know so I can fix them...

Oh, there is one other thing...
The task window is now sized to fit in 800x600 screen...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

OK, skip the last note...
Here is the updated, re-tweeked, and (fingers crossed) de-bug, will not crash due to missing files...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
User avatar
steelbondage20
*
Posts: 18
Joined: 25 Sep 2013, 21:24
Location: Oregon
Contact:

Re: BDSM Roulette

Post by steelbondage20 »

trying this!
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

steelbondage20 wrote:trying this!
First time user I take it...
Tell me if (and what) error message you get...
Hopefully, there won't be one...

I hope you get a good a good task...
Just be sure you downloaded the "Tasks" as well...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
bdsm984
**
Posts: 80
Joined: 29 Mar 2012, 15:51
Location: NL

Re: BDSM Roulette

Post by bdsm984 »

Hey Dark_Lizard,
I'm finally on a Windows box to test this. Looks like an interesting piece of software, however, I can only get it to detect the Penalties scenario that it generates..
Furthermore, pressing on the 'Task' button, inadvertly crashes the software with a RTE 53 - File not found.

Not sure if I have downloaded the correct tasks package at the moment
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

http://www.mediafire.com/download/m2ntc ... e%20V2.zip
This should be the one...
Unzip this in the same folder with the program...
You should get the following folders...
Bind me, Dice, Dressor, Penalities, Pizza, and Tasks...
and a new Dir.txt...

Penalities should be the same...
and Pizza was just a test for something compleatly differently...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
bdsm984
**
Posts: 80
Joined: 29 Mar 2012, 15:51
Location: NL

Re: BDSM Roulette

Post by bdsm984 »

I managed to get it working, the software looks nice :)
If I get the time, I will look into making a cross-platform version of this, if you don't mind.
User avatar
Dark_Lizerd
*****
Posts: 2416
Joined: 22 Oct 2006, 11:30
Location: New Mexico

Re: BDSM Roulette

Post by Dark_Lizerd »

If you want the VB source code to speed thing along, just let me know...
Actually, after looking over the code, there isn't that much to it...
(Unlike my 9-gates adventure game... )

So... here is it, and if you don't know VB that well, the top section describes the form and stuff...
Only 14K in size...

Code: Select all

VERSION 5.00
Begin VB.Form frmBDSM_Roulette 
   BackColor       =   &H8000000C&
   Caption         =   "BDSM_Roulette V2"
   ClientHeight    =   8400
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   11505
   BeginProperty Font 
      Name            =   "Courier New"
      Size            =   12
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   8400
   ScaleWidth      =   11505
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Picture1 
      Height          =   1935
      Left            =   12840
      Picture         =   "frmBDSM_Roulette.frx":0000
      ScaleHeight     =   1875
      ScaleWidth      =   2235
      TabIndex        =   23
      Top             =   2520
      Width           =   2295
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Height          =   5775
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   22
      Text            =   "frmBDSM_Roulette.frx":12549
      Top             =   240
      Width           =   10935
   End
   Begin VB.CommandButton cmdPic 
      Caption         =   "Picture"
      Height          =   495
      Left            =   9480
      TabIndex        =   21
      Top             =   6480
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "Text Box"
      Height          =   1335
      Left            =   13200
      TabIndex        =   18
      Top             =   9600
      Visible         =   0   'False
      Width           =   2295
      Begin VB.OptionButton Option1 
         Caption         =   "Transparent"
         Height          =   375
         Index           =   3
         Left            =   120
         TabIndex        =   20
         Top             =   840
         Width           =   2055
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Opaque"
         Height          =   375
         Index           =   2
         Left            =   120
         TabIndex        =   19
         Top             =   360
         Value           =   -1  'True
         Width           =   1575
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Text Color"
      Height          =   1335
      Left            =   13680
      TabIndex        =   15
      Top             =   9000
      Visible         =   0   'False
      Width           =   1935
      Begin VB.OptionButton Option1 
         Caption         =   "Black"
         Height          =   375
         Index           =   1
         Left            =   240
         TabIndex        =   17
         Top             =   840
         Value           =   -1  'True
         Width           =   1575
      End
      Begin VB.OptionButton Option1 
         Caption         =   "White"
         Height          =   375
         Index           =   0
         Left            =   240
         TabIndex        =   16
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.CommandButton cmdTimerControl 
      Caption         =   "Start"
      Height          =   495
      Left            =   1320
      TabIndex        =   14
      Top             =   7560
      Width           =   1215
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   720
      Top             =   7680
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   375
      LargeChange     =   300
      Left            =   240
      Max             =   21600
      SmallChange     =   10
      TabIndex        =   13
      Top             =   6960
      Width           =   4215
   End
   Begin VB.CommandButton cmdD1 
      Caption         =   "^"
      Height          =   270
      Index           =   3
      Left            =   5400
      TabIndex        =   8
      Top             =   6240
      Width           =   375
   End
   Begin VB.CommandButton cmdD1 
      Caption         =   "V"
      Height          =   270
      Index           =   2
      Left            =   5400
      TabIndex        =   7
      Top             =   6720
      Width           =   375
   End
   Begin VB.CommandButton cmdD1 
      Caption         =   "^"
      Height          =   270
      Index           =   1
      Left            =   4680
      TabIndex        =   6
      Top             =   6240
      Width           =   375
   End
   Begin VB.CommandButton cmdD1 
      Caption         =   "V"
      Height          =   270
      Index           =   0
      Left            =   4680
      TabIndex        =   5
      Top             =   6720
      Width           =   375
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Go Back"
      Height          =   855
      Left            =   6960
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   6240
      Width           =   2055
   End
   Begin VB.ListBox Knipsel_T 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   14520
      TabIndex        =   1
      Top             =   360
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "2"
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   4
      Left            =   5400
      TabIndex        =   12
      Top             =   6480
      Width           =   375
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "1"
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   3
      Left            =   6120
      TabIndex        =   11
      Top             =   6480
      Width           =   615
   End
   Begin VB.Label LabelD 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "d"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   5040
      TabIndex        =   10
      Top             =   6480
      Width           =   375
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "0"
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   1
      Left            =   4200
      TabIndex        =   9
      Top             =   6360
      Visible         =   0   'False
      Width           =   375
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "1"
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   0
      Left            =   4680
      TabIndex        =   4
      Top             =   6480
      Width           =   375
   End
   Begin VB.Label Label1 
      Caption         =   "Timer: 00:00:00"
      Height          =   375
      Left            =   480
      TabIndex        =   3
      Top             =   6360
      Width           =   2415
   End
   Begin VB.Label Knipsel_L 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   13200
      TabIndex        =   0
      Top             =   360
      Visible         =   0   'False
      Width           =   1335
   End
End
Attribute VB_Name = "frmBDSM_Roulette"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Pic As String

Private Sub cmdD1_Click(Index As Integer)
' set dice rolls
Dim Dx(7) As Integer
'static D1 As Integer
'D1 = Label2(1)

Dx(0) = 2
Dx(1) = 4
Dx(2) = 6
Dx(3) = 8
Dx(4) = 10
Dx(5) = 12
Dx(6) = 20

Select Case Index
  Case 0: Label2(0) = Label2(0) - 1: If Label2(0) <= 1 Then Label2(0) = 1 ' # of dice
  Case 1: Label2(0) = Label2(0) + 1: If Label2(0) > 6 Then Label2(0) = 6  ' max # of dice
  Case 2: Label2(1) = Label2(1) - 1: If Label2(1) <= 0 Then Label2(1) = 0 ' # of faces
  Case 3: Label2(1) = Label2(1) + 1: If Label2(1) > 6 Then Label2(1) = 6  ' ...
End Select
   Label2(4) = Dx(Label2(1))

' roll the dice
DiceR

End Sub

Private Sub cmdExit_Click()
' save changes to text1

 Open "rd_data.txt" For Output As #10
   Print #10, Text1
   Close #10
   
End

End Sub

Private Sub cmdPic_Click()
' Show picture for this scenario...


frmCTI.Image1.Picture = LoadPicture(Pic)
' resize to image...
frmCTI.Caption = ListP '& "-" & Pic
frmDialog.FormSet

frmCTI.Show

End Sub

Private Sub cmdTimerControl_Click()
' Start/stop
If cmdTimerControl.Caption = "Start" Then
   cmdTimerControl.Caption = "Stop"
   Timer1.Enabled = True
   Else
   cmdTimerControl.Caption = "Start"
   Timer1.Enabled = False
   
 End If

End Sub

Private Sub Form_Load()
Dim N As Integer, R As Integer
Randomize Timer

 ' center...
  frmBDSM_Roulette.Left = (Screen.Width - frmBDSM_Roulette.Width) / 2
  frmBDSM_Roulette.Top = (Screen.Height - frmBDSM_Roulette.Height) / 2

  Intro = ""
  Open ListP & "/Intro.txt" For Input As #1
   Do While Not EOF(1)
     Line Input #1, Io
     Intro = Intro & Io & Chr(13) & Chr(10)
   Loop
  Close #1
   
' open FileList
Open ListP & "/FileList.txt" For Input As #1
'Line Input #1, Pic ' Picture to show when requested... Scenario.jpg=Scenario.txt
Line Input #1, TT:    frmBDSM_Roulette.Caption = TT   'if no .jgp then grey [pic]
Line Input #1, TT:    cmdExit.Caption = TT
   
If ListP = "Task" Then
  Tasks
  Exit Sub
End If
If Dir(ListP & "/" & ListP & ".jpg") = "" Then
'If Dir(ListP & ".jpg") = "" Then
    cmdPic.Enabled = False ' no pic found
   Else
     cmdPic.Enabled = True
     Pic = ListP & "/" & ListP & ".jpg"
   End If


   Text1 = Intro & Chr(13) & Chr(10)
   Text1 = Text1 & Knipsel_L & Knipsel_T ' & " " '& Chr(13) & Chr(10)
   
fc = 1 ' ************************* May loop here for using just 1 select box ************************
Do While Not EOF(1)
   Line Input #1, F_List
 ' fc = fc + 1
  If Trim(F_List) = "" Then Exit Do
  Open ListP & "/" & F_List & ".txt" For Input As #2
  Line Input #2, LN
  Knipsel_L.Caption = LN ' Label, first line
  ' maybe I should look for [1d6] for more control...
  
' read each line from each file
  Knipsel_T.Clear
  
  Do While Not EOF(2)
    Line Input #2, LN
    'LN = " " & LN
    
    Knipsel_T.AddItem LN ' select box, each randomized item
  Loop
  Rn  ' randomize the displayed entry
     Text1 = Text1 & Knipsel_L & Knipsel_T ' & " " '& Chr(13) & Chr(10)

 Close #2

 Loop
  Close #1
   
   
End Sub


Sub Rn()
R = Int(Rnd * Knipsel_T.ListCount)
' random select based on the number of entries in the dropdown Knipsel_T 
' Also note... Knipsel_T is the test list, Knipsel_L is the lbel name...
Knipsel_T().ListIndex = R

End Sub

Sub Tasks()
' this will select a random task file to open and display...
' read each line from each file

Knipsel_T.Clear ' clear the list...

  Do While Not EOF(1)
    Line Input #1, LN
    Knipsel_T.AddItem LN ' load the list of tasks
  Loop
  Close #1
  Rn ' select a random task
  ' open the selected one.
  
  If Dir("Task/" & Knipsel_T.Text & ".jpg") = "" Then
    cmdPic.Enabled = False ' no pic found
   Else
     cmdPic.Enabled = True
     Pic = "Task/" & Knipsel_T.Text & ".jpg"
   End If

  
  Open ListP & "/" & Knipsel_T.Text & ".txt" For Input As #2
       Line Input #2, TT
   frmBDSM_Roulette.Caption = TT

   Do While Not EOF(2)
     Line Input #2, Io
     Intro = Intro & Io & Chr(13) & Chr(10)
   Loop
  Close #2
     Text1 = Intro & Chr(13) & Chr(10)

 Open "Task.txt" For Output As #10
   Print #10, Text1
   Close #10
   

End Sub


Function Dice(N As Integer, R As Integer)
' roll NdR dice
R0 = 0
For A = 1 To N
  R0 = R0 + Int(Rnd * R)
 Next A
 Dice = R0
 
End Function


Private Sub HScroll1_Change()
Timer_Display

End Sub

Private Sub HScroll1_Scroll()
Timer_Display

End Sub

Private Sub LabelD_Click()
' click the 'd', reroll the dice...

DiceR

End Sub
Sub DiceR()

Label2(3) = ""
D = 0
For A = 1 To Label2(0)

  R = Int(Rnd * Label2(4)) + 1
  D = D + R
Next A

Label2(3) = D

End Sub


Private Sub Timer1_Timer()
' if timer setting >0 then count down...

If HScroll1.Value > 0 Then
   Timer1.Enabled = True
   HScroll1.Value = HScroll1.Value - 1
  Else
   Timer1.Enabled = False
   cmdTimerControl.Caption = "Start"
   ' need 'Ding' for end of time...
 End If
 
 Text2 = Timer1.Enabled
 
 
Timer_Display



End Sub

Sub Timer_Display()
Dim H As Integer, M As Integer, S As Integer
Dim T As Integer
T = HScroll1.Value
H = Int(T / 3600)
T = T - H * 3600
M = Int(T / 60)
S = T - M * 60


Label1.Caption = "Timer: " & Format(H, "00:") & Format(M, "00:") & Format(S, "00")

End Sub
... Interesting font... the "&" symbol is the "and" symbol... on the "7" key...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Post Reply