What's up w/ this code?
It says 'object does not exist' when i compile.
~DarkShadowWing~
It says 'object does not exist' when i compile.
Global checked Global test Include "DevilGUI.bb" Include "particle candy.bb" Include "WB3DStyles.bb" Include "mcimp3.bb" Include "mcimidi.bb" Include "mciwav.bb" const wm_paint = $000f Graphics3D 1024, 768, 32, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() ClsColor 255, 205, 105 HidePointer ;Globs Global fnt = LoadFont("Courier New", 20, True, False, False) Global cmbSkin, OldSkin$ = "WinXP" Global sld1, sld2, lblSld1, lblSld2 Global prg1, prg2, lblPrg1, lblPrg2 Global scr1, lblScr1 Global btnLst1, lst1 Global chk1, chk2, chk3, chk4 Global image Global EM0 Global EM1 Global EM2 Global EM3 Global EM4 Global EM5 Global EM6 Global EM7 Global EM8 Global EM9 Global EM10 Global EM11 Global EM12 ; setup gfx mode. Graphics3D 1024,768,32,2 load_banner() Global WindCenter = CreatePivot() ; MOVE WHIRLWIND AROUND THIS CENTER Global soundpath$ = "Media/" Global mp3length Global midilength Global mwavlength Global copyright$ = "Copyright (c) 2008 - 2009 Photo-Xtreme"+Chr$(13)+" Created by: ~ZeldaX~" Global Player = CreatePivot() Global CameraXRotate = CreatePivot(Player) Global Cam = CreateCamera(CameraXRotate) Light = CreateLight() PositionEntity cam, -4, 1, -18 Listener = CreateListener(Cam, .005, 1, 1) ; quick playlist contains the filename of files To be played Dim playlist$(200) Dim emitter_slot(33) ; the playing loaded_song, and its play status Global loaded_song,loaded_song_playing Dim play_time(33) ; the index of the loaded_song playing Global current_loaded_song_index = 0 ;Checkbox/Radiobutton grp2 = GUI_CreateGroupBox(mainmenu, 105, 10, 193, 80, "Checkbox/Radiobutton") chk1 = GUI_CreateCheckBox(grp2, 10, 13, "Checkbox 1", True, checked) chk2 = GUI_CreateCheckBox(grp2, 10, 28, "Checkbox 2", True) chk3 = GUI_CreateCheckBox(grp2, 10, 43, "Checkbox 3", False) chk4 = GUI_CreateCheckBox(grp2, 10, 58, "Checkbox 4", False, True) rad1 = GUI_CreateRadio(grp2, 100, 13, "Radiobutton 1", 0) rad2 = GUI_CreateRadio(grp2, 100, 28, "Radiobutton 2", 0, True, True) rad3 = GUI_CreateRadio(grp2, 100, 43, "Radiobutton 3", 1, False) rad4 = GUI_CreateRadio(grp2, 100, 58, "Radiobutton 4", 1, False, True) ;GUI GUI_InitGUI("Skins\WinXP.skin") ;GUI_CreateWindow(150, 150, 400, 300, "Dummy window") CreateSampleWindow(-1, -1) While Not KeyHit(1) If GUI_CheckedCheckBox(chk1) = 1 Or GUI_CheckedCheckBox(chk2) = 1 checked = True EndIf If GUI_CheckedCheckBox(chk1) = 0 And GUI_CheckedCheckBox(chk2) = 0 Then checked = 0 If GUI_CheckedCheckBox(chk1) = 1 And GUI_CheckedCheckBox(chk2) = 1 Or GUI_CheckedCheckBox(chk2) = 1 And GUI_CheckedCheckBox(chk1) = 1 checked = 0 GUI_UncheckCheckBox(chk1) GUI_UncheckCheckBox(chk2) EndIf ;If checked(chk1) Then check() ;If checked(chk1) = 1 And checked(chk2) = 1 Then WB3D_Notify "","",0 ;If is_checked(chk1) = 1 Then WB3D_Notify "","",0 Cls GUI_UpdateGUI() UpdateDebugBar("FPS: " + FPS(), "Event: " + GUI_AppEvent()) UpdateSampleWindow() Text 110, 110, "checked 1:"+checked Text 110, 130, "gui_checkedcheckbox:"+Gui_CheckedCheckBox(chk1) Text 110, 150, "gui_checkedcheckboxii:"+Gui_CheckedCheckBox(chk2) Flip Wend GUI_FreeGUI() End
~DarkShadowWing~