'**************************************
' Name: Office97 Assistant Plays Games!!
'     !
' Description:This code makes the irrita
'     ting office assistant a fun playmate, he
'     play games of Paper, Scissors, Stone...a
'     nd his expressions change according to y
'     our actions!!!!
' By: Ed Hockaday
'
' Assumes:You will need the ietimer.ocx 
'     (from ie4) to get this working, a none t
'     imer version can be easily built using t
'     his code...
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/vb/scripts/Sho
'     wCode.asp?txtCodeId=1219&lngWId;=1'for details.'**************************************

'This bit goes in a form
'To create the form follow these instruc
'     tions
'1 Open word, go to the "tools" menu, se
'     lect "macros" then "Visual Basic Editor"
'     
'2 Make a form, call the form frmFight
'3 Add three Option buttons, call these 
'     optPaper, optScissors and optStone
'make sure the text on them says Paper, 
'     Scissors and Stone respectively
'4 Add two labels, call these lblWinsLos
'     sesDraws and lblTimerObject
'5 Add two Command buttons, call these c
'     mdChosen and cmdExit
'6 Add the additional control "Timer Obj
'     ect" (ietimer.ocx)
'7 Add a timer control to the form call 
'     this tmrTimer
'8 Add the following code to the form
'Note1: This was designed to play agains
'     t clipit assistant but you can use any,
'it is simple to change the animations a
'     nd office97 has a full help file on this
'     
'Note2: To convert in to Visual Basic ju
'     st remove all reference to Assistant in 
'     the form
'code, and follow instructions above (fo
'     r 6 just use the normal VBtimer)
'Note3: You will need the ietimer ocx to
'     get this to work in office97 (it works i
'     n VB without)
'Note4: If you like this code please tel
'     l me at edhockaday@hotmail.com, have fun

'     with it!!!
    Option Explicit
    Dim gVar1
    Dim gVar2
    Dim gDraw As Boolean
    Dim gMessage
    Dim gWins
    Dim gLosses
    Dim gDraws
    Dim gTimerObject
    Dim OptionChosen
    '**************************************
    '*Macros by Ed Hockaday*
    '* 15\12\98*
    '**************************************

Public Sub sDraw()


    If gVar1 = gVar2 Then
        sConvertNumberToText
        MsgBox "You both chose " & gVar1
        gDraws = gDraws + 1
        gDraw = True
        Assistant.Visible = True
        Assistant.Animation = msoAnimationLookUp
    End If

End Sub


Public Sub sConvertTextToNumber()


    If gVar1 = "Paper" Then
        gVar1 = 1
    ElseIf gVar1 = "Scissors" Then
        gVar1 = 2
    ElseIf gVar1 = "Stone" Then
        gVar1 = 3
    End If


    If gVar2 = "Paper" Then
        gVar2 = 1
    ElseIf gVar2 = "Scissors" Then
        gVar2 = 2
    ElseIf gVar2 = "Stone" Then
        gVar2 = 3
    End If

End Sub


Public Sub sConvertNumberToText()


    If gVar1 = 1 Then
        gVar1 = "Paper"
    ElseIf gVar1 = 2 Then
        gVar1 = "Scissors"
    ElseIf gVar1 = 3 Then
        gVar1 = "Stone"
    End If


    If gVar2 = 1 Then
        gVar2 = "Paper"
    ElseIf gVar2 = 2 Then
        gVar2 = "Scissors"
    ElseIf gVar2 = 3 Then
        gVar2 = "Stone"
    End If

End Sub


Public Sub sVar1Win()

    Assistant.Visible = True
    Assistant.Animation = msoAnimationGetArtsy
    MsgBox "You win"
    gWins = gWins + 1
End Sub


Public Sub sVar2Win()

    Assistant.Visible = True
    Assistant.Animation = msoAnimationCharacterSuccessMajor
    MsgBox "You lose"
    gLosses = gLosses + 1
End Sub


Public Sub sReconcile()


    If gVar1 = 1 Then
        If gVar2 = 3 Then
            gMessage = " wraps "
            sVar1Win
        ElseIf gVar2 = 2 Then
            gMessage = " gets cut by "
            sVar2Win
        End If

    ElseIf gVar1 = 2 Then
        If gVar2 = 1 Then
            gMessage = " cuts "
            sVar1Win
        ElseIf gVar2 = 3 Then
            gMessage = " is blunted by "
            sVar2Win
        End If

    ElseIf gVar1 = 3 Then
        If gVar2 = 2 Then
            gMessage = " blunts "
            sVar1Win
        ElseIf gVar2 = 1 Then
            gMessage = " gets wrapped by "
            sVar2Win
        End If

    End If

End Sub


Public Sub sTimerObject()


    If gTimerObject = "Paper" Then
        gTimerObject = "Stone"
    ElseIf gTimerObject = "Stone" Then
        gTimerObject = "Scissors"
    ElseIf gTimerObject = "Scissors" Then
        gTimerObject = "Paper"
    End If

End Sub


Public Sub sLanding()

    gVar2 = Int((3 * Rnd) + 1)
    If gVar2 = 1 Then
        gVar2 = "Paper"
    ElseIf gVar2 = 2 Then
        gVar2 = "Scissors"
    ElseIf gVar2 = 3 Then
        gVar2 = "Stone"
    End If

    lblTimerObject.Caption = "Clipit chooses " & gVar2
End Sub


