电脑MOD例程集锦（持续更新中）

本帖最后由 DJXGAME 于 2012-9-17 00:11 编辑

——ComputerCraft语言例程集锦——

迎新版块，特翻译诸多国外MOD资料祝贺

名称：简易计算器
功能：实现加减乘除四则运算
代码：

名称：2D ASCII风格游戏
功能：玩游戏
代码：

--[[
place this file under .minecraft/mods/ComputerCraft/lua/rom/programs
to make a game with this api, make a new file and type shell.run('gameapi') at the top, the functions will then be available for you to use.
Breif Explanation of Functions:
actor:new(x, y, char[, bounded])
returns a new actor at the x and y positions on the terminal
bounded is a boolean which will determine whether or not your actor's movement is limited to the console window, true by default.
actor.x
the actor's x position
actor.y
the actor's y position
actor.char
the character representing the actor on screen
actor.bounded
whether or not the actor can go outside the screen
actor:setPos(x,y)
sets the actor's position
**this method and other positioning methods must be used in order for the actor's position to be updated onscreen
actor:addPos(x,y)
adds to the actor's position
actor:setX(n)
sets the actor's x position to n
actor:setY(n)
sets the actor's y position to n
actor:addX(n)
adds n to the actor's x position
actor:addY(n)
adds n to the actor's y position
actor:setChar(char)
change the actor's character to char
game.key(k)
user defined, triggered when a key is pressed
game.update()
user defined, triggered when a new frame is drawn
game.start()
required for the game to start, obviously
**any code after this function will not be ran until the game has stopped
game.stop()
quit the program
Example at http://pastebin.com/D78fft65
/*---*/
Changelog:
r1:
Released API
r4:
Added 'game:setChar()' to change an actor's characters
Added a 'bounded' attribute if you wanted an actor to be able to go outside the screen.
Added 'screen.width' and 'screen.height' as editable attributes to allow for custom widths and heights
r5:
Changed instructions for usage.
]]
term.clear()
print [[GameAPI r5
Press Backspace at any time to exit the game.]]
sleep(2)
screen = {}
screen.width = 40
screen.height = 15
screen.actors = {}
function round(v,int)
local int = (int~=nil) and int or 1
local n = v%int
if n >= int/2 then
return (v-n)+int
else
return (v-n)
end
end
for y=1,screen.height do
local t = {}
for x=1,screen.width do
table.insert(t,' ')
end
table.insert(screen.actors,t)
end
function draw()
term.clear()
for y,v in pairs(screen.actors) do
local line = ''
for x,vv in pairs(v) do
line = line .. vv
end
print(line)
end
end
function format(actor)
if actor.bounded then
actor.x = (actor.x>1) and actor.x or 1
actor.x = (actor.x<screen.width) and actor.x or screen.width
actor.y = (actor.y>1) and actor.y or 1
actor.y = (actor.y<screen.height) and actor.y or screen.height
end
screen.actors[round(actor.y)][round(actor.x)] = actor.char
return actor
end
actor = {}
function actor:new(x,y,char,b)
actor.x = x
actor.y = y
actor.char = char
actor.bounded = (b~=nil) and b or true
screen.actors[round(y)][round(x)] = char
return format(actor)
end
function actor:setPos(x,y)
screen.actors[actor.y][actor.x] = ' '
actor.x = x
actor.y = y
actor = format(actor)
end
function actor:setX(x)
screen.actors[actor.y][actor.x] = ' '
actor.x = x
actor = format(actor)
end
function actor:setY(y)
screen.actors[actor.y][actor.x] = ' '
actor.y = y
actor = format(actor)
end
function actor:addPos(x,y)
screen.actors[actor.y][actor.x] = ' '
actor.x = actor.x + x
actor.y = actor.y + y
actor = format(actor)
end
function actor:addX(x)
screen.actors[actor.y][actor.x] = ' '
actor.x = actor.x + x
actor = format(actor)
end
function actor:addY(y)
screen.actors[actor.y][actor.x] = ' '
actor.y = actor.y + y
actor = format(actor)
end
function actor:setChar(char)
screen.actors[actor.y][actor.x] = char
actor.char = char
end
function actor:destroy()
screen.actors[actor.y][actor.x] = ' '
actor = nil
end
game = {}
game.state = 'running'
function game.quit()
term.clear()
game.state = 'dead'
end
function game.start()
os.startTimer(1/30)
while game.state == 'running' do
local t,k = os.pullEvent()
if t == 'timer' then
draw()
if game.update ~= nil then game.update() end
os.startTimer(1/30)
elseif t == 'key' then
if k == 14 then
game.quit()
else
if game.key ~= nil then game.key(k) end
end
end
end
end

复制代码

名称：时钟
功能：计时
代码：

名称：腾讯QQ
功能：聊天
代码：

