闪电小绿的个人资料 - RAT

闪电小绿闪电小绿

关注数: 124 粉丝数: 150 发帖数: 1,975 关注贴吧数: 130

假如以撒更新骰子套大家觉得会是什么效果呢达成条件：一局roll过三个不同骰子/骰子碎片/触发碎骰子

【火星？】突然发现重生的商店页面最低配置有错别字？ RT，拼错了

牛爷爷请告诉我，海鲜市场可以买散热器吗 rt，感觉散热器应该不会坏吧？能便宜一点点

希望官方推出告示牌功能或者一切能在地上写字的功能这样就能在退游戏之前把目标写下来，防止再次打开游戏时一脸蒙蔽

前期强迫症，铺满了一整面，中后期再也不愁工业耗电这颗星球在母星系，目前总发电7G瓦

某渔村的实体店这价格算矿难吗

【今日首绷】翻帮主的H610I评论区，看到这条实在忍不住了

牛牛们，想不想看自制RGB的教程帖 rgb这玩意，diy是真的便宜… lz最近高考，结束之后想做做相关的教程，不知道吧友们有何想法

万元机需要上12700吗 rt，轻度打游戏，等之后淘2～3k的卡。日常写代码，玩一些占cpu的游戏（比如mc）

河坝的热度竟然是拱坝的两倍多？？感觉首页机制害人不浅

贴子收藏怎么变成几年前的了

浴霸扩散得好广点开一个，乐死啦

吧友都是人才系列哈哈哈哈

从隔壁放生吧搬来的够不够地狱

【淼】600组每分钟的电磁炮弹头供弹模块来点数据：弹头爆炸前速度大约1.7m/gt（向下）周期2gt（频率10Hz）体积：高度非常大，毕竟你没办法期待重力加速的东西体积小下来…… 单个弹头：包括10个间隔1gt的tnt 没了。

【从源码分析】为什么说方块和实体的交互永远无法绝对精准一楼喂熊，tnt镇楼

转贴:活动作品【MC】如何在复活末影龙的时候制造出无头活塞破基... q*w*q 【MC】如何在复活末影龙的时候制造出无头活塞破基岩_哔哩哔哩 (゜-゜)つロ干杯~-bilibili 转自:http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fwww.bilibili.com%2Fvideo%2Fav93606169%2F&urlrefer=dc800868e00250cfe8ef752f63e8bac3

【图】给op截图是一件好玩的事情

【截图】M23最新预告…… 我就不说什么了

【图片】随手截图是一个好习惯不定期发布有趣的图镇楼

【M23预告片】基德这一次装上发动机了？似乎背着发动机然后飞过来接柯南（瓶颈）的时候，身体后面有一圈白色的，应该就是螺旋桨 ……所以M14里面小柯吐槽滑翔翼没有动力源以后，现在又要装上去一个了？ “单人飞行装置”

【发牢骚】回顾以前的柯南时候总会有一些伤感…… 0.满月篇、黑衣骑士、死罗神……看到熟悉的OP和ED，突然反应过来，这已经是十多年前的东西了。 1.当时喜欢GarnetCrow乐队，后来才知道他们已经解散很久了。 2.看这些东西时有种考古的感觉，面对历史，明知道一切已经不可能再改变，却又忍不住喊出“新一，你不能这样……”。如果在十年前，我还可以给制作组寄刀片（雾），但是现在已经不行了 3.最近的几年里，感觉身边的东西不停地逝去。从各种漫画里作者开始为完结做准备，发便当，到熟悉的明星一个接着一个消失。 4.潜意识里，总是觉得现在还是2016年，当柯南还在准备20周年庆的时候。

【讨论】最近重温了M9，发现…… 性别启示海星

【珀事水】终于把女巫塔的墙糊完了不要问我为什么单女巫塔也要糊墙

【玩家交流】半砖&台阶光照Bug被修复了德芙的地下宫殿现在终于失效了

【Van♂家交流】村民工程真的是一项使人充满罪恶感的活动除了图书管理员以外全部杀光…… 不要骂我

【珀事水】钻石头盔的话这样应该永远用不坏了吧纪念一下我的【伪·全属性】钻石帽子

【够了】这是同一个足球你信吗？（第914集）（没错，又踢了一下）

【珀事水】。来自Wiki

【教程】侦测器到底怎么用一楼喂熊

Test

【玩家交流】【MC Wiki】原谅我笑出了声噗哈哈……

【JHer】上课铃换了原来的振动铃换成了“音乐”

【珀事水】懒得再打一次龙了果然活塞虫好用

论如何找到各种直播帖子

【玩家交流】**的末影螨小黑塔用到的死活不进矿车

【玩家交流】【1.13】讲真1.13水电梯&物品上传更方便做了

【玩家交流】1.13里Mojang到底要干什么是不是以后矿洞里面待一会儿就要上来透透气

某广场上的游戏体验站

还有人吗 @命幽

【评价？】复原了一下皮肤

【JHer】【8012.4.26】初二学农结束了不定期放图

【。。。】大家提一下意见

这年头截个屏都要自己编（这张是截出来的）

【图片】论如何制作一个柯南的MC皮肤（一点都不像是不是）右边是柯南的MMD模型，打开参考用的（要模型的话私信）现在在做内层，穿衬衫和胖次、白袜子~

