[Archive] Pokemon Essentials: Starter Kit for RPG Maker XP

[Wichu]

It's a bug in poccil's custom tilemap script. You could PM him and ask him to fix it.

 

[lezebulon]

Hi
I'm using an old version of the PedApp script (from this summer) and I found I bug I can't correct

After compiling the data on the editor, the pokemon and attack types are wrong.
On the pokemon summary, the type is the wrong one, and the attack type is the right one.
In battle, the move types are wrong too and the engine acts as if the pokemon types were different than what they are registered to be in pokemon.txt

I found out that it was probably a bug during the compilation of the file dexdata.dat , but I don't know how it's handled.
Can someone tell me exactly where does the compiler translate the types from pokemon.txt and put them into dexdata.dat ? Same with the types of moves.txt.
Thanks !

 

[|Maximus|]

Hmm...I was wondering, is there a way to create a script that generates a circular shadow under the charsets?

HG/SS has one because I had this huge glitch in my ds game, and it still had a shadow under it, plus the Pokemon charsets that a large have a small shadow under it.

 

[Legendaries]

I have a problem with encounters. When I try to remove redundant encounters from encounters.txt iI have an error while launching Editor

Every type is written correct. No mistakes are made.

I have to remove these encounters, because now Pokemons attack me inside a house.

 

[Legendaries]

I have a problem with tones. There is light tone of screen at midnight. I have set the same tones as my friend who has everything fine.

 

[~JV~]

I have a problem with encounters. When I try to remove redundant encounters from encounters.txt iI have an error while launching Editor

Every type is written correct. No mistakes are made.

I have to remove these encounters, because now Pokemons attack me inside a house.

I recommend avoiding editing the PBS through the notepad, the trainers.txt, for example, just doesn't work when edited in the notepad (for me at least). To remove a encounter of a map, just press Z when you're selecting it (the arrow).

Example, if you want to remove the Land encounter, just click Z while you get that option selected ;].

Also, don't double post.

 

[Linkey]

I recommend avoiding editing the PBS through the notepad, the trainers.txt, for example, just doesn't work when edited in the notepad (for me at least). To remove a encounter of a map, just press Z when you're selecting it (the arrow).

Example, if you want to remove the Land encounter, just click Z while you get that option selected ;].

Also, don't double post.

Yeah, at my desktop-pc it doesn't work, if i change any of the pbs files in notepad. If i do this at notebook, it just works fine.

 

[Legendaries]

To remove a encounter of a map, just press Z when you're selecting it (the arrow).

I discovered it just yesterday, that I can remove something by pressing Z. But I solve my problem other way. I removed whole text from ecounters.txt, then compiled data, and type only my encounters in txt file. It works fine.

I recommend avoiding editing the PBS through the notepad, the trainers.txt, for example, just doesn't work when edited in the notepad (for me at least).

Editing trainertypes in notepad is problematic too, you can do little error for example while copying BGM and it ruins everything xD. But if you want to change internal name it is necessary to use notepad.

Also, don't double post.

Sorry, I didn't want to wait with my problem until anyone reply, so I wanted to write new post to refresh the thread. Sorry again.

 

[thepsynergist]

Bug Catching Contest

Ok, so I've had the same question that has yet to be answered like 5 pages ago, and no one has bothered to respond. So, I will ask my question again, and hopefully someone will be nice enough to help me.

I am using the most recent version of Poccil's Starter Kit and I can't get the Bug Catching Contest to work. The script has no syntax errors that the game is picking up and the game acts as if everything is fine, yet the Bug Catching contest is never apparent. The timer doesn't show up, the contest pokemon don't show up and both the ingame menu and the battle menu don't change at all. It's as if there is no code there. Here is the script that I am using and some screenie's as well. Please help me. I really want this feature and I hope someone can help.

