Forumet er oppdatert og reCAPTCHA er på plass for å redusere spam
#!/usr/bin/perluse strict;use warnings;my $fname = "plugins/WarpPlugin/warps.txt";open(my $fh, $fname) || die "$fname: $!\n";while (my $line = <$fh>) { my ($name, $x, $y, $z, $yaw, $pitch, $world) = split(/:/, $line); my $newname = $name; $newname =~ s/[^\w\.]//g; # Fjern spesialtegn print "$name => $newname\n"; next unless $newname; next if $newname eq "."; next if $newname eq ".."; my $outfile = "plugins/TelePlugin/warps/$newname.loc"; open(my $wh, ">", $outfile) || die "$outfile: $!\n"; print $wh join(":", $x, $y, $z, $yaw, $pitch, $world)."\n"; close $wh;}close $fh;
unntaket er at ops/admins nå må bruke en ny kommando "/movewarp" for å flytte en eksisterende warp. Dette for å unngå at eksisterende warps flyttes ved et uhell.
Flere av mine warps har blitt sletta også???
Sitat fra: argh99 på 19. August 2012, 16:27 pmFlere av mine warps har blitt sletta også???Oppgi navn så kan jeg sjekke [...]