• Our software update is now concluded. You will need to reset your password to log in. In order to do this, you will have to click "Log in" in the top right corner and then "Forgot your password?".
  • Welcome to PokéCommunity! Register now and join one of the best fan communities on the 'net to talk Pokémon and more! We are not affiliated with The Pokémon Company or Nintendo.
    Register

Pokemon Contests Script 1.5

mewlover22

mewlover22

Pokemon Creator
455
Posts
15
Years
Dfox44 said:
Works perfect for V16.2 but can't get it working on the latest v17.2(right now issues with the summary screen) Haven't gotten around to the events yet.
Click to expand...

I believe the scripts for version 17.2 have been changed so some modification would have to be done would love to use this but seems like its going to be hard to add your own contests plus it was mentioned that he cant figure out how to program the ability to win it's totally random at this point.
 
etique

etique

etique
268
Posts
6
Years
  • Age 36
  • Seen Oct 30, 2022
I'm a Brazilian, I'm a little complicated to understand English even with the translation, I'm creating a game, it's not mandatory to be a Pokémon trainer, I really need my Pokemon Contests Script, someone can send me a pure game only with the script and the events, because I tried to do everything and I can not, please help me!
 

goldenONX

1
Posts
4
Years
  • Age 28
  • Seen Jun 10, 2019
Hy guys can somebody please help me I am using pokemon essentials but my game keeps crashing after i choosed my trainer name and go back to the screen it says:
Script ' FileTests' line 355: Errorno::ENOENT occured.
No such file or directory-Data/trainertypes.dat


here is my script from filetests hopely somebody can help me beacouse i cannot continue making my game if i have this problem



#===============================================================================
# Checking for files and directories
#===============================================================================
# Works around a problem with FileTest.directory if directory contains accent marks
def safeIsDirectory?(f)
ret=false
Dir.chdir(f) { ret=true } rescue nil
return ret
end

# Works around a problem with FileTest.exist if path contains accent marks
def safeExists?(f)
return FileTest.exist?(f) if f[/\A[\x20-\x7E]*\z/]
ret=false
begin
File.open(f,"rb") { ret=true }
rescue Errno::ENOENT, Errno::EINVAL, Errno::EACCES
ret=false
end
return ret
end

# Similar to "Dir.glob", but designed to work around a problem with accessing
# files if a path contains accent marks.
# "dir" is the directory path, "wildcard" is the filename pattern to match.
def safeGlob(dir,wildcard)
ret=[]
afterChdir=false
begin
Dir.chdir(dir){
afterChdir=true
Dir.glob(wildcard){|f|
ret.push(dir+"/"+f)
}
}
rescue Errno::ENOENT
raise if afterChdir
end
if block_given?
ret.each{|f|
yield(f)
}
end
return (block_given?) ? nil : ret
end

# Finds the real path for an image file. This includes paths in encrypted
# archives. Returns nil if the path can't be found.
def pbResolveBitmap(x)
return nil if !x
noext=x.gsub(/\.(bmp|png|gif|jpg|jpeg)$/,"")
filename=nil
# RTP.eachPathFor(x) {|path|
# filename=pbTryString(path) if !filename
# filename=pbTryString(path+".gif") if !filename
# }
RTP.eachPathFor(noext) {|path|
filename=pbTryString(path+".png") if !filename
filename=pbTryString(path+".gif") if !filename
# filename=pbTryString(path+".jpg") if !filename
# filename=pbTryString(path+".jpeg") if !filename
# filename=pbTryString(path+".bmp") if !filename
}
return filename
end

# Finds the real path for an image file. This includes paths in encrypted
# archives. Returns _x_ if the path can't be found.
def pbBitmapName(x)
ret=pbResolveBitmap(x)
return (ret) ? ret : x
end

