Apprendre


Vous êtes
nouveau sur
Oniromancie?

Visite guidée
du site


Découvrir
RPG Maker

RM 95
RM 2000/2003
RM XP
RM VX/VX Ace
RM MV

Apprendre
RPG Maker

Guides
Tutoriels
Astuces
Making-of

Dans le
Forum

Section Entraide

Hébergés


Comment ça marche?

Aëdemphia
Par Sylvanor

Fighting Robots Quest
Par Boulon

Geex
Par roys

Inexistence
Par Falco

La Légende d'Ibabou
Par Zaitan

Nylu
Par NanakyTim

Sarcia
Par Kaëlar

Super Mario RPG - Lost Souls
Par Omegabowser

Tutos: [Maniacs] Damage Custom pour les (...) / Sorties: The Grand mother... / Jeux: Theia - The Crimson Eclipse / Astuces: Halos lumineux mobiles en (...) / Jeux: Super Mario Portal /

Chat  

Bienvenue
visiteur !




publicité RPG Maker!

Statistiques

Liste des
membres


Contact

Mentions légales

80 connectés actuellement

10598520 visiteurs
depuis l'ouverture

1598 visiteurs
aujourd'hui



Barre de séparation

Partenaires





Au hasard

Kingdom Ultimate

Zarok

Akademiya RPG Maker

Tashiroworld

RPG Maker - La Communauté

Les deux derniers

Hellsoft

Planète Glutko

Nos autres partenaires

Devenir
partenaire




Déplacement à la souris v2.0
Script pour RPG Maker XP
Ecrit par berka

Bonjour à tous,

Pour conclure cette si belle année, voici une seconde mouture de mon script de déplacement à la souris.
J'ai eu beaucoup de demandes de mise à jour. Après pas mal de temps, j'ai pris mon courage à deux mains et j'ai entièrement recodé le systeme. Globalement il est plus stable, plus rapide, mais aussi beaucoup plus complexe. Le contraire serait beaucoup moins drole.

Quoi de neuf?
- Nouvelle gestion du drag and drop par multithreading. Pour ceux à qui ca ne dit rien, c'est une sorte d'exécution parallèle de bouts de code. Bref, le résultat est plus rapide, mais le jeu est poussé à fond. Mais vous commencez à avoir l'habitude, après le calcul du système de brouillard de guerre.
- Maintenant, tous les événements sélectionnés se déplacent. Sauf pour des sélections trop grandes: le script de pathfinding (le meilleur actuellement, de Modern Algebra) est ce qu'il est, il ne réfléchit pas trop longtemps. C'est peut être la seule ombre au script. Mais on ne peut rien y faire.
- Les événements sélectionnés changent de couleur.
- Les bordure de l'écran sont réactives, comme dans Age Of Empires, il suffit de mettre sa souris sur un coté, pour faire défiler la carte.
- Mise en mémoire de la sélection d'événements jusqu'à nouvelle selection ou déselection.
- Voila tout, je pense. Si vous avez des suggestions, n'hésitez pas.

Voici en tout 4 scripts. A coller dans l'ordre suivant:

Citation:

Clavier
Souris
... tous les scripts
PathFinding
Déplacement
... main



Clavier

