EveryBody Pees

[Thatsgreat2345]

I just found this on my harddrive forgot i made it for a friend awhile back, its the book everybody pees, i thought it was educational so i thought id post it

Edit: Oops forgot the pics

http://thatsgreat2345.googlepages.com/pics.zip

expandcollapse popup

Global $i = 1
#include <GUIConstants.au3>
$GUIpee = GUICreate("Everyone Pees", 493, 577, 237, 69)
$pic = GUICtrlCreatePic(@ScriptDir & "\pics\" & $i & ".jpg",8,8,473,513)
GUICtrlSetState($pic,$GUI_DISABLE)
$prev = GUICtrlCreateButton("Previous Page", 152, 536, 81, 25, 0)
$next = GUICtrlCreateButton("Next Page", 248, 536, 81, 25, 0)
$first = GUICtrlCreateButton("First Page", 56, 536, 81, 25, 0)
$last = GUICtrlCreateButton("Last Page", 344, 536, 81, 25, 0)
GUISetState(@SW_SHOW)

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $prev
                    $i = $i - 1
                    If $i <= 1 Then
                        $i = 19
                    EndIf
                    Createpic($i)
            Case $msg = $next
                    $i = $i + 1
                    If $i >= 20 Then
                        $i = 1
                        EndIf
                    Createpic($i)
            Case $msg = $first
                $i = 1
                Createpic($i)
            Case $msg = $last
                $i = 19
                Createpic($i)
            Case $msg = $GUI_EVENT_CLOSE
                Exit
        EndSelect
    WEnd
Func Createpic($i)
GUICtrlDelete($pic)
$pic = GUICtrlCreatePic(@ScriptDir & "\pics\" & $i & ".jpg",8,8,473,513)
GUICtrlSetState($pic,$GUI_DISABLE)
EndFunc

Edited June 23, 2006 by thatsgreat2345

[Simucal]

Did your friend finally realize it isnt shameful to pee.. and that everyone does it?

[Thatsgreat2345]

lol it was a joke cuz the year b4 i got her everybody poops as a birthday present so i kept the same trend going