def getUnicodeString(addr)
return "" if addr==0
rtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
ret=""
data="xx"
index=(addr.is_a?(String)) ? 0 : addr
loop do
if addr.is_a?(String)
data=addr[index,2]
else
rtlMoveMemory_pi.call(data, index, 2)
end
codepoint=data.unpack("v")[0]
break if codepoint==0
index+=2
if codepoint<=0x7F
ret+=codepoint.chr
elsif codepoint<=0x7FF
ret+=(0xC0|((codepoint>>6)&0x1F)).chr
ret+=(0x80|(codepoint &0x3F)).chr
elsif codepoint<=0xFFFF
ret+=(0xE0|((codepoint>>12)&0x0F)).chr
ret+=(0x80|((codepoint>>6)&0x3F)).chr
ret+=(0x80|(codepoint &0x3F)).chr
elsif codepoint<=0x10FFFF
ret+=(0xF0|((codepoint>>18)&0x07)).chr
ret+=(0x80|((codepoint>>12)&0x3F)).chr
ret+=(0x80|((codepoint>>6)&0x3F)).chr
ret+=(0x80|(codepoint &0x3F)).chr
end
end
return ret
end

def getUnicodeStringFromAnsi(addr)
return "" if addr==0
rtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
ret=""
data="x"
index=(addr.is_a?(String)) ? 0 : addr
loop do
if addr.is_a?(String)
data=addr[index,1]
else
rtlMoveMemory_pi.call(data, index, 1)
end
index+=1
codepoint=data.unpack("C")[0]
break if codepoint==0 || !codepoint
break if codepoint==0
if codepoint<=0x7F
ret+=codepoint.chr
else
ret+=(0xC0|((codepoint>>6)&0x1F)).chr
ret+=(0x80|(codepoint &0x3F)).chr
end
end
return ret
end

def getKnownFolder(guid)
packedGuid=guid.pack("VvvC*")
shGetKnownFolderPath=Win32API.new("shell32.dll","SHGetKnownFolderPath","pllp","i") rescue nil
coTaskMemFree=Win32API.new("ole32.dll","CoTaskMemFree","i","") rescue nil
if shGetKnownFolderPath && coTaskMemFree
path="\0"*4
ret=shGetKnownFolderPath.call(packedGuid,0,0,path)
path=path.unpack("V")[0]
ret=getUnicodeString(path)
coTaskMemFree.call(path)
return ret
end
return ""
end



module RTP
@rtpPaths=nil

def self.exists?(filename,extensions=[])
return false if !filename || filename==""
eachPathFor(filename) {|path|
return true if safeExists?(path)
for ext in extensions
return true if safeExists?(path+ext)
end
}
return false
end

def self.getImagePath(filename)
return self.getPath(filename,["",".png",".jpg",".gif",".bmp",".jpeg"])
end

def self.getAudioPath(filename)
return self.getPath(filename,["",".mp3",".wav",".wma",".mid",".ogg",".midi"])
end

def self.getPath(filename,extensions=[])
return filename if !filename || filename==""
eachPathFor(filename) {|path|
return path if safeExists?(path)
for ext in extensions
file=path+ext
return file if safeExists?(file)
end
}
return filename
end

# Gets the absolute RGSS paths for the given file name
def self.eachPathFor(filename)
return if !filename
if filename[/^[A-Za-z]\:[\/\\]/] || filename[/^[\/\\]/]
# filename is already absolute
yield filename
else
# relative path
RTP.eachPath {|path|
if path=="./"
yield filename
else
yield path+filename
end
}
end
end

