/* Uses Lamp.mcc */ #include "graphics_support.h" /* MUI */ #include #include #include #include "gameboardclass.h" /* System */ #include #include #include #include // Also has MAKE_ID definition #include /* Prototypes */ #include #include #include #include #include #include #include #include #include #include /* ANSI C */ #include #include /***********************************/ /***********************************/ /***********************************/ extern struct Library *SysBase, *IntuitionBase, *UtilityBase, *GfxBase, *DOSBase, *IconBase; struct Library *MUIMasterBase=NULL; struct Library *AslBase=NULL; struct Library *IFFParseBase=NULL; /***********************************/ /***********************************/ /***********************************/ #define PORT_LEN 10 #define NAME_LEN 20 #define LOCATION_LEN 100 /***********************************/ /***********************************/ /***********************************/ struct PAB_Entry { char *name, *location; } *loaded_info[200]; struct netstuff { char port[PORT_LEN]; char username[NAME_LEN]; } networkinfo = { "", "" }; UBYTE *prefspool; enum { MEN_CONNECT4=1, MEN_ABOUTMUI, MEN_ICONIFY, MEN_QUIT, MEN_SETC4, MEN_SETMUI, MEN_SETLOAD, MEN_SETSAVE, MEN_SETDEFAULT }; static struct NewMenu connect4menu[] = { { NM_TITLE, "Project", 0, 0, 0, 0 }, { NM_ITEM, "About", 0, 0, 0, 0 }, { NM_SUB, "Connect 4", "?", 0, 0, (APTR)MEN_CONNECT4 }, { NM_SUB, "MUI", 0, 0, 0, (APTR)MEN_ABOUTMUI }, { NM_ITEM, "Iconify", "I", 0, 0, (APTR)MEN_ICONIFY }, { NM_ITEM, "Quit", "Q", 0, 0, (APTR)MEN_QUIT }, { NM_TITLE, "Settings", 0, 0, 0, 0 }, { NM_ITEM, "Connect 4", "C", 0, 0, (APTR)MEN_SETC4 }, { NM_ITEM, "MUI", "M", 0, 0, (APTR)MEN_SETMUI }, { NM_ITEM, "Load", "L", 0, 0, (APTR)MEN_SETLOAD }, { NM_ITEM, "Save", "S", 0, 0, (APTR)MEN_SETSAVE }, { NM_ITEM, "Save as default", "D", 0, 0, (APTR)MEN_SETDEFAULT }, { NM_END,NULL, 0, 0, 0, (APTR)0 } }; static char *Page_titles[] = { "Players", "Network", NULL }; static char *cycle_location_strings[] = { "Local", "Remote", NULL }; static char *cycle_acceptnet_strings[] = { "from known players", "from everyone", NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds APTR PAB_constructor_function (__reg ("a0") struct Hook *hook, __reg ("a2") APTR pool, __reg ("a1") struct PAB_Entry *entry) { struct PAB_Entry *entry_copy; if (entry_copy=AllocPooled(pool, sizeof(struct PAB_Entry))) { if (entry_copy->name=AllocPooled(pool, NAME_LEN)) { if (entry_copy->location=AllocPooled(pool, LOCATION_LEN)) { strcpy(entry_copy->name, entry->name); strcpy(entry_copy->location, entry->location); return (entry_copy); } FreePooled(pool, entry_copy->name, NAME_LEN); } FreePooled(pool, entry_copy, sizeof(struct PAB_Entry)); } return NULL; } // Player Address Book list constructor hook static struct Hook PAB_constructor_hook = { {NULL, NULL}, (void *)PAB_constructor_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void PAB_destructor_function (__reg ("a0") struct Hook *hook, __reg ("a2") APTR pool, __reg ("a1") struct PAB_Entry *entry) { FreePooled(pool, entry->name, NAME_LEN); FreePooled(pool, entry->location, LOCATION_LEN); FreePooled(pool, entry, sizeof(struct PAB_Entry)); } // Player Address Book list destructor hook static struct Hook PAB_destructor_hook = { {NULL, NULL}, (void *)PAB_destructor_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ // Player Address Book list display function __saveds LONG PAB_display_function (__reg ("a0") struct Hook *hook, __reg ("a2") char **array, __reg ("a1") struct PAB_Entry *entry) { if (entry) { *array++=entry->name; *array =entry->location; } else { *array++="Name"; *array ="Location"; } return 0; } // Player Address Book list display hook static struct Hook PAB_display_hook = { {NULL, NULL}, (void *)PAB_display_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ // Player Address Book list compare function __saveds LONG PAB_compare_function (__reg ("a0") struct Hook *hook, __reg ("a2") struct PAB_Entry *entry1, __reg ("a1") struct PAB_Entry *entry2) { return(strcmp(entry2->name, entry1->name)); } // Player Address Book list compare hook static struct Hook PAB_compare_hook = { {NULL, NULL}, (void *)PAB_compare_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void menu_save_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") ULONG *data) { APTR playerlist=(APTR)*data++; APTR netport=(APTR)*data++; APTR netname=(APTR)*data; struct TagItem frsavetags[] = { ASLFR_TitleText, (ULONG)"Save a prefs file...", ASLFR_DoSaveMode, TRUE, ASLFR_InitialHeight, (WORD)300, TAG_DONE }; struct FileRequester *fr; // ASL file requester fr=(struct FileRequester *)MUI_AllocAslRequest(ASL_FileRequest, frsavetags); if (!(MUI_AslRequest(fr, NULL))) { MUI_FreeAslRequest(fr); } else { savesettings(fr->fr_File, playerlist, netport, netname); MUI_FreeAslRequest(fr); } } static struct Hook menu_save_hook = { {NULL, NULL}, (void *)menu_save_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void menu_savedefault_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") ULONG *data) { APTR playerlist=(APTR)*data++; APTR netport=(APTR)*data++; APTR netname=(APTR)*data; savesettings("default.prefs", playerlist, netport, netname); } static struct Hook menu_savedefault_hook = { {NULL, NULL}, (void *)menu_savedefault_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void menu_load_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR app=(APTR)*data++; APTR playerlist=(APTR)*data++; APTR poplist1=(APTR)*data++; APTR poplist2=(APTR)*data++; APTR netport=(APTR)*data++; APTR netname=(APTR)*data; struct TagItem frloadtags[] = { ASLFR_TitleText, (ULONG)"Load a prefs file...", ASLFR_InitialHeight, (WORD)300, TAG_DONE }; struct FileRequester *fr; // ASL file requester fr=(struct FileRequester *)MUI_AllocAslRequest(ASL_FileRequest, frloadtags); if (!(MUI_AslRequest(fr, NULL))) { MUI_FreeAslRequest(fr); } else { // Copy network data from prefs file, if it exists if (loadsettings(fr->fr_File)) { // Clear the list objects DoMethod(playerlist, MUIM_List_Clear); DoMethod(poplist1, MUIM_List_Clear); DoMethod(poplist2, MUIM_List_Clear); // Copy the player data DoMethod(playerlist, MUIM_List_Insert, loaded_info, -1, MUIV_List_Insert_Sorted); DoMethod(poplist1, MUIM_List_Insert, loaded_info, -1, MUIV_List_Insert_Sorted); DoMethod(poplist2, MUIM_List_Insert, loaded_info, -1, MUIV_List_Insert_Sorted); // Copy the network data set(netport, MUIA_String_Contents, networkinfo.port); set(netname, MUIA_String_Contents, networkinfo.username); } else problem_window(app, "Error", "Unable to load preferences file"); MUI_FreeAslRequest(fr); } } static struct Hook menu_load_hook = { {NULL, NULL}, (void *)menu_load_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void delete_player_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR playerlist=(APTR)*data++; APTR poplist1=(APTR)*data++; APTR poplist2=(APTR)*data; LONG pos; get(playerlist, MUIA_List_Active, &pos); if (pos!=MUIV_List_Active_Off) { DoMethod(playerlist, MUIM_List_Remove, pos); DoMethod(poplist1, MUIM_List_Remove, pos); DoMethod(poplist2, MUIM_List_Remove, pos); } } static struct Hook delete_player_hook = { {NULL, NULL}, (void *)delete_player_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void menu_aboutmui_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR aboutmuiwin=(APTR)*data++; APTR mainwindow=(APTR)*data++; APTR app=(APTR)*data; if (!aboutmuiwin) { aboutmuiwin = AboutmuiObject, MUIA_Window_RefWindow, mainwindow, MUIA_Aboutmui_Application, app, End; } if (aboutmuiwin) set(aboutmuiwin,MUIA_Window_Open,TRUE); else DisplayBeep(0); } static struct Hook menu_aboutmui_hook = { {NULL, NULL}, (void *)menu_aboutmui_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void popchoice_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR poplist=(APTR)*data++; APTR name=(APTR)*data++; APTR pop=(APTR)*data; struct PAB_Entry *tempentryptr; // get entry name DoMethod(poplist, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &tempentryptr); // copy entry name to name string gadget set(name, MUIA_String_Contents, tempentryptr->name); // close PopListview DoMethod(pop, MUIM_Popstring_Close, TRUE); } static struct Hook popchoice_hook = { {NULL, NULL}, (void *)popchoice_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void existing_player_edit_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR settingswin=(APTR)*data++; APTR playerlist=(APTR)*data++; APTR pew_name=(APTR)*data++; APTR pew_location=(APTR)*data++; APTR pew_cycle=(APTR)*data++; APTR playereditwin=(APTR)*data; struct PAB_Entry *tempentryptr; // Put settings window to sleep set(settingswin, MUIA_Window_Sleep, TRUE); // Get the details of the item the user double clicked on DoMethod(playerlist, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &tempentryptr); // Copy them over to the existing details edit window set(pew_name, MUIA_String_Contents, tempentryptr->name); if (strcmp(tempentryptr->location, cycle_location_strings[0])==0) { set(pew_cycle, MUIA_Cycle_Active, 0); set(pew_location, MUIA_String_Contents, ""); set(pew_location, MUIA_Disabled, TRUE); } else { set(pew_cycle, MUIA_Cycle_Active, 1); set(pew_location, MUIA_String_Contents, tempentryptr->location); } // Open the existing details editor window set(playereditwin, MUIA_Window_Open, TRUE); } static struct Hook existing_player_edit_hook = { {NULL, NULL}, (void *)existing_player_edit_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void reset_values_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR playerlist=(APTR)*data++; APTR pew_name=(APTR)*data++; APTR pew_location=(APTR)*data++; APTR pew_cycle=(APTR)*data; struct PAB_Entry *tempentryptr; // Get the details of the item the user double clicked on DoMethod(playerlist, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &tempentryptr); set(pew_name, MUIA_String_Contents, tempentryptr->name); if (strcmp(tempentryptr->location, cycle_location_strings[0])==0) set(pew_cycle, MUIA_Cycle_Active, 0); else { set(pew_cycle, MUIA_Cycle_Active, 1); set(pew_location, MUIA_String_Contents, tempentryptr->location); } } static struct Hook reset_values_hook = { {NULL, NULL}, (void *)reset_values_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void add_player_ok_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { UBYTE *temppool=(UBYTE *)*data++; APTR piw_name=(APTR)*data++; APTR piw_location=(APTR)*data++; APTR piw_cycle=(APTR)*data++; APTR playerlist=(APTR)*data++; APTR poplist1=(APTR)*data++; APTR poplist2=(APTR)*data++; APTR playerinputwin=(APTR)*data++; APTR settingswin=(APTR)*data; LONG cyclestate; struct PAB_Entry *tempentry; // For space to hold struct PAB_Entry ->name and ->location pointers // (only the pointers!! - not the space for the strings!) tempentry=AllocPooled(temppool, sizeof(struct PAB_Entry)); // get new name and location strings get(piw_name, MUIA_String_Contents, &tempentry->name); get(piw_cycle, MUIA_Cycle_Active, &cyclestate); switch (cyclestate) { case 0: tempentry->location=AllocPooled(temppool, NAME_LEN); strcpy(tempentry->location, cycle_location_strings[0]); // copy them to the main player list and poplists if (tempentry->name[0]!=0) { DoMethod(playerlist, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist1, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist2, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); } FreePooled(temppool, tempentry->location, NAME_LEN); break; case 1: get(piw_location, MUIA_String_Contents, &tempentry->location); // copy them to the main player list and poplists if (tempentry->name[0]!=0 && tempentry->location[0]!=0) { DoMethod(playerlist, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist1, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist2, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); } break; } // close the input window and awaken the settings window set(playerinputwin, MUIA_Window_Open, FALSE); set(settingswin, MUIA_Window_Sleep, FALSE); FreePooled(temppool, tempentry, sizeof(struct PAB_Entry)); } static struct Hook add_player_ok_hook = { {NULL, NULL}, (void *)add_player_ok_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void commit_changes_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { UBYTE *temppool=(UBYTE *)*data++; APTR playerlist=(APTR)*data++; APTR poplist1=(APTR)*data++; APTR poplist2=(APTR)*data++; APTR pew_name=(APTR)*data++; APTR pew_location=(APTR)*data++; APTR pew_cycle=(APTR)*data++; APTR playereditwin=(APTR)*data++; APTR settingswin=(APTR)*data; LONG selectedpos, cyclestate; struct PAB_Entry *tempentry; // For space to hold struct PAB_Entry ->name and ->location pointers // (only the pointers!! - not the space for the strings!) tempentry=AllocPooled(temppool, sizeof(struct PAB_Entry)); // Remove current entry from list get(playerlist, MUIA_List_Active, &selectedpos); if (selectedpos!=MUIV_List_Active_Off) { DoMethod(playerlist, MUIM_List_Remove, selectedpos); DoMethod(poplist1, MUIM_List_Remove, selectedpos); DoMethod(poplist2, MUIM_List_Remove, selectedpos); } // Get new values from string gadgets get(pew_name, MUIA_String_Contents, &tempentry->name); get(pew_cycle, MUIA_Cycle_Active, &cyclestate); switch (cyclestate) { case 0: tempentry->location=AllocPooled(temppool, NAME_LEN); strcpy(tempentry->location, cycle_location_strings[0]); // copy them to the main player list and poplists if (tempentry->name[0]!=0) { DoMethod(playerlist, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist1, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist2, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); } FreePooled(temppool, tempentry->location, NAME_LEN); break; case 1: get(pew_location, MUIA_String_Contents, &tempentry->location); // copy them to the main player list and poplists if (tempentry->name[0]!=0 && tempentry->location[0]!=0) { DoMethod(playerlist, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist1, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); DoMethod(poplist2, MUIM_List_InsertSingle, tempentry, MUIV_List_Insert_Sorted); } break; } // close the edit window and awaken the settings window set(playereditwin, MUIA_Window_Open, FALSE); set(settingswin, MUIA_Window_Sleep, FALSE); FreePooled(temppool, tempentry, sizeof(struct PAB_Entry)); } static struct Hook commit_changes_hook = { {NULL, NULL}, (void *)commit_changes_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void winner_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR winning_player=(APTR)*data++; APTR winnerwin=(APTR)*data++; APTR name1=(APTR)*data++; APTR name2=(APTR)*data++; APTR winnertext=(APTR)*data++; APTR board=(APTR)*data++; APTR mainwindow=(APTR)*data; char *playername; char formattedname[40], i; for (i=0; i<40; i++) formattedname[i]=0; strcpy(formattedname, MUIX_C); set(board, MUIA_Gameboard_Inputactive, FALSE); set(mainwindow, MUIA_Window_Sleep, TRUE); if (winning_player==red_player) get(name1, MUIA_String_Contents, &playername); else get(name2, MUIA_String_Contents, &playername); strcat(formattedname, playername); set(winnertext, MUIA_Text_Contents, formattedname); set(winnerwin, MUIA_Window_Open, TRUE); } static struct Hook winner_hook = { {NULL, NULL}, (void *)winner_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ __saveds void problem_function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR app=(APTR)*data++; char *windowtitle=(APTR)*data++; char *errmsg=(APTR)*data; problem_window(app, windowtitle, errmsg); } static struct Hook problem_hook = { {NULL, NULL}, (void *)problem_function, NULL, NULL }; /***********************************/ /***********************************/ /***********************************/ /* __saveds void _function (__reg ("a0") struct Hook *hook, __reg ("a2") Object *obj, __reg ("a1") APTR *data) { APTR =(APTR)*data++; APTR =(APTR)*data++; APTR =(APTR)*data; } static struct Hook _hook = { {NULL, NULL}, (void *)_function, NULL, NULL }; */ /***********************************/ /***********************************/ /***********************************/ int main (int argc, char **argv) { if (AslBase=OpenLibrary("asl.library", 37L)) { if (IFFParseBase=OpenLibrary("iffparse.library", 0L)) { if (MUIMasterBase=OpenLibrary(MUIMASTER_NAME, MUIMASTER_VMIN)) { // Make custom class struct MUI_CustomClass *gameboardmcc; if (gameboardmcc=MUI_CreateCustomClass(NULL, MUIC_Bodychunk, NULL, sizeof(struct gameboarddata), (APTR)gameboardDispatcher)) { // Create memory pools if (prefspool=(UBYTE *)CreatePool(MEMF_FAST, 2000, 2000)) { UBYTE *temppool; if (temppool=(UBYTE *)CreatePool(MEMF_FAST, 2000, 2000)) { connect4(gameboardmcc, temppool); DeletePool(temppool); } DeletePool(prefspool); } MUI_DeleteCustomClass(gameboardmcc); } CloseLibrary(MUIMasterBase); } CloseLibrary(IFFParseBase); } CloseLibrary(AslBase); } return 0; } /***********************************/ /***********************************/ /***********************************/ void connect4 (struct MUI_CustomClass *gameboardmcc, UBYTE *temppool) { APTR app, // main application pointer mainwindow, // the main window board, // game board name1, name2, // the two competitors pop1, pop2, // buttons to access known player list poplistview1, // pointer to first PopListview poplistview2, // pointer to second PopListview poplist1, // pointer to first PopList poplist2, // pointer to second PopList redlamp, // red lamp for the red player yellowlamp, // yellow lamp for the yellow player startbutton, // starts a game lagometer, // network lag indicator strip, // menu strip aboutc4win, // pointer to Project=>About=>Connect 4 window ac4w_ok, // OK button in Project=>About=>Connect 4 window aboutmuiwin=0, // pointer to Project=>About=>MUI window settingswin, // pointer to game settings window netacceptcycle, // cycle gadget to set which game requests to accept netport, // network port string netname, // network user name addbutton, // add player button - opens player input window deletebutton, // delete player button clearbutton, // clear list button playerlistview, // listview for player list playerlist, // this list is used to control the data playerinputwin, // pointer player details input window piw_name, // player name string - default="" piw_location, // player location string - default="" piw_cycle, // player location cycle gadget piw_okbutton, // OK button piw_cancelbutton, // Cancel button playereditwin, // player edit window pew_name, // player name string pew_location, // player location string pew_cycle, // player location cycle gadget pew_okbutton, // OK button pew_cancelbutton, // Cancel button pew_resetbutton, // Reset button - resets to pre-edit value winnerwin, // Winner's window winw_ok, // OK button in Winner's window winnertext, // the name of the winner gametiedwin, // Window displayed when neither player wins gtw_ok; // OK button UBYTE *gb_body; ULONG gb_width, gb_height, gb_colourdepth, gb_compression; ULONG *gb_colours; struct DiskObject *myicon=NULL; if (loadiff("PROGDIR:gfx/gameboard", &gb_width, &gb_height, &gb_colourdepth, &gb_compression, &gb_body, &gb_colours)) { // Create the MUI application app = ApplicationObject, MUIA_Application_Title , "Connect 4", MUIA_Application_Version , "$VER: Connect 4 v0.2 (23.10.00)", MUIA_Application_Copyright , "©2000, Giles Burdett", MUIA_Application_Author , "Giles Burdett", MUIA_Application_Description, "Connect 4 game with network play", MUIA_Application_Base , "CONNECT4", #include "window/mainwindow.c" #include "window/aboutc4win.c" #include "window/settingswin.c" #include "window/playerinputwin.c" #include "window/playereditwin.c" #include "window/winnerwin.c" #include "window/gametiedwin.c" End; if (app) { if (myicon=GetDiskObject("PROGDIR:Connect4")); set(app, MUIA_Application_DiskObject, myicon); if (loadsettings("default.prefs")) { // Clear the list objects DoMethod(playerlist, MUIM_List_Clear); DoMethod(poplist1, MUIM_List_Clear); DoMethod(poplist2, MUIM_List_Clear); // Copy the player data DoMethod(playerlist, MUIM_List_Insert, loaded_info, -1, MUIV_List_Insert_Sorted); DoMethod(poplist1, MUIM_List_Insert, loaded_info, -1, MUIV_List_Insert_Sorted); DoMethod(poplist2, MUIM_List_Insert, loaded_info, -1, MUIV_List_Insert_Sorted); // Copy the network data set(netport, MUIA_String_Contents, networkinfo.port); set(netname, MUIA_String_Contents, networkinfo.username); } /***************** ** Main window *****************/ // Enable main close gadget DoMethod(mainwindow, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, app, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit); // Enable Project=>Quit DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_QUIT, app, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit); // Enable Project=>About=>MUI (opens MUI's inbuilt "About MUI" window) DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_ABOUTMUI, app, 5, MUIM_CallHook, &menu_aboutmui_hook, aboutmuiwin, mainwindow, app); // Enable Project=>Iconify DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_ICONIFY, app, 3, MUIM_Set, MUIA_Application_Iconified, TRUE); // Enable Settings=>MUI DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_SETMUI, app, 2, MUIM_Application_OpenConfigWindow, 0); // Enable Settings=>Load DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_SETLOAD, app, 7, MUIM_CallHook, &menu_load_hook, app, playerlist, poplist1, poplist2, netport, netname); // Enable Settings=>Save DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_SETSAVE, app, 5, MUIM_CallHook, &menu_save_hook, playerlist, netport, netname); // Enable Settings=>Save as default DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_SETDEFAULT, app, 5, MUIM_CallHook, &menu_savedefault_hook, playerlist, netport, netname); // Detect name selection from poplists with double click DoMethod(poplistview1, MUIM_Notify, MUIA_Listview_DoubleClick, TRUE, app, 5, MUIM_CallHook, &popchoice_hook, poplist1, name1, pop1); DoMethod(poplistview2, MUIM_Notify, MUIA_Listview_DoubleClick, TRUE, app, 5, MUIM_CallHook, &popchoice_hook, poplist2, name2, pop2); // Make lamps indicate red player's turn DoMethod(board, MUIM_Notify, MUIA_Gameboard_Currentplayer, red_player, redlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0xFFFFFFFF); DoMethod(board, MUIM_Notify, MUIA_Gameboard_Currentplayer, red_player, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0L); DoMethod(board, MUIM_Notify, MUIA_Gameboard_Currentplayer, red_player, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Green, 0L); // Make lamps indicate yellow player's turn DoMethod(board, MUIM_Notify, MUIA_Gameboard_Currentplayer, yellow_player, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0xFFFFFFFF); DoMethod(board, MUIM_Notify, MUIA_Gameboard_Currentplayer, yellow_player, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Green, 0xFFFFFFFF); DoMethod(board, MUIM_Notify, MUIA_Gameboard_Currentplayer, yellow_player, redlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0L); // Start button in main window DoMethod(startbutton, MUIM_Notify, MUIA_Pressed, FALSE, redlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0xFFFFFFFF); DoMethod(startbutton, MUIM_Notify, MUIA_Pressed, FALSE, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0L); DoMethod(startbutton, MUIM_Notify, MUIA_Pressed, FALSE, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Green, 0L); DoMethod(startbutton, MUIM_Notify, MUIA_Pressed, FALSE, board, 3, MUIM_Set, MUIA_Gameboard_Inputactive, TRUE); DoMethod(startbutton, MUIM_Notify, MUIA_Pressed, FALSE, startbutton, 3, MUIM_Set, MUIA_Disabled, TRUE); /************************* ** Winner's window *************************/ DoMethod(board, MUIM_Notify, MUIA_Gameboard_Winner, MUIV_EveryTime, app, 9, MUIM_CallHook, &winner_hook, MUIV_TriggerValue, winnerwin, name1, name2, winnertext, board, mainwindow); DoMethod(winw_ok, MUIM_Notify, MUIA_Pressed, FALSE, winnerwin, 3, MUIM_Set, MUIA_Window_Open, FALSE); DoMethod(winw_ok, MUIM_Notify, MUIA_Pressed, FALSE, mainwindow, 3, MUIM_Set, MUIA_Window_Sleep, FALSE); DoMethod(winw_ok, MUIM_Notify, MUIA_Pressed, FALSE, startbutton, 3, MUIM_Set, MUIA_Disabled, FALSE); DoMethod(winw_ok, MUIM_Notify, MUIA_Pressed, FALSE, redlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0xFFFFFFFF); DoMethod(winw_ok, MUIM_Notify, MUIA_Pressed, FALSE, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0xFFFFFFFF); DoMethod(winw_ok, MUIM_Notify, MUIA_Pressed, FALSE, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Green, 0xFFFFFFFF); DoMethod(winw_ok, MUIM_Notify, MUIA_Pressed, FALSE, board, 3, MUIM_Set, MUIA_Gameboard_Restart, TRUE); /**************************** ** Game tied window ****************************/ DoMethod(board, MUIM_Notify, MUIA_Gameboard_Tiegame, MUIV_EveryTime, gametiedwin, 3, MUIM_Set, MUIA_Window_Open, TRUE); DoMethod(board, MUIM_Notify, MUIA_Gameboard_Tiegame, MUIV_EveryTime, mainwindow, 3, MUIM_Set, MUIA_Window_Sleep, TRUE); DoMethod(gtw_ok, MUIM_Notify, MUIA_Pressed, FALSE, gametiedwin, 3, MUIM_Set, MUIA_Window_Open, FALSE); DoMethod(gtw_ok, MUIM_Notify, MUIA_Pressed, FALSE, mainwindow, 3, MUIM_Set, MUIA_Window_Sleep, FALSE); DoMethod(gtw_ok, MUIM_Notify, MUIA_Pressed, FALSE, startbutton, 3, MUIM_Set, MUIA_Disabled, FALSE); DoMethod(gtw_ok, MUIM_Notify, MUIA_Pressed, FALSE, redlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0xFFFFFFFF); DoMethod(gtw_ok, MUIM_Notify, MUIA_Pressed, FALSE, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Red, 0xFFFFFFFF); DoMethod(gtw_ok, MUIM_Notify, MUIA_Pressed, FALSE, yellowlamp, 3, MUIM_Set, MUIA_Lamp_Green, 0xFFFFFFFF); DoMethod(gtw_ok, MUIM_Notify, MUIA_Pressed, FALSE, board, 3, MUIM_Set, MUIA_Gameboard_Restart, TRUE); /****************************** ** About=>Connect 4 window ******************************/ // Enable Project=>About=>Connect 4... DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_CONNECT4, aboutc4win, 3, MUIM_Set, MUIA_Window_Open, TRUE); // ...and disable the main window DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_CONNECT4, mainwindow, 3, MUIM_Set, MUIA_Window_Sleep, TRUE); // Enable OK button on About Connect 4 window... DoMethod(ac4w_ok, MUIM_Notify, MUIA_Pressed, FALSE, aboutc4win, 3, MUIM_Set, MUIA_Window_Open, FALSE); // ...and awaken the main window when close gadget used DoMethod(ac4w_ok, MUIM_Notify, MUIA_Pressed, FALSE, mainwindow, 3, MUIM_Set, MUIA_Window_Sleep, FALSE); /********************************* ** Connect 4 settings window *********************************/ // Enable Settings=>Connect 4... DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_SETC4, settingswin, 3, MUIM_Set, MUIA_Window_Open, TRUE); // ...and disable the main window DoMethod(app, MUIM_Notify, MUIA_Application_MenuAction, MEN_SETC4, mainwindow, 3, MUIM_Set, MUIA_Window_Sleep, TRUE); // Enable close gadget on Connect 4 Settings window... DoMethod(settingswin, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, settingswin, 3, MUIM_Set, MUIA_Window_Open, FALSE); // ...and awaken the main window when close gadget used DoMethod(settingswin, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, mainwindow, 3, MUIM_Set, MUIA_Window_Sleep, FALSE); /**************************************************** ** Player address book new player details window ****************************************************/ // Display the player details window when selected from add button DoMethod(addbutton, MUIM_Notify, MUIA_Pressed, FALSE, playerinputwin, 3, MUIM_Set, MUIA_Window_Open, TRUE); // ...and disable the main window DoMethod(addbutton, MUIM_Notify, MUIA_Pressed, FALSE, settingswin, 3, MUIM_Set, MUIA_Window_Sleep, TRUE); // Set the name, cycle and location gadgets to default values DoMethod(addbutton, MUIM_Notify, MUIA_Pressed, FALSE, piw_name, 3, MUIM_Set, MUIA_String_Contents, ""); DoMethod(addbutton, MUIM_Notify, MUIA_Pressed, FALSE, piw_cycle, 3, MUIM_Set, MUIA_Cycle_Active, 0 /*Local*/); DoMethod(addbutton, MUIM_Notify, MUIA_Pressed, FALSE, piw_location, 3, MUIM_Set, MUIA_String_Contents, ""); // Disable the piw_location string because piw_cycle is set to Local DoMethod(addbutton, MUIM_Notify, MUIA_Pressed, FALSE, piw_location, 3, MUIM_Set, MUIA_Disabled, TRUE); // When piw_cycle is Remote, enable piw_location string gadget DoMethod(piw_cycle, MUIM_Notify, MUIA_Cycle_Active, 1 /*Remote*/, piw_location, 3, MUIM_Set, MUIA_Disabled, FALSE); // When piw_cycle is Local, disable piw_location string gadget DoMethod(piw_cycle, MUIM_Notify, MUIA_Cycle_Active, 0 /*Local*/, piw_location, 3, MUIM_Set, MUIA_Disabled, TRUE); // Enable the clear list button... DoMethod(clearbutton, MUIM_Notify, MUIA_Pressed, FALSE, playerlist, 1, MUIM_List_Clear); // ...and propagate the clear command to the poplists DoMethod(clearbutton, MUIM_Notify, MUIA_Pressed, FALSE, poplist1, 1, MUIM_List_Clear); DoMethod(clearbutton, MUIM_Notify, MUIA_Pressed, FALSE, poplist2, 1, MUIM_List_Clear); // Enable Delete button... DoMethod(deletebutton, MUIM_Notify, MUIA_Pressed, FALSE, app, 5, MUIM_CallHook, &delete_player_hook, playerlist, poplist1, poplist2); // Enable PIW Cancel button... DoMethod(piw_cancelbutton, MUIM_Notify, MUIA_Pressed, FALSE, playerinputwin, 3, MUIM_Set, MUIA_Window_Open, FALSE); // ...and awaken the settings window when cancel button used DoMethod(piw_cancelbutton, MUIM_Notify, MUIA_Pressed, FALSE, settingswin, 3, MUIM_Set, MUIA_Window_Sleep, FALSE); // Enable PIW OK button... DoMethod(piw_okbutton, MUIM_Notify, MUIA_Pressed, FALSE, app, 11, MUIM_CallHook, &add_player_ok_hook, temppool, piw_name, piw_location, piw_cycle, playerlist, poplist1, poplist2, playerinputwin, settingswin); // Enable double click editing in the player list view DoMethod(playerlistview, MUIM_Notify, MUIA_Listview_DoubleClick, TRUE, app, 8, MUIM_CallHook, &existing_player_edit_hook, settingswin, playerlist, pew_name, pew_location, pew_cycle, playereditwin); /************************************ ** Existing details edit window ************************************/ // When piw_cycle is Remote, enable piw_location string gadget DoMethod(pew_cycle, MUIM_Notify, MUIA_Cycle_Active, 1 /*Remote*/, pew_location, 3, MUIM_Set, MUIA_Disabled, FALSE); // When piw_cycle is Local, disable piw_location string gadget DoMethod(pew_cycle, MUIM_Notify, MUIA_Cycle_Active, 0 /*Local*/, pew_location, 3, MUIM_Set, MUIA_Disabled, TRUE); // Enable OK button DoMethod(pew_okbutton, MUIM_Notify, MUIA_Pressed, FALSE, app, 11, MUIM_CallHook, &commit_changes_hook, temppool, playerlist, poplist1, poplist2, pew_name, pew_location, pew_cycle, playereditwin, settingswin); // Enable Reset button DoMethod(pew_resetbutton, MUIM_Notify, MUIA_Pressed, FALSE, app, 6, MUIM_CallHook, &reset_values_hook, playerlist, pew_name, pew_location, pew_cycle); // Enable Cancel button (close the edit window and awaken the settings window) DoMethod(pew_cancelbutton, MUIM_Notify, MUIA_Pressed, FALSE, playereditwin, 3, MUIM_Set, MUIA_Window_Open, FALSE); DoMethod(pew_cancelbutton, MUIM_Notify, MUIA_Pressed, FALSE, settingswin, 3, MUIM_Set, MUIA_Window_Sleep, FALSE); /**************************** ** Network settings panel ****************************/ DoMethod(netacceptcycle, MUIM_Notify, MUIA_Cycle_Active, MUIV_EveryTime, app, 5, MUIM_CallHook, &problem_hook, app, "Apologies", "This setting has not been implemented yet"); // This displays the GUI we have created set(mainwindow, MUIA_Window_Open, TRUE); // Main loop { ULONG sigs = 0; while (DoMethod(app, MUIM_Application_NewInput, &sigs)!=MUIV_Application_ReturnID_Quit) { if (sigs) { sigs = Wait(sigs | SIGBREAKF_CTRL_C); if (sigs & SIGBREAKF_CTRL_C) break; } } } /* This hides the GUI before we remove it from the system */ set(mainwindow, MUIA_Window_Open, FALSE); if (myicon) FreeDiskObject(myicon); MUI_DisposeObject(app); } free(gb_body); free(gb_colours); } } /***********************************/ /***********************************/ /***********************************/ BOOL loadsettings(char *filename) { BPTR fp_in; LONG filelength; UBYTE *prefsfile, *prefsfilerover; char fileheader[]={19, 31, 30, 30, 21, 19, 36, 4}; // ASCII values of each char in "CONNECT4" minus 48 // Attempt to load the user prefs (player and network details) if (fp_in=Open (filename, MODE_OLDFILE)) { Seek (fp_in, 0, OFFSET_END); filelength=Seek (fp_in, 0, OFFSET_BEGINNING); prefsfile=(UBYTE *)malloc(filelength); // reserve space in memory // for user prefs data FRead (fp_in, prefsfile, 1, filelength); Close (fp_in); prefsfilerover=prefsfile; DeletePool(prefspool); if (prefspool=(UBYTE *)CreatePool(MEMF_FAST, 2000, 2000)) { if (filelength>8) { if (*prefsfilerover==fileheader[0]) { prefsfilerover++; if (*prefsfilerover==fileheader[1]) { prefsfilerover++; if (*prefsfilerover==fileheader[2]) { prefsfilerover++; if (*prefsfilerover==fileheader[3]) { prefsfilerover++; if (*prefsfilerover==fileheader[4]) { prefsfilerover++; if (*prefsfilerover==fileheader[5]) { prefsfilerover++; if (*prefsfilerover==fileheader[6]) { prefsfilerover++; if (*prefsfilerover==fileheader[7]) { char i=0; prefsfilerover++; while (*prefsfilerover!=1) { loaded_info[i]=AllocPooled(prefspool, sizeof(struct PAB_Entry)); loaded_info[i]->name=AllocPooled(prefspool, NAME_LEN); loaded_info[i]->location=AllocPooled(prefspool, LOCATION_LEN); strcpy (loaded_info[i]->name, prefsfilerover); prefsfilerover+=strlen(prefsfilerover)+1; strcpy (loaded_info[i]->location, prefsfilerover); prefsfilerover+=strlen(prefsfilerover)+1; i++; } loaded_info[i]=NULL; prefsfilerover++; // skip the section seperator strcpy (networkinfo.port, prefsfilerover); prefsfilerover+=strlen(prefsfilerover)+1; strcpy (networkinfo.username, prefsfilerover); free (prefsfile); // don't need the raw data anymore return TRUE; } } } } } } } } } // If we get this far it is not a Connect 4 preferences file } free (prefsfile); } return FALSE; // Prefs file not found } /***********************************/ /***********************************/ /***********************************/ void savesettings (char *filename, APTR playerlist, APTR netport, APTR netname) { BPTR fp_out; char fileheader[]={19, 31, 30, 30, 21, 19, 36, 4}; // ASCII values of each char in "CONNECT4" minus 48 char section_separator[]={1}; char *stringptr; struct PAB_Entry *tempentryptr; if (fp_out=Open(filename, MODE_NEWFILE)) { Write(fp_out, fileheader, 8); // Write weird encoding of "CONNECT4" as file header // Get player details from the playerlist object { char i; for (i=0;;i++) { DoMethod(playerlist, MUIM_List_GetEntry, i, &tempentryptr); if (!tempentryptr) break; FPuts(fp_out, tempentryptr->name); FPutC(fp_out, 0); FPuts(fp_out, tempentryptr->location); FPutC(fp_out, 0); } } Flush(fp_out); // Because we're moving from buffered to unbuffered I/O Write(fp_out, section_separator, 1); // Get the network details from the netport and netname objects get(netport, MUIA_String_Contents, &stringptr); FPuts(fp_out, stringptr); FPutC(fp_out, 0); get(netname, MUIA_String_Contents, &stringptr); FPuts(fp_out, stringptr); FPutC(fp_out, 0); Close(fp_out); } } /***********************************/ /***********************************/ /***********************************/ void problem_window (APTR app, char *windowtitle, char *errmsg) { enum {okpressed=500}; APTR problemwin=0, okbutton; char formattederrmsg[100], i; for (i=0; i<100; i++) formattederrmsg[i]=0; strcpy(formattederrmsg, MUIX_C); strcat(formattederrmsg, errmsg); problemwin = WindowObject, MUIA_Window_Title, windowtitle, MUIA_Window_ScreenTitle, "Connect 4", MUIA_Window_CloseGadget, FALSE, WindowContents, VGroup, MUIA_Background, MUII_SHINEBACK, Child, TextObject, MUIA_Frame, MUIV_Frame_Text, MUIA_Background, MUII_TextBack, MUIA_Text_Contents, formattederrmsg, End, Child, HGroup, Child, RectangleObject, End, Child, okbutton = TextObject, MUIA_Text_Contents, "OK", MUIA_Text_SetMax, TRUE, MUIA_Frame, MUIV_Frame_Button, MUIA_InputMode, MUIV_InputMode_RelVerify, MUIA_Background, MUII_ButtonBack, End, Child, RectangleObject, End, End, End, End; if (problemwin) { DoMethod(app, OM_ADDMEMBER, problemwin); DoMethod(okbutton, MUIM_Notify, MUIA_Pressed, FALSE, app, 2, MUIM_Application_ReturnID, okpressed); set(problemwin, MUIA_Window_Open, TRUE); { ULONG sigs = 0; while (DoMethod(app, MUIM_Application_NewInput, &sigs)!=okpressed) { if (sigs) sigs = Wait(sigs); } } set(problemwin, MUIA_Window_Open, FALSE); DoMethod(app, OM_REMMEMBER, problemwin); MUI_DisposeObject(problemwin); } }