Jump to content
Rpg²S Forum
Attenzione: Cambio modalità di Login

Gemini-air

Utenti
 View Profile  See their activity

  • Posts

    61

  • Joined

  • Last visited

 Content Type 

Posts posted by Gemini-air

    [Beta] Pokémon Project

    in Release XP

    Posted

    Oltretutto i caratteri di testi non sono quelli Pokemon: è perchè non hai voluto o non hai saputo metterli?

    Più che altro non ho ancora guardato il modo per cambiare il testo ma sarà una cosa alla quale provvederò presto ;)

     

    Sono contento che il progetto stia continuando!

     

    A proposito, è uscita la versione 15.1, se non sbaglio.

    Si si è già implementata poichè la 15.1 è solo un espansione della 15 ;)

     

    Delle mappe si vede poco. Più che altro i menù, che mi paion buoni come stile se sfocature e dettagli pixellati son dovuti ai test. Le ultime due mappe sono in classico stile pokemon con la lotta ai capopalestra, quello con le varie roccette mi piace. In caso quando puoi mettici una mappa più visibile o di esterno.

    ^ ^

    Verrai accontentato presto!!!!! :)

    [Beta] Pokémon Project

    in Release XP

    Posted

    Non male gli screen! Solo che alcune parti sono strane, prendi l'ultimo: come mai l'ambiente ed il pg al centro sono sfocati, mentre gli altri due pg no? ° °

    ^ ^

    Perchè sto facendo un pò di test a livello grafico...e ammetto che devo migliorare parecchio! XD Qualche consiglio in merito?

    [Beta] Pokémon Project

    in Release XP

    Posted · Edited by Gemini-air

    vedrò cosa posso fare in merito ;) (i file audio MP3 ci sono e anche le GIF dei Pokémon 3D deve essere per quello)

    Bisogna tenere conto anche che, all'interno, ci sono tutte le mappe che utilizzerò nel gioco quindi diciamo che, i futuri aggiornamenti saranno leggerissimi ^^

    [Beta] Pokémon Project

    in Release XP

    Posted

    @Guardian of Irael so bene questo dettaglio sull'incapacità di completare un progetto simile ma spero che, essendo solo io a fare le cose, riesca a produrre un qualcosa di valido e di non dover sottostare agli impegni e/o magagne nel caso in cui avessi avuto dei collaboratori perchè, tante volte, è successa questa cosa.

    Per quanto riguarda gli elementi originali beh posso dire che ho messo l'opzione scelta dell'avatar (l'immagine apparirà non appena clicchi uno dei nomi nella lista)

    e beh la grafica migliorata (l'unica "pecca" sono le animazioni degli attacchi ma, purtroppo, non posso dedicarmi ad ogni singolo colpo) e, spero, la possibilità di aggiungere una modalità online (però solo i combattimenti e non l'openworld). Se non dovessi riuscire in questa cosa aprirei una room in Pokémon Showdown ma vorrei evitarlo.

    Altro elemento che dovrei aggiungere senza troppi intoppi è il Pokèmon World Tournament però non come quello di Bianco/Nero 2 ma con qualche piccola novità (mi piacerebbe aggiungere una modalità Megaevoluzione). Beh poi alcuni tratti nuovi nella storyline saranno praticamente inediti (in particolare il Team Rocket, villan di questo gioco).

     

    @Seanbb lo sai cosa penso della tua collaborazione e sai bene che farò qualunque cosa per dimostrarti la mia gratitudine!!! E si faccio pena con gli screen XD ahahaha

    [Beta] Pokémon Project

    in Release XP

    Posted · Edited by Gemini-air

    http://i57.tinypic.com/23kax6f.png

     

     

    Copertina:

     

    http://i62.tinypic.com/2rz7u6o.png

     

     

    Dati
    -Creatore: Gemini_Air
    -Lingua: ITA
    -Kit utilizzato: Pokémon Essentials V.15
    -Stato: Disponibile (non completo)
    Crediti

    -Tiles: zetavares852
    -Sprite: kurai, MrMasterMrDoom, P-Sign, Clowcardruler, Maruno, Venom12, FL ., apoclaydon, Jtanooki, Rick1234, wvistaultimate, Timmah, snivy101, tebited15, wesleyfg, jellojolteon2000
    -Script e Risorse: Team di PokéCommunity

    -Gif: /u/Sinc

    Novità
    -Ricostruzione delle mappe in stile "Quarta Generazione"
    -I modelli dei Pokémon sono quelli della versione X/Y
    -Possibilità di scegliere il proprio avatar
    -Possibilità di cattura di ogni Pokémon esistente
    -Possibilità di visitare 3 Regioni (Kanto, Johto, Settipelago) e, se il progetto prosegue, le rimanenti 3 (Hoenn, Sinnoh, Unima)
    -Storyline con eventi inediti
    Novità della Patch
    -Possibilità di interazione fino alla città di Celestopoli
    -Correzione di Bug e Glicth
    -Aggiunta di elementi Audio
    -Aggiunta di elementi grafici
    Link del Gioco
    Link della Patch
    Ringraziamenti
    -Ringrazio sentitamente Seanbb per il supporto che mi ha dato per tutto questo periodo
    -Ringrazio tutti i ragazzi di Pokémon Community per la tempestività e per il continuo aggiornamento del Kit
    -Ringrazio tutte le persone che implicitamente, e non, hanno contribuito alla creazione del progetto
    Screen

    http://i59.tinypic.com/1532vlg.pnghttp://i61.tinypic.com/sem3de.pnghttp://i59.tinypic.com/2czsk2f.pnghttp://i58.tinypic.com/j08gnd.png

    VS. Animation (pokemon essential V14)

    in Supporto RGSS (XP)

    Posted

    Ciao a tutti ragazzi!

    Vi spiego il mio problema...ho scaricato l'ultima versione di pokemon essentials e, fortuna ha voluto, che implementassero l'animazione VS. (stile B/W). Il mio problema sussiste proprio nell'attivazione perchè o non mi si attiva o mi si attiva per ogni combattimento contro ogni allenatore!

    Io vorrei capire come attivarlo SOLO con determinati allenatori (gym leaders, elite four, ecc...)

    Qui sotto vi ho linkato la parte interessata dello script...HELP ME!!!!!!!!!!!!!

     

     

    if trainerid>=0

    tbargraphic=sprintf("Graphics/Transitions/vsBar",getConstantName(PBTrainers,trainerid)) rescue nil
    tbargraphic=sprintf("Graphics/Transitions/vsBar",trainerid) if !pbResolveBitmap(tbargraphic)
    tgraphic=sprintf("Graphics/Transitions/vsTrainer",getConstantName(PBTrainers,trainerid)) rescue nil
    tgraphic=sprintf("Graphics/Transitions/vsTrainer",trainerid) if !pbResolveBitmap(tgraphic)
    if pbResolveBitmap(tbargraphic) && pbResolveBitmap(tgraphic)
    outfit=$Trainer ? $Trainer.outfit : 0
    # Set up
    viewplayer=Viewport.new(0,Graphics.height/3,Graphics.width/2,128)
    viewplayer.z=viewport.z
    viewopp=Viewport.new(Graphics.width/2,Graphics.height/3,Graphics.width/2,128)
    viewopp.z=viewport.z
    viewvs=Viewport.new(0,0,Graphics.width,Graphics.height)
    viewvs.z=viewport.z
    xoffset=(Graphics.width/2)/10
    xoffset=xoffset.round
    xoffset=xoffset*10
    fade=Sprite.new(viewport)
    fade.bitmap=BitmapCache.load_bitmap("Graphics/Transitions/vsFlash")
    fade.tone=Tone.new(-255,-255,-255)
    fade.opacity=100
    overlay=Sprite.new(viewport)
    overlay.bitmap=Bitmap.new(Graphics.width,Graphics.height)
    pbSetSystemFont(overlay.bitmap)
    bar1=Sprite.new(viewplayer)
    pbargraphic=sprintf("Graphics/Transitions/vsBar",getConstantName(PBTrainers,$Trainer.trainertype),outfit) rescue nil
    pbargraphic=sprintf("Graphics/Transitions/vsBar",$Trainer.trainertype,outfit) if !pbResolveBitmap(pbargraphic)
    if !pbResolveBitmap(pbargraphic)
    pbargraphic=sprintf("Graphics/Transitions/vsBar",getConstantName(PBTrainers,$Trainer.trainertype)) rescue nil
    end
    pbargraphic=sprintf("Graphics/Transitions/vsBar%d",$Trainer.trainertype) if !pbResolveBitmap(pbargraphic)
    bar1.bitmap=BitmapCache.load_bitmap(pbargraphic)
    bar1.x=-xoffset
    bar2=Sprite.new(viewopp)
    bar2.bitmap=BitmapCache.load_bitmap(tbargraphic)
    bar2.x=xoffset
    vs=Sprite.new(viewvs)
    vs.bitmap=BitmapCache.load_bitmap("Graphics/Transitions/vs")
    vs.ox=vs.bitmap.width/2
    vs.oy=vs.bitmap.height/2
    vs.x=Graphics.width/2
    vs.y=Graphics.height/1.5
    vs.visible=false
    flash=Sprite.new(viewvs)
    flash.bitmap=BitmapCache.load_bitmap("Graphics/Transitions/vsFlash")
    flash.opacity=0
    # Animation
    10.times do
    bar1.x+=xoffset/10
    bar2.x-=xoffset/10
    pbWait(1)
    end
    pbSEPlay("Flash2")
    pbSEPlay("Sword2")
    flash.opacity=255
    bar1.dispose
    bar2.dispose
    bar1=AnimatedPlane.new(viewplayer)
    bar1.bitmap=BitmapCache.load_bitmap(pbargraphic)
    player=Sprite.new(viewplayer)
    pgraphic=sprintf("Graphics/Transitions/vsTrainer%s_%d",getConstantName(PBTrainers,$Trainer.trainertype),outfit) rescue nil
    pgraphic=sprintf("Graphics/Transitions/vsTrainer%d_%d",$Trainer.trainertype,outfit) if !pbResolveBitmap(pgraphic)
    if !pbResolveBitmap(pgraphic)
    pgraphic=sprintf("Graphics/Transitions/vsTrainer%s",getConstantName(PBTrainers,$Trainer.trainertype)) rescue nil
    end
    pgraphic=sprintf("Graphics/Transitions/vsTrainer%d",$Trainer.trainertype) if !pbResolveBitmap(pgraphic)
    player.bitmap=BitmapCache.load_bitmap(pgraphic)
    player.x=-xoffset
    bar2=AnimatedPlane.new(viewopp)
    bar2.bitmap=BitmapCache.load_bitmap(tbargraphic)
    trainer=Sprite.new(viewopp)
    trainer.bitmap=BitmapCache.load_bitmap(tgraphic)
    trainer.x=xoffset
    trainer.tone=Tone.new(-255,-255,-255)
    25.times do
    flash.opacity-=51 if flash.opacity>0
    bar1.ox-=16
    bar2.ox+=16
    pbWait(1)
    end
    11.times do
    bar1.ox-=16
    bar2.ox+=16
    player.x+=xoffset/10
    trainer.x-=xoffset/10
    pbWait(1)
    end
    2.times do
    bar1.ox-=16
    bar2.ox+=16
    player.x-=xoffset/20
    trainer.x+=xoffset/20
    pbWait(1)
    end
    10.times do
    bar1.ox-=16
    bar2.ox+=16
    pbWait(1)
    end
    val=2
    flash.opacity=255
    vs.visible=true
    trainer.tone=Tone.new(0,0,0)
    textpos=[
    [_INTL("{1}",$Trainer.name),Graphics.width/4,(Graphics.height/1.5)+10,2,
    Color.new(248,248,248),Color.new(12*6,12*6,12*6)],
    [_INTL("{1}",trainername),(Graphics.width/4)+(Graphics.width/2),(Graphics.height/1.5)+10,2,
    Color.new(248,248,248),Color.new(12*6,12*6,12*6)]
    ]
    pbDrawTextPositions(overlay.bitmap,textpos)
    pbSEPlay("Sword2")
    70.times do
    bar1.ox-=16
    bar2.ox+=16
    flash.opacity-=25.5 if flash.opacity>0
    vs.x+=val
    vs.y-=val
    val=2 if vs.x<=(Graphics.width/2)-2
    val=-2 if vs.x>=(Graphics.width/2)+2
    pbWait(1)
    end
    30.times do
    bar1.ox-=16
    bar2.ox+=16
    vs.zoom_x+=0.2
    vs.zoom_y+=0.2
    pbWait(1)
    end
    flash.tone=Tone.new(-255,-255,-255)
    10.times do
    bar1.ox-=16
    bar2.ox+=16
    flash.opacity+=25.5
    pbWait(1)
    end
    # End
    player.dispose
    trainer.dispose
    flash.dispose
    vs.dispose
    bar1.dispose
    bar2.dispose
    overlay.dispose
    fade.dispose
    viewvs.dispose
    viewopp.dispose
    viewplayer.dispose
    viewport.color=Color.new(0,0,0,255)
    handled=true
    end
    end
    # End of VS. sequence script
    if !handled
    if Sprite.method_defined?(:wave_amp) && rand(15)==0
    viewport.color=Color.new(0,0,0,255)
    sprite = Sprite.new
    bitmap=Graphics.snap_to_bitmap
    bm=bitmap.clone
    sprite.z=99999
    sprite.bitmap = bm
    sprite.wave_speed=500
    for i in 0..25
    sprite.opacity-=10
    sprite.wave_amp+=60
    sprite.update
    sprite.wave_speed+=30
    2.times do
    Graphics.update
    end
    end
    bitmap.dispose
    bm.dispose
    sprite.dispose
    elsif Bitmap.method_defined?(:radial_blur) && rand(15)==0
    viewport.color=Color.new(0,0,0,255)
    sprite = Sprite.new
    bitmap=Graphics.snap_to_bitmap
    bm=bitmap.clone
    sprite.z=99999
    sprite.bitmap = bm
    for i in 0..15
    bm.radial_blur(i,2)
    sprite.opacity-=15
    2.times do
    Graphics.update
    end
    end
    bitmap.dispose
    bm.dispose
    sprite.dispose
    elsif rand(15)==0
    scroll=["ScrollDown","ScrollLeft","ScrollRight","ScrollUp"]
    Graphics.freeze
    viewport.color=Color.new(0,0,0,255)
    Graphics.transition(50,sprintf("Graphics/Transitions/%s",scroll[rand(4)]))
    elsif rand(15)==0
    scroll=["ScrollDownRight","ScrollDownLeft","ScrollUpRight","ScrollUpLeft"]
    Graphics.freeze
    viewport.color=Color.new(0,0,0,255)
    Graphics.transition(50,sprintf("Graphics/Transitions/%s",scroll[rand(4)]))
    else
    transitions=["021-Normal01","022-Normal02",
    "Battle","battle1","battle2","battle3","battle4",
    "computertr","computertrclose",
    "hexatr","hexatrc","hexatzr",
    "Image1","Image2","Image3","Image4",
    "Splash","Random_stripe_v","Random_stripe_h",
    "RotatingPieces","ShrinkingPieces",
    "BreakingGlass","Mosaic","zoomin"
    ]
    rnd=rand(transitions.length)
    Graphics.freeze
    viewport.color=Color.new(0,0,0,255)
    Graphics.transition(40,sprintf("Graphics/Transitions/%s",transitions[rnd]))
    end
    5.times do
    Graphics.update
    Input.update
    pbUpdateSceneMap
    end
    end
    pbPushFade
    yield if block_given?
    pbPopFade
    if $game_system && $game_system.is_a?(Game_System)
    $game_system.bgm_resume(playingBGM)
    $game_system.bgs_resume(playingBGS)
    end
    $PokemonGlobal.nextBattleBGM=nil
    $PokemonGlobal.nextBattleME=nil
    $PokemonGlobal.nextBattleBack=nil
    $PokemonEncounters.clearStepCount
    for j in 0..17
    viewport.color=Color.new(0,0,0,(17-j)*15)
    Graphics.update
    Input.update
    pbUpdateSceneMap
    end
    viewport.dispose
    end
    def pbPrepareBattle(battle)
    if $game_screen.weather_type==1 || $game_screen.weather_type==2
    battle.weather=PBWeather::RAINDANCE
    battle.weatherduration=-1
    elsif $game_screen.weather_type==3
    battle.weather=PBWeather::HAIL
    battle.weatherduration=-1
    elsif $game_screen.weather_type==4
    battle.weather=PBWeather::SANDSTORM
    battle.weatherduration=-1
    elsif $game_screen.weather_type==5
    battle.weather=PBWeather::SUNNYDAY
    battle.weatherduration=-1
    end
    battle.shiftStyle=($PokemonSystem.battlestyle==0)
    battle.battlescene=($PokemonSystem.battlescene==0)
    battle.environment=pbGetEnvironment
    end
    def pbGetEnvironment
    return PBEnvironment::None if !$game_map
    if $PokemonGlobal && $PokemonGlobal.diving
    return PBEnvironment::Underwater
    elsif $PokemonEncounters && $PokemonEncounters.isCave?
    return PBEnvironment::Cave
    elsif !pbGetMetadata($game_map.map_id,MetadataOutdoor)
    return PBEnvironment::None
    else
    terrain=$game_player.terrain_tag
    if terrain==PBTerrain::Grass # Normal grass
    return PBEnvironment::Grass
    elsif terrain==PBTerrain::TallGrass # Tall grass
    return PBEnvironment::TallGrass
    elsif terrain==PBTerrain::DeepWater || terrain==PBTerrain::Water
    return PBEnvironment::MovingWater
    elsif terrain==PBTerrain::StillWater
    return PBEnvironment::StillWater
    elsif terrain==PBTerrain::Rock
    return PBEnvironment::Rock
    elsif terrain==PBTerrain::Sand
    return PBEnvironment::Sand
    end
    return PBEnvironment::None
    end
    end
    def pbGenerateWildPokemon(species,level)
    genwildpoke=PokeBattle_Pokemon.new(species,level,$Trainer)
    items=genwildpoke.wildHoldItems
    chances=[50,5,1]
    chances=[60,20,5] if !$Trainer.party[0].egg? &&
    isConst?($Trainer.party[0].ability,PBAbilities,:COMPOUNDEYES)
    itemrnd=rand(100)
    if itemrnd<chances[0] || (items[0]==items[1] && items[1]==items[2])
    genwildpoke.item=items[0]
    elsif itemrnd<(chances[0]+chances[1])
    genwildpoke.item=items[1]
    elsif itemrnd<(chances[0]+chances[1]+chances[2])
    genwildpoke.item=items[2]
    end
    if hasConst?(PBItems,:SHINYCHARM) && $PokemonBag.pbQuantity(PBItems::SHINYCHARM)>0
    for i in 0...2 # 3 times as likely
    break if genwildpoke.isShiny?
    genwildpoke.personalID=rand(65536)|(rand(65536)<<16)
    end
    end
    if rand(65536)<POKERUSCHANCE
    genwildpoke.givePokerus
    end
    Events.onWildPokemonCreate.trigger(nil,genwildpoke)
    return genwildpoke
    end
    def pbWildBattle(species,level,variable=nil,canescape=true,canlose=false)
    if (Input.press?(Input::CTRL) && $DEBUG) || $Trainer.pokemonCount==0
    if $Trainer.pokemonCount>0
    Kernel.pbMessage(_INTL("SKIPPING BATTLE..."))
    end
    pbSet(variable,1)
    $PokemonGlobal.nextBattleBGM=nil
    $PokemonGlobal.nextBattleME=nil
    $PokemonGlobal.nextBattleBack=nil
    return true
    end
    handled=[nil]
    Events.onWildBattleOverride.trigger(nil,species,level,handled)
    if handled[0]!=nil
    return handled[0]
    end
    currentlevels=[]
    for i in $Trainer.party
    currentlevels.push(i.level)
    end
    genwildpoke=pbGenerateWildPokemon(species,level)
    Events.onStartBattle.trigger(nil,genwildpoke)
    scene=pbNewBattleScene
    battle=PokeBattle_Battle.new(scene,$Trainer.party,[genwildpoke],$Trainer,nil)
    battle.internalbattle=true
    battle.cantescape=!canescape
    pbPrepareBattle(battle)
    decision=0
    pbBattleAnimation(pbGetWildBattleBGM(species)) {
    pbSceneStandby {
    decision=battle.pbStartBattle(canlose)
    }
    for i in $Trainer.party; (i.makeUnmega rescue nil); end
    if $PokemonGlobal.partner
    pbHealAll
    for i in $PokemonGlobal.partner[3]
    i.heal
    i.makeUnmega rescue nil
    end
    end
    if decision==2 || decision==5 # if loss or draw
    if canlose
    for i in $Trainer.party; i.heal; end
    for i in 0...10
    Graphics.update
    end
    else
    $game_system.bgm_unpause
    $game_system.bgs_unpause
    Kernel.pbStartOver
    end
    end
    Events.onEndBattle.trigger(nil,decision)
    }
    Input.update
    pbSet(variable,decision)
    Events.onWildBattleEnd.trigger(nil,species,level,decision)
    return (decision!=2)
    end
    def pbDoubleWildBattle(species1,level1,species2,level2,variable=nil,canescape=true,canlose=false)
    if (Input.press?(Input::CTRL) && $DEBUG) || $Trainer.pokemonCount==0
    if $Trainer.pokemonCount>0
    Kernel.pbMessage(_INTL("SKIPPING BATTLE..."))
    end
    pbSet(variable,1)
    $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(species1,level1)
    genwildpoke2=pbGenerateWildPokemon(species2,level2)
    Events.onStartBattle.trigger(nil,genwildpoke)
    scene=pbNewBattleScene
    if $PokemonGlobal.partner
    othertrainer=PokeBattle_Trainer.new(
    $PokemonGlobal.partner[1],$PokemonGlobal.partner[0])
    othertrainer.id=$PokemonGlobal.partner[2]
    othertrainer.party=$PokemonGlobal.partner[3]
    combinedParty=[]
    for i in 0...$Trainer.party.length
    combinedParty=$Trainer.party
    end
    for i in 0...othertrainer.party.length
    combinedParty[6+i]=othertrainer.party
    end
    battle=PokeBattle_Battle.new(scene,combinedParty,[genwildpoke,genwildpoke2],
    [$Trainer,othertrainer],nil)
    battle.fullparty1=true
    else
    battle=PokeBattle_Battle.new(scene,$Trainer.party,[genwildpoke,genwildpoke2],
    $Trainer,nil)
    end
    battle.internalbattle=true
    battle.doublebattle=battle.pbDoubleBattleAllowed?()
    battle.cantescape=!canescape
    pbPrepareBattle(battle)
    decision=0
    pbBattleAnimation(pbGetWildBattleBGM(species1)) {
    pbSceneStandby {
    decision=battle.pbStartBattle(canlose)
    }
    for i in $Trainer.party; (i.makeUnmega rescue nil); end
    if $PokemonGlobal.partner
    pbHealAll
    for i in $PokemonGlobal.partner[3]
    i.heal
    i.makeUnmega rescue nil
    end
    end
    if decision==2 || decision==5
    if canlose
    for i in $Trainer.party; i.heal; end
    for i in 0...10
    Graphics.update
    end
    else
    $game_system.bgm_unpause
    $game_system.bgs_unpause
    Kernel.pbStartOver
    end
    end
    Events.onEndBattle.trigger(nil,decision)
    }
    Input.update
    pbSet(variable,decision)
    return (decision!=2 && decision!=5)
    end
    def pbCheckAllFainted()
    if pbAllFainted
    Kernel.pbMessage(_INTL("{1} has no usable Pokémon!\1",$Trainer.name))
    Kernel.pbMessage(_INTL("{1} blacked out!",$Trainer.name))
    pbBGMFade(1.0)
    pbBGSFade(1.0)
    pbFadeOutIn(99999){
    Kernel.pbStartOver
    }
    end
    end
    def pbEvolutionCheck(currentlevels)
    # Check conditions for evolution
    for i in 0...currentlevels.length
    pokemon=$Trainer.party
    if pokemon && (!currentlevels || pokemon.level!=currentlevels)
    newspecies=Kernel.pbCheckEvolution(pokemon)
    if newspecies>0
    # Start evolution scene
    evo=PokemonEvolutionScene.new
    evo.pbStartScreen(pokemon,newspecies)
    evo.pbEvolution
    evo.pbEndScreen
    end
    end
    end
    end
    def pbDynamicItemList(*args)
    ret=[]
    for i in 0...args.length
    if hasConst?(PBItems,args)
    ret.push(getConst(PBItems,args.to_sym))
    end
    end
    return ret
    end
    # Runs the Pickup event after a battle if a Pokemon has the ability Pickup.
    def Kernel.pbPickup(pokemon)
    return if !isConst?(pokemon.ability,PBAbilities,:PICKUP) || pokemon.egg?
    return if pokemon.item!=0
    return if rand(10)!=0
    pickupList=pbDynamicItemList(
    :POTION,
    :ANTIDOTE,
    :SUPERPOTION,
    :GREATBALL,
    :REPEL,
    :ESCAPEROPE,
    :FULLHEAL,
    :HYPERPOTION,
    :ULTRABALL,
    :REVIVE,
    :RARECANDY,
    :SUNSTONE,
    :MOONSTONE,
    :HEARTSCALE,
    :FULLRESTORE,
    :MAXREVIVE,
    :PPUP,
    :MAXELIXIR
    )
    pickupListRare=pbDynamicItemList(
    :HYPERPOTION,
    :NUGGET,
    :KINGSROCK,
    :FULLRESTORE,
    :ETHER,
    :IRONBALL,
    :PRISMSCALE,
    :ELIXIR,
    :PRISMSCALE,
    :LEFTOVERS,
    :PRISMSCALE
    )
    return if pickupList.length!=18
    return if pickupListRare.length!=11
    randlist=[30,10,10,10,10,10,10,4,4,1,1]
    items=[]
    plevel=[100,pokemon.level].min
    rnd=rand(100)
    itemstart=(plevel-1)/10
    itemstart=0 if itemstart<0
    for i in 0...9
    items.push(pickupList[i+itemstart])
    end
    items.push(pickupListRare[itemstart])
    items.push(pickupListRare[itemstart+1])
    cumnumber=0
    for i in 0...11
    cumnumber+=randlist
    if rnd<cumnumber
    pokemon.item=items
    break
    end
    end
    end
    class PokemonTemp
    attr_accessor :encounterType
    attr_accessor :evolutionLevels
    end
    def pbEncounter(enctype)
    if $PokemonGlobal.partner
    encounter1=$PokemonEncounters.pbEncounteredPokemon(enctype)
    return false if !encounter1
    encounter2=$PokemonEncounters.pbEncounteredPokemon(enctype)
    return false if !encounter2
    $PokemonTemp.encounterType=enctype
    pbDoubleWildBattle(encounter1[0],encounter1[1],encounter2[0],encounter2[1])
    $PokemonTemp.encounterType=-1
    return true
    else
    encounter=$PokemonEncounters.pbEncounteredPokemon(enctype)
    return false if !encounter
    $PokemonTemp.encounterType=enctype
    pbWildBattle(encounter[0],encounter[1])
    $PokemonTemp.encounterType=-1
    return true
    end
    end
    Events.onStartBattle+=proc {|sender,e|
    $PokemonTemp.evolutionLevels=[]
    for i in 0...$Trainer.party.length
    $PokemonTemp.evolutionLevels=$Trainer.party.level
    end
    }
    Events.onEndBattle+=proc {|sender,e|
    decision=e[0]
    if decision!=2 && decision!=5 # not a loss or a draw
    if $PokemonTemp.evolutionLevels
    pbEvolutionCheck($PokemonTemp.evolutionLevels)
    $PokemonTemp.evolutionLevels=nil
    end
    end
    if decision==1
    for pkmn in $Trainer.party
    Kernel.pbPickup(pkmn)
    if isConst?(pkmn.ability,PBAbilities,:HONEYGATHER) && !pkmn.egg? && pkmn.item==0
    if hasConst?(PBItems,:HONEY)
    chance = 5 + ((pkmn.level-1)/10)*5
    pkmn.item=getConst(PBItems,:HONEY) if rand(100)<chance
    end
    end
    end
    end
    }

     

    AIUTO: Pokemon Essentials Script ed eventi...

    in Supporto XP

    Posted

    Buongiorno a tutti!!!!

    Vi ricordate di me? Sono colui che, poco tempo fa, aveva dichiarato di voler creare un Remake dei giochi a tema Pokemon.

    Beh sappiate solo che, da quando feci quella dichiarazione, mi sono messo al lavoro e sono riuscito a inserire elementi interessanti e accattivanti sia a livello grafico che a livello di storyline e, spero, per novembre di rilasciare una prima beta...

    Tuttavia mi appello alle vostre conoscenze per alcuni fattori che, purtroppo, non mastico molto bene e che, spero, voi possiate aiutarmi.

    Uno dei miei problemi è il seguente:

    -Nell'Editor, precisamente la voce Encounters, permette di incontrare determinati pokemon in determinate mappe ed aree del gioco. Il problema è che in questa voce non c'è la dicitura "Erba" e, per aggiungerla, devo lavorare sullo script. Come faccio?

    Qua sotto vi riporto lo script, nella speranza che possiate aiutarmi!

     

    module EncounterTypes

    Land = 0
    Cave = 1
    Water = 2
    RockSmash = 3
    OldRod = 4
    GoodRod = 5
    SuperRod = 6
    HeadbuttLow = 7
    HeadbuttHigh = 8
    LandMorning = 9
    LandDay = 10
    LandNight = 11
    BugContest = 12
    Names=[
    "Land",
    "Cave",
    "Water",
    "RockSmash",
    "OldRod",
    "GoodRod",
    "SuperRod",
    "HeadbuttLow",
    "HeadbuttHigh",
    "LandMorning",
    "LandDay",
    "LandNight",
    "BugContest"
    ]
    EnctypeChances=[
    [20,20,10,10,10,10,5,5,4,4,1,1],
    [20,20,10,10,10,10,5,5,4,4,1,1],
    [60,30,5,4,1],
    [60,30,5,4,1],
    [70,30],
    [60,20,20],
    [40,40,15,4,1],
    [30,25,20,10,5,5,4,1],
    [30,25,20,10,5,5,4,1],
    [20,20,10,10,10,10,5,5,4,4,1,1],
    [20,20,10,10,10,10,5,5,4,4,1,1],
    [20,20,10,10,10,10,5,5,4,4,1,1],
    [20,20,10,10,10,10,5,5,4,4,1,1]
    ]
    EnctypeDensities=[25,10,10,0,0,0,0,0,0,25,25,25,25]
    EnctypeCompileDens=[1,2,3,0,0,0,0,0,0,1,1,1,1]
    end
    class PokemonEncounters
    def initialize
    @enctypes=[]
    @density=nil
    end
    def stepcount
    return @stepcount
    end
    def clearStepCount
    @stepcount=0
    end
    def hasEncounter?(enc)
    return false if @density==nil || enc<0
    return @enctypes[enc] ? true : false
    end
    def isCave?
    return false if @density==nil
    return @enctypes[EncounterTypes::Cave] ? true : false
    end
    def isGrass?
    return false if @density==nil
    return (@enctypes[EncounterTypes::Land] ||
    @enctypes[EncounterTypes::LandMorning] ||
    @enctypes[EncounterTypes::LandDay] ||
    @enctypes[EncounterTypes::LandNight] ||
    @enctypes[EncounterTypes::BugContest]) ? true : false
    end
    def isWater?
    return false if @density==nil
    return @enctypes[EncounterTypes::Water] ? true : false
    end
    def isEncounterPossibleHere?
    if $PokemonGlobal && $PokemonGlobal.surfing
    return true
    elsif pbGetTerrainTag($game_player)==PBTerrain::Ice
    return false
    elsif self.isCave?
    return true
    elsif self.isGrass?
    return pbIsGrassTag?($game_map.terrain_tag($game_player.x,$game_player.y))
    else
    return false
    end
    end
    def pbEncounterType
    if $PokemonGlobal && $PokemonGlobal.surfing
    return EncounterTypes::Water
    elsif self.isCave?
    return EncounterTypes::Cave
    elsif self.isGrass?
    time=pbGetTimeNow
    enctype=EncounterTypes::Land
    enctype=EncounterTypes::LandNight if self.hasEncounter?(EncounterTypes::LandNight) && PBDayNight.isNight?(time)
    enctype=EncounterTypes::LandDay if self.hasEncounter?(EncounterTypes::LandDay) && PBDayNight.isDay?(time)
    enctype=EncounterTypes::LandMorning if self.hasEncounter?(EncounterTypes::LandMorning) && PBDayNight.isMorning?(time)
    if pbInBugContest?
    if self.hasEncounter?(EncounterTypes::BugContest)
    enctype=EncounterTypes::BugContest
    end
    end
    return enctype
    else
    return -1
    end
    end
    def setup(mapID)
    @density=nil
    @stepcount=0
    @enctypes=[]
    begin
    data=load_data("Data/encounters.dat")
    if data.is_a?(Hash) && data[mapID]
    @density=data[mapID][0]
    @enctypes=data[mapID][1]
    else
    @density=nil
    @enctypes=[]
    end
    rescue
    @density=nil
    @enctypes=[]
    end
    end
    def pbMapHasEncounter?(mapID,enctype)
    data=load_data("Data/encounters.dat")
    if data.is_a?(Hash) && data[mapID]
    enctypes=data[mapID][1]
    density=data[mapID][0]
    else
    return false
    end
    return false if density==nil || enctype<0
    return enctypes[enctype] ? true : false
    end
    def pbMapEncounter(mapID,enctype)
    if enctype<0 || enctype>EncounterTypes::EnctypeChances.length
    raise ArgumentError.new(_INTL("Encounter type out of range"))
    end
    data=load_data("Data/encounters.dat")
    if data.is_a?(Hash) && data[mapID]
    enctypes=data[mapID][1]
    else
    return nil
    end
    return nil if enctypes[enctype]==nil
    chances=EncounterTypes::EnctypeChances[enctype]
    chancetotal=0
    chances.each {|a| chancetotal+=a}
    rnd=rand(chancetotal)
    chosenpkmn=0
    chance=0
    for i in 0...chances.length
    chance+=chances
    if rnd<chance
    chosenpkmn=i
    break
    end
    end
    encounter=enctypes[enctype][chosenpkmn]
    level=encounter[1]+rand(1+encounter[2]-encounter[1])
    return [encounter[0],level]
    end
    def pbEncounteredPokemon(enctype)
    if enctype<0 || enctype>EncounterTypes::EnctypeChances.length
    raise ArgumentError.new(_INTL("Encounter type out of range"))
    end
    return nil if @enctypes[enctype]==nil
    chances=EncounterTypes::EnctypeChances[enctype]
    chancetotal=0
    chances.each {|a| chancetotal+=a}
    rnd=rand(chancetotal)
    chosenpkmn=0
    chance=0
    for i in 0...chances.length
    chance+=chances
    if rnd<chance
    chosenpkmn=i
    break
    end
    end
    encounter=@enctypes[enctype][chosenpkmn]
    return nil if !encounter
    level=encounter[1]+rand(1+encounter[2]-encounter[1])
    return [encounter[0],level]
    end
    def pbCanEncounter?(encounter)
    return false if !encounter || !$Trainer
    if $PokemonGlobal.repel>0 && $Trainer.ablePokemonCount>0 &&
    encounter[1]<=$Trainer.ablePokemonParty[0].level
    return false
    end
    if $game_system.encounter_disabled || ($DEBUG && Input.press?(Input::CTRL))
    return false
    end
    return true
    end
    def pbGenerateEncounter(enctype)
    if enctype<0 || enctype>EncounterTypes::EnctypeChances.length
    raise ArgumentError.new(_INTL("Encounter type out of range"))
    end
    return nil if @density==nil
    return nil if @density[enctype]==0 || !@density[enctype]
    return nil if @enctypes[enctype]==nil
    @stepcount+=1
    return nil if @stepcount<=3 # Check three steps after battle ends
    encount=@density[enctype]*16
    if $PokemonGlobal.bicycle
    encount=(encount*4/5)
    end
    if $PokemonMap.blackFluteUsed
    encount/=2
    end
    if $PokemonMap.whiteFluteUsed
    encount=(encount*3/2)
    end
    if $Trainer.party.length>0 && !$Trainer.party[0].egg?
    if isConst?($Trainer.party[0].item,PBItems,:CLEANSETAG)
    encount=(encount*2/3)
    elsif isConst?($Trainer.party[0].item,PBItems,:PUREINCENSE)
    encount=(encount*2/3)
    end
    if isConst?($Trainer.party[0].ability,PBAbilities,:STENCH)
    encount=(encount/2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:WHITESMOKE)
    encount=(encount/2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:QUICKFEET)
    encount=(encount/2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:SNOWCLOAK) &&
    $game_screen.weather_type==3
    encount=(encount/2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:SANDVEIL) &&
    $game_screen.weather_type==4
    encount=(encount/2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:SWARM)
    encount=(encount*3/2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:ILLUMINATE)
    encount=(encount*2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:ARENATRAP)
    encount=(encount*2)
    elsif isConst?($Trainer.party[0].ability,PBAbilities,:NOGUARD)
    encount=(encount*2)
    end
    end
    return nil if rand(2874)>=encount
    encpoke=pbEncounteredPokemon(enctype)
    if $Trainer.party.length>0 && !$Trainer.party[0].egg?
    if encpoke && isConst?($Trainer.party[0].ability,PBAbilities,:INTIMIDATE) &&
    encpoke[1]<=$Trainer.party[0].level-5 && rand(2)==0
    encpoke=nil
    end
    if encpoke && isConst?($Trainer.party[0].ability,PBAbilities,:KEENEYE) &&
    encpoke[1]<=$Trainer.party[0].level-5 && rand(2)==0
    encpoke=nil
    end
    end
    return encpoke
    end
    end

     

    -Il secondo problema, meno importante del primo, riguarda il legare un animazione ad un evento script...Mi spiego meglio.

    Nel mio gioco vi saranno presenti le Megaevoluzioni il problema è che esse, per la trasformazione, non ha alcuna animazione...Quello che vorrei fare è aggiungere un animazione nel passaggio di mutazione in modo da rendere il tutto più gradevole alla vista. Mi sapreste aiutare in merito?

     

    Vi ringrazio in anticipo!!!!!!!!!!!!!

    Pokemon Remake

    in Reclutamento XP

    Posted

    beh sicuramente, man mano che mi approccerò a questo programma, cercherò di sviluppare qualcosa di interessante (magari qualche zona aggiuntiva o segreta) sempre se ci sarete voi a consigliarmi ;)

    Pokemon Remake

    in Reclutamento XP

    Posted

    si Make...il mio obiettivo è rimanere il più fedele possibile alle regioni del gioco originale, dare all'utente la possibilità di ritrovarsi nelle piccole cose ma allo stesso tempo dargli un ventata di novità (esempio la scelta della regione di partenza, l'online tramite PC e poter finalmente catturare tutti i pokemon, cosa che in precedenza non potevi fare o lo facevi tramite codici) cmq ti ribadisco sempre che voglio lavorare con te visto che sei molto interessato :tongue:

×
×
  • Create New...