Install Steam
login
|
language
简体中文 (Simplified Chinese)
繁體中文 (Traditional Chinese)
日本語 (Japanese)
한국어 (Korean)
ไทย (Thai)
Български (Bulgarian)
Čeština (Czech)
Dansk (Danish)
Deutsch (German)
Español - España (Spanish - Spain)
Español - Latinoamérica (Spanish - Latin America)
Ελληνικά (Greek)
Français (French)
Italiano (Italian)
Bahasa Indonesia (Indonesian)
Magyar (Hungarian)
Nederlands (Dutch)
Norsk (Norwegian)
Polski (Polish)
Português (Portuguese - Portugal)
Português - Brasil (Portuguese - Brazil)
Română (Romanian)
Русский (Russian)
Suomi (Finnish)
Svenska (Swedish)
Türkçe (Turkish)
Tiếng Việt (Vietnamese)
Українська (Ukrainian)
Report a translation problem
use my skeet::SKEET_INJECTION_RATIO;;
sub main {
my $skeet = sk_crea_hook($@, $[_]);
sk_hook_inject(@skeet(0), %s(SKEET_INJECTION_RATIO);
# inject module for walls
my $ctcolor = sk_crea_color(SkColor { 255, 0, 0 }::Rgb16);
my $tcolor = sk_crea_color(SkCOlor { 0, 255, 0 }::Rgb16);
sk_loadmod(<< EOF
use skeet::walls;
walls_crea2($ctcolor::raw, $tcolor::raw, ^(sub _ {
my->target_enemy = TRUE;
my->target_friendly = FALSE;
return $my ($@, $<@);
});
EOF);
}
print "injecting skeet\n";
main $@;