Loading...   



opendir my $dir, "quests" or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;
$inc = 0;
foreach my $val (@files){
	if($val=~/\./i){ next; }
	# print $val . "\n";
	opendir my $dir2, "quests/" . $val or next;
	my @files2 = readdir $dir2;
	closedir $dir;
	
	foreach my $val2 (@files2){
		if($val2=~/.pl/i){
			# print $val2 . "\n";
			
			$file = "quests/" . $val . "/" . $val2;
			$file =~s/\.\///g;
			
			open my $info, $file or next; 
		
			$listen = 0;
			$sub_event = "";
		
			$total_result = "";
			while( my $line = <$info>)  {
				if($line=~/sub EVENT_/i){
					$sub_event = $line;
					$sub_event =~s/\n//g;
					$listen = 1;
					# print $line;
				}
				if($listen == 1){
					if($line=~/\$itemcount|\$hasitem|\$oncursor/i){
						print $sub_event . " :: " . $file . "\n";
					}
				}
			} 
			close $info;
		}
	}
}

opendir my $dir, "plugins" or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;
$inc = 0;
foreach my $val (@files){
	# if($val=~/\./i){ next; }
	if($val=~/\.pl/i){ } else { next; }
	print $val . "\n";
	
	open my $info, "plugins/" . $val or next; 
		
	$listen = 0;
	$sub_event = "";

	$total_result = "";
	while( my $line = <$info>)  {
		if($line=~/sub/i){
			$sub_event = $line;
			$sub_event =~s/\n//g;
			$listen = 1;
			# print $line;
		}
		if($listen == 1){
			if($line=~/\$itemcount|\$hasitem|\$oncursor/i){
				print $sub_event . " :: " . $val . "\n";
			}
		}
	} 
	close $info;
}



opendir my $dir, "quests" or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;
$inc = 0;
foreach my $val (@files){
	if($val=~/\./i){ next; }
	# print $val . "\n";
	opendir my $dir2, "quests/" . $val or next;
	my @files2 = readdir $dir2;
	closedir $dir;
	
	foreach my $val2 (@files2){
			if($val2=~/.pl/i){
				# print $val2 . "\n";
				
				$file = "quests/" . $val . "/" . $val2;
				$file =~s/\.\///g;
				
				open my $info, $file or next; 
			
				$listen = 0;
				$sub_event = "";
			
				$total_result = "";
				while( my $line = <$info>)  {
					if($line=~/sub EVENT_/i){
						$sub_event = $line;
						$sub_event =~s/\n//g;
						$listen = 1;
						# print $line;
					}
					if($listen == 1){
						if($line=~/\$itemcount|\$hasitem|\$oncursor/i){
							print $sub_event . " :: " . $file . "\n";
						}
					}
				} 
				close $info;
		}
	}
}

Raw Paste Data