sClockIn = "left"
sClockOut = "bottom"
sDataIn = "right"
sDataOut = "top"
sUserName = "???"
local bClock = false
local a = {}
local b = {}
local aPorts = {}
local aChat = { [1] = "<SYS> Welcome to MC-Chat! (Pause/Break to exit)" }
local nChatLine = 1
local sMessageOut = ""
local bRunning = true
local nBitCount = 0
local sBits = ""
local bIncoming = false
local sIncoming = ""
for n=1,8 do
table.insert(b, 0)
table.insert(aPorts, 0)
end
for n=0,255 do
table.insert(a, 0)
a[n] = b[1] .. b[2] .. b[3] .. b[4] .. b[5] .. b[6] .. b[7] .. b[8]
b[8] = b[8] + 1
for n2=1,7 do
if b[9-n2] == 2 then
b[9-n2] = 0
b[8-n2] = b[8-n2] + 1
end
end
end
local function Int2Bin(int)
return a[int]
end
local function ClockPulse(bC)
sleep(0.005)
redstone.setOutput(sClockOut, bC)
end
local function chatBox()
term.setCursorPos( 1, 17 )
term.clearLine()
for n=1,49 do
io.write("-")
end
end
local function addChat(str)
if nChatLine < 16 then
table.insert(aChat, str)
nChatLine = nChatLine + 1
else
for n=1,15 do
aChat[n] = aChat[n+1]
end
aChat[16] = str
end
end
local function writeLine()
term.setCursorPos( 1, 18 )
term.clearLine()
io.write("msg> " .. sMessageOut)
end
local function writeChat()
term.setCursorPos( 1, 1 )
for n=1,nChatLine do
term.clearLine()
print(aChat[n])
end
end
local function writeSendLine()
term.setCursorPos( 1, 18 )
term.clearLine()
io.write("<SENDING>" .. sMessageOut)
end
local function writeGetLine()
term.setCursorPos( 1, 18 )
term.clearLine()
io.write("<INCOMIMG DATA>")
end
local function dataOut(str)
bClock = false
local sData = ""
for n=1,string.len(str) do
sData = sData .. Int2Bin(string.byte(string.sub(str,n,n)))
end
sData = sData .. "00000000"
local nCount = string.len(sData)
sleep(0.1)
for n=1,nCount do
if bClock == true then
bClock = false
else
bClock = true
end
if string.sub(sData,n,n) == "1" then
redstone.setOutput(sDataOut, true)
ClockPulse(bClock)
sleep(0.01)
else
redstone.setOutput(sDataOut, false)
ClockPulse(bClock)
sleep(0.01)
end
end
bClock = false
redstone.setOutput(sDataOut, false)
redstone.setOutput(sClockOut, false)
end
term.clear()
term.setCursorPos( 1, 1 )
term.setCursorBlink( true )
chatBox()
writeChat()
writeLine()
while bRunning do
local sEvent, param = os.pullEvent()
if bIncoming == false then
bClock = false
if sEvent == "key" then
if param == 197 then
bRunning = false
elseif param == 28 then
if string.sub(sMessageOut,1,1) == "/" then
if string.sub(sMessageOut,1,6) == "/name " then
if string.len(sMessageOut) > 6 then
if string.len(sMessageOut) < 13 then
sUserName = string.sub(sMessageOut,7,string.len(sMessageOut))
addChat("<SYS> Name changed to '" .. sUserName .. "'.")
else
addChat("<SYS> Name too long.(Limit 6 characters)")
end
end
end
sMessageOut = ""
writeChat()
writeLine()
else
if string.len(sMessageOut) > 0 then
writeSendLine()
sMessageOut = sUserName .. "> " .. sMessageOut
addChat(sMessageOut)
dataOut(sMessageOut)
sMessageOut = ""
writeChat()
writeLine()
end
end
elseif param == 14 then
sMessageOut = string.sub(sMessageOut,1,string.len(sMessageOut)-1)
writeLine()
end
end
if sEvent == "char" then
if string.len(sMessageOut) < 40 then
sMessageOut = sMessageOut .. param
end
writeLine()
end
else
if sEvent == "key" then
if param == 207 then
bIncoming = false
sIncoming = ""
writeChat()
writeLine()
end
end
end
if sEvent == "redstone" then
if redstone.getInput(sClockIn) ~= bClock then
bClock = redstone.getInput(sClockIn)
if bIncoming == false then
bIncoming = true
writeGetLine()
end
if redstone.getInput(sDataIn) then
sBits = sBits .. "1"
nBitCount = nBitCount + 1
else
sBits = sBits .. "0"
nBitCount = nBitCount + 1
end
if nBitCount == 8 then
if sBits == "00000000" then
bIncoming = false
addChat(sIncoming)
sIncoming = ""
writeChat()
writeLine()
else
sIncoming = sIncoming .. string.char(tonumber(sBits,2))
end
sBits = ""
nBitCount = 0
end
end
end
end
term.clear()
term.setCursorPos( 1, 1 )

复制代码

说明：
实现具有用户名的网络通信(用户名最多支持6个字符！)按图中所示方法接线

使用RPmod进行信号传输~

P.S:

——-----—————————————————翻译专区果然是一个好地方~谁是MOD讨论版块版主这件事情我一点都不在意的~
谁是MOD讨论版块版主这件事情我一点都不在意的~

电脑MOD例程集锦（持续更新中）

回复: