Initial (manual) import

2017-01-22 20:26:44 +01:00
1 parent f39611c506
commit 895fe109de
@@ -0,0 +1,166 @@
+U0 PlayerIndirect()
+{
+  Unit *tmpu=NULL;
+  I64 i,remaining=0,msg_code,arg1,arg2;
+  F64 target_x,target_y;
+  ViewPlayerSet(cur_player);
+  for (i=0;i<UNITS_NUM;i++) {
+    tmpu=&units[cur_player][i];
+    if (tmpu->life>0 && tmpu->indirect_fire)
+      remaining++;
+  }
+  while (remaining) {
+    if (!alive_cnt[0] || !alive_cnt[1])
+      throw('GameOver',TRUE);
+    msg_code=GetMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|1<<MSG_MS_L_DOWN|1<<MSG_MS_L_UP|
+	  1<<MSG_MS_R_UP);
+    switch (msg_code) {
+      case MSG_KEY_DOWN:
+	CharDo(arg1);
+	break;
+      case MSG_MS_L_DOWN:
+	if (CursorInWin(Fs,arg1,arg2)) {
+	  arg1-=x0; arg2-=y0;
+	  CursorUpdate(Fs,arg1,arg2);
+	  if (tmpu=UnitFind(cursor_row,cursor_col)) {
+	    if (tmpu->player==enemy_player || tmpu->fired ||
+		  !tmpu->indirect_fire)
+	      tmpu=NULL;
+	    else {
+	      RowCol2XY(&fire_radius_x,&fire_radius_y,tmpu->row,tmpu->col);
+	      fire_radius=tmpu->range*2*HEX_RADIUS;
+	    }
+	  }
+	}
+	break;
+      case MSG_MS_L_UP:
+	if (CursorInWin(Fs,arg1,arg2)) {
+	  arg1-=x0; arg2-=y0;
+	  CursorUpdate(Fs,arg1,arg2);
+	  RowCol2XY(&target_x,&target_y,cursor_row,cursor_col);
+	  if (!tmpu)
+	    Beep;
+	  else {
+	    if (Sqrt(Sqr(fire_radius_x-target_x)+Sqr(fire_radius_y-target_y))>
+		  fire_radius)
+	      Beep;
+	    else {
+	      IndirectAdd(tmpu,cursor_row,cursor_col);
+	      remaining--;
+	    }
+	  }
+	}
+	tmpu=NULL;
+	fire_radius=0;
+	break;
+      case MSG_MS_R_UP:
+	if (CursorInWin(Fs,arg1,arg2))
+	  throw('PhaseOvr',TRUE);
+	break;
+    }
+  }
+  throw('PhaseOvr',TRUE);
+}
+
+U0 PlayerMove()
+{
+  Unit *tmpu=NULL;
+  I64 msg_code,arg1,arg2;
+  ViewPlayerSet(cur_player);
+  while (TRUE) {
+    if (!alive_cnt[0] || !alive_cnt[1])
+      throw('GameOver',TRUE);
+    msg_code=GetMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|1<<MSG_MS_L_DOWN|1<<MSG_MS_L_UP|
+	  1<<MSG_MS_R_UP);
+    switch (msg_code) {
+      case MSG_KEY_DOWN:
+	CharDo(arg1);
+	break;
+      case MSG_MS_L_DOWN:
+	if (CursorInWin(Fs,arg1,arg2)) {
+	  arg1-=x0; arg2-=y0;
+	  CursorUpdate(Fs,arg1,arg2);
+	  if (tmpu=UnitFind(cursor_row,cursor_col)) {
+	    if (tmpu->player==enemy_player || !tmpu->remaining_movement)
+	      tmpu=NULL;
+	  }
+	}
+	break;
+      case MSG_MS_L_UP:
+	if (CursorInWin(Fs,arg1,arg2)) {
+	  arg1-=x0; arg2-=y0;
+	  CursorUpdate(Fs,arg1,arg2);
+	  if (!tmpu)
+	    Beep;
+	  else {
+	    UnitMove(tmpu,arg1,arg2);
+	    break;
+	  }
+	}
+	tmpu=NULL;
+	break;
+      case MSG_MS_R_UP:
+	if (CursorInWin(Fs,arg1,arg2))
+	  throw('PhaseOvr',TRUE);
+	break;
+    }
+  }
+}
+
+U0 PlayerDirect()
+{
+  Unit *tmpu=NULL,*target;
+  I64 msg_code,arg1,arg2;
+  ViewPlayerSet(cur_player);
+  while (TRUE) {
+    if (!alive_cnt[0] || !alive_cnt[1])
+      throw('GameOver',TRUE);
+    msg_code=GetMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|1<<MSG_MS_L_DOWN|1<<MSG_MS_L_UP|
+	  1<<MSG_MS_R_UP);
+    switch (msg_code) {
+      case MSG_KEY_DOWN:
+	CharDo(arg1);
+	break;
+      case MSG_MS_L_DOWN:
+	if (CursorInWin(Fs,arg1,arg2)) {
+	  arg1-=x0; arg2-=y0;
+	  CursorUpdate(Fs,arg1,arg2);
+	  if (tmpu=UnitFind(cursor_row,cursor_col)) {
+	    if (tmpu->player==enemy_player || tmpu->fired ||
+		  tmpu->indirect_fire)
+	      tmpu=NULL;
+	    else {
+	      VRSetUp(cur_player);
+	      RowCol2XY(&fire_radius_x,&fire_radius_y,tmpu->row,tmpu->col);
+	      fire_radius=tmpu->range*2*HEX_RADIUS;
+	      VisRecalc(VR_ONE_FRIENDLY_UNIT,tmpu);
+	    }
+	  }
+	}
+	break;
+      case MSG_MS_L_UP:
+	if (CursorInWin(Fs,arg1,arg2)) {
+	  arg1-=x0; arg2-=y0;
+	  CursorUpdate(Fs,arg1,arg2);
+	  target=UnitFind(cursor_row,cursor_col);
+	  if (!tmpu)
+	    Beep;
+	  else {
+	    if (!target || target->player!=enemy_player ||
+		  !Bt(&target->vis,0))
+	      Beep;
+	    else
+	      UnitDirectFire(tmpu,target);
+	    VisRecalc(VR_UPDATE_FRIENDLY_UNIT,tmpu);
+	  }
+	}
+	tmpu=NULL;
+	fire_radius=0;
+	break;
+      case MSG_MS_R_UP:
+	if (CursorInWin(Fs,arg1,arg2))
+	  throw('PhaseOvr',TRUE);
+	break;
+    }
+  }
+}