class BugContestState
  attr_accessor :ballcount
  attr_accessor :decision
  attr_accessor :steps
  attr_accessor :lastPokemon
  attr_reader :timer
  ContestantNames=[
       _INTL("BUG CATCHER BENNY"),
       _INTL("COOLTRAINER NICK"),
       _INTL("COLLECTOR KIPP"),
       _INTL("YOUNGSTER SAMUEL"),
       _INTL("BUG CATCHER DON"),
       _INTL("PICNICKER CINDY"),
       _INTL("CAMPER BARRY"),
       _INTL("BUG CATCHER JOSH")
  ]
  TimerSeconds=1200
  def initialize
     clear
     @lastContest=nil
  end
  def pbContestHeld?
     return false if !@lastContest
     return Time.new.to_i-@lastContest<86400
  end
  def expired?
    return false if !undecided?
    curtime=@timer+TimerSeconds*Graphics.frame_rate
    curtime=[curtime-Graphics.frame_count,0].max
    return (curtime<=0)
  end
  def clear
     @ballcount=0
     @ended=false
     @inProgress=false
     @decision=0
     @encounterMap=0
     @lastPokemon=nil
     @otherparty=[]
     @contestants=[]
     @places=[]
     @start=nil
     @reception=[]
  end
  def undecided?
     return (@inProgress && @decision==0)
  end
  def decided?
     return (@inProgress && @decision!=0) || @ended
  end
  def pbSetPokemon(chosenpoke)
     @chosenPokemon=chosenpoke
  end
   # Reception map is handled separately from contest map
   # since the reception map can be outdoors, with its own
   # grassy patches.
  def pbSetReception(*arg)
     @reception=[]
     for i in arg
        @reception.push(i)
     end
  end
  def pbOffLimits?(map)
     return false if map==@contestMap
     for i in @reception
       return false if map==i
     end
     return true
  end
  def pbSetJudgingPoint(startMap,startX,startY)
     @start=[startMap,startX,startY,6]
  end
  def pbSetContestMap(map)
     @contestMap=map
  end
  def pbJudge
     judgearray=[]
     if @lastPokemon
       judgearray.push([-1,@lastPokemon.species,
          pbBugContestScore(@lastPokemon)])
     end
     @contestants=[]
     [5,ContestantNames.length].min.times do
      loop do
       value=rand(ContestantNames.length)
       if [email protected]?{|i| i==value }
        @contestants.push(value)
        break
       end
      end
     end
     enctype=EncounterTypes::BugContest
     if !$PokemonEncounters.pbMapHasEncounter?(@contestMap,enctype)
       enctype=EncounterTypes::Land
     end
     for cont in @contestants
        enc=$PokemonEncounters.pbMapEncounter(@contestMap,enctype)
        if !enc
           raise _INTL("No encounters, so can't judge contest")
        end
        pokemon=PokeBattle_Pokemon.new(enc[0],enc[1],$Trainer)
        score=pbBugContestScore(pokemon)
        judgearray.push([cont,pokemon.species,score])
     end
     if judgearray.length<3
        raise _INTL("Too few bug catching contestants")
     end
     judgearray.sort!{|a,b| b[2]<=>a[2]} # sort by score in descending order
     @places.push(judgearray[0])
     @places.push(judgearray[1])
     @places.push(judgearray[2])
  end
  def pbGetPlaceInfo(place)
     cont=@places[place][0]
     if cont<0
       $game_variables[1]=$Trainer.name
     else
       $game_variables[1]=ContestantNames[cont]
     end
     $game_variables[2]=PBSpecies.getName(@places[place][1])
     $game_variables[3]=@places[place][2]
  end
  def pbClearIfEnded
     if !@inProgress
        clear unless @start && @start[0]==$game_map.map_id
     end
  end
  def pbStartJudging
    @decision=1
    pbJudge
    if $scene.is_a?(Scene_Map)
      pbFadeOutIn(99999){
         $game_temp.player_transferring = true
         $game_temp.player_new_map_id = @start[0]
         $game_temp.player_new_x = @start[1]
         $game_temp.player_new_y = @start[2]
         $game_temp.player_new_direction = @start[3]
         $MapFactory.setup(@start[0])
         $scene.transfer_player
      }
    end
  end
  def pbIsContestant?(i)
     return @contestants.any?{|item|  i==item }
  end
  def pbStart(ballcount)
     @ballcount=ballcount
     @inProgress=true
     @otherparty=[]
     @lastPokemon=nil
     @lastContest=nil
     @timer=Graphics.frame_count
     @places=[]
     chosenpkmn=$Trainer.party[@chosenPokemon]
     for i in 0...$Trainer.party.length
      if i!=@chosenPokemon
       @otherparty.push($Trainer.party[i])
      end
     end
     @contestants=[]
     [5,ContestantNames.length].min.times do
      loop do
       value=rand(ContestantNames.length)
       if [email protected]?{|i| i==value }
        @contestants.push(value)
        break
       end
      end
     end
     $Trainer.party=[chosenpkmn]
     @decision=0
     @ended=false
   end
  def place
    for i in 0...3
      return i if @places[i][0]<0
    end
    return 3
  end
  def pbEnd(interrupted=false)
     return if !@inProgress
     for poke in @otherparty
       $Trainer.party.push(poke)
     end
     if !interrupted 
        if @lastPokemon
          pbNicknameAndStore(@lastPokemon)
        end
        @ended=true
     else
        @ended=false
     end
     @lastPokemon=nil
     @otherparty=[]
     @reception=[]
     @ballcount=0
     @inProgress=false
     @decision=0
     @lastContest=Time.now.to_i
     $game_map.need_refresh=true
  end