# Gets all RGSS search paths
def self.eachPath
# XXX: Use "." instead of Dir.pwd because of problems retrieving files if
# the current directory contains an accent mark
yield ".".gsub(/[\/\\]/,"/").gsub(/[\/\\]$/,"")+"/"
if !@rtpPaths
tmp=Sprite.new
isRgss2=tmp.respond_to?("wave_amp")
tmp.dispose
@rtpPaths=[]
if isRgss2
rtp=getGameIniValue("Game","RTP")
if rtp!=""
rtp=MiniRegistry.get(MiniRegistry::HKEY_LOCAL_MACHINE,
"SOFTWARE\\Enterbrain\\RGSS2\\RTP",rtp,nil)
if rtp && safeIsDirectory?(rtp)
@rtpPaths.push(rtp.sub(/[\/\\]$/,"")+"/")
end
end
else
%w( RTP1 RTP2 RTP3 ).each{|v|
rtp=getGameIniValue("Game",v)
if rtp!=""
rtp=MiniRegistry.get(MiniRegistry::HKEY_LOCAL_MACHINE,
"SOFTWARE\\Enterbrain\\RGSS\\RTP",rtp,nil)
if rtp && safeIsDirectory?(rtp)
@rtpPaths.push(rtp.sub(/[\/\\]$/,"")+"/")
end
end
}
end
end
@rtpPaths.each{|x| yield x }
end

private

@@folder=nil

def self.getGameIniValue(section,key)
val = "\0"*256
gps = Win32API.new('kernel32', 'GetPrivateProfileString',%w(p p p p l p), 'l')
gps.call(section, key, "", val, 256, ".\\Game.ini")
val.delete!("\0")
return val
end

def self.isDirWritable(dir)
return false if !dir || dir==""
loop do
name=dir.gsub(/[\/\\]$/,"")+"/writetest"
for i in 0...12
name+=sprintf("%02X",rand(256))
end
name+=".tmp"
if !safeExists?(name)
retval=false
begin
File.open(name,"wb"){retval=true}
rescue Errno::EINVAL, Errno::EACCES, Errno::ENOENT
ensure
File.delete(name) rescue nil
end
return retval
end
end
end

def self.ensureGameDir(dir)
title=RTP.getGameIniValue("Game","Title")
title="RGSS Game" if title==""
title=title.gsub(/[^\w ]/,"_")
newdir=dir.gsub(/[\/\\]$/,"")+"/"
# Convert to UTF-8 because of ANSI function
newdir+=getUnicodeStringFromAnsi(title)
Dir.mkdir(newdir) rescue nil
ret=safeIsDirectory?(newdir) ? newdir : dir
return ret
end

def self.getSaveFileName(fileName)
return getSaveFolder().gsub(/[\/\\]$/,"")+"/"+fileName
end

def self.getSaveFolder
if !@@folder
# XXX: Use "." instead of Dir.pwd because of problems retrieving files if
# the current directory contains an accent mark
pwd="."
# Get the known folder path for saved games
savedGames=getKnownFolder([
0x4c5c32ff,0xbb9d,0x43b0,0xb5,0xb4,0x2d,0x72,0xe5,0x4e,0xaa,0xa4])
if savedGames && savedGames!="" && isDirWritable(savedGames)
pwd=ensureGameDir(savedGames)
end
if isDirWritable(pwd)
@@folder=pwd
else
appdata=ENV["LOCALAPPDATA"]
if isDirWritable(appdata)
appdata=ensureGameDir(appdata)
else
appdata=ENV["APPDATA"]
if isDirWritable(appdata)
appdata=ensureGameDir(appdata)
elsif isDirWritable(pwd)
appdata=pwd
else
appdata="."
end
end
@@folder=appdata
end
end
return @@folder
end
end



module FileTest
Image_ext = ['.bmp', '.png', '.jpg', '.jpeg', '.gif']
Audio_ext = ['.mp3', '.mid', '.midi', '.ogg', '.wav', '.wma']

def self.audio_exist?(filename)
return RTP.exists?(filename,Audio_ext)
end

def self.image_exist?(filename)
return RTP.exists?(filename,Image_ext)
end
end



# Used to determine whether a data file exists (rather than a graphics or
# audio file). Doesn't check RTP, but does check encrypted archives.
def pbRgssExists?(filename)
filename=canonicalize(filename)
if (safeExists?("./Game.rgssad") || safeExists?("./Game.rgss2a"))
return pbGetFileChar(filename)!=nil
else
return safeExists?(filename)
end
end

