+- Save-Point (https://www.save-point.org)
+-- Forum: Archives (https://www.save-point.org/forum-105.html)
+--- Forum: Creation Asylum Archives (https://www.save-point.org/forum-90.html)
+---- Forum: Scripts & Code Snippets (https://www.save-point.org/forum-92.html)
+----- Forum: RPG Maker XP Code (https://www.save-point.org/forum-93.html)
+----- Thread: My first minigame, guess the number (/thread-6791.html)
My first minigame, guess the number - Sheol - 09-10-2005
This is a locked, single-post thread from Creation Asylum. Archived here to prevent its loss.
No support is given. If you are the owner of the thread, please contact administration.
No support is given. If you are the owner of the thread, please contact administration.
Here's
Old Code
Code:
#-----------------------------------------------------------------
# Slipknot's Numbers
#-----------------------------------------------------------------
class Slipknot_Game
#-----------------------------------------------------------------
def initialize(menu_index = 0)
@menu_index = menu_index
end
#-----------------------------------------------------------------
def main
@spriteset = Spriteset_Map.new; bor = 8
a="Bet "; b=$data_system.words.gold
s1=a+"500 "+b; s2=a+"1000 "+b
s3=a+"1500 "+b; s4=a+"2000 "+b
s5="Cancel"
t1="Hight"; t2="Low"
@com = Window_Command.new(160,[s1,s2,s3,s4,s5])
@com.index = @menu_index; @com.x = bor; @com.y = bor; can
@numw1 = Numwin.new
@numw1.x = 320 - @numw1.width/2
@numw1.y = 240 - @numw1.height
@numw2 = Numwin.new
@numw2.x = @numw1.x; @numw2.y = @numw1.y
@how = Window_Command.new(100,[t1,t2])
visacc(@how,false)
@how.x = 320 - @how.width/2
@how.y = @numw1.y+@numw1.height
@win = Win.new
@win.x = 320 - @win.width/2
@win.y = @how.y
@gold = Window_Gold.new
@gold.x = bor
@gold.y = @com.height + bor
Graphics.transition
loop do
Graphics.update; Input.update; update
if $scene != self; break; end
end
Graphics.freeze; @spriteset.dispose
@com.dispose; @numw1.dispose
@numw2.dispose; @how.dispose
@gold.dispose
end
#-----------------------------------------------------------------
def update
@com.update; @numw1.update
@numw2.update; @how.update
@gold.update
if @com.active; update_com; return; end
if @how.active; update_how; return; end
end
#-----------------------------------------------------------------
def delay(seconds)
for i in 0...(seconds*1)
sleep 0.01; Graphics.update
end
end
#-----------------------------------------------------------------
def can
@com.refresh
gold = $game_party.gold
if gold < 500; @com.disable_item(0); @com.disable_item(1)
@com.disable_item(2); @com.disable_item(3); @dis = 1
elsif gold == 500..999; @com.disable_item(1)
@com.disable_item(2); @com.disable_item(3); @dis = 2
elsif gold == 1000..1499; @com.disable_item(2)
@com.disable_item(3); @dis = 3
elsif gold == 1500..1999; @com.disable_item(3)
@dis = 4
else; @dis = 0; end
end
#-----------------------------------------------------------------
def visacc(w,tf)
w.visible = tf; w.active = tf
end
#-----------------------------------------------------------------
def update_com
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = Scene_Map.new; return
end
if Input.trigger?(Input::C)
case @com.index
when 0
if @dis == 1
$game_system.se_play($data_system.buzzer_se); return
end; @bet = 500; comacc
when 1
if @dis == 2
$game_system.se_play($data_system.buzzer_se); return
end; @bet = 1000; comacc
when 2
if @dis == 2 or @dis == 3
$game_system.se_play($data_system.buzzer_se); return
end; @bet = 1500; comacc
when 3
if @dis == 2 or @dis == 3 or @dis == 4
$game_system.se_play($data_system.buzzer_se); return
end; @bet = 2000; comacc
when 4; $scene = Scene_Map.new
end; return
end
end
#-----------------------------------------------------------------
def update_how
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
visacc(@how,false)
@numw1.visible = false; @com.active = true
end
if Input.trigger?(Input::C)
case @how.index
when 0; howacc
when 1; howacc
end; return
end
end
#-----------------------------------------------------------------
def comacc
$game_system.se_play($data_system.decision_se)
@com.active = false
@number1 = rand(9)
@number2 = rand(9)
@numw1.visible = true
@numw1.ref(@number1.to_s)
visacc(@how,true)
end
#-----------------------------------------------------------------
def howacc
visacc(@how,false)
@numw1.visible = false
@numw2.ref(@number2.to_s)
@numw2.visible = true
if @how.index == 0
if @number2 > @number1; sys(0)
elsif @number2 == @number1; sys(1)
else; sys(2); end
elsif @how.index == 1
if @number2 < @number1; sys(0)
elsif @number2 == @number1; sys(1)
else; sys(2); end
end
@win.visible = true
can; delay(40); @win.visible = false
@numw2.visible = false; @com.active = true
end
#-----------------------------------------------------------------
def sys(a)
case a
when 0; @win.ref("WIN")
$game_party.gain_gold(@bet*2); @gold.refresh
when 1; @win.ref("DRAW")
when 2;@win.ref("LOSE")
$game_party.lose_gold(@bet); @gold.refresh
end
end
#-----------------------------------------------------------------
end
#-----------------------------------------------------------------
class Numwin < Window_Base
#-----------------------------------------------------------------
def initialize
super(0,0,68,68)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = $defaultfonttype
self.visible = false; self.contents.font.size = 36
ref("!")
end
#-----------------------------------------------------------------
def ref(txt)
self.contents.clear; self.contents.draw_text(0,0,36,36,txt,1)
end
#-----------------------------------------------------------------
end
#-----------------------------------------------------------------
class Win < Window_Base
#-----------------------------------------------------------------
def initialize
super(0,0,96,64)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = $defaultfonttype
self.visible = false; self.contents.font.size = 32
ref("")
end
#-----------------------------------------------------------------
def ref(txt)
self.contents.clear; self.contents.draw_text(0,0,64,32,txt,1)
end
#-----------------------------------------------------------------
end