end
def pbBugContestScore(pokemon)
  a=0
  a+=16 if (pokemon.iv[2]&1)>0
  a+=8 if (pokemon.iv[1]&1)>0
  a+=4 if (pokemon.iv[4]&1)>0
  a+=1 if (pokemon.iv[3]&1)>0
  score=(pokemon.totalhp*8)
  score+=pokemon.attack
  score+=pokemon.defense
  score+=pokemon.speed
  score+=pokemon.spatk
  score+=pokemon.spdef
  score+=a+(pokemon.hp/8)+1
  return score
end
def pbBugContestState
  if !$PokemonGlobal.bugContestState
    $PokemonGlobal.bugContestState=BugContestState.new
  end
  return $PokemonGlobal.bugContestState
end
def pbInBugContest?
  return pbBugContestState.undecided?
end
def pbBugContestUndecided?
  return pbBugContestState.undecided?
end
def pbBugContestDecided?
  return pbBugContestState.decided?
end
class PokeBattle_BugContestBattle < PokeBattle_Battle
 attr_accessor :ballcount
 def initialize(*arg)
  @ballcount=0
  super(*arg)
 end
 def pbItemMenu(i)
  @ballcount-=1 if @ballcount>0
  return PBItems::SAFARIBALL
 end
 def pbCommandMenu(i)
  return @scene.pbCommandMenuEx(i,[
   _INTL("Park Balls: {1}",@ballcount),
   _INTL("FIGHT"),
   _INTL("POKéMON"),
   _INTL("BALL"),
   _INTL("RUN")
  ])
 end
 def pbStorePokemon(pokemon)
   if pbBugContestState.lastPokemon
    lastPokemon=pbBugContestState.lastPokemon
    pbDisplayPaused(_INTL("You already caught a {1}.",lastPokemon.name))
    helptext=_INTL("STOCK POKéMON:\n {1} Lv{2} MaxHP: {3}\nTHIS POKéMON:\n {4} Lv{5} MaxHP: {6}",
            lastPokemon.name,lastPokemon.level,lastPokemon.totalhp,
            pokemon.name,pokemon.level,pokemon.totalhp
    )
    @scene.pbShowHelp(helptext)
    if pbDisplayConfirm(_INTL("Switch Pokémon?"))
     pbBugContestState.lastPokemon=pokemon
     @scene.pbHideHelp
    else
     @scene.pbHideHelp
     return
    end
   else
    pbBugContestState.lastPokemon=pokemon
   end
   pbDisplay(_INTL("Caught {1}!",pokemon.name))
 end
 def pbEndOfRoundPhase
   super
   if @ballcount<=0 && @decision==0
     @decision=3
   end
 end
end
class TimerDisplay
 def initialize(start,maxtime)
  @timer=Window_AdvancedTextPokemon.newWithSize("",360,0,120,64)
  @timer.z=99999
  @total_sec=nil
  @start=start
  @maxtime=maxtime
 end
 def dispose
  @timer.dispose
 end
 def disposed?
  @timer.disposed?
 end
 def update
    curtime=[(@start+@maxtime)-Graphics.frame_count,0].max
    curtime/=Graphics.frame_rate
    if curtime != @total_sec
      # Calculate total number of seconds
      @total_sec = curtime
      # Make a string for displaying the timer
      min = @total_sec / 60
      sec = @total_sec % 60
      @timer.text = _ISPRINTF("<ac>{1:02d}:{2:02d}", min, sec)
    end
 end
end
Events.onMapChange+=proc{|sender,e|
 pbBugContestState.pbClearIfEnded
}
Events.onMapSceneChange+=proc{|sender,e|
 scene=e[0]
 mapChanged=e[1]
 if pbInBugContest? && pbBugContestState.decision==0
  scene.spriteset.addUserSprite(TimerDisplay.new(
       pbBugContestState.timer,
       BugContestState::TimerSeconds*Graphics.frame_rate))
 end
}
Events.onMapUpdate+=proc{|sender,e|
 if !$Trainer || !$PokemonGlobal || !$game_player || 
    !$game_map
  # do nothing
 elsif !$game_player.move_route_forcing &&
    !pbMapInterpreterRunning? &&
    !$game_temp.message_window_showing
  if pbBugContestState.expired?
       $game_system.se_play("endofsafari.wav")
       Kernel.pbMessage("ANNOUNCER:  Ding-dong!")
       Kernel.pbMessage("Time's up!")
       pbBugContestState.pbStartJudging
  end
 end
}
Events.onMapChanging+=proc{|sender,e|
 newmapID=e[0]
 newmap=e[1]
 if pbInBugContest?
   if pbBugContestState.pbOffLimits?(newmapID)
    # Clear bug contest if player flies/warps/teleports
    # out of the contest
    pbBugContestState.pbEnd(true)
   end
 end
}
def Kernel.pbBugContestStartOver
   for i in $Trainer.party; i.heal; end
   pbBugContestState.pbStartJudging
