开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
start.pl
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：3k
源码类别：

外挂编程

开发平台：

Windows_Unix

start.pl：源码内容
  1. #!/usr/bin/env perl
  2. # Win32 Perl script launcher
  3. # This file is meant to be compiled by PerlApp. It acts like a mini-Perl interpreter.
  4. #
  5. # Your script's initialization and main loop code should be placed in a function
  6. # called __start() in the main package. That function will be called by this
  7. # launcher. The reason for this is that otherwise, the perl interpreter will be
  8. # in "eval" all the time while running your script. It will break __DIE__ signal
  9. # handlers that check for the value of $^S.
  10. #
  11. # If your script is run by this launcher, the environment variable INTERPRETER is
  12. # set. Your script should call __start() manually if this environment variable is not
  13. # set.
  14. #
  15. # example script:
  16. # our $quit = 0;
  17. #
  18. # sub __start {
  19. # print "Hello world initialized.n";
  20. # while (!$quit) {
  21. # ...
  22. # }
  23. # }
  24. #
  25. # __start() unless defined $ENV{INTERPRETER};
  26. package StarterScript;
  28. BEGIN {
  29. if ($ENV{BUILDING_WX} && $^O eq 'MSWin32') {
  30. require Wx::Perl::Packager;
  31. }
  32. }
  34. use strict;
  35. use Config;
  37. if ($^O ne 'MSWin32') {
  38. # We are not on Windows, so tell the user about it
  39. print "nThis file is meant to be compiled by PerlApp.n";
  40. print "To run kore, execute openkore.pl instead.nn";
  41. exit 1;
  42. }
  45. # PerlApp 6's @INC doesn't contain '.', so add it
  46. my $hasCurrentDir;
  47. foreach (@INC) {
  48. if ($_ eq ".") {
  49. $hasCurrentDir = 1;
  50. last;
  51. }
  52. }
  53. push @INC, "." if (!$hasCurrentDir);
  55. if (0) {
  56. # Force PerlApp to include the following modules
  57. use FindBin;
  58. require base;
  59. require bytes;
  60. require lib;
  61. require integer;
  62. require warnings;
  63. require UNIVERSAL;
  64. require Exporter;
  65. require Fcntl;
  66. require Carp;
  67. require Math::Trig;
  68. require Text::Wrap;
  69. require Text::ParseWords;
  70. require Time::HiRes;
  71. require IO::Socket::INET;
  72. require Getopt::Long;
  73. require Digest::MD5;
  74. require SelfLoader;
  75. require Data::Dumper;
  76. require Win32;
  77. require Win32::Console;
  78. require Win32::Process;
  79. require XSTools;
  80. require Encode;
  81. require encoding;
  82. require Storable;
  83. require Compress::Zlib;
  84. require "unicore/lib/gc_sc/SpacePer.pl";
  85. require "unicore/lib/gc_sc/Word.pl";
  86. require "unicore/lib/gc_sc/Digit.pl";
  87. require "unicore/lib/gc_sc/Cntrl.pl";
  88. require "unicore/lib/gc_sc/ASCII.pl";
  89. require HTML::Entities;
  90. }
  93. if ($PerlApp::TOOL eq "PerlApp") {
  94. $ENV{INTERPRETER} = PerlApp::exe();
  95. if (PerlApp::exe() =~ /wxstart.exe$/i) {
  96. $ENV{OPENKORE_DEFAULT_INTERFACE} = 'Wx';
  97. }
  98. } else {
  99. print "Do not run start.pl directly! If you're using Perl then run openkore.pl instead!n";
  100. <STDIN>;
  101. exit 1;
  102. }
  104. my $file = "openkore.pl";
  105. if ($ARGV[0] eq '!') {
  106. shift;
  107. while (@ARGV) {
  108. if ($ARGV[0] =~ /^-I(.*)/) {
  109. unshift @INC, $1;
  110. } else {
  111. last;
  112. }
  113. shift;
  114. }
  115. $file = shift;
  116. }
  118. $0 = $file;
  119. FindBin::again();
  121. {
  122. package main;
  123. do $file;
  124. }
  125. if ($@) {
  126. print $@;
  127. print "nPress ENTER to exit.n";
  128. <STDIN>;
  129. exit 1;
  130. } elsif (defined $ENV{INTERPRETER}) {
  131. main::__start() if defined(&main::__start);
  132. }