home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spiele Shareware / os2games.iso / os2games / addons / gi / straight.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-11-07  |  5.2 KB  |  168 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                                                                          */
  3. /*   Main-Module   : Test-Player der ohne Einflüsse selber Richtung wählt   */
  4. /*                                                                          */
  5. /*   Version       : V1.00                                                  */
  6. /*                                                                          */
  7. /*   Date          : 11.08.93                                               */
  8. /*                                                                          */
  9. /*   Written       : RF                                                     */
  10. /*                                                                          */
  11. /*     Revision History :
  12.  
  13.     11.08.93    RF  Neu
  14.                                                                                */
  15. /*--------------------------------------------------------------------------*/
  16. #define INCL_PM
  17. #include <os2.h>
  18. #include <string.h>
  19. #include <gi.h>
  20. #include <checkbox.hpp>
  21. #include <slider.hpp>
  22.  
  23. typedef struct
  24.     {
  25.     BOOL    init;
  26.     USHORT  threshold;
  27.  
  28.     // Instance Data
  29.     char    dir[6];
  30.     } STRAIGHTCONFIG, *STRAIGHTCONFIGP;
  31.  
  32. /*--------------------------------------------------------------------------*/
  33. /*---- Globals for Config-Part ----*/
  34. HMODULE     module;
  35. HAB         hab;
  36. HWND        wid[7], but_ok, but_cancel;
  37. SLIDER      slider;
  38. STRAIGHTCONFIGP  gjc;
  39.  
  40. /*--------------------------------------------------------------------------*/
  41. extern "C" {
  42. ULONG _dllmain (ULONG termflag, HMODULE modhandle)
  43.     {
  44.     if (!termflag)  // Init...
  45.         module = modhandle;
  46.  
  47.     return (TRUE);
  48.     }
  49. }
  50. /*--------------------------------------------------------------------------*/
  51. extern "C"  {
  52. unsigned _export GetDataSize (void)
  53.     {
  54.     return (sizeof (STRAIGHTCONFIG));
  55.     }
  56. }
  57. /*--------------------------------------------------------------------------*/
  58. extern "C" {
  59. unsigned _export  InitializeDLL (char __far16 *data)
  60.     {
  61.     STRAIGHTCONFIGP  sc;
  62.  
  63.     sc = (STRAIGHTCONFIGP)data;
  64.  
  65.     if (!sc->init)           // Create New Config
  66.         {
  67.         sc->init     = TRUE;
  68.         sc->threshold = THRESHOLD;
  69.         sc->dir[0] = sc->dir[1] = sc->dir[2] =
  70.         sc->dir[3] = sc->dir[4] = sc->dir[5] = 0;
  71.         }
  72.     return (NOERR);
  73.     }
  74. }
  75. /*--------------------------------------------------------------------------*/
  76. extern "C" {
  77. unsigned _export  Name (char __far16 *target)
  78.     {
  79.     strcpy (target, "Straight Autoplayer");
  80.     return (0);
  81.     }
  82. }
  83. /*--------------------------------------------------------------------------*/
  84. MRESULT    EXPENTRY dlgproc (HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
  85.     {
  86.     int         i;
  87.  
  88.     switch (msg)
  89.         {
  90.         case WM_INITDLG:
  91.             hab=WinInitialize (0);
  92.             for (i=0; i<7; i++)
  93.                 wid[i] = WinWindowFromID (hwnd, i+100);
  94.             but_ok      = WinWindowFromID (hwnd, DID_OK);
  95.             but_cancel  = WinWindowFromID (hwnd, DID_CANCEL);
  96.             slider.Set (wid[6]);
  97.             for (i=0; i<11; i++)
  98.                 slider.SetTickSize (i, 6);
  99.             slider.SetScaleText (0, "0%");
  100.             slider.SetScaleText (5, "50%");
  101.             slider.SetScaleText (10, "100%");
  102.             slider.SetSliderPos (gjc->threshold/10);
  103.  
  104.             for (i=0; i<6; i++)
  105.                 CheckBoxSet (wid[i], gjc->dir[i]);
  106.             return (FALSE);
  107.         case WM_COMMAND:
  108.             WinDismissDlg (hwnd, SHORT1FROMMP (mp1) == DID_OK ? TRUE : FALSE);
  109.             break;
  110.         case WM_CONTROL:
  111.             i = SHORT1FROMMP (mp1);
  112.             if (i == 106 && SHORT2FROMMP (mp1) == SLN_CHANGE)
  113.                 gjc->threshold = 10*slider.QuerySliderPos();
  114.             else if (i >= 100 && i <= 105)
  115.                 gjc->dir[i-100] = CheckBoxQuery (wid[i-100]);
  116.             break;
  117.         default:
  118.             return (WinDefDlgProc (hwnd, msg, mp1, mp2));
  119.         }
  120.     return (0L);
  121.     }
  122. /*--------------------------------------------------------------------------*/
  123. extern "C" {
  124. unsigned _export  ConfigDLL (char __far16 *dd)
  125.     {
  126.     STRAIGHTCONFIG   jcold;
  127.  
  128.     gjc = (STRAIGHTCONFIGP)dd;
  129.     jcold = *gjc;
  130.  
  131.     if (WinDlgBox (HWND_DESKTOP, HWND_DESKTOP, dlgproc, module, 100, NULL) == FALSE)
  132.         *gjc = jcold;
  133.  
  134.     return (0);
  135.     }
  136. }
  137. /*--------------------------------------------------------------------------*/
  138. extern "C" {
  139. unsigned _export  Threshold (char __far16 *dd)
  140.     {
  141.     STRAIGHTCONFIGP  jc;
  142.  
  143.     jc = (STRAIGHTCONFIGP)dd;
  144.     return (jc->threshold);
  145.     }
  146. }
  147. /*--------------------------------------------------------------------------*/
  148. extern "C" {
  149. unsigned _export  Direction (char __far16 *dd, char __far16 *de)
  150.     {
  151.     STRAIGHTCONFIGP      jc;
  152.     PLAYERINFOP     pi;
  153.  
  154.     jc = (STRAIGHTCONFIGP)dd;
  155.     pi = (PLAYERINFOP)de;
  156.  
  157.     pi->dir[0] = jc->dir[0] ? jc->threshold : 0;
  158.     pi->dir[1] = jc->dir[1] ? jc->threshold : 0;
  159.     pi->dir[2] = jc->dir[2] ? jc->threshold : 0;
  160.     pi->dir[3] = jc->dir[3] ? jc->threshold : 0;
  161.     pi->dir[4] = jc->dir[4];
  162.     pi->dir[5] = jc->dir[5];
  163.     return (0);
  164.     }
  165. }
  166. /*--------------------------------------------------------------------------*/
  167.  
  168.