| 1 | ;; Copyright 1995 Crack dot Com, All Rights reserved |
|---|
| 2 | ;; See licensing information for more details on usage rights |
|---|
| 3 | ;;(setf player1 'joystick) |
|---|
| 4 | |
|---|
| 5 | |
|---|
| 6 | ;; note : this function is called by the game when it collects input from |
|---|
| 7 | ;; the local player (the machine you are playing on in net games) |
|---|
| 8 | ;; because it is only executed locally it should not change any global varible |
|---|
| 9 | ;; Also the rest of the game should not use any input gathering routines such as |
|---|
| 10 | ;; joy_stat & key_presed. |
|---|
| 11 | |
|---|
| 12 | ;; The returned input from this routine is passed on to the server where it is |
|---|
| 13 | ;; distributed to other clients. |
|---|
| 14 | ;; The format for return is '(xv yv B1 B2 B3 mx my) |
|---|
| 15 | |
|---|
| 16 | ;; xv = movement left right (-1=left, 0=none, 1=right) |
|---|
| 17 | ;; yv = movement up and down (-1=up, 0=none, 1=right) |
|---|
| 18 | ;; B1 = using special power (T or nil) |
|---|
| 19 | ;; B2 = firing button (T or nil) |
|---|
| 20 | ;; B3 = toggle to weapons (-1 toggle weapons to the left, 0=no toggle, 1 toggle to the right) |
|---|
| 21 | ;; mx = mouse x position on the screen |
|---|
| 22 | ;; my = mouse y position on the screen |
|---|
| 23 | |
|---|
| 24 | ;; other possible key names for get_key_code include : |
|---|
| 25 | ;; "Up_Arrow","Down_Arrow","Left_Arrow","Right_Arrow", |
|---|
| 26 | ;; "Left_Ctrl","Right_Ctrl","Left_Alt","Right_Alt", |
|---|
| 27 | ;; "Left_Shift","Right_Shift","Caps_Lock","Num_Lock", |
|---|
| 28 | ;; "Home","End","Del","F1","F2","F3","F4","F5","F6", |
|---|
| 29 | ;; "F7","F8","F9","F10","Insert" |
|---|
| 30 | ;; "a", "b", "c", ... |
|---|
| 31 | ;; though not all of these keys will work on all operating systems |
|---|
| 32 | |
|---|
| 33 | |
|---|
| 34 | ;; note : at this current time weapon toggle input is ignored and |
|---|
| 35 | ;; CTRL & INS are used... sorry :) These have to be event based, |
|---|
| 36 | ;; not polled so no key pressed are missed. |
|---|
| 37 | |
|---|
| 38 | (setq left-key (get_key_code "left_arrow")) |
|---|
| 39 | (setq right-key (get_key_code "right_arrow")) |
|---|
| 40 | (setq up-key (get_key_code "up_arrow")) |
|---|
| 41 | (setq down-key (get_key_code "down_arrow")) |
|---|
| 42 | (setq weapon-left-key (get_key_code "right_ctrl")) |
|---|
| 43 | (setq weapon-right-key (get_key_code "insert")) |
|---|
| 44 | |
|---|
| 45 | (setq key-shiftr (get_key_code "right_shift")) |
|---|
| 46 | (setq key-end (get_key_code "end")) |
|---|
| 47 | |
|---|
| 48 | (setq key-a (get_key_code "a")) |
|---|
| 49 | (setq key-b (get_key_code "b")) |
|---|
| 50 | (setq key-c (get_key_code "c")) |
|---|
| 51 | (setq key-d (get_key_code "d")) |
|---|
| 52 | (setq key-e (get_key_code "e")) |
|---|
| 53 | (setq key-f (get_key_code "f")) |
|---|
| 54 | (setq key-g (get_key_code "g")) |
|---|
| 55 | (setq key-h (get_key_code "h")) |
|---|
| 56 | (setq key-i (get_key_code "i")) |
|---|
| 57 | (setq key-j (get_key_code "j")) |
|---|
| 58 | (setq key-k (get_key_code "k")) |
|---|
| 59 | (setq key-l (get_key_code "l")) |
|---|
| 60 | (setq key-m (get_key_code "m")) |
|---|
| 61 | (setq key-n (get_key_code "n")) |
|---|
| 62 | (setq key-o (get_key_code "o")) |
|---|
| 63 | (setq key-p (get_key_code "p")) |
|---|
| 64 | (setq key-q (get_key_code "q")) |
|---|
| 65 | (setq key-r (get_key_code "r")) |
|---|
| 66 | (setq key-s (get_key_code "s")) |
|---|
| 67 | (setq key-t (get_key_code "t")) |
|---|
| 68 | (setq key-u (get_key_code "u")) |
|---|
| 69 | (setq key-v (get_key_code "v")) |
|---|
| 70 | (setq key-w (get_key_code "w")) |
|---|
| 71 | (setq key-x (get_key_code "x")) |
|---|
| 72 | (setq key-y (get_key_code "y")) |
|---|
| 73 | (setq key-z (get_key_code "z")) |
|---|
| 74 | |
|---|
| 75 | (setq dray_has_fired 1) |
|---|
| 76 | (setq godmode 0) |
|---|
| 77 | (setq enemytarget 0) |
|---|
| 78 | (setq noclip 0) |
|---|
| 79 | |
|---|
| 80 | (defun get_local_input () |
|---|
| 81 | (if (eq godmode 1) (progn |
|---|
| 82 | (with_object (bg) (set_hp 100)) |
|---|
| 83 | (if (or (eq (with_object (bg) (state)) flinch_up)(eq (with_object (bg) (state)) flinch_down)) (with_object (bg) (set_state stopped))) |
|---|
| 84 | )) |
|---|
| 85 | (if (eq noclip 1) (progn |
|---|
| 86 | (with_object (bg) (set_gravity 0)) |
|---|
| 87 | (if (local_key_pressed up-key) (with_object (bg) (set_y (- (y) run_top_speed)))) |
|---|
| 88 | (if (local_key_pressed down-key) (with_object (bg) (set_y (+ (y) run_top_speed)))) |
|---|
| 89 | (if (local_key_pressed left-key) (with_object (bg) (set_x (- (x) run_top_speed)))) |
|---|
| 90 | (if (local_key_pressed right-key) (with_object (bg) (set_x (+ (x) run_top_speed)))) |
|---|
| 91 | (with_object (bg) (set_gravity 0)) |
|---|
| 92 | )) |
|---|
| 93 | (if (and (eq (mod (game_tick) 15) 0) (eq dray_has_fired 1) ) (setq dray_has_fired 0)) |
|---|
| 94 | (if (local_key_pressed key-shiftr) (save_game (concatenate 'string "save" (digstr (get_save_slot) 4) ".spe"))) |
|---|
| 95 | (if (and (eq (third (mouse_stat)) 1) (with_object (bg) (eq (current_weapon_type) 7)) ) |
|---|
| 96 | (if (and (eq dray_has_fired 0) (<= (ammo_total 7) 1) (not (or (<= (with_object (bg) (hp)) 0) |
|---|
| 97 | (eq (with_object (bg) (state)) dieing) |
|---|
| 98 | (eq (with_object (bg) (state)) dead) |
|---|
| 99 | (eq (with_object (bg) (state)) flinch_up) |
|---|
| 100 | (eq (with_object (bg) (state)) flinch_down) |
|---|
| 101 | (eq (with_object (bg) (state)) climbing) |
|---|
| 102 | (eq (with_object (bg) (state)) climb_off) |
|---|
| 103 | (eq (with_object (bg) (state)) climb_on) ))) |
|---|
| 104 | (progn |
|---|
| 105 | (setq dray_has_fired 1) |
|---|
| 106 | (play_sound DEATH_RAY_SND 127 (x) (y)) |
|---|
| 107 | (with_object (bg) (add_object DEATH_RAY (x) (- (y) (/(picture_height)2)) )) |
|---|
| 108 | (with_object (bg) (add_ammo 7 -1)) |
|---|
| 109 | ) |
|---|
| 110 | )) |
|---|
| 111 | |
|---|
| 112 | (let ((mstat (mouse_stat))) |
|---|
| 113 | (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0)) ;; xv |
|---|
| 114 | (if (local_key_pressed up-key) -1 (if (local_key_pressed down-key) 1 0)) ;; yv |
|---|
| 115 | (eq (fourth mstat) 1) ;; special button |
|---|
| 116 | (eq (third mstat) 1) ;; fire button |
|---|
| 117 | (if (or (eq (fifth mstat) 1) |
|---|
| 118 | (local_key_pressed weapon-left-key)) -1 ;; weapon toggle |
|---|
| 119 | (if (local_key_pressed weapon-right-key) 1 0)) |
|---|
| 120 | (first mstat) ;; mx |
|---|
| 121 | (second mstat) ;; my |
|---|
| 122 | ))) |
|---|
| 123 | |
|---|