end
Events.onWildBattleOverride+= proc { |sender,e|
   species=e[0]
   level=e[1]
   handled=e[2]
   next if handled[0]!=nil
   next if !pbInBugContest?
   handled[0]=pbBugContestBattle(species,level)
}
def pbBugContestBattle(species,level)
    if (Input.press?(Input::CTRL) && $DEBUG) || $Trainer.pokemonCount==0
     if $Trainer.pokemonCount>0
      Kernel.pbMessage(_INTL("SKIPPING BATTLE..."))
     end
     $game_variables[variable]=1 if variable
     $PokemonGlobal.nextBattleBGM=nil
     $PokemonGlobal.nextBattleME=nil
     $PokemonGlobal.nextBattleBack=nil
     return true          
    end
    currentlevels=[]
    for i in $Trainer.party
     currentlevels.push(i.level)
    end
    genwildpoke=pbGenerateWildPokemon(species,level)
    pokerus=(genwildpoke.pokerus==1)
    scene=PokeBattle_Scene.new
    battle=PokeBattle_BugContestBattle.new(scene,$Trainer.party,[genwildpoke],$Trainer,nil)
    battle.ballcount=pbBugContestState.ballcount
    battle.internalbattle=true
    wildbgm=pbGetWildBattleBGM(species)
    playingBGS=$game_system.getPlayingBGS
    playingBGM=$game_system.getPlayingBGM
    $game_system.bgm_pause
    $game_system.bgs_pause
    restorebgm=true
    decision=0
    pbBattleAnimation(wildbgm) { 
      decision=battle.pbStartBattle
      if decision==2
       $game_system.bgm_unpause
       $game_system.bgs_unpause
       Kernel.pbBugContestStartOver
       restorebgm=false
      else
       pbEvolutionCheck(currentlevels)
       if decision==1
        for pkmn in $Trainer.party
         Kernel.pbPickup(pkmn)
        end
       end
       pbPokerusCheck if pokerus
      end
    }
    if restorebgm
     $game_system.bgm_resume(playingBGM)
     $game_system.bgs_resume(playingBGS)
    end 
    $PokemonGlobal.nextBattleBGM=nil
    $PokemonGlobal.nextBattleME=nil
    $PokemonGlobal.nextBattleBack=nil
    pbBugContestState.ballcount=battle.ballcount
    $PokemonEncounters.clearStepCount
    Input.update
    Events.onWildBattleEnd.trigger(nil,species,level,decision)
    if pbBugContestState.ballcount==0
       Kernel.pbMessage("ANNOUNCER:  The Bug-Catching Contest is over!")
       $game_system.se_play("endofsafari.wav")
       pbBugContestState.pbStartJudging
    end
    return (decision!=2)
  end

Screenshot 1:

Spoiler:

Screenshot 2:

Spoiler:

Screenshot 3:

Spoiler:

 

[derw]

how do i change the position of all menues? i would have a ds style :)
sorry for my bad english i´m german.

thx

 

[NeoStar]

@ Derw It's in your window and tilemap script around line 5.

 

[derw]

wich script do you mean?

window script

Spoiler:

