… | |
… | |
68 | use CFPlus::Macro; |
68 | use CFPlus::Macro; |
69 | |
69 | |
70 | $SIG{QUIT} = sub { Carp::cluck "QUIT" }; |
70 | $SIG{QUIT} = sub { Carp::cluck "QUIT" }; |
71 | $SIG{PIPE} = 'IGNORE'; |
71 | $SIG{PIPE} = 'IGNORE'; |
72 | |
72 | |
73 | $Event::Eval = 0; |
73 | $Event::Eval = 1; |
74 | $Event::DIED = sub { |
74 | $Event::DIED = sub { |
75 | CFPlus::fatal Carp::longmess $_[1] |
75 | CFPlus::fatal Carp::longmess $_[1] |
76 | }; |
76 | }; |
77 | |
77 | |
78 | my $MAX_FPS = 60; |
78 | my $MAX_FPS = 60; |
… | |
… | |
2158 | audio_init; |
2158 | audio_init; |
2159 | } |
2159 | } |
2160 | |
2160 | |
2161 | show_tip_of_the_day if $CFG->{show_tips}; |
2161 | show_tip_of_the_day if $CFG->{show_tips}; |
2162 | |
2162 | |
2163 | #CFPlus::Macro::quick_macro ["test"];#d# |
|
|
2164 | Event::loop; |
2163 | Event::loop; |
2165 | #CFPlus::SDL_Quit; |
2164 | #CFPlus::SDL_Quit; |
2166 | #CFPlus::_exit 0; |
2165 | #CFPlus::_exit 0; |
2167 | |
2166 | |
2168 | END { CFPlus::SDL_Quit } |
2167 | END { CFPlus::SDL_Quit } |