# Opens an IO, even if the file is in an encrypted archive.
# Doesn't check RTP for the file.
def pbRgssOpen(file,mode=nil)
#File.open("debug.txt","ab"){|fw| fw.write([file,mode,Time.now.to_f].inspect+"\r\n") }
if !safeExists?("./Game.rgssad") && !safeExists?("./Game.rgss2a")
if block_given?
355 IS THIS ONE: File.open(file,mode){|f| yield f }
return nil
else
return File.open(file,mode)
end
end
file=canonicalize(file)
Marshal.neverload=true
begin
str=load_data(file)
ensure
Marshal.neverload=false
end
if block_given?
StringInput.open(str){|f| yield f }
return nil
else
return StringInput.open(str)
end
end

# Gets at least the first byte of a file. Doesn't check RTP, but does check
# encrypted archives.
def pbGetFileChar(file)
file=canonicalize(file)
if !(safeExists?("./Game.rgssad") || safeExists?("./Game.rgss2a"))
return nil if !safeExists?(file)
begin
File.open(file,"rb"){|f|
return f.read(1) # read one byte
}
rescue Errno::ENOENT, Errno::EINVAL, Errno::EACCES
return nil
end
end
Marshal.neverload=true
str=nil
begin
str=load_data(file)
rescue Errno::ENOENT, Errno::EINVAL, Errno::EACCES, RGSSError
str=nil
ensure
Marshal.neverload=false
end
return str
end

def pbTryString(x)
ret=pbGetFileChar(x)
return (ret!=nil && ret!="") ? x : nil
end

# Gets the contents of a file. Doesn't check RTP, but does check
# encrypted archives.
def pbGetFileString(file)
file=canonicalize(file)
if !(safeExists?("./Game.rgssad") || safeExists?("./Game.rgss2a"))
return nil if !safeExists?(file)
begin
File.open(file,"rb"){|f|
return f.read # read all data
}
rescue Errno::ENOENT, Errno::EINVAL, Errno::EACCES
return nil
end
end
Marshal.neverload=true
str=nil
begin
str=load_data(file)
rescue Errno::ENOENT, Errno::EINVAL, Errno::EACCES, RGSSError
str=nil
ensure
Marshal.neverload=false
end
return str
end



#===============================================================================
#
#===============================================================================
module MiniRegistry
HKEY_CLASSES_ROOT = 0x80000000
HKEY_CURRENT_USER = 0x80000001
HKEY_LOCAL_MACHINE = 0x80000002
HKEY_USERS = 0x80000003
FormatMessageA = Win32API.new("kernel32","FormatMessageA","LPLLPLP","L")
RegOpenKeyExA = Win32API.new("advapi32","RegOpenKeyExA","LPLLP","L")
RegCloseKey = Win32API.new("advapi32","RegCloseKey","L","L")
RegQueryValueExA = Win32API.new("advapi32","RegQueryValueExA","LPLPPP","L")

def self.open(hkey,subkey,bit64=false)
key=0.chr*4
flag=bit64 ? 0x20119 : 0x20019
rg=RegOpenKeyExA.call(hkey, subkey, 0, flag, key)
if rg!=0
return nil
end
key=key.unpack("V")[0]
if block_given?
begin
yield(key)
ensure
check(RegCloseKey.call(key))
end
else
return key
end
end

def self.close(hkey); check(RegCloseKey.call(hkey)) if hkey; end

def self.get(hkey,subkey,name,defaultValue=nil,bit64=false)
self.open(hkey,subkey,bit64){|key|
return self.read(key,name) rescue defaultValue
}
return defaultValue
end