class WindowCursorRect < Rect
def initialize(window)
@window=window
@x=0
@y=0
@width=0
@height=0
end
attr_reader :x,:y,:width,:height
def empty
needupdate=@x!=0 || @y!=0 || @width!=0 || @height!=0
if needupdate
@x=0
@y=0
@width=0
@height=0
@[email protected]
end
end
def isEmpty?
return @x==0 && @y==0 && @width==0 && @height==0
end
def set(x,y,width,height)
needupdate=@x!=x || @y!=y || @width!=width || @height!=height
if needupdate
@x=x
@y=y
@width=width
@height=height
@[email protected]
end
end
def height=(value)
@height=value; @[email protected]
end
def width=(value)
@width=value; @[email protected]
end
def x=(value)
@x=value; @[email protected]
end
def y=(value)
@y=value; @[email protected]
end
end
class Window
attr_reader :tone
attr_reader :color
attr_reader :blend_type
attr_reader :contents_blend_type
attr_reader :viewport
attr_reader :contents
attr_reader :ox
attr_reader :oy
attr_reader :x
attr_reader :y
attr_reader :z
attr_reader :width
attr_reader :active
attr_reader :pause
attr_reader :height
attr_reader :opacity
attr_reader :back_opacity
attr_reader :contents_opacity
attr_reader :visible
attr_reader :cursor_rect
attr_reader :openness
attr_reader :stretch
def windowskin
@_windowskin
end
def initialize(viewport=nil)
@sprites={}
@spritekeys=[
"back",
"corner0","side0","scroll0",
"corner1","side1","scroll1",
"corner2","side2","scroll2",
"corner3","side3","scroll3",
"cursor","contents","pause"
]
@sidebitmaps=[nil,nil,nil,nil]
@cursorbitmap=nil
@bgbitmap=nil
@viewport=viewport
for i in @spritekeys
@sprites=Sprite.new(@viewport)
end
@disposed=false
@tone=Tone.new(0,0,0)
@color=Color.new(0,0,0,0)
@blankcontents=Bitmap.new(1,1) # RGSS2 requires this
@contents=@blankcontents
@_windowskin=nil
@rpgvx=false # Set to true to emulate RPGVX windows
@x=0
@y=0
@width=0
@openness=255
@height=0
@ox=0
@oy=0
@z=0
@stretch=true
@visible=true
@active=true
@blend_type=0
@contents_blend_type=0
@opacity=255
@back_opacity=255
@contents_opacity=255
@cursor_rect=WindowCursorRect.new(self)
@cursorblink=0
@cursoropacity=255
@pause=false
@pauseopacity=255
@pauseframe=0
privRefresh(true)
end
def dispose
if !self.disposed?
for i in @sprites
i[1].dispose if i[1]
@sprites[i[0]]=nil
end
for i in [email protected]
@sidebitmaps.dispose if @sidebitmaps
@sidebitmaps=nil
end
@blankcontents.dispose
@cursorbitmap.dispose if @cursorbitmap
@backbitmap.dispose if @backbitmap
@sprites.clear
@sidebitmaps.clear
@_windowskin=nil
@_contents=nil
@disposed=true
end
end
def openness=(value)
@openness=value
@openness=0 if @openness<0
@openness=255 if @openness>255
privRefresh
end
def stretch=(value)
@stretch=value
privRefresh(true)
end
def visible=(value)
@visible=value
privRefresh
end
def viewport=(value)
@viewport=value
for i in @spritekeys
@sprites.dispose
if @sprites.is_a?(Sprite)
@sprites=Sprite.new(@viewport)
else
@sprites=nil
end
end
privRefresh(true)
end
def z=(value)
@z=value
privRefresh
end
def disposed?
return @disposed
end
def contents=(value)
@contents=value
privRefresh
end
def windowskin=(value)
@_windowskin=value
if value && value.is_a?(Bitmap) && !value.disposed? && value.width==128
@rpgvx=true
else
@rpgvx=false
end
privRefresh(true)
end
def ox=(value)
@ox=value
privRefresh
end
def active=(value)
@active=value
privRefresh(true)
end
def cursor_rect=(value)
if !value
@cursor_rect.empty
else
@cursor_rect.set(value.x,value.y,value.width,value.height)
end
end
def oy=(value)
@oy=value
privRefresh
end
def width=(value)
@width=value
privRefresh(true)
end
def height=(value)
@height=value
privRefresh(true)
end
def pause=(value)
@pause=value
@pauseopacity=0 if !value
privRefresh
end
def x=(value)
@x=value
privRefresh
end
def y=(value)
@y=value
privRefresh
end
def opacity=(value)
@opacity=value
@opacity=0 if @opacity<0
@opacity=255 if @opacity>255
privRefresh
end
def back_opacity=(value)
@back_opacity=value
@back_opacity=0 if @back_opacity<0
@back_opacity=255 if @back_opacity>255
privRefresh
end
def contents_opacity=(value)
@contents_opacity=value
@contents_opacity=0 if @contents_opacity<0
@contents_opacity=255 if @contents_opacity>255
privRefresh
end
def tone=(value)
@tone=value
privRefresh
end
def color=(value)
@color=value
privRefresh
end
def blend_type=(value)
@blend_type=value
privRefresh
end
def flash(color,duration)
return if disposed?
for i in @sprites
i[1].flash(color,duration)
end
end
def update
return if disposed?
mustchange=false
if @active
if @cursorblink==0
@cursoropacity-=8
@cursorblink=1 if @cursoropacity<=128
else
@cursoropacity+=8
@cursorblink=0 if @cursoropacity>=255
end
mustchange=true if !@cursor_rect.isEmpty?
else
mustchange=true if @cursoropacity!=128
@cursoropacity=128
end
if @pause
@pauseframe=(Graphics.frame_count / 8) % 4
@pauseopacity=[@pauseopacity+64,255].min
mustchange=true
end
privRefresh if mustchange
for i in @sprites
i[1].update
end
end
private
def ensureBitmap(bitmap,dwidth,dheight)
if !bitmap||bitmap.disposed?||bitmap.width<dwidth||bitmap.height<dheight
bitmap.dispose if bitmap
bitmap=Bitmap.new([1,dwidth].max,[1,dheight].max)
end
return bitmap
end
def tileBitmap(dstbitmap,dstrect,srcbitmap,srcrect)
return if !srcbitmap || srcbitmap.disposed?
left=dstrect.x
top=dstrect.y
y=0;loop do break unless y<dstrect.height
x=0;loop do break unless x<dstrect.width
dstbitmap.blt(x+left,y+top,srcbitmap,srcrect)
x+=srcrect.width
end
y+=srcrect.height
end
end
def privRefresh(changeBitmap=false)
return if self.disposed?
backopac=self.back_opacity*self.opacity/255
contopac=self.contents_opacity
cursoropac=@cursoropacity*contopac/255
for i in 0...4
@sprites["corner#{i}"].bitmap=@_windowskin
@sprites["scroll#{i}"].bitmap=@_windowskin
end
@sprites["pause"].bitmap=@_windowskin
@sprites["contents"].bitmap=@contents
if @_windowskin && !@_windowskin.disposed?
for i in 0...4
@sprites["corner#{i}"].opacity=@opacity
@sprites["corner#{i}"].tone=@tone
@sprites["corner#{i}"].color=@color
@sprites["corner#{i}"].blend_type=@blend_type
@sprites["corner#{i}"].visible=@visible
@sprites["side#{i}"].opacity=@opacity
@sprites["side#{i}"].tone=@tone
@sprites["side#{i}"].color=@color
@sprites["side#{i}"].blend_type=@blend_type
@sprites["side#{i}"].visible=@visible
@sprites["scroll#{i}"].opacity=@opacity
@sprites["scroll#{i}"].tone=@tone
@sprites["scroll#{i}"].blend_type=@blend_type
@sprites["scroll#{i}"].color=@color
@sprites["scroll#{i}"].visible=@visible
end
for i in ["back","cursor","pause","contents"]
@sprites.color=@color
@sprites.tone=@tone
@sprites.blend_type=@blend_type
end
@sprites["contents"].blend_type=@contents_blend_type
@sprites["back"].opacity=backopac
@sprites["contents"].opacity=contopac
@sprites["cursor"].opacity=cursoropac
@sprites["pause"].opacity=@pauseopacity
@sprites["back"].visible=@visible
@sprites["contents"].visible=@visible && @openness==255
@sprites["pause"].visible=@visible && @pause
@sprites["cursor"].visible=@visible && @openness==255
hascontents=(@contents && [email protected]?)
@sprites["scroll0"].visible = @visible && hascontents && @oy > 0
@sprites["scroll1"].visible = @visible && hascontents && @ox > 0
@sprites["scroll2"].visible = @visible && hascontents && (@contents.width - @ox) > @width-32
@sprites["scroll3"].visible = @visible && hascontents && (@contents.height - @oy) > @height-32
else
for i in 0...4
@sprites["corner#{i}"].visible=false
@sprites["side#{i}"].visible=false
@sprites["scroll#{i}"].visible=false
end
@sprites["contents"].visible=@visible && @openness==255
@sprites["contents"].color=@color
@sprites["contents"].tone=@tone
@sprites["contents"].blend_type=@contents_blend_type
@sprites["contents"].opacity=contopac
@sprites["back"].visible=false
@sprites["pause"].visible=false
@sprites["cursor"].visible=false
end
for i in @sprites
i[1].z=@z
end
if @rpgvx
@sprites["cursor"].z=@z # For Compatibility
@sprites["contents"].z=@z # For Compatibility
@sprites["pause"].z=@z # For Compatibility
else
@sprites["cursor"].z=@z+1 # For Compatibility
@sprites["contents"].z=@z+2 # For Compatibility
@sprites["pause"].z=@z+2 # For Compatibility
end
if @rpgvx
trimX=64
trimY=0
backRect=Rect.new(0,0,64,64)
blindsRect=Rect.new(0,64,64,64)
else
trimX=128
trimY=0
backRect=Rect.new(0,0,128,128)
blindsRect=nil
end
@sprites["corner0"].src_rect.set(trimX,trimY+0,16,16);
@sprites["corner1"].src_rect.set(trimX+48,trimY+0,16,16);
@sprites["corner2"].src_rect.set(trimX,trimY+48,16,16);
@sprites["corner3"].src_rect.set(trimX+48,trimY+48,16,16);
@sprites["scroll0"].src_rect.set(trimX+24, trimY+16, 16, 8) # up
@sprites["scroll3"].src_rect.set(trimX+24, trimY+40, 16, 8) # down
@sprites["scroll1"].src_rect.set(trimX+16, trimY+24, 8, 16) # left
@sprites["scroll2"].src_rect.set(trimX+40, trimY+24, 8, 16) # right
cursorX=trimX
cursorY=trimY+64
sideRects=[
Rect.new(trimX+16,trimY+0,32,16),
Rect.new(trimX,trimY+16,16,32),
Rect.new(trimX+48,trimY+16,16,32),
Rect.new(trimX+16,trimY+48,32,16)
]
if @width>32 && @height>32
@sprites["contents"].src_rect.set(@ox,@oy,@width-32,@height-32)
else
@sprites["contents"].src_rect.set(0,0,0,0)
end
pauseRects=[
trimX+32,trimY+64,
trimX+48,trimY+64,
trimX+32,trimY+80,
trimX+48,trimY+80,
]
pauseWidth=16
pauseHeight=16
@sprites["pause"].src_rect.set(
pauseRects[@pauseframe*2],
pauseRects[@pauseframe*2+1],
pauseWidth,pauseHeight
)
@sprites["pause"].x=@x+(@width/2)-(pauseWidth/2)
@sprites["pause"].y=@y+@height-16 # 16 refers to skin margin
@sprites["contents"].x=@x+16
@sprites["contents"].y=@y+16
@sprites["corner0"].x=@x
@sprites["corner0"].y=@y
@sprites["corner1"].x=@x+@width-16
@sprites["corner1"].y=@y
@sprites["corner2"].x=@x
@sprites["corner2"].y=@y+@height-16
@sprites["corner3"].x=@x+@width-16
@sprites["corner3"].y=@y+@height-16
@sprites["side0"].x=@x+16
@sprites["side0"].y=@y
@sprites["side1"].x=@x
@sprites["side1"].y=@y+16
@sprites["side2"].x=@x+@width-16
@sprites["side2"].y=@y+16
@sprites["side3"].x=@x+16
@sprites["side3"].y=@y+@height-16
@sprites["scroll0"].x = @x+@width / 2 - 8
@sprites["scroll0"].y = @y+8
@sprites["scroll1"].x = @x+8
@sprites["scroll1"].y = @y+@height / 2 - 8
@sprites["scroll2"].x = @x+@width - 16
@sprites["scroll2"].y = @y+@height / 2 - 8
@sprites["scroll3"].x = @x+@width / 2 - 8
@sprites["scroll3"].y = @y+@height - 16
@sprites["back"].x=@x+2
@sprites["back"].y=@y+2
@sprites["cursor"].x=@x+16+@cursor_rect.x
@sprites["cursor"].y=@y+16+@cursor_rect.y
if changeBitmap && @_windowskin && !@_windowskin.disposed?
width=@cursor_rect.width
height=@cursor_rect.height
if width > 0 && height > 0
cursorrects=[
# sides
Rect.new(cursorX+2, cursorY+0, 28, 2),
Rect.new(cursorX+0, cursorY+2, 2, 28),
Rect.new(cursorX+30, cursorY+2, 2, 28),
Rect.new(cursorX+2, cursorY+30, 28, 2),
# corners
Rect.new(cursorX+0, cursorY+0, 2, 2),
Rect.new(cursorX+30, cursorY+0, 2, 2),
Rect.new(cursorX+0, cursorY+30, 2, 2),
Rect.new(cursorX+30, cursorY+30, 2, 2),
# back
Rect.new(cursorX+2, cursorY+2, 28, 28)
]
margin=2
fullmargin=4
@cursorbitmap = ensureBitmap(@cursorbitmap, width, height)
@cursorbitmap.clear
@sprites["cursor"].bitmap=@cursorbitmap
@sprites["cursor"].src_rect.set(0,0,width,height)
rect = Rect.new(margin,margin,
width - fullmargin, height - fullmargin)
@cursorbitmap.stretch_blt(rect, @_windowskin, cursorrects[8])
@cursorbitmap.blt(0, 0, @_windowskin, cursorrects[4])# top left
@cursorbitmap.blt(width-margin, 0, @_windowskin, cursorrects[5]) # top right
@cursorbitmap.blt(0, height-margin, @_windowskin, cursorrects[6]) # bottom right
@cursorbitmap.blt(width-margin, height-margin, @_windowskin, cursorrects[7]) # bottom left
rect = Rect.new(margin, 0,
width - fullmargin, margin)
@cursorbitmap.stretch_blt(rect, @_windowskin, cursorrects[0])
rect = Rect.new(0, margin,
margin, height - fullmargin)
@cursorbitmap.stretch_blt(rect, @_windowskin, cursorrects[1])
rect = Rect.new(width - margin, margin,
margin, height - fullmargin)
@cursorbitmap.stretch_blt(rect, @_windowskin, cursorrects[2])
rect = Rect.new(margin, height-margin,
width - fullmargin, margin)
@cursorbitmap.stretch_blt(rect, @_windowskin, cursorrects[3])
else
@sprites["cursor"].visible=false
@sprites["cursor"].src_rect.set(0,0,0,0)
end
for i in 0..3
dwidth=(i==0||i==3) ? @width-32 : 16
dheight=(i==0||i==3) ? 16 : @height-32
@sidebitmaps=ensureBitmap(@sidebitmaps,dwidth,dheight)
@sprites["side#{i}"].bitmap=@sidebitmaps
@sprites["side#{i}"].src_rect.set(0,0,dwidth,dheight)
@sidebitmaps.clear
if sideRects.width>0 && sideRects.height>0
@sidebitmaps.stretch_blt(@sprites["side#{i}"].src_rect,
@_windowskin,sideRects)
end
end
backwidth=@width-4
backheight=@height-4
if backwidth>0 && backheight>0
@backbitmap=ensureBitmap(@backbitmap,backwidth,backheight)
@sprites["back"].bitmap=@backbitmap
@sprites["back"].src_rect.set(0,0,backwidth,backheight)
@backbitmap.clear
if @stretch
@backbitmap.stretch_blt(@sprites["back"].src_rect,@_windowskin,backRect)
else
tileBitmap(@backbitmap,@sprites["back"].src_rect,@_windowskin,backRect)
end
if blindsRect
tileBitmap(@backbitmap,@sprites["back"].src_rect,@_windowskin,blindsRect)
end
else
@sprites["back"].visible=false
@sprites["back"].src_rect.set(0,0,0,0)
end
end
if @openness!=255
opn=@openness/255.0
for k in @spritekeys
sprite=@sprites[k]
ratio=(@height<=0) ? 0 : (sprite.y-@y)*1.0/@height
sprite.zoom_y=opn
sprite.oy=0
sprite.y=(@y+(@height/2.0)+(@height*ratio*opn)-(@height/2*opn)).floor
end
else
for k in @spritekeys
sprite=@sprites[k]
sprite.zoom_y=1.0
end
end
i=0
# Ensure Z order
for k in @spritekeys
sprite=@sprites[k]
y=sprite.y
sprite.y=i
sprite.oy=(sprite.zoom_y<=0) ? 0 : (i-y)/sprite.zoom_y
end
end
end