【讨论】柏林噪声有谁用过吗？我卡在了插值上面看不懂...... （年龄是硬伤）

谁还记得这段舞蹈？（MMD）

【柯南】论画风突变虽然画风很像中期圆脸画风，但是这是947集

( -玩家交流-)所以主吧和“我的世界”吧到底有没有外交 (输入法坏了请见谅) RT,感觉现在百度贴吧对新手很不友好啊

【求助】死循环如题，在执行“Check1”时卡死以下是有关的代码（不用管Module2里面的内容，那是网上抄的API） ,====================================Module1============================== Option Explicit Public T%, numbersonce%, x%(1 To 47), Time%, n%(1 To 5), NU% '生成随机数1-T Public Function Ran() As Integer Dim x As Integer Do Randomize x = Int(T * Rnd + 1) Loop Until x <> n(1) And x <> n(2) And x <> n(3) And x <> n(4) And x <> n(5) Ran = x End Function '制作列表 1 - T不重复 Public Function MakeList(T As Integer) As Long Dim a%(1 To 65535) Dim b%, i%, ii%, iii% For i = 1 To T a(i) = i Next i For iii = 1 To T - NU Do b = Ran() x(iii) = a(b) Loop Until x(iii) <> 0 a(b) = 0 Next iii MsgBox ("已生成列表") Time = 0 End Function '利用Ran() '显示列表 Public Function NumberListShow() As Integer If Time < T Then Time = Time + 1 NumberListShow = x(Time) Else: MsgBox ("当前列表已经显示完，正在生成下一组") Dim ML As Integer ML = MakeList(T) Time = 0 End If End Function '==========================Module2（写入ini的API）====================== Declare Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpString As Any, _ ByVal lpFileName As String) As Long '=============================================Form1===================== Dim F As String, S As String '就是这里↓↓↓ Private Sub Check1_Click() If numbersonce = 0 Then numbersonce = 1 Else: numbersonce = 0 End If Dim ML As Integer If numbersonce = 1 Then ML = MakeList(T) End If End Sub Private Sub Command1_Click() Form2.Show vbModeless Form1.Hide End Sub Private Sub Debug_Click() F = "抽学号：1-" S = F & T 抽学号.Caption = S End Sub Private Sub Exit_Click() End End Sub Private Sub Form_Load() Dim ret As Long Dim buff As String buff = String(255, 0) ret = GetPrivateProfileString("Numbers_Filtered", "第一个", "0", buff, 256, "c:aa.ini") n(1) = buff buff = String(255, 0) ret = GetPrivateProfileString("Numbers_Filtered", "第二个", "0", buff, 256, "c:aa.ini") n(2) = buff buff = String(255, 0) ret = GetPrivateProfileString("Numbers_Filtered", "第三个", "0", buff, 256, "c:aa.ini") n(3) = buff buff = String(255, 0) ret = GetPrivateProfileString("Numbers_Filtered", "第四个", "0", buff, 256, "c:aa.ini") n(4) = buff buff = String(255, 0) ret = GetPrivateProfileString("Numbers_Filtered", "第五个", "0", buff, 256, "c:aa.ini") n(5) = buff buff = String(255, 0) ret = GetPrivateProfileString("ColourRGB", "R", "256", buff, 256, "c:aa.ini") r1 = buff buff = String(255, 0) ret = GetPrivateProfileString("ColourRGB", "G", "256", buff, 256, "c:aa.ini") g1 = buff buff = String(255, 0) ret = GetPrivateProfileString("ColourRGB", "B", "256", buff, 256, "c:aa.ini") b1 = buff buff = String(255, 0) ret = GetPrivateProfileString("Numbers_Total", "班级总人数", "47", buff, 256, "c:aa.ini") T = buff F = "抽学号：1-" S = F & T 抽学号.Caption = S Form1.BackColor = RGB(r1, g1, b1) If numbersonce = 0 Then Check1.Value = 0 Else: Check1.Value = 1 End If End Sub Private Sub Settings_Click() Form3.Show vbModeless End Sub Private Sub 开发者信息_Click() MsgBox ("作者：戎羿190632") End Sub Public Sub 抽学号_Click() If numbersonce = 1 Then 结果.Caption = NumberListShow Else [结果] = Ran End If End Sub '====================================================

【求助】密码破解 rt，同学给的密码柯吧吧友们动动脑筋～

【JHer】进华中学市场规则是smg（没错，我是萌新）【JHer】进华中学市场规则是smg （没错，我是萌新）

禅境花园原来不止是蜗牛能喂巧克力 RT，植物吃了巧克力之后，摆动速度加快，图金币也快了不止一倍 2333333333 蜗牛加两个巧克力都捡不过来

自己刻的橡皮章

Ize这是什么鬼花也忒多了吧

【03-19】金卡树留念

终于可以好好装逼了

【JHer】盘点理科班学生的噩梦一楼不发

对了，三体人怎么搜索人类的记忆对了，三体人怎么搜索人类的记忆？

【Android反馈】[androd反馈] 贴吧极速版客户端6.6.5.1, 2.3.3, HTC Desire, WIFI:客户端:6.33 机型:HTC desire A8181 WiFi 为什么收藏只显示一小部分?

1 下一页