XXXXXX ^]V~[^ XXXXXX

By : S-lug
Mail : indist_furfrog@yahoo.co.jp
HP : http://indistfurfrog.xxxxxxxx.jp


~bVBoomshine SaigonŎgpꂽʂtʂ
̏ꏊsł悤ɂ̕łB
܂As͎Ԃ̃nhÕX|XȂ܂B

Ԉ^][hŗVԂƋCȂ\܂B


======  ======

K\X^hɂ}[J[ɓAenter vehicleL[ƈ^][hɂȂ܂B
܂Aēx}[J[ɓenter vehicleL[Ɖ܂B


====== main.scm code ======

004F: create_thread set00
004F: create_thread dru00
004E: end_thread


;--Settings--
:set00
0004: $druk =  0  ;; integer values
03BC:  $mk0 = create_sphere  28.551 -1070.731 9.482  0.70
0002: jump set01

:set01
0001: wait  0 ms
00D6: if  0
0112:   wasted_or_busted
004D: jump_if_false set01
;--Reset Drunk driving Mode--
0004: $druk =  0  ;; integer values
03FD: set_player $PLAYER handling_responsiveness  0
052C: set_player $PLAYER_CHAR drunk_visuals  0
0002: jump set01
004E: end_thread

;--Drunk driving Mode--
:dru00
0001: wait  0 ms
00D6: if  3
8112:   NOT   wasted_or_busted
80DF:   NOT   actor $PLAYER_ACTOR driving
00F6:   player $PLAYER_CHAR  0 ()near_point_on_foot 28.551 -1070.731 9.482 radius  0.70  0.70  2.0
00E1:   key_pressed  0  15
004D: jump_if_false dru00
0002: jump dru01

:dru01
0001: wait  0 ms
00D6: if  0
0038:   $druk ==  0  ;; integer values
004D: jump_if_false dru02
03FD: set_player $PLAYER handling_responsiveness  5
052C: set_player $PLAYER_CHAR drunk_visuals  255
0004: $druk =  1  ;; integer values
0001: wait  1000 ms
0002: jump dru00

:dru02
03FD: set_player $PLAYER handling_responsiveness  0
052C: set_player $PLAYER_CHAR drunk_visuals  0
0004: $druk =  0  ;; integer values
0001: wait  1000 ms
0002: jump dru00
004E: end_thread