// Wizard.pkg // Wizard interface for SCS // Author : Arkeon // Last update : 26 01 2004 // Wizard variable var GUI_bQuickWizardOpened = 0 ;; var BUT_NEXT = 1 ;; var BUT_PREV = 2 ;; var BUT_END = 3 ;; var BUT_CANCEL = 4 ;; var BUT_OK = 5 ;; var BUT_NO = 6 ;; var BUT_CREATE = 7 ;; var BUT_OPEN = 8 ;; var BUT_NOTHING = 9 ;; var wbox = 450 ;; var hbox = 290 ;; typeof bspace = I ;; typeof rule = I ;; var DlgMessage = 1 ;; typeof WIZ_FILE_Content = S ;; typeof WIZ_DmsFileName = S ;; /* Definition of WIZARD STRUCTURE */ struct Struct_WizardCtrl = [ m_Channel : Chn , /* channel */ ctrl_Container : ObjContainer , /* container */ ctrl_Wizard_logo : CompBitmap , ctrl_Wizard_text1 : CompText , ctrl_Wizard_text2 : CompText , ctrl_Wizard_OKbtn : ObjNode , ctrl_Wizard_NObtn : ObjNode , ctrl_Wizard_NEXTbtn : ObjNode , ctrl_Wizard_PREVbtn : ObjNode , ctrl_Wizard_CANCELbtn : ObjNode , ctrl_Wizard_ENDbtn : ObjNode , ctrl_Wizard_OPENbtn : ObjNode , ctrl_Wizard_CREATEbtn : ObjNode , ctrl_Wizard_NOTHINGbtn : ObjNode , ctrl_Wizard_SiteNametxt : CompText , ctrl_Wizard_SiteName : CompText , /* Site name edit box control */ ctrl_Wizard_AuthorNametxt : CompText , ctrl_Wizard_AuthorName : CompText , /* Site auhtor name */ ctrl_Wizard_ChatModtxt : CompText , ctrl_Wizard_ChatModCheck : CompCheck , ctrl_Wizard_3dModtxt : CompText , ctrl_Wizard_3dModCheck : CompCheck , ctrl_Wizard_PhotoModtxt : CompText , ctrl_Wizard_PhotoModCheck : CompCheck , ctrl_Wizard_LoginModtxt : CompText , ctrl_Wizard_LoginModCheck : CompCheck ] mkSiteWizard;; proto GUI_QuickWizardParam = fun [Struct_WizardCtrl] I;; // Wizard steps // Files Dialog Box return fun DLGReturn(a,b,state)= set DlgMessage = 1; let b -> [WizardInfo DmsFileName] in ( _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_NEXTbtn OBJ_VISIBLE|OBJ_ENABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_CANCELbtn OBJ_VISIBLE|OBJ_ENABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_PREVbtn OBJ_VISIBLE|OBJ_ENABLE 1; if state==0 then ( set rule=2; GUI_QuickWizardParam WizardInfo; ) else ( set WIZ_DmsFileName = DmsFileName; set rule=3; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteName 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteNametxt 0; let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text1 (_locSCS "WIZARD-SUBTITLE3" nil) nil nil nil -> ObjText1 in let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text2 (_locSCS "WIZARD-MAINTEXT3" nil) nil nil nil -> ObjText2 in ( _PAINTobjNode ObjText1; _PAINTobjNode ObjText2; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorNametxt 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorName 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_ChatModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_ChatModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_3dModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_3dModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_PhotoModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_PhotoModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_LoginModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_LoginModCheck 0; SITE_RemoveSite (SITE_SearchByFilename WIZ_DmsFileName); ); ); 0; ); 0 ;; fun GUI_QuickWizardParam(WizardInfo) = if rule == 0 then ( _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_OPENbtn OBJ_VISIBLE|OBJ_ENABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_CREATEbtn OBJ_VISIBLE|OBJ_ENABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_NOTHINGbtn OBJ_VISIBLE|OBJ_ENABLE 1; let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text1 (_locSCS "WIZARD-SUBTITLE" nil) nil nil nil -> ObjText1 in let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text2 (_locSCS "WIZARD-MAINTEXT" nil) nil nil nil -> ObjText2 in ( _PAINTobjNode ObjText1; _PAINTobjNode ObjText2; ); 1; ) else if rule == 1 then ( _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_PREVbtn OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_OPENbtn OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_CREATEbtn OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_NOTHINGbtn OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_NEXTbtn OBJ_VISIBLE|OBJ_ENABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_CANCELbtn OBJ_VISIBLE|OBJ_ENABLE 1; let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text1 (_locSCS "WIZARD-SUBTITLE1" nil) nil nil nil -> ObjText1 in let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text2 (_locSCS "WIZARD-MAINTEXT1" nil) nil nil nil -> ObjText2 in ( _PAINTobjNode ObjText1; _PAINTobjNode ObjText2; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteName 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteNametxt 0; ); 1; ) else if rule == 2 then ( _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_PREVbtn OBJ_VISIBLE|OBJ_ENABLE 1; let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text1 (_locSCS "WIZARD-SUBTITLE2" nil) nil nil nil -> ObjText1 in let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text2 (_locSCS "WIZARD-MAINTEXT2" nil) nil nil nil -> ObjText2 in ( _PAINTobjNode ObjText1; _PAINTobjNode ObjText2; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteName 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteNametxt 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorNametxt 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorName 0; set DlgMessage = 0; ); 1; ) else if rule == 3 then ( let _GETcompText WizardInfo.ctrl_Wizard_SiteName -> New_Site_Name in let strcatn "worlds/"::New_Site_Name::"/"::New_Site_Name::".dms"::nil -> DmsFileName in let _checkpack DmsFileName -> FileNameTest in if FileNameTest == nil || DlgMessage == 1 then ( set WIZ_DmsFileName = DmsFileName; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteName 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_SiteNametxt 0; let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text1 (_locSCS "WIZARD-SUBTITLE3" nil) nil nil nil -> ObjText1 in let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text2 (_locSCS "WIZARD-MAINTEXT3" nil) nil nil nil -> ObjText2 in ( _PAINTobjNode ObjText1; _PAINTobjNode ObjText2; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorNametxt 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorName 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_ChatModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_ChatModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_3dModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_3dModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_PhotoModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_PhotoModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_LoginModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_LoginModCheck 0; ); 0; ) else ( _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_NEXTbtn OBJ_VISIBLE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_CANCELbtn OBJ_VISIBLE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_PREVbtn OBJ_VISIBLE|OBJ_DISABLE 1; _DLGrflmessage _DLGMessageBox _channel nil (_locSCS "WIZARD-POPFILE-TITLE" nil) (_locSCS "WIZARD-POPFILE-TEXT" nil) 2 @DLGReturn [WizardInfo DmsFileName]; 0; ); 1; ) else if rule == 4 then ( _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_ENDbtn OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_NEXTbtn OBJ_VISIBLE|OBJ_ENABLE 1; let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text1 (_locSCS "WIZARD-SUBTITLE4" nil) nil nil nil -> ObjText1 in let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text2 (_locSCS "WIZARD-MAINTEXT4" nil) nil nil nil -> ObjText2 in ( _PAINTobjNode ObjText1; _PAINTobjNode ObjText2; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorNametxt 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_AuthorName 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_ChatModtxt 1; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_ChatModCheck 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_3dModtxt 1; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_3dModCheck 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_PhotoModtxt 1; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_PhotoModCheck 1; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_LoginModtxt 1; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_LoginModCheck 1; ); 1; ) else if rule == 5 then ( _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_NEXTbtn OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags WizardInfo.ctrl_Wizard_ENDbtn OBJ_VISIBLE|OBJ_ENABLE 1; let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text1 (_locSCS "WIZARD-SUBTITLE5" nil) nil nil nil -> ObjText1 in let _CONVERTcompTextToObjNode _SETcompText WizardInfo.ctrl_Wizard_text2 (_locSCS "WIZARD-MAINTEXT5" nil) nil nil nil -> ObjText2 in ( _PAINTobjNode ObjText1; _PAINTobjNode ObjText2; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_ChatModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_ChatModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_3dModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_3dModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_PhotoModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_PhotoModCheck 0; GRAPHICDRESSING_ShowCompText WizardInfo.ctrl_Wizard_LoginModtxt 0; GRAPHICDRESSING_ShowCompCheck WizardInfo.ctrl_Wizard_LoginModCheck 0; ); 1; ) else nil; 0 ;; // Remake String for DMS by Tony fun BuildMyStr2(sSrc, sDst, iLen, iPos) = if (iPos == iLen) then sDst else let ctoa nth_char sSrc iPos -> sStrChar in let strtoweb sStrChar -> sWebChar in if (!strcmp sWebChar "+") then BuildMyStr2 sSrc (strcat sDst "\\ ") iLen (iPos + 1) else if (!strcmp (substr sWebChar 0 1) "%") then BuildMyStr2 sSrc (strcatn sDst::"\\"::(itoa htoi substr sWebChar 1 2)::nil) iLen (iPos + 1) else BuildMyStr2 sSrc (strcat sDst sWebChar) iLen (iPos + 1);; fun BuildMyStr(sStr) = BuildMyStr2 sStr "" (strlen sStr) 0;; // Save the content to DMS file and Open it fun END_Save_Openfile (cont, WizardInfo)= let _GETcompText WizardInfo.ctrl_Wizard_SiteName -> Site_Name in let BuildMyStr (_GETcompText WizardInfo.ctrl_Wizard_SiteName) -> New_Site_Name in let strtoweb (_GETcompText WizardInfo.ctrl_Wizard_AuthorName) -> New_Author_Name in let _getmodifypack WIZ_DmsFileName -> DmsFileW in let _getmodifypack (strcatn "worlds/"::Site_Name::"/"::Site_Name::".scol"::nil) -> ScolScriptFileW in let BuildMyStr (ctime time) -> WIZcurrentTime in ( // Start of dms file let strcatn "module "::New_Site_Name::" 0\n":: "def def\n":: "> name "::New_Site_Name::"\n":: "> password\n":: "> version 1\n":: "> date "::WIZcurrentTime::"\n":: "> port 3100\n":: "> timeout 120\n":: "> SiteName "::New_Site_Name::"\n":: "> AuthorName "::New_Author_Name::"\n":: "> AuthorEmail "::"\n":: "> SiteDescription SCS-2\n":: "> Lang FR,\\ UK\n":: "> ModelScreenshot \n":: "> satelite_servers\n":: "> scol_file_content _load\\ \"Dms/L/dhdms/go.pkg\"\\ngo\\nmain\\ \"$site_filename\"\\n\n":: "> satellite_scol_content _load\\ \"Dms/L/dhdms2/satgo.pkg\"\\ngo\\nmain\\ $site_port\\ \"$site_password\"\\n\n":: "enddef\n":: "def docclient\n":: "> doc client 1 36 50 50 _ _ 524 399 _ 0 16164774\n":: "> zone interieur 18 0 0 123 161 401 238 13802925\n":: "> zone info 9 400 175 0 199 124 25 12901780\n":: "> zone list 17 400 0 0 224 124 175 12163574\n":: "> zone term 10 0 237 123 0 401 162 15784117\n":: "> zone button 9 400 353 0 0 124 46 11704211\n":: "> zone photo 9 400 200 0 101 124 98 2493390\n":: "> zone button\\ photo 9 400 298 0 46 124 55 9895360\n":: "> enddoc\n":: "enddef\n":: "def docserver\n":: "> doc server 1 36 0 0 _ _ 183 77 _ 0 9803653\n":: "> zone zone\\ 1 36 0 0 0 0 183 77 11399601\n":: "> enddoc\n":: "enddef\n":: "def scs\n":: "> position \n":: "enddef\n":: "def link\n":: "> start .Interieur pos_entry _ _ _\n":: "> start .term start _ _ _\n":: "> start .login start _ _ _\n":: "> start .photo start_show _ _ _\n":: "enddef\n":: "def dmi\n":: "> in start\n":: "> in out\n":: "> in log\n":: "> in in\n":: "> in full\n":: "> in enter\n":: "> name Tutorial\n":: "enddef\n":: "module contact 0\n":: "def dmi\n":: "> class dms/admin/contact/contact.dmc\n":: "> version 2 1\n":: "> zone Button\n":: "> action contact\n":: "> auto 1\n":: "> bmp\n":: "> bitmap Dms/Admin/Contact/contact.scs.bmp\n":: "> name contact\n":: "enddef\n":: "def scs\n":: "> position 43 250\n":: "enddef\n":: "def zone\n":: "> zoneS Button server.zone\\ 1\n":: "enddef\n":: "endmod\n"::nil -> WizDmsContent_1 in // Chat Module let strcatn "module term 0\n":: "def dmi\n":: "> class dms/interf/colorterm/term.dmc\n":: "> version 2 3\n":: "> registerF Dms/Interf/ColorTerm/defaultMacros.txt\n":: "> action start start\n":: "> action destroy destroy\n":: "> action broadMsg broadMsg\n":: "> actionC privateMsg privateMsg\n":: "> action broadInfo broadInfo\n":: "> actionC privateInfo privateInfo\n":: "> actionC !addCommand !addCommand\n":: "> action getDialogS\n":: "> actionC getDialog\n":: "> event entering entering\n":: "> event in in\n":: "> event destroyed destroyed\n":: "> eventC command\n":: "> eventC Away\n":: "> eventC Back\n":: "> actionC registerExtMacro registerExtMacro\n":: "> actionC unregisterExtMacro unregisterExtMacro\n":: "> eventC extMacroCommand\n":: "> actionC IgnoreFlag IgnoreFlag\n":: "> actionC IgnChgLogin IgnChgLogin\n":: "> actionC IgnLogout IgnLogout\n":: "> action !ChgLogin !ChgLogin\n":: "> zoneC Term\n":: "> backColor 16777215\n":: "> System1MsgTextColor 255\n":: "> System2MsgTextColor 16711680\n":: "> loginNameColor 0\n":: "> ActionsMsgColor 255\n":: "> defOtherUser1MsgTextColor 0\n":: "> defOtherUser2MsgTextColor 5263440\n":: "> textColorEditLine\n":: "> otherColorText\n":: "> awayCheck off\n":: "> usersMsgColors 2012718\\ 606062\\ 11493968\\ 2924667\\ 5909956\\ 5606399\\ 12825357\\ 16739674\\n\n":: "> defaultMacrosFile Dms/Interf/ColorTerm/defaultMacros.txt\n":: "> bitmap Dms/Interf/ColorTerm/term.scs.bmp\n":: "> name term\n":: "enddef\n":: "def scs\n":: "> position 450 179\n":: "enddef\n":: "def zone\n":: "> zoneC Term client.term\n":: "enddef\n":: "def link\n":: "> command Interieur !speak _ _ _\n":: "enddef\n":: "endmod\n"::nil -> ChatPart in // 3D Module let strcatn "module Interieur 0\n":: "def dat\n":: "> name new\\ module\\ 1\n":: "> version 1\n":: "> buffersize 1024\n":: "> background 0\n":: "> backclip 100000 80000\n":: "> focal 29.7\n":: "> speed 1000\n":: "> avatarRess Avatar\n":: "> defaultAvatar default\n":: "> defaultForced 0\n":: "> interpolate 0\n":: "> darkbase 31\n":: "> rightsRess rights\n":: "> tablesize 512\n":: "> gridsize 50000\n":: "> avatarpseudo 1\n":: "> C3dress\n":: "> ipos pos_entry 0 170 0 0 0 0\n":: "> m3d lib/3d/room/contempo/roo3001.m3d 0 0 0 0 0 0 {\n":: "> index 4\n":: "> ref\n":: "> obj ROO3001 -92 338 -446 0 0 0 0\n":: "> material MAT02 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/WALL/WAL3005E.JPG\n":: "> material MAT03 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/WALL/WAL3005E.JPG\n":: "> material MAT09 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/GROUND/GRO3016E.JPG\n":: "> material MAT01 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/WALL/WAL3005E.JPG\n":: "> material MAT04 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/WALL/WAL3005E.JPG\n":: "> material MAT07 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/CEILLING/CEI3021E.JPG\n":: "> material MAT08 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/CEILLING/CEI3022E.JPG\n":: "> material MAT05 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/WALL/WAL3006E.JPG\n":: "> material MAT06 9 2c3457 1 LIB/TEXTURE/ROOM/CONTEMPO/CEILLING/CEI3020E.JPG\n":: "> }\n":: "> inbox lib/3d/room/contempo/roo3001.box 10 0\n":: "> gravity 0\n":: "enddef\n":: "def dmi\n":: "> class dms/3d/c3d3/c3d3.dmc\n":: "> version 2 4\n":: "> registerPlugF\n":: "> registerPlug\n":: "> registerF LIB/TEXTURE/ROOM/CONTEMPO/CEILLING/CEI3020E.JPG LIB/TEXTURE/ROOM/CONTEMPO/CEILLING/CEI3021E.JPG LIB/TEXTURE/ROOM/CONTEMPO/CEILLING/CEI3022E.JPG LIB/TEXTURE/ROOM/CONTEMPO/GROUND/GRO3016E.JPG LIB/TEXTURE/ROOM/CONTEMPO/WALL/WAL3005E.JPG LIB/TEXTURE/ROOM/CONTEMPO/WALL/WAL3006E.JPG\n":: "> register lib/3d/room/contempo/roo3001.box lib/3d/room/contempo/roo3001.m3d\n":: "> extralang\n":: "> extralang\n":: "> name Interieur\n":: "> action out\n":: "> actionC !control\n":: "> action pos_entry\n":: "> action !chglogin\n":: "> action !chgav\n":: "> action broad\n":: "> actionC !speak\n":: "> action !addPluginS\n":: "> actionC !addPlugin\n":: "> actionC !centerOnPlayer\n":: "> actionC !c3dPositionSize\n":: "> actionC !ChgCursor\n":: "> event entering\n":: "> eventC select0\n":: "> eventC select1\n":: "> eventC select2\n":: "> eventC select3\n":: "> event spy\n":: "> eventC getPlugin\n":: "> eventC hear\n":: "> eventC getFocus\n":: "> eventC avatarList\n":: "> event setpositions\n":: "> eventC sendingPositionSize\n":: "> zoneC List\n":: "> event in\n":: "> event out\n":: "> event log\n":: "> eventC getControl\n":: "> zoneC View\n":: "> zoneC Info\n":: "> eventC contextHelp\n":: "> bitmap Dms/3d/Edit3d3/c3d3.scs.bmp\n":: "enddef\n":: "def scs\n":: "> position 314 178\n":: "enddef\n":: "def zone\n":: "> zoneC List client.list\n":: "> zoneC Info client.info\n":: "> zoneC View client.interieur\n":: "enddef\n":: "def link\n":: "> in term privateMsg Vous\\ entrez\\ dans\\ la\\ pi\232ce\\ principale\\n _ _\n":: "> hear term privateMsg _ _ _\n":: "> getPlugin photo getPlugin _ _ _\n":: "enddef\n":: "endmod\n"::nil -> threedpart in // Login Module let strcatn "module login 0\n":: "def dmi\n":: "> class dms/admin/login/login.dmc\n":: "> version 3 0\n":: "> action start start\n":: "> actionC show show\n":: "> actionC hide hide\n":: "> event loginChanged loginChanged\n":: "> event log log\n":: "> eventC shown shown\n":: "> eventC hidden hidden\n":: "> zoneC Login\n":: "> zoneC Text\n":: "> zoneC Button\n":: "> rule 1 Login 0 log 2 Log 1 log\n":: "> bitmap Dms/Admin/Login/login.scs.bmp\n":: "> name login\n":: "enddef\n":: "def scs\n":: "> position 189 179\n":: "enddef\n":: "def zone\n":: "> zoneC Button client.button\n":: "enddef\n":: "def link\n":: "> loginChanged Interieur !chglogin _ _ _\n":: "enddef\n":: "endmod\n"::nil -> Loginpart in // Photo Module let strcatn "module photo 0\n":: "def dmi\n":: "> class dms/avatar/photo3/photo.dmc\n":: "> version 3 1\n":: "> action start start\n":: "> actionC show show\n":: "> actionC hide hide\n":: "> action start_show\n":: "> action getPlugin getPlugin\n":: "> action ex\n":: "> actionC IgnChgLogin\n":: "> actionC changePhoto\n":: "> actionC IgnoreFlag\n":: "> actionC IgnLogout\n":: "> event changed\n":: "> eventC shown\n":: "> eventC hidden\n":: "> eventC clickPhoto\n":: "> eventC in\n":: "> zoneC Photo\n":: "> zoneC Window\n":: "> zoneC Button\n":: "> bitmap Dms/Avatar/Photo3/photo.scs.bmp\n":: "> name photo\n":: "enddef\n":: "def scs\n":: "> position 314 331\n":: "enddef\n":: "def zone\n":: "> zoneC Button client.button\\ photo\n":: "> zoneC Photo client.photo\n":: "enddef\n":: "def link\n":: "> changed Interieur !chgav _ _ _\n":: "enddef\n":: "endmod\n"::nil -> Photopart in ( if _GETcompCheckState WizardInfo.ctrl_Wizard_ChatModCheck then ( set WIZ_FILE_Content = strcatn WizDmsContent_1::ChatPart::nil; ) else set WIZ_FILE_Content = WizDmsContent_1; if _GETcompCheckState WizardInfo.ctrl_Wizard_3dModCheck then ( set WIZ_FILE_Content = strcatn WIZ_FILE_Content::threedpart::nil; ) else nil; if _GETcompCheckState WizardInfo.ctrl_Wizard_PhotoModCheck then ( set WIZ_FILE_Content = strcatn WIZ_FILE_Content::Photopart::nil; ) else nil; if _GETcompCheckState WizardInfo.ctrl_Wizard_LoginModCheck then ( set WIZ_FILE_Content = strcatn WIZ_FILE_Content::Loginpart::nil; ) else nil; ); // End of Dms file set WIZ_FILE_Content = strcat WIZ_FILE_Content "\nendmod\n"; let strcatn "_load \"Dms/L/dhdms/go.pkg\"\ngo\nmain \""::WIZ_DmsFileName::"\""::nil -> WIZ_ScolScript in _createpack WIZ_ScolScript ScolScriptFileW; _createpack WIZ_FILE_Content DmsFileW; SITE_Open WIZ_DmsFileName scsgui.SCSGUIchannel ); set GUI_bQuickWizardOpened = 0; _DScontainer cont; _freememory; 0 ;; // Wizard callback button fun GUI_QuickWizardDEF(comprollover, param, posx, posy, btn, mask) = let param -> [cont retval WizardInfo] in ( if retval == BUT_PREV then ( set rule = rule -1; GUI_QuickWizardParam WizardInfo ) else if retval == BUT_NEXT then ( set rule = rule +1; GUI_QuickWizardParam WizardInfo ) else if retval == BUT_CANCEL then ( set GUI_bQuickWizardOpened = 0; _DScontainer cont; _freememory; /* MAC ICI libération de ressources */ ) else if retval == BUT_END then ( END_Save_Openfile cont WizardInfo; ) else if retval == BUT_OPEN then ( set rule = rule +1; _DScontainer cont; _freememory; /* MAC ICI libération de ressources */ GUI_Open; ) else if retval == BUT_CREATE then ( set rule = rule +1; GUI_QuickWizardParam WizardInfo ) else if retval == BUT_NOTHING then ( set rule = rule +1; _DScontainer cont; _freememory; /* MAC ICI libération de ressources */ ) else nil; ); 0 ;; // Wizard launch fun GUI_QuickWizard (ruleparam) = if GUI_bQuickWizardOpened then nil else set rule = ruleparam; // window creation set bspace = (wbox-100-160)/4; let SELECT_GetSite -> site in let scsgui.SCSGUIwindowManager.WINMANAGmainCont -> fathercont in let _GETscreenSize -> [wscreen hscreen] in let (wscreen-wbox)/2 -> posx in let (hscreen-hbox)/2 -> posy in let _channel -> chan in let GRAPHICDRESSING_CRcontainer chan fathercont [posx posy wbox hbox] [wbox hbox wbox hbox] GD_DEFAULT_BACKGROUNDCOLOR (_locSCS "WIZARD-TITLE" nil) GD_FONT_BOLD [GD_WINDOWS_TITLE_COLOR1 0 1 0x50] GDWIN_CLOSE_BUTTON|GDWIN_BORDERS [nil nil nil] -> [cont compTitle compMin compMax compClose _] in // Default controls let THEME_getParamsByTheme GD_THEME "DBOX_LOGO" -> [path1 _ _ _ _ _ _ _ _ ]in let exec GD_FUNCTIONHANDLER_LOADBITMAP with [path1 chan] -> dboxlogo in let _CRcompBitmap chan cont nil [10 40] OBJ_ENABLE|OBJ_VISIBLE GD_DEFAULT_HANDLEDEVENTS dboxlogo 0 0 85 235 -> cpbitmap in let GRAPHICDRESSING_CRcompText chan cont nil [110 40] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS wbox-130 25 (_locSCS "WIZARD-SUBTITLE" nil) GD_FONT_BOLD [GD_DEFAULT_TITLE_TEXT_COLOR nil 0 0] [GD_DEFAULT_TITLE_TEXT_HIGHLIGHT_COLOR 50] -> cptxt1 in let GRAPHICDRESSING_CRcompText chan cont nil [110 65] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS wbox-130 hbox-65-30 (_locSCS "WIZARD-MAINTEXT" nil) GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> cptxt2 in // Default buttons let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [55+bspace hbox-40] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 80 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-PREV" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonPREV in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [55+2*bspace+80 hbox-40] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 80 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-NEXT" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonNEXT in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [55+3*bspace+160 hbox-40] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 80 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-CANCEL" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonCANCEL in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [55+2*bspace+80 hbox-40] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 80 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-END" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonEND in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [100+bspace hbox-40] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 80 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-YES" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonYES in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [100+2*bspace+80 hbox-40] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 80 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-NO" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonNO in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [(((wbox/2)-75)+bspace) 155] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 150 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-OPEN" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonOPEN in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [(((wbox/2)-75)+bspace)185] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 150 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-CREATE" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonCREATE in let GRAPHICDRESSING_CRcompRollOverWithText chan cont nil [(((wbox/2)-75)+bspace) 215] OBJ_VISIBLE|OBJ_ENABLE GD_DEFAULT_HANDLEDEVENTS 150 25 GD_FONT_NORMAL (GD_ExecLocaleFunction "buttonname-NOTHING" nil) GD_DEFAULT_TEXT_BUTTON_COLOR -> buttonNOTHING in // Controls P2 let GRAPHICDRESSING_CRcompText chan cont nil [55+bspace 150] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS 160 25 (_locSCS "WIZARD-SETNAME" nil) GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> cpnametxt in let GRAPHICDRESSING_CRcompText chan cont nil [55+bspace+170 150] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_EDITLINE OBJ_CONTAINER_UNCLICK|OBJ_KEYBOARD|OBJ_CONTAINER_MOVE 110 20 MOD_DEF_SITENAME GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> EdName in // Controls P3 let GRAPHICDRESSING_CRcompText chan cont nil [55+bspace 150] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS 160 25 (_locSCS "WIZARD-AUTHORNAME" nil) GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> cpauthortxt in let GRAPHICDRESSING_CRcompText chan cont nil [55+bspace+170 150] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_EDITLINE OBJ_CONTAINER_UNCLICK|OBJ_KEYBOARD|OBJ_CONTAINER_MOVE 110 20 MOD_DEF_AUTHORNAME GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> EdAuthor in // Controls P4 let GRAPHICDRESSING_CRcompText chan cont nil [65+bspace+25 105] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS 160 25 (_locSCS "WIZARD-CHECKCHAT" nil) GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> cpChattxt in let GRAPHICDRESSING_CRcompCheck chan cont nil [65+bspace 105] OBJ_VISIBLE|OBJ_ENABLE|OBJ_LH_FLEX|OBJ_LW_FLEX OBJ_CONTAINER_MOVE|OBJ_KEYBOARD -> EdCheckChat in let GRAPHICDRESSING_CRcompText chan cont nil [65+bspace+25 140] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS 160 25 (_locSCS "WIZARD-CHECK3D" nil) GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> cp3dtxt in let GRAPHICDRESSING_CRcompCheck chan cont nil [65+bspace 140] OBJ_VISIBLE|OBJ_ENABLE|OBJ_LH_FLEX|OBJ_LW_FLEX OBJ_CONTAINER_MOVE|OBJ_KEYBOARD -> EdCheck3d in let GRAPHICDRESSING_CRcompText chan cont nil [65+bspace+25 175] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS 160 25 (_locSCS "WIZARD-CHECKPHOTO" nil) GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> cpPhototxt in let GRAPHICDRESSING_CRcompCheck chan cont nil [65+bspace 175] OBJ_VISIBLE|OBJ_ENABLE|OBJ_LH_FLEX|OBJ_LW_FLEX OBJ_CONTAINER_MOVE|OBJ_KEYBOARD -> EdCheckPhoto in let GRAPHICDRESSING_CRcompText chan cont nil [65+bspace+25 210] OBJ_ENABLE|OBJ_VISIBLE|CT_LEFT|CT_LABEL|CT_WORDWRAP GD_DEFAULT_HANDLEDEVENTS 160 25 (_locSCS "WIZARD-CHECKLOGIN" nil) GD_FONT_NORMAL [GD_DEFAULT_TEXT_COLOR nil 0 0] [GD_DEFAULT_TEXT_HIGHLIGHT_COLOR 50] -> cpLogintxt in let GRAPHICDRESSING_CRcompCheck chan cont nil [65+bspace 210] OBJ_VISIBLE|OBJ_ENABLE|OBJ_LH_FLEX|OBJ_LW_FLEX OBJ_CONTAINER_MOVE|OBJ_KEYBOARD -> EdCheckLogin in { let _CONVERTcompRollOverToObjNode buttonCANCEL -> ObjbutCANCEL in let _CONVERTcompRollOverToObjNode buttonPREV -> ObjbutPREV in let _CONVERTcompRollOverToObjNode buttonNEXT -> ObjbutNEXT in let _CONVERTcompRollOverToObjNode buttonEND -> ObjbutEND in let _CONVERTcompRollOverToObjNode buttonNO -> ObjbutNO in let _CONVERTcompRollOverToObjNode buttonYES -> ObjbutYES in let _CONVERTcompRollOverToObjNode buttonOPEN -> ObjbutOPEN in let _CONVERTcompRollOverToObjNode buttonCREATE -> ObjbutCREATE in let _CONVERTcompRollOverToObjNode buttonNOTHING-> ObjbutNOTH in ( _CHANGEobjNodeFlags ObjbutPREV OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutNEXT OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutEND OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutNO OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutYES OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutCANCEL OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutOPEN OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutCREATE OBJ_HIDE|OBJ_DISABLE 1; _CHANGEobjNodeFlags ObjbutNOTH OBJ_HIDE|OBJ_DISABLE 1; GRAPHICDRESSING_ShowCompText EdName 0; GRAPHICDRESSING_ShowCompText cpnametxt 0; GRAPHICDRESSING_ShowCompText EdAuthor 0; GRAPHICDRESSING_ShowCompText cpauthortxt 0; GRAPHICDRESSING_ShowCompCheck EdCheckChat 0; GRAPHICDRESSING_ShowCompText cpChattxt 0; GRAPHICDRESSING_ShowCompCheck EdCheck3d 0; GRAPHICDRESSING_ShowCompText cp3dtxt 0; GRAPHICDRESSING_ShowCompCheck EdCheckPhoto 0; GRAPHICDRESSING_ShowCompText cpPhototxt 0; GRAPHICDRESSING_ShowCompCheck EdCheckLogin 0; GRAPHICDRESSING_ShowCompText cpLogintxt 0; _SETcompCheckState EdCheckChat CHK_CHECKED; _SETcompCheckState EdCheck3d CHK_CHECKED; _SETcompCheckState EdCheckPhoto CHK_CHECKED; _SETcompCheckState EdCheckLogin CHK_CHECKED; let mkSiteWizard [chan cont cpbitmap cptxt1 cptxt2 ObjbutYES ObjbutNO ObjbutNEXT ObjbutPREV ObjbutCANCEL ObjbutEND ObjbutOPEN ObjbutCREATE ObjbutNOTH cpnametxt EdName cpauthortxt EdAuthor cpChattxt EdCheckChat cp3dtxt EdCheck3d cpPhototxt EdCheckPhoto cpLogintxt EdCheckLogin] -> WizardInfo in ( _CBcompRollOverClick compClose @GUI_QuickWizardDEF [cont BUT_CANCEL WizardInfo]; _CBcompRollOverClick buttonCANCEL @GUI_QuickWizardDEF [cont BUT_CANCEL WizardInfo]; _CBcompRollOverClick buttonPREV @GUI_QuickWizardDEF [cont BUT_PREV WizardInfo]; _CBcompRollOverClick buttonNEXT @GUI_QuickWizardDEF [cont BUT_NEXT WizardInfo]; _CBcompRollOverClick buttonEND @GUI_QuickWizardDEF [cont BUT_END WizardInfo] ; _CBcompRollOverClick buttonNO @GUI_QuickWizardDEF [cont BUT_NO WizardInfo]; _CBcompRollOverClick buttonYES @GUI_QuickWizardDEF [cont BUT_OK WizardInfo]; _CBcompRollOverClick buttonOPEN @GUI_QuickWizardDEF [cont BUT_OPEN WizardInfo]; _CBcompRollOverClick buttonCREATE @GUI_QuickWizardDEF [cont BUT_CREATE WizardInfo]; _CBcompRollOverClick buttonNOTHING @GUI_QuickWizardDEF [cont BUT_NOTHING WizardInfo]; _PAINTcontainer _SHOWcontainer WizardInfo.ctrl_Container CONTAINER_UNHIDDEN ; GUI_QuickWizardParam WizardInfo; ); ); }; set GUI_bQuickWizardOpened = 1; 1 ;;