Spoiler: (sélectionnez le texte pour l'afficher)


Portion de code:



#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

# Gestion du Clavier
# par TLN et Lordrik, revu par Berka rgss2 (VX)
#--------------------------------------------------------------------------------------------------------------------------------------
# A placer au début de la liste de scripts, complètement. Ne pas utiliser deux scripts de clavier !
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

module Win32API::APIS
GAKS=Win32API.new("user32","GetAsyncKeyState",'i','i')
GKS=Win32API.new("user32","GetKeyState",'i','i')
KBDE=Win32API.new('user32','keybd_event','iii','')
end
include Win32API::APIS
module Input
class< Inconnu="Cette touche est inconnue"
TAB_KEY={'clic gauche'=>1,'clic droit'=>2,'clic milieu'=>4,
'sm'=>4,'del'=>8,'tab'=>9,'enter'=>13,'shift'=>16,'ctrl'=>17,'alt'=>18,
'pause'=>19,'caps lock'=>20,'esc'=>27,'space'=>32,'pg up'=>33,'pg down'=>34,
'end'=>35,'home'=>36,'left'=>37,'up'=>38,'right'=>39,'down'=>40,'impr'=>44,
'insert'=>45,'suppr'=>46,'à'=>48,'&'=>49,'é'=>50,'"'=>51,"'"=>52,'('=>53,
'-'=>54,'è'=>55,'_'=>56,'ç'=>57,'a'=>65,'b'=>66,'c'=>67,'d'=>68,'e'=>69,
'f'=>70,'g'=>71,'h'=>72,'i'=>73,'j'=>74,'k'=>75,'l'=>76,'m'=>77,'n'=>78,
'o'=>79,'p'=>80,'q'=>81,'r'=>82,'s'=>83,'t'=>84,'u'=>85,'v'=>86,'w'=>87,
'x'=>88,'y'=>89,'z'=>90,'lwin'=>91,'rwin'=>92,'fn'=>93,'altgr'=>95,'0'=>96,
'1'=>97,'2'=>98,'3'=>99,'4'=>100,'5'=>101,'6'=>102,'7'=>103,'8'=>104,
'9'=>105,'n*'=>106,'+'=>107,'num'=>108,'n-'=>109,'.'=>110,'/'=>111,
'F1'=>112,'F2'=>113,'F3'=>114,'F4'=>115,'F5'=>116,'F6'=>117,'F7'=>118,
'F8'=>119,'F9'=>120,'F10'=>121,'F11'=>122,'F12'=>123,'vernum'=>144,
'verdefil'=>145,'lmaj'=>160,'rmaj'=>161,'lctrl'=>162,'rctrl'=>163,
'lalt'=>164,'ralt'=>165,'$'=>186,'='=>187,','=>188,';'=>190,':'=>191,
'ù'=>192,')'=>219,'*'=>220,'^'=>221,'²'=>222,'!'=>223,'<'=>226}
RS=TAB_KEY.clone
RS.keys.each{|k|RS[k]=[false,false,10]}
Dirs=['left','up','right','down']
alias :in_upd :update
alias :in_trig? :trigger? # Berka: Compatibilité avec touches initiales
alias :in_pres? :press?
alias :in_rep? :repeat?
def press?(n);n.is_a?(Integer)? in_pres?(n): RS[n][0];end
def trigger?(n);n.is_a?(Integer)? in_trig?(n): RS[n][1]==1;end
def dbtrigger?(n);RS[n][1]==2;end
def repeat?(n);n.is_a?(Integer) ? in_rep?(n) : (RS[k][2]%=4;RS[n][2]==0&&RS[n][0]);end
def hold?(n);((RS[n][2]%20)==0)&&RS[n][0];end
def release?(n);RS[k][1]==-1;end
def active?(n);GKS.call(TAB_KEY[k])&1==1;end
def update(*tab)
in_upd()
if !tab.empty?
tab.each{|n|m=RS[n][0];pr=GAKS.call(TAB_KEY[n])!=0
tr=m==pr ? 0 : (pr ?(RS[n][2].between?(1,9)? 2 : 1) : -1)
count=tr>0 ? 0 : [R[n][2]+1,20].min
RS[n]=[pr,tr,count]}
else
TAB_KEY.keys.each{|n|
m=RS[n][0];pr=GAKS.call(TAB_KEY[n])!=0
tr=m==pr ? 0 : (pr ?(RS[n][2].between?(1,9)? 2 : 1) : -1)
count=tr>0 ? 0 : [RS[n][2]+1,20].min
RS[n]=[pr,tr,count]}
end
end
end
end



Souris

Spoiler: (sélectionnez le texte pour l'afficher)


Portion de code:



#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

# Gestion de la Souris
# par Cybersam et Nearfantastica, revu par Berka rgss2 (VX)
#--------------------------------------------------------------------------------------------------------------------------------------
# A placer au début de la liste de scripts, juste après le script de Clavier
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

module Win32API::APIS
GPPS=Win32API.new('kernel32','GetPrivateProfileString','pppplp','l')
GCPr=Win32API.new('kernel32','GetCurrentProcess','','i')
FW=Win32API.new('user32','FindWindow','pp','i')
SPC=Win32API.new('kernel32','SetPriorityClass','pi','i')
STC=Win32API.new('user32','ScreenToClient','lp','i')
GTR=Win32API.new('user32','GetClientRect','lp','i')
GCP=Win32API.new('user32','GetCursorPos','p','i')
SC=Win32API.new('user32','ShowCursor','l','l')
module_function
def getini(s)
GPPS.call("Game",s,"",v="\0"*0xff,0xff,".//Game.ini")
v.delete!("\0")
end
Handle=FW.call("RGSS Player",getini("Title"))
SPC.call(GCPr.call,128)
end
include Win32API::APIS
class Souris
attr_accessor :x,:y,:curseur
def initialize
@t||={};@curseur=Sprite.new;@curseur.z=9999
show;update
end
def update
@x,@y=client(*pos_glob)
width,height=t_client
@x=0 if @x<0;@y=0 if @y<0
@x=width if x>width;@y=height if @y>height
[@x,@y]
end
def show(b=false);@curseur.visible=!b;SC.call(b ? 1 : 0);end
def in?(x,y,w,h);return false if @x.nil?||@y.nil?;@x.between?(x,x+w)&&@y.between?(y,y+h);end
def pos_glob;p=[0,0].pack('ll');(GCP.call(p)!=0)? p.unpack('ll'): nil;end
def client(x,y);return nil unless x&;p=[x,y].pack('ll');(STC.call(Handle,p)!=0)? p.unpack('ll'): nil;end
def t_client;GTR.call(Handle,r=([0]*4).pack('l4'));r.unpack('l4')[2..3];end
def grid;[(@x+$game_map.display_x/8)/32,(@y+$game_map.display_y/8)/32];end
def drag(t,obj,&block) # Berka
return if @t[t].alive? rescue nil
@t[t]=Thread.new{ox,oy=@x,@y
while Input.press?(t)
((nx=@x)-ox>0)?(x1=ox;x2=nx-x1):(x1=nx;x2=ox-x1)
((ny=@y)-oy>0)?(y1=oy;y2=ny-y1):(y1=ny;y2=oy-y1)
obj.x,obj.y,obj.width,obj.height=x1,y1,x2,y2
Graphics.update
yield
end
obj.visible=false}
end
def drag_orig(t,x,y) # Berka
@b_x||=@x-x;@b_y||=@y-y
(@x-@b_x>0)?(x2=@x-@b_x):(x2=-(@b_x-@x))
(@y-@b_y>0)?(y2=@y-@b_y):(y2=-(@b_y-@y))
[x2,y2]
end
def shcurseur(*c) # Berka
@curseur.bitmap=Cache.system(c.first)
@curseur.ox,@curseur.oy=*c[1..2]
rescue
@curseur.bitmap=Bitmap.new(24,24)
@curseur.bitmap.blt(0,0,Cache.system("Iconset"),Rect.new(24,0,24,24))
@curseur.ox,@curseur.oy=8,8
end
end
$souris||=Souris.new
module Graphics # Berka
class< alias :cur_update :update unless $@
def update
($souris.curseur.x,$souris.curseur.y=*$souris.update)if $souris
cur_update
end
end
end



Pathfinding

Spoiler: (sélectionnez le texte pour l'afficher)


Portion de code:



#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

# Pathfinding
# par Modern Algebra rgss2 (VX)
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

class Game_System
attr_accessor :pathfinding_diagonal,:pathfinding_iterations
alias modalg_pathfinding_options_init_j5yt initialize
def initialize
modalg_pathfinding_options_init_j5yt
@pathfinding_diagonal,@pathfinding_iterations=false,0
end
end
class Game_Character
def find_path(trgt_x,trgt_y,diagonal=$game_system.pathfinding_diagonal,
max_iterations=$game_system.pathfinding_iterations)
path=$game_map.find_path(self.x,self.y,trgt_x,trgt_y,diagonal,
max_iterations,self)
@move_route.list.delete_at(@move_route_index)
path.each { |i| @move_route.list.insert(@move_route_index,i) }
@move_route_index-=1
end
def force_path(trgt_x,trgt_y,diagonal=$game_system.pathfinding_diagonal,
max_iterations=$game_system.pathfinding_iterations)
path=$game_map.find_path(self.x,self.y,trgt_x,trgt_y,diagonal,
max_iterations,self)
path.reverse!
path.push(RPG::MoveCommand.new(0))
move_route=RPG::MoveRoute.new
move_route.list,move_route.repeat=path,false
force_move_route(move_route)
end
end
class Game_Map
def removefrom_binaryheap
@open_nodes[1],v=@open_nodes[@listsize],1
@listsize-=1
loop do
w=2*(u=v)
if w+1<=@listsize
v=w if @total_cost[@open_nodes]>=@total_cost[@open_nodes[w]]
v=w+1 if @total_cost[@open_nodes[v]]>=@total_cost[@open_nodes[w+1]]
elsif w<=@listsize
v=w if @total_cost[@open_nodes]>=@total_cost[@open_nodes[w]]
end
if u==v;break;else
temp=@open_nodes
@open_nodes=@open_nodes[v]
@open_nodes[v]=temp
end
end
end
def find_path(src_x,src_y,trgt_x,trgt_y,diagonal,max_iterations,char)
path=[]
return path if !char.passable?(trgt_x,trgt_y)
max_elements=width*height+2
openx=Table.new(max_elements)
openy=Table.new(max_elements)
@open_nodes=Table.new(max_elements)
@total_cost=Table.new(max_elements)
heuristic=Table.new(max_elements)
step_cost=Table.new(width,height)
parent_x=Table.new(width,height)
parent_y=Table.new(width,height)
actual_list=Table.new(width,height)
new_openid,@open_nodes[1]=1,1
openx[1],openy[1]=src_x,src_y
dist=[(trgt_x-src_x).abs,(trgt_y-src_y).abs]
heuristic[1]=diagonal ? (dist.max*14)+(dist.min*10):(dist[0]+dist[1])*10
@total_cost[1]=heuristic[1]
actual_list[src_x,src_y]=1
@listsize,count=1,0
loop do
break if actual_list[trgt_x,trgt_y]!=0
count+=1
Graphics.update if count%500==0
return path if count==max_iterations
return path if @listsize==0
node=@open_nodes[1]
parent_xval,parent_yval=openx[node],openy[node]
actual_list[parent_xval,parent_yval]=2
removefrom_binaryheap
for i in 0...8
break if i>3&&!diagonal
x,y=case i
when 0 then [parent_xval,parent_yval-1] # UP
when 1 then [parent_xval,parent_yval+1] # DOWN
when 2 then [parent_xval-1,parent_yval] # LEFT
when 3 then [parent_xval+1,parent_yval] # RIGHT
when 4 then [parent_xval-1,parent_yval-1] # UP LEFT
when 5 then [parent_xval+1,parent_yval-1] # UP RIGHT
when 6 then [parent_xval-1,parent_yval+1] # DOWN LEFT
when 7 then [parent_xval+1,parent_yval+1] # DOWN RIGHT
end
next if actual_list[x,y] == 2
next unless char.passable?(x,y)
if i > 3
next unless case i
when 4 then char.passable?(x+1,y)||char.passable?(x,y+1)
when 5 then char.passable?(x-1,y)||char.passable?(x,y+1)
when 6 then char.passable?(x+1,y)||char.passable?(x,y-1)
when 7 then char.passable?(x-1,y)||char.passable?(x,y-1)
end
end
plus_step_cost=((x-parent_xval).abs+(y-parent_yval).abs)>1 ? 14 : 10
temp_step_cost=step_cost[parent_xval,parent_yval]+plus_step_cost
if actual_list[x,y]==1
if temp_step_cost parent_x[x,y]=parent_xval
parent_y[x,y]=parent_yval
step_cost[x,y]=temp_step_cost
index=1
while index<@listsize;index+=1
break if openx[@open_nodes[index]]==x &&openy[@open_nodes[index]]==y
end
@total_cost[@open_nodes[index]]=temp_step_cost+heuristic[@open_nodes[index]]
else
next
end
else
new_openid+=1;@listsize+=1
@open_nodes[@listsize]=new_openid
step_cost[x,y]=temp_step_cost
d=[(trgt_x-x).abs,(trgt_y-y).abs]
heuristic[new_openid]=diagonal ? (d.max*14)+(d.min*10) : (d[0]+d[1])*10
@total_cost[new_openid]=temp_step_cost+heuristic[new_openid]
parent_x[x,y],parent_y[x,y]=parent_xval,parent_yval
openx[new_openid],openy[new_openid]=x,y
index,actual_list[x,y]=@listsize,1
end
while index!=1
temp_node=@open_nodes[index]
if @total_cost[temp_node]<=@total_cost[@open_nodes[index / 2]]
@open_nodes[index]=@open_nodes[index / 2]
index/=2;@open_nodes[index]=temp_node
else;break
end
end
end
end
path_x,path_y=trgt_x,trgt_y
while path_x!=src_x||path_y!=src_y
prnt_x,prnt_y=parent_x[path_x,path_y],parent_y[path_x,path_y]
if path_xprnt_y ? 5 : 2
elsif path_x>prnt_x ;code=path_yprnt_y ? 6 : 3
else ;code=path_y end
path.push(RPG::MoveCommand.new(code))
path_x,path_y=prnt_x,prnt_y
end
return path
end
end



Déplacement

Spoiler: (sélectionnez le texte pour l'afficher)


Portion de code:



#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

# Déplacement à la souris II Reloaded
# par Berka 31/12/2009 rgss2 (VX)
#--------------------------------------------------------------------------------------------------------------------------------------
# Ne pas publier sans autorisation expresse. http://www.rpgmakervx-fr.com
#--------------------------------------------------------------------------------------------------------------------------------------
# Selection de personnages à la souris avec rectangle de sélection
# Déplacement par clic droit
# Scroll de la carte lorsque la souris est placée sur le bord de la fenetre
# Déplacement du héro si rien n'est sélectionné
#--------------------------------------------------------------------------------------------------------------------------------------
# Nécessite les scripts, normalement fournis avec ce script
# - Clavier : crédits à TLN et Lordrik (script amélioré, support des touches de jeu par berka)
# - Souris : crédits à Cybersam et Nearfantastica (ajout de la fonction drag&drop par berka)
# - Pathfinding : crédits à Modern Algebra (tiré de l'algo A* expliqué par M.Lester)
#--------------------------------------------------------------------------------------------------------------------------------------
# Tous les Réglages se font dans le présent script.
# Bien mettre le commentaire "mobile" dans chaque événement déplacable. Sinon ca ne marche pas !
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
module Berka
module Selection
T_Select = "clic gauche" # Touche de Sélection
T_Bouge = "clic droit" # Touche de déplacement (cf. script Clavier)
N_Curseur = "normal.png" # Image du Curseur, placée dans ./System (Icone par défaut)
Comment = "mobile" # Commentaire à ajouter aux events déplacables
C_Selbord = Color.new(0,255,0,180) # Couleur du bord du rectangle de selection
C_Selfond = Color.new(0,255,0,80) # Couleur du fonds du rectangle de sélection
TonSelect = Tone.new(0,255,0,20) # Couleur des events selectionnés
MargeScroll = 16 # Bordure de l'écran réactif au scroll
VitesseScroll = 7 # Vitesse du scroll de la carte
end
end
include Berka::Selection
$souris.shcurseur(N_Curseur,8,8)
$deplevents||={}
class Scene_Map alias :select_start :start
alias :select_update :update
alias :select_terminate :terminate
def start
@select,@events=Sprite_Select.new,[]
select_start
end
def update
select_update
return if !$souris
if Input.trigger?(T_Bouge)
x,y=$souris.grid[0],$souris.grid[1]
return $game_player.force_path(x,y)if @events.empty?
Thread.new{@events.each{|e|e.force_path(x,y) if e.is_a?(Game_Event)}}
sleep(0.01)
end
if Input.press?(T_Select)
clear
@select.visible=true
$souris.drag(T_Select,@select){@events=$deplevents.select{|e,c|@select.chk?(*c)}.flatten
@events.each{|e|e.selection=true if e.is_a?(Game_Event)}
@select.update}
return
end
chk_scroll
end
def clear
@events.each{|e|e.selection=false if e.is_a?(Game_Event)}
@events.clear
end
def terminate
@select.dispose
select_terminate
end
def chk_scroll
m=MargeScroll;x,y=$souris.update
i=2 if x.between?(0,544-m)&&y.between?(416-m,416)
i=4 if x.between?(0,m)&&y.between?(0,416-m)
i=6 if x.between?(544-m,544)&&y.between?(m,416)
i=8 if x.between?(m,544)&&y.between?(0,m)
$game_map.start_scroll(i,1,VitesseScroll)if i
end
end
class Sprite_Select attr_writer :width,:height,:rect
def initialize
super
self.bitmap=Bitmap.new(544,416)
@width,@height=0,0
end
def update
super
self.bitmap.clear
self.bitmap.fill_rect(0,0,@width,@height,C_Selbord)
self.bitmap.fill_rect(1,1,@width-2,@height-2,C_Selfond)
end
def chk?(x,y)
x-=$game_map.display_x/8;y-=$game_map.display_y/8
x.between?(self.x,self.x+@width)&&y.between?(self.y,self.y+@height)
end
end
class Game_Character
alias :select_cinit :initialize
attr_accessor :tone
def initialize
@tone=Tone.new(0,0,0,0)
select_cinit
end
end
class Game_Event alias :select_init :initialize
alias :select_upd :update
attr_accessor :selection
def initialize(*args)
select_init(*args)
@selection=false
for i in 0...@list.size;@bouge=true if @list.parameters[0]==Comment;end
end
def update
$deplevents[self]=[self.screen_x,self.screen_y]if @bouge
@tone=(@selection ? TonSelect : Tone.new(0,0,0,0))
select_upd
end
end
class Sprite_Character alias :select_upd :update
def update
self.tone=@character.tone
select_upd
end
end




Voila, j'espère qu'il vous plaira. Bien sur, demandez moi avant de poster ce script à droit à gauche. Simple question de politesse.

berka


nuki - posté le 02/01/2010 à 12:03:10 (0 messages postés)

❤ 0

Merci beaucouyp berka, c'est impressionnant.
Une très bonne année 2010


berka - posté le 02/01/2010 à 12:12:46 (493 messages postés)

❤ 0

planchant sur un script

Tiens les scripts sont coupés. Il en manque une grosse partie.

clavier:

Portion de code : Tout sélectionner

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#                                                                  Gestion du Clavier
# par TLN et Lordrik, revu par Berka                                                                    rgss2 (VX)
#--------------------------------------------------------------------------------------------------------------------------------------
# A placer au début de la liste de scripts, complètement. Ne pas utiliser deux scripts de clavier !
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
module Win32API::APIS
  GAKS=Win32API.new("user32","GetAsyncKeyState",'i','i') 
  GKS=Win32API.new("user32","GetKeyState",'i','i') 
  KBDE=Win32API.new('user32','keybd_event','iii','')
end
include Win32API::APIS
module Input
  class<<self
    Inconnu="Cette touche est inconnue"
    TAB_KEY={'clic gauche'=>1,'clic droit'=>2,'clic milieu'=>4,
            'sm'=>4,'del'=>8,'tab'=>9,'enter'=>13,'shift'=>16,'ctrl'=>17,'alt'=>18,
            'pause'=>19,'caps lock'=>20,'esc'=>27,'space'=>32,'pg up'=>33,'pg down'=>34,
            'end'=>35,'home'=>36,'left'=>37,'up'=>38,'right'=>39,'down'=>40,'impr'=>44,
            'insert'=>45,'suppr'=>46,'à'=>48,'&'=>49,'é'=>50,'"'=>51,"'"=>52,'('=>53,
            '-'=>54,'è'=>55,'_'=>56,'ç'=>57,'a'=>65,'b'=>66,'c'=>67,'d'=>68,'e'=>69,
            'f'=>70,'g'=>71,'h'=>72,'i'=>73,'j'=>74,'k'=>75,'l'=>76,'m'=>77,'n'=>78,
            'o'=>79,'p'=>80,'q'=>81,'r'=>82,'s'=>83,'t'=>84,'u'=>85,'v'=>86,'w'=>87,
            'x'=>88,'y'=>89,'z'=>90,'lwin'=>91,'rwin'=>92,'fn'=>93,'altgr'=>95,'0'=>96,
            '1'=>97,'2'=>98,'3'=>99,'4'=>100,'5'=>101,'6'=>102,'7'=>103,'8'=>104,
            '9'=>105,'n*'=>106,'+'=>107,'num'=>108,'n-'=>109,'.'=>110,'/'=>111,
            'F1'=>112,'F2'=>113,'F3'=>114,'F4'=>115,'F5'=>116,'F6'=>117,'F7'=>118,
            'F8'=>119,'F9'=>120,'F10'=>121,'F11'=>122,'F12'=>123,'vernum'=>144,
            'verdefil'=>145,'lmaj'=>160,'rmaj'=>161,'lctrl'=>162,'rctrl'=>163,
            'lalt'=>164,'ralt'=>165,'$'=>186,'='=>187,','=>188,';'=>190,':'=>191,
            'ù'=>192,')'=>219,'*'=>220,'^'=>221,'²'=>222,'!'=>223,'<'=>226} 
    RS=TAB_KEY.clone
    RS.keys.each{|k|RS[k]=[false,false,10]}
    Dirs=['left','up','right','down']
    alias :in_upd :update 
    alias :in_trig? :trigger? # Berka: Compatibilité avec touches initiales
    alias :in_pres? :press?
    alias :in_rep? :repeat?
    def press?(n);n.is_a?(Integer)? in_pres?(n): RS[n][0];end 
    def trigger?(n);n.is_a?(Integer)? in_trig?(n): RS[n][1]==1;end 
    def dbtrigger?(n);RS[n][1]==2;end 
    def repeat?(n);n.is_a?(Integer) ? in_rep?(n) : (RS[k][2]%=4;RS[n][2]==0&&RS[n][0]);end 
    def hold?(n);((RS[n][2]%20)==0)&&RS[n][0];end 
    def release?(n);RS[k][1]==-1;end 
    def active?(n);GKS.call(TAB_KEY[k])&1==1;end 
    def update(*tab)
      in_upd()
      if !tab.empty?
        tab.each{|n|m=RS[n][0];pr=GAKS.call(TAB_KEY[n])!=0 
          tr=m==pr ? 0 : (pr ?(RS[n][2].between?(1,9)? 2 : 1) : -1) 
          count=tr>0 ? 0 : [R[n][2]+1,20].min 
          RS[n]=[pr,tr,count]}
      else 
        TAB_KEY.keys.each{|n| 
          m=RS[n][0];pr=GAKS.call(TAB_KEY[n])!=0 
          tr=m==pr ? 0 : (pr ?(RS[n][2].between?(1,9)? 2 : 1) : -1) 
          count=tr>0 ? 0 : [RS[n][2]+1,20].min 
          RS[n]=[pr,tr,count]}
      end 
    end 
  end
end



Souris

Portion de code : Tout sélectionner

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#                                                                  Gestion de la Souris
# par Cybersam et Nearfantastica, revu par Berka                                                                    rgss2 (VX)
#--------------------------------------------------------------------------------------------------------------------------------------
# A placer au début de la liste de scripts, juste après le script de Clavier
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
module Win32API::APIS
  GPPS=Win32API.new('kernel32','GetPrivateProfileString','pppplp','l')
  GCPr=Win32API.new('kernel32','GetCurrentProcess','','i')
  FW=Win32API.new('user32','FindWindow','pp','i')
  SPC=Win32API.new('kernel32','SetPriorityClass','pi','i')
  STC=Win32API.new('user32','ScreenToClient','lp','i')
  GTR=Win32API.new('user32','GetClientRect','lp','i')
  GCP=Win32API.new('user32','GetCursorPos','p','i')
  SC=Win32API.new('user32','ShowCursor','l','l')
  module_function
  def getini(s)
    GPPS.call("Game",s,"",v="\0"*0xff,0xff,".//Game.ini")
    v.delete!("\0")
  end
  Handle=FW.call("RGSS Player",getini("Title"))
  SPC.call(GCPr.call,128)
end
include Win32API::APIS
class Souris
  attr_accessor :x,:y,:curseur
  def initialize
    @t||={};@curseur=Sprite.new;@curseur.z=9999
    show;update
  end
  def update
    @x,@y=client(*pos_glob)
    width,height=t_client
    @x=0 if @x<0;@y=0 if @y<0
    @x=width if x>width;@y=height if @y>height
    [@x,@y]
  end
  def show(b=false);@curseur.visible=!b;SC.call(b ? 1 : 0);end
  def in?(x,y,w,h);return false if @x.nil?||@y.nil?;@x.between?(x,x+w)&&@y.between?(y,y+h);end
  def pos_glob;p=[0,0].pack('ll');(GCP.call(p)!=0)? p.unpack('ll'): nil;end
  def client(x,y);return nil unless x&&y;p=[x,y].pack('ll');(STC.call(Handle,p)!=0)? p.unpack('ll'): nil;end
  def t_client;GTR.call(Handle,r=([0]*4).pack('l4'));r.unpack('l4')[2..3];end
  def grid;[(@x+$game_map.display_x/8)/32,(@y+$game_map.display_y/8)/32];end
  def drag(t,obj,&block) # Berka
    return if @t[t].alive? rescue nil
    @t[t]=Thread.new{ox,oy=@x,@y
      while Input.press?(t)
        ((nx=@x)-ox>0)?(x1=ox;x2=nx-x1):(x1=nx;x2=ox-x1)
        ((ny=@y)-oy>0)?(y1=oy;y2=ny-y1):(y1=ny;y2=oy-y1)
        obj.x,obj.y,obj.width,obj.height=x1,y1,x2,y2
        Graphics.update
        yield
      end
      obj.visible=false}
  end
  def drag_orig(t,x,y) # Berka
    @b_x||=@x-x;@b_y||=@y-y
    (@x-@b_x>0)?(x2=@x-@b_x):(x2=-(@b_x-@x))
    (@y-@b_y>0)?(y2=@y-@b_y):(y2=-(@b_y-@y))
    [x2,y2]
  end
  def shcurseur(*c) # Berka
    @curseur.bitmap=Cache.system(c.first)
    @curseur.ox,@curseur.oy=*c[1..2]
  rescue
    @curseur.bitmap=Bitmap.new(24,24)
    @curseur.bitmap.blt(0,0,Cache.system("Iconset"),Rect.new(24,0,24,24))
    @curseur.ox,@curseur.oy=8,8
  end
end
$souris||=Souris.new
module Graphics # Berka
  class<<self
    alias :cur_update :update unless $@
    def update
      ($souris.curseur.x,$souris.curseur.y=*$souris.update)if $souris
      cur_update
    end
  end
end



Pathfinding

Portion de code : Tout sélectionner

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#                                                                    Pathfinding
# par Modern Algebra                                                                                            rgss2 (VX)
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
class Game_System
  attr_accessor :pathfinding_diagonal,:pathfinding_iterations
  alias modalg_pathfinding_options_init_j5yt initialize
  def initialize
    modalg_pathfinding_options_init_j5yt
    @pathfinding_diagonal,@pathfinding_iterations=false,0
  end
end
class Game_Character
  def find_path(trgt_x,trgt_y,diagonal=$game_system.pathfinding_diagonal,
                    max_iterations=$game_system.pathfinding_iterations)
    path=$game_map.find_path(self.x,self.y,trgt_x,trgt_y,diagonal,
                    max_iterations,self)
    @move_route.list.delete_at(@move_route_index)
    path.each { |i| @move_route.list.insert(@move_route_index,i) }
    @move_route_index-=1
  end
  def force_path(trgt_x,trgt_y,diagonal=$game_system.pathfinding_diagonal,
                    max_iterations=$game_system.pathfinding_iterations)
    path=$game_map.find_path(self.x,self.y,trgt_x,trgt_y,diagonal,
                          max_iterations,self)
    path.reverse!
    path.push(RPG::MoveCommand.new(0))
    move_route=RPG::MoveRoute.new
    move_route.list,move_route.repeat=path,false
    force_move_route(move_route)
  end
end
class Game_Map
  def removefrom_binaryheap
    @open_nodes[1],v=@open_nodes[@listsize],1
    @listsize-=1
    loop do
      w=2*(u=v)
      if w+1<=@listsize 
        v=w if @total_cost[@open_nodes[u]]>=@total_cost[@open_nodes[w]]
        v=w+1 if @total_cost[@open_nodes[v]]>=@total_cost[@open_nodes[w+1]]
      elsif w<=@listsize 
        v=w if @total_cost[@open_nodes[u]]>=@total_cost[@open_nodes[w]]
      end
      if u==v;break;else
        temp=@open_nodes[u]
        @open_nodes[u]=@open_nodes[v]
        @open_nodes[v]=temp
      end
    end
  end
  def find_path(src_x,src_y,trgt_x,trgt_y,diagonal,max_iterations,char)
    path=[]
    return path if !char.passable?(trgt_x,trgt_y)
    max_elements=width*height+2
    openx=Table.new(max_elements)
    openy=Table.new(max_elements)
    @open_nodes=Table.new(max_elements)
    @total_cost=Table.new(max_elements)
    heuristic=Table.new(max_elements)
    step_cost=Table.new(width,height)
    parent_x=Table.new(width,height)
    parent_y=Table.new(width,height)
    actual_list=Table.new(width,height)
    new_openid,@open_nodes[1]=1,1
    openx[1],openy[1]=src_x,src_y
    dist=[(trgt_x-src_x).abs,(trgt_y-src_y).abs]
    heuristic[1]=diagonal ? (dist.max*14)+(dist.min*10):(dist[0]+dist[1])*10
    @total_cost[1]=heuristic[1]
    actual_list[src_x,src_y]=1
    @listsize,count=1,0
    loop do
      break if actual_list[trgt_x,trgt_y]!=0 
      count+=1
      Graphics.update if count%500==0
      return path if count==max_iterations
      return path if @listsize==0
      node=@open_nodes[1]
      parent_xval,parent_yval=openx[node],openy[node]
      actual_list[parent_xval,parent_yval]=2
      removefrom_binaryheap
      for i in 0...8
        break if i>3&&!diagonal
        x,y=case i
        when 0 then [parent_xval,parent_yval-1] # UP
        when 1 then [parent_xval,parent_yval+1] # DOWN 
        when 2 then [parent_xval-1,parent_yval] # LEFT 
        when 3 then [parent_xval+1,parent_yval] # RIGHT
        when 4 then [parent_xval-1,parent_yval-1] # UP LEFT
        when 5 then [parent_xval+1,parent_yval-1] # UP RIGHT
        when 6 then [parent_xval-1,parent_yval+1] # DOWN LEFT
        when 7 then [parent_xval+1,parent_yval+1] # DOWN RIGHT
        end
        next if actual_list[x,y] == 2
        next unless char.passable?(x,y) 
        if i > 3
          next unless case i
          when 4 then char.passable?(x+1,y)||char.passable?(x,y+1)
          when 5 then char.passable?(x-1,y)||char.passable?(x,y+1)
          when 6 then char.passable?(x+1,y)||char.passable?(x,y-1)
          when 7 then char.passable?(x-1,y)||char.passable?(x,y-1)
          end
        end
        plus_step_cost=((x-parent_xval).abs+(y-parent_yval).abs)>1 ? 14 : 10
        temp_step_cost=step_cost[parent_xval,parent_yval]+plus_step_cost
        if actual_list[x,y]==1
          if temp_step_cost<step_cost[x,y]
            parent_x[x,y]=parent_xval
            parent_y[x,y]=parent_yval
            step_cost[x,y]=temp_step_cost
            index=1
            while index<@listsize;index+=1
              break if openx[@open_nodes[index]]==x &&openy[@open_nodes[index]]==y
            end
            @total_cost[@open_nodes[index]]=temp_step_cost+heuristic[@open_nodes[index]]
          else
            next
          end
        else
          new_openid+=1;@listsize+=1 
          @open_nodes[@listsize]=new_openid
          step_cost[x,y]=temp_step_cost
          d=[(trgt_x-x).abs,(trgt_y-y).abs]
          heuristic[new_openid]=diagonal ? (d.max*14)+(d.min*10) : (d[0]+d[1])*10
          @total_cost[new_openid]=temp_step_cost+heuristic[new_openid]
          parent_x[x,y],parent_y[x,y]=parent_xval,parent_yval
          openx[new_openid],openy[new_openid]=x,y
          index,actual_list[x,y]=@listsize,1
        end
        while index!=1
          temp_node=@open_nodes[index]
          if @total_cost[temp_node]<=@total_cost[@open_nodes[index / 2]] 
            @open_nodes[index]=@open_nodes[index / 2]
            index/=2;@open_nodes[index]=temp_node
          else;break
          end
        end
      end
    end
    path_x,path_y=trgt_x,trgt_y
    while path_x!=src_x||path_y!=src_y
      prnt_x,prnt_y=parent_x[path_x,path_y],parent_y[path_x,path_y]
      if path_x<prnt_x;code=path_y<prnt_y ? 7 : path_y>prnt_y ? 5 : 2
      elsif path_x>prnt_x ;code=path_y<prnt_y ? 8 : path_y>prnt_y ? 6 : 3 
      else ;code=path_y<prnt_y ? 4 : 1
      end
      path.push(RPG::MoveCommand.new(code))
      path_x,path_y=prnt_x,prnt_y
    end
    return path
  end
end



Déplacement

Portion de code : Tout sélectionner

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#                                                  Déplacement à la souris II Reloaded
# par Berka                                                31/12/2009                                              rgss2 (VX)
#--------------------------------------------------------------------------------------------------------------------------------------
# Ne pas publier sans autorisation expresse. http://www.rpgmakervx-fr.com
#--------------------------------------------------------------------------------------------------------------------------------------
# Selection de personnages à la souris avec rectangle de sélection
# Déplacement par clic droit
# Scroll de la carte lorsque la souris est placée sur le bord de la fenetre
# Déplacement du héro si rien n'est sélectionné
#--------------------------------------------------------------------------------------------------------------------------------------
# Nécessite les scripts, normalement fournis avec ce script
# - Clavier : crédits à TLN et Lordrik (script amélioré, support des touches de jeu par berka)
# - Souris : crédits à Cybersam et Nearfantastica (ajout de la fonction drag&drop par berka)
# - Pathfinding : crédits à Modern Algebra (tiré de l'algo A* expliqué par M.Lester)
#--------------------------------------------------------------------------------------------------------------------------------------
# Tous les Réglages se font dans le présent script.            
# Bien mettre le commentaire "mobile" dans chaque événement déplacable. Sinon ca ne marche pas !
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
module Berka
  module Selection
    T_Select          = "clic gauche"                        # Touche de Sélection
    T_Bouge          = "clic droit"                            # Touche de déplacement (cf. script Clavier)
    N_Curseur      = "normal.png"                      # Image du Curseur, placée dans ./System (Icone par défaut)
    Comment        = "mobile"                              # Commentaire à ajouter aux events déplacables
    C_Selbord        = Color.new(0,255,0,180)  # Couleur du bord du rectangle de selection
    C_Selfond        = Color.new(0,255,0,80)      # Couleur du fonds du rectangle de sélection
    TonSelect        = Tone.new(0,255,0,20)      # Couleur des events selectionnés
    MargeScroll      = 16                                          # Bordure de l'écran réactif au scroll
    VitesseScroll  = 7                                            # Vitesse du scroll de la carte 
  end
end
include Berka::Selection
$souris.shcurseur(N_Curseur,8,8)
$deplevents||={}
class Scene_Map<Scene_Base
  alias :select_start :start
  alias :select_update :update
  alias :select_terminate :terminate    
  def start
    @select,@events=Sprite_Select.new,[]
    select_start
  end
  def update
    select_update
    return if !$souris
    if Input.trigger?(T_Bouge)
      x,y=$souris.grid[0],$souris.grid[1]
      return $game_player.force_path(x,y)if @events.empty?
      Thread.new{@events.each{|e|e.force_path(x,y) if e.is_a?(Game_Event)}}
      sleep(0.01)
    end
    if Input.press?(T_Select) 
      clear
      @select.visible=true
      $souris.drag(T_Select,@select){@events=$deplevents.select{|e,c|@select.chk?(*c)}.flatten
      @events.each{|e|e.selection=true if e.is_a?(Game_Event)}
      @select.update}
      return
    end
    chk_scroll
  end
  def clear
    @events.each{|e|e.selection=false if e.is_a?(Game_Event)}
    @events.clear
  end
  def terminate
    @select.dispose
    select_terminate
  end
  def chk_scroll
    m=MargeScroll;x,y=$souris.update
    i=2 if x.between?(0,544-m)&&y.between?(416-m,416)
    i=4 if x.between?(0,m)&&y.between?(0,416-m)
    i=6 if x.between?(544-m,544)&&y.between?(m,416)
    i=8 if x.between?(m,544)&&y.between?(0,m)
    $game_map.start_scroll(i,1,VitesseScroll)if i
  end
end
class Sprite_Select<Sprite_Base
  attr_writer :width,:height,:rect
  def initialize
    super
    self.bitmap=Bitmap.new(544,416)
    @width,@height=0,0
  end
  def update
    super
    self.bitmap.clear
    self.bitmap.fill_rect(0,0,@width,@height,C_Selbord) 
    self.bitmap.fill_rect(1,1,@width-2,@height-2,C_Selfond) 
  end
  def chk?(x,y)
    x-=$game_map.display_x/8;y-=$game_map.display_y/8
    x.between?(self.x,self.x+@width)&&y.between?(self.y,self.y+@height)
  end
end
class Game_Character
  alias :select_cinit :initialize
  attr_accessor :tone
  def initialize
    @tone=Tone.new(0,0,0,0)
    select_cinit
  end
end
class Game_Event<Game_Character
  alias :select_init :initialize
  alias :select_upd :update
  attr_accessor :selection
  def initialize(*args)
    select_init(*args)
    @selection=false
    for i in 0...@list.size;@bouge=true if @list[i].parameters[0]==Comment;end
  end
  def update
    $deplevents[self]=[self.screen_x,self.screen_y]if @bouge
    @tone=(@selection ? TonSelect : Tone.new(0,0,0,0))
    select_upd
  end
end
class Sprite_Character<Sprite_Base
  alias :select_upd :update
  def update
    self.tone=@character.tone
    select_upd
  end
end

Twitter: Pensées politiques et juridiques. Réflexions informatiques


Alkanédon - posté le 02/01/2010 à 14:03:07 (7671 messages postés)

❤ 0

Citoyen d'Alent

breka, j'ai deux questions :
1> c'est pour vx ou xp (de toute facon de test quand meme mais bon precise :))

2>ton site présent dans ta signature, tout les liens qui sont présents dans celui-ci ne mene nul-part !C'est normal ou ... ou c'est pas normal ?

Sinon merci, j'en aurais besoin par la suite dans un futur projet ;)


EDIT: J'ai testé et voilà pour vx et xp :(


image

Allez-y voir donc. Et followez-moi


berka - posté le 02/01/2010 à 14:15:36 (493 messages postés)

❤ 0

planchant sur un script

C'est sur VX, je l'ai mis dans le script, mais j'aurais du le remettre dans le message. Désolé.

Pour mon site, c'est normal je suis en train de faire une maxi màj dessus. A suivre dans deux-trois semaines.

Merci d'avoir testé,
berka

XP: normal que ca plante: la méthode include n'existe pas.
VX: t'as changé les paramètres du début du script ?

Twitter: Pensées politiques et juridiques. Réflexions informatiques


Lugian - posté le 27/02/2010 à 20:36:48 (12 messages postés)

❤ 0

Berka, pourquoi un script VX est dans la catégorie scripts XP ?


berka - posté le 27/02/2010 à 22:31:27 (493 messages postés)

❤ 0

planchant sur un script

Je sais pas. C'est pas moi qui classe.

Twitter: Pensées politiques et juridiques. Réflexions informatiques


SuperGregMaker - posté le 20/04/2010 à 00:44:06 (111 messages postés)

❤ 0

J'aime les trains.

Moi j'ai la version 1.0, comme un gros boulet j'ai mis et modifier les scripts (plus des 3/4 !!), et le jeu beugait ...

Surtout pour qu'il marche, j'avais juste a prendre le fichier data\scripts.rpgxp et remplacer le mien !!! :'(:'(:'(

Sinon je trouve que c'est un super script ! Merci bcp de l'upload
(PS : j'ai trouvé la 1.0 sur RPGCreative)

Que Dieu vous garde, j'ai plus de place chez moi ...


Kureno - posté le 19/09/2010 à 16:04:19 (277 messages postés)

❤ 0

Être ou ne pas être, telle est la question...

problème ligne 113, expliquez svp


Gta1998 - posté le 08/03/2011 à 11:10:55 (18 messages postés)

❤ 0

Maker_Débutant

Ligne 113 :'(


esziaprez - posté le 01/09/2011 à 23:21:40 (436 messages postés)

❤ 0

Je suis dans le game !

Moi j'ai une question très technique,... ...enfin j'ai mal à la tête à force de rechercher la solution au problème et une aide extérieur pourrait me sauver d'une explosion cérébrale certaine.

Donc : Le script pourrait servir dans l'un de mes projets mais au delà du déplacement il faudrait que les PNJ (personnage non joueur autrement dit pas le héros) puissent interagir avec certains éléments du décors (sous forme d'event).

Enfaite pour être clair je cherche à réaliser deux choses :

- le contact entre un événement "mobile" et un un événement quelconque du décor de mon choix active un interrupteur

J'ai pensé utiliser simplement la positions des événements avec un processus parallèle qui dit si la position de l'event X = celle de l'event Y alors...mais c'est long et fastidieux quand le nombre d'event augmente. Je ne suis pas feignant mais j'aime la facilité. Mais ça reste envisageable cependant ça ne résout pas mon deuxième problème.

- quand je clic droit sur certains des événements quelconques (donc qui ne sont pas mobile) cela n'engendre aucun déplacement mais plutôt l'activation d'un interrupteur.


De plus si il est possible de résoudre mon deuxième problème, il serait bien de permettre de changer l'icône au survol du curseur sur les événement qui n'engendre pas de déplacement.

Si il est possible à quelqu'un de m'aider.

En tout cas ce script est vraiment chouette et il ouvre de nombreuses possibilités de gameplay, merci Berka.

Projet en cours: INRAL / En pause :NEOTORI /// Pause : L'ANKH DE KINBRA /// Pause : GRASS SHOPPER  /// GALERIE


safeyth - posté le 07/01/2012 à 21:26:42 (6 messages postés)

❤ 0

Pour xp ? Comment on remplace la méthode "Include" ?? :/

Suite à de nombreux abus, le post en invités a été désactivé. Veuillez vous inscrire si vous souhaitez participer à la conversation.

Haut de page

Merci de ne pas reproduire le contenu de ce site sans autorisation.
Contacter l'équipe - Mentions légales

Plan du site:

Communauté: Accueil | News | Forum | Flash-news | Sorties | Chat | Commentaires | Galerie | Blogs | Articles perso | Screen de la semaine | Palmarès | Livre d'or | Recherche | Interviews | OST | L'Annuaire | Divers
Apprendre: Le Wiki | Tutoriels | Guides | Gaming-Live | Tests | Making-of
Télécharger: Programmes | Scripts | Packs de ressources | Midis | Eléments séparés | Sprites
Jeux: Index jeux séparés | Top Classiques | Top Originaux | Les autres | Collection Oniro | RPG Maker 95 | RPG Maker 2000 | RPG Maker 2003 | RPG Maker XP | RPG Maker VX | RPG Maker VX Ace | RPG Maker MV | Autres | Jeux complets | Proposer
Hébergés: Aëdemphia | Fighting Robots Quest | Geex | Inexistence | La Légende d'Ibabou | Nylu | Sarcia | Super Mario RPG - Lost Souls
Ressources RPG Maker 2000/2003: Chipsets | Charsets | Panoramas | Backdrops | Facesets | Battle anims | Battle charsets | Monstres | Systems | Templates
Ressources RPG Maker XP: Tilesets | Autotiles | Characters | Battlers | Window skins | Icônes | Transitions | Fogs | Templates
Ressources RPG Maker VX: Tilesets | Charsets | Facesets | Systèmes
Ressources RPG Maker MV: Tilesets | Characters | Faces | Systèmes | Title | Battlebacks | Animations | SV/Ennemis