but i have tilemapxp and tilemaploader...

 

[lezebulon]

Hello
I got a simple question : Is there a way to reorder the scripts once you are in the script section (F11) ?

 

[udivision]

Hello
I got a simple question : Is there a way to reorder the scripts once you are in the script section (F11) ?

Yea, you could cut and paste the script names on the left to move them around. But I don't see the point...

 

[Klofkac]

How I can upgrade version without lose of any custom scripts?

 

[|Maximus|]

Hi, I just deleted my PokemonOptions script, because it glitched up, and replaced it with the newest version but it shows errors, could somebody please post theirs?

 

[lezebulon]

What is the right way to add new variables to $PokemonGlobal, that can be saved and loaded ??

I tried to do something, it works when I laucnh my game from RPGMaker, but not from game.exe

 

[derw]

@ Derw It's in your window and tilemap script around line 5.

where can i find the scripts?? i ´ve search but nothing find...

 

[lezebulon]

What is the right way to add new variables to $PokemonGlobal, that can be saved and loaded ??

I tried to do something, it works when I laucnh my game from RPGMaker, but not from game.exe

I'm rephrasing it, sorry :

What is the right way to add new variables that are begins with a $ ? For instance, I created $var1, that works fine and is global to all my scripts, but I get an error everytime I launch game.exe because of this (and not when I launch from RPGMaker)

 

[1ninjadude1701]

hey how do i use pokemon roaming script? i know to unquote in script editor but how do i use on the map i want and set the pokemon?