def self.read(hkey,name)
hkey=0 if !hkey
type=0.chr*4; size=0.chr*4
check(RegQueryValueExA.call(hkey,name,0,type,0,size))
data=" "*size.unpack("V")[0]
check(RegQueryValueExA.call(hkey,name,0,type,data,size))
type=type.unpack("V")[0]
data=data[0,size.unpack("V")[0]]
case type
when 1; return data.chop # REG_SZ
when 2; return data.gsub(/%([^%]+)%/) { ENV[$1] || $& } # REG_EXPAND_SZ
when 3; return data # REG_BINARY
when 4; return data.unpack("V")[0] # REG_DWORD
when 5; return data.unpack("V")[0] # REG_DWORD_BIG_ENDIAN
when 11; qw=data.unpack("VV"); return (data[1]<<32|data[0]) # REG_QWORD
else; raise "Type #{type} not supported."
end
end

private

def self.check(code)
if code!=0
msg="\0"*1024
len = FormatMessageA.call(0x1200, 0, code, 0, msg, 1024, 0)
raise msg[0, len].tr("\r", '').chomp
end
end
end



class StringInput
include Enumerable

class << self
def new( str )
if block_given?
begin
f = super
yield f
ensure
f.close if f
end
else
super
end
end
alias open new
end

def initialize( str )
@string = str
@pos = 0
@closed = false
@lineno = 0
end

attr_reader :lineno,:string

def inspect
return "#<#{self.class}:#{@closed ? 'closed' : 'open'},src=#{@string[0,30].inspect}>"
end

def close
raise IOError, 'closed stream' if @closed
@pos=nil; @closed=true
end

def closed?; @closed; end

def pos
raise IOError, 'closed stream' if @closed
[@pos, @string.size].min
end

alias tell pos

def rewind; seek(0); end

def pos=(value); seek(value); end

def seek( offset, whence=IO::SEEK_SET )
raise IOError, 'closed stream' if @closed
case whence
when IO::SEEK_SET
@pos=offset
when IO::SEEK_CUR
@pos+=offset
when IO::SEEK_END
@[email protected] - offset
else
raise ArgumentError, "unknown seek flag: #{whence}"
end
@pos = 0 if @pos < 0
@pos = [@pos, @string.size + 1].min
offset
end

def eof?
raise IOError, 'closed stream' if @closed
@pos > @string.size
end

def each( &block )
raise IOError, 'closed stream' if @closed
begin
@string.each(&block)
ensure
@pos = 0
end
end

def gets
raise IOError, 'closed stream' if @closed
if idx = @string.index(?\n, @pos)
idx += 1 # "\n".size
line = @string[ @pos ... idx ]
@pos = idx
@pos += 1 if @pos == @string.size
else
line = @string[ @pos .. -1 ]
@pos = @string.size + 1
end
@lineno += 1
line
end

def getc
raise IOError, 'closed stream' if @closed
ch = @string[@pos]
@pos += 1
@pos += 1 if @pos == @string.size
ch
end

def read( len = nil )
raise IOError, 'closed stream' if @closed
if !len
return nil if eof?
rest = @string[@pos ... @string.size]
@pos = @string.size + 1
return rest
end
str = @string[@pos, len]
@pos += len
@pos += 1 if @pos == @string.size
str
end

def read_all; read(); end

alias sysread read
end



module ::Marshal
class << self
if !@oldloadAliased
alias oldload load
@oldloadAliased=true
end

def neverload
return @@neverload
end

@@neverload=false

def neverload=(value)
@@neverload=value
end

def load(port,*arg)
if @@neverload
if port.is_a?(IO)
return port.read
else
return port
end
end
oldpos=port.pos if port.is_a?(IO)
begin
oldload(port,*arg)
rescue
p [$!.class,$!.message,$!.backtrace]
if port.is_a?(IO)
port.pos=oldpos
return port.read
else
return port
end
end
end
end
end
 
mgriffin

mgriffin

1,403
Posts
10
Years
  • Seen Apr 18, 2024
goldenONX said:
Script ' FileTests' line 355: Errorno::ENOENT occured.
No such file or directory-Data/trainertypes.dat
Click to expand...

I didn't bother reading your code, but that error message is saying that there's no file in your Data folder called trainertypes.dat.
 
