004F: create_thread SNAKEWS00

:SNAKEWS00
0001: wait  100 ms
00D6: if  4
80DF:   NOT   actor $PLAYER_ACTOR driving
00E1:   key_pressed  0  6;; aim button
00E1:   key_pressed  0  14;; jump weapon
80E1:   NOT   key_pressed  0  17;; fire
80E1:   NOT   key_pressed  0  4;; action
004D: jump_if_false SNAKEWS00

:SNAKEWS01
00D6: if  0
00E1:   key_pressed  0  5;; prev weapon
004D: jump_if_false SNAKEWS02
000C: $SWSID -=  1;; integer values

:SNAKEWS02
00D6: if  0
00E1:   key_pressed  0  7;; next weapon
004D: jump_if_false SNAKEWS02B
0008: $SWSID +=  1 ;; integer values

:SNAKEWS02B
00D6: if  25
0038:   $SWSID ==  329 ;; integer values
0038:   $SWSID ==  332 ;; integer values
0038:   $SWSID ==  340 ;; integer values
0038:   $SWSID ==  345 ;; integer values
0038:   $SWSID ==  354 ;; integer values
0038:   $SWSID ==  364 ;; integer values
004D: jump_if_false SNAKEWS03
00D6: if  0
00E1:   key_pressed  0  5;; prev weapon
004D: jump_if_false SNAKEWS02C
000C: $SWSID -=  1;; integer values
0002: jump SNAKEWS03

:SNAKEWS02C
0008: $SWSID +=  1 ;; integer values

:SNAKEWS03
00D6: if  0
001A:    321 > $SWSID ;; integer values
004D: jump_if_false SNAKEWS03B
0004: $SWSID =  373 ;; integer values
0002: jump SNAKEWS10

:SNAKEWS03B
00D6: if  0
0018:   $SWSID >  373 ;; integer values
004D: jump_if_false SNAKEWS03C
0004: $SWSID =  321 ;; integer values
0002: jump SNAKEWS10

:SNAKEWS03C
00D6: if  2
0018:   $SWSID >  341 ;; integer values
8038:   NOT    $SWSID ==  371 ;; integer values
8038:   NOT    $SWSID ==  373 ;; integer values
004D: jump_if_false SNAKEWS10
0002: jump SNAKEWS11

:SNAKEWS10
0215: destroy_pickup $SWPICK1
04C4: create_coordinate @1 @2 @3 from_actor $PLAYER_ACTOR offset  0.0  2.0  0.0
0213: $SWPICK1 = create_pickup  $SWSID type  15 at  @1  @2  @3
0002: jump SNAKEWS00

:SNAKEWS11
0215: destroy_pickup $SWPICK1
04C4: create_coordinate @1 @2 @3 from_actor $PLAYER_ACTOR offset  0.0  2.0  0.0
032B: $SWPICK1 = create_weapon_pickup  $SWSID  15 ammo  20000 at @1  @2  @3
0002: jump SNAKEWS00