&CPGXGameð?[Sie haben Verlust gemacht. Wollen Sie das Startgeld einsetzen, um diesen Verlust zu decken?JaNein3Sie haben Verlust gemacht. Wollen Sie weiterfahren?JaNein;Bitte warten Sie, bis Ihr Computer wieder freigegeben wird.EEXDatabaseInfoglobalsEEXDatabaseInfosubjectsEEXDatabaseInfosummaryEEXDatabaseInfo contractsEEXDatabaseInfosessionEEXDatabaseInfologfile EEXProgramglobals;//PARAMETERS and GLOBAL VARIABLES endowment=20; price=-1; EEXProgramsubjectsÅ//INITIALIZE VARIABLES offer=-1; //subject's offer in the auction winner=-1; //indicates whether the subject won th auction rand=-1; //random number used to designate the winner in case of a tieEEXDialogWindowText EEXInfoItem Please, wait.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEEXStageOffer1000EEXDialogWindowOffer20%20%20%20% EEXInfoItem,How much are you willing to pay for the mug?ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ EEXInfoItem/Please, make your offer in Euro and Euro-cents.offer010000.01ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ|®Gáz„?EEXContractButtonConfirm EEXCheckeroffer<\endowmentˆYou offered more than your endowment. If you win the auction, you might have to spend your own money. Are you sure you want to continue?YesNoEEXStageResults EEXProgramglobalsÿsubjects.do{ winner=if(offer==subjects.maximum(offer),1,0); } price=subjects.maximum(winner==0, offer); while(subjects.count(winner==1)>1){ subjects.do{ rand=if(winner==1, random(), 0); } subjects.do{ winner=if(rand==subjects.maximum(rand),1, 0); } } EEXProgramsubjects4Profit=if(winner==1, \endowment-\price, \endowment);1000EEXDialogWindowResults EEXInfoItem,<>You offered Euro for the mug.offer0.01ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ|®Gáz„? EEXInfoItem.<>The mug will be sold for <\price|0.01> Euro.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ EEXInfoItem3<>You are the winner.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ EEXInfoItemO<>Your profit is equal to ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEEXContractButtonEndCPGXPeriodParam1CPGXRoleS 1CPGXSubjectParamCPGXRoleS 2CPGXSubjectParamCPGXRoleS 3CPGXSubjectParamCPGXRoleS 4CPGXSubjectParamCPGXRoleS 5CPGXSubjectParamCPGXRoleS 6CPGXSubjectParamCPGXSubjectParamCPGXSubjectParamCPGXSubjectParamCPGXSubjectParamCPGXSubjectParamCPGXSubjectParam5