Private Sub cmdChosen_Click()

    Assistant.Visible = True
    Assistant.Animation = msoAnimationIdle
    gTimerObject = "Paper"
    gDraw = False
    gMessage = ""
    gVar1 = ""
    'gVar2 = Int((3 * Rnd) + 1)
    If gWins = "" Then gWins = "0"
    If gLosses = "" Then gLosses = "0"
    If gDraws = "" Then gDraws = "0"
    If optPaper.Value = True Then
        gVar1 = 1
    ElseIf optScissors.Value = True Then
        gVar1 = 2
    ElseIf optStone.Value = True Then
        gVar1 = 3
    End If

    tmrTimer.Interval = 1
End Sub


Private Sub cmdExit_Click()


    If gWins < gLosses Then
        With Assistant
            .Visible = True
            .Animation = msoAnimationGetAttentionMajor
            With .NewBalloon
                .Heading = "Quit While you're ahead...chicken"
                .Text = "...come On have another go?"
                .Labels(1).Text = "Yes!"
                .Labels(2).Text = "No!"
                .Mode = msoModeModal
                OptionChosen = .Show
            End With

        End With


        If OptionChosen = 1 Then
            Exit Sub
        ElseIf OptionChosen = 2 Then
            Assistant.Animation = msoAnimationDisappear
            Assistant.Visible = False
            MsgBox "Macros by Ed Hockaday - 15\12\98"
            ' Pass these macros on, but change my na
            '     me and I will find you and kill you
            ' Thank you kindly!!!
            Unload frmFight
        End If

    ElseIf gWins > gLosses Then
        With Assistant
            .Visible = True
            .Animation = msoAnimationGetAttentionMajor
            With .NewBalloon
                .Heading = "Hahaha I beat you..."
                .Text = "...don't you want another go?"
                .Labels(1).Text = "Yes!"
                .Labels(2).Text = "No!"
                .Mode = msoModeModal
                OptionChosen = .Show
            End With

        End With


        If OptionChosen = 1 Then
            Exit Sub
        ElseIf OptionChosen = 2 Then
            Assistant.Animation = msoAnimationDisappear
            Assistant.Visible = False
            Unload frmFight
        End If

    ElseIf gWins = gLosses Then
        With Assistant
            .Visible = True
            .Animation = msoAnimationGetAttentionMajor
            With .NewBalloon
                .Heading = "Come On it's a draw..."
                .Text = "...lets finish it..."
                .Labels(1).Text = "Yes!"
                .Labels(2).Text = "No!"
                .Mode = msoModeModal
                OptionChosen = .Show
            End With

        End With


        If OptionChosen = 1 Then
            Exit Sub
        ElseIf OptionChosen = 2 Then
            Assistant.Animation = msoAnimationDisappear
            Assistant.Visible = False
            Unload frmFight
        End If

    End If

End Sub


Private Sub tmrTimer_Timer()

    sTimerObject
    lblTimerObject.Caption = gTimerObject
    tmrTimer.Interval = tmrTimer.Interval + 10
    If tmrTimer.Interval > 350 Then
        tmrTimer.Interval = 0
        sLanding
        sConvertTextToNumber
        sDraw
        If gDraw = True Then
            lblWinsLossesDraws.Caption = gWins & " wins, " & gLosses & " losses, " & gDraws & " draws."
            Exit Sub
        End If

        sReconcile
        sConvertNumberToText
        lblWinsLossesDraws.Caption = gWins & " wins, " & gLosses & " losses, " & gDraws & " draws."
        MsgBox gVar1 & gMessage & gVar2
    End If

End Sub

'***************************************
'     
'This bit goes in the ThisDocument part 
'     (found in the Microsoft word object fold
'     er in the project window...)
'**************************************
'*Macros by Ed Hockaday*
'* 15\12\98*
'**************************************

Sub docstart()

    Dim OptionChosen As Integer
    With Assistant
        .Visible = True
        .Animation = msoAnimationGetAttentionMajor
        With .NewBalloon
            .Heading = "Hi..."
            .Text = "...what To have some fun?"
            .Labels(1).Text = Chr(34) & "Yeah, OK!" & Chr(34)
            .Labels(2).Text = Chr(34) & "Not really!" & Chr(34)
            .Mode = msoModeModal
            OptionChosen = .Show
        End With

    End With


    If OptionChosen = 1 Then
        frmFight.Show
    ElseIf OptionChosen = 2 Then
        No1
    End If

End Sub


Private Sub Document_Open()


    docstart
    End Sub


Sub No1()


    With Assistant
        .Visible = True
        .Animation = msoAnimationCharacterSuccessMajor
        With .NewBalloon
            .Heading = "Oh come on..."
            .Text = "...play With me..."
            .Labels(1).Text = "Play..."
            .Labels(2).Text = "Leave..."
            .Mode = msoModeModal
            OptionChosen = .Show
        End With

    End With


    If OptionChosen = 1 Then
        frmFight.Show
    ElseIf OptionChosen = 2 Then
        Assistant.Animation = msoAnimationDisappear
        Assistant.Visible = False
    End If

End Sub


Sub Yes1()


    With Assistant
        .Visible = True
        .Animation = msoAnimationGetWizardy
        With .NewBalloon
            .Heading = "Fuck you small balls..."
            .Text = "...are you starting With me?"
            .Labels(1).Text = "Fight"
            .Labels(2).Text = "Run away"
            .Mode = msoModeModal
            OptionChosen = .Show
        End With

    End With


    If OptionChosen = 1 Then
        Fight
    ElseIf OptionChosen = 2 Then
        Assistant.Animation = msoAnimationCharacterSuccessMajor
    End If

End Sub


Sub Fight()


    With Assistant
        .Visible = True
        .Animation = msoAnimationLookUp
    End With

    'frmFight.Show
End Sub

'***************************************
'     ****