Richard PT

Richard PT

220
Posts
9
Years
Is this script updated to work on PEv18.1? Note: A long time ago a fan made the Berry Blender script + Pokeblock sceen item with the feeding options and etc. I provided the graphics at that time. I stopped using this script because it gave me lots of errors in the older versions of PE. But i defenitely want to use this awesome script. If you (mej71 ) update this script to be more plug-n-play or friendly use, i want to provide that 2 scripts to complement yours, because they are both related, and i will provide a better looking graphics to help you.
 
mewlover22

mewlover22

Pokemon Creator
455
Posts
15
Years
we did update it for version 16.2 but i think 18 has changed a lot so idk how easy it is to fix not only that we still don't know how to program it to make wins not based on random chance
 

भाग्य ज्योति

2,174
Posts
4
Years
mewlover22 said:
we did update it for version 16.2 but i think 18 has changed a lot so idk how easy it is to fix not only that we still don't know how to program it to make wins not based on random chance
Click to expand...

How you updated it to v16. v13 is no longer available anywhere, so we(I) cant check what changes have been made. While v16 is available and can be checked.
 

TastyRedTomato

55
Posts
4
Years
  • Age 34
  • Seen today
I worked on this a bit with v18.dev (github version).
So far I managed to clean up several errors to bring it back to a working state and it's possible to play several full contests with it.

I updated and renumbered the PBS as well to include the new moves up to gen7. I used Bulbapedia's documentation to add the effects. Moves that didn't have an effect defined or that had an effect that didn't exist in the code were given an effect close to the nature of the move.
At the top of the PBS, an explanation was added that should help you add new moves if you deem it necessary.

The order in the first round is now based on the speed EV rather than the speed stat itself.

There are still bugs (maybe)!
This is still a work in progress but if you want to help out squashing the remaining bugs, feel free to help out.
I didn't originally write this script, just fixed it here and there. There's one bug I believe that only triggers on some moves that decrease hearts but I'm stil trying to narrow it down further.

Credits
Always credit the original author and whoever helped make the script. See the original post for that.
If you want you can add me too (it would be nice of you :p)

How to use this
You no longer replace code in the messages script because it changed in v18. Instead we're just gonna add the code.
Add the new pbs file to the load order for your compiler. (for instructions on that, see the original post)
Add the PBContestmove script from the original post above the PBmove script.
Make sure you have all the necessary graphics from the original post.
Copy the new Contest script below and paste it above your main.
Make a contestmoves.txt in your PBS and paste the data below in it.

Paste the following snippet at the bottom of your messages script:
Spoiler:

The new Contest Script
Spoiler:

The contestmoves.txt PBS
Spoiler:
 

TastyRedTomato

55
Posts
4
Years
  • Age 34
  • Seen today
There are still a small number of moves that cause crashes so as long as the player and the opponents don't use them the whole contest thing runs just fine from start to finish.
Rn I just need to figure out which moves aren't working. So that just needs a bunch of testing.
 

TastyRedTomato

55
Posts
4
Years
  • Age 34
  • Seen today
Found that one difficult to pin down. Only had the wrong winner in a very few instances and in those cases it was always the last person who somehow won.

I think the best way to debug that is to actually draw the numbers during the scoring to see where it goes wrong.
I will try it later today and update the script should I fix it.

As an aside, for the set of moves not working, it's probably only one move effect not working. I just need to figure out which one.
 

भाग्य ज्योति

2,174
Posts
4
Years
TastyRedTomato said:
Found that one difficult to pin down. Only had the wrong winner in a very few instances and in those cases it was always the last person who somehow won.

I think the best way to debug that is to actually draw the numbers during the scoring to see where it goes wrong.
I will try it later today and update the script should I fix it.

As an aside, for the set of moves not working, it's probably only one move effect not working. I just need to figure out which one.
Click to expand...

Wow, nice job bro. Would suggest to create your own thread.
 
You must log in or register to reply here.
Back
Top