[轉錄][轉錄][轉錄][轉錄] bbs也可以玩貪食蛇

[ryonest (靜靜等待 風的行蹤)]

※ [本文轉錄自 ryonest 信箱]

作者: [e-mail] ([e-mail])
標題: [轉錄][轉錄][轉錄] bbs也可以玩貪食蛇
時間: Tue Jan  8 04:29:55 2008

作者: lightring (戶田惠梨香！) 看板: AAAAAAAA
標題: [轉錄][轉錄][轉錄] bbs也可以玩貪食蛇
時間: Mon Jan  7 11:03:26 2008

== 原作者BBSLua版piaip ==

※ [本文轉錄自 lightring 看板]

作者: lightring (戶田惠梨香！) 看板: lightring
標題: [轉錄][轉錄][轉錄] bbs也可以玩貪食蛇
時間: Mon Jan  7 03:16:46 2008

※ [本文轉錄自 dancingvito 看板]

作者: dancingvito (本命) 看板: dancingvito
標題: [轉錄][轉錄] bbs也可以玩貪食蛇
時間: Mon Jan  7 02:10:33 2008

※ [本文轉錄自 Entropia 看板]


很神奇唷！在閱讀此文時按下大寫 P
你就會看到貪食蛇在你的 BBS 裡跑起來
然後玩法應該不需要我來教你了吧
看你可以玩到幾分 have fun;)

如果顯示程式錯誤，請重新登入P2


--#BBSLUA

snake={{x=20,y=12}}        -- snake body
snakelen = 3
score    = 0
dir={x=1, y=0}
target=nil
duration=0.2

miny = 1
maxy = 24
minx = 0
maxx = 40

function drawSnake(m, t)
  local i
  bbs.color(1,33)
  for i = 1, table.getn(m) do
    bbs.move(m[i].y, m[i].x*2)
    bbs.outs('▉')
    if (i == 1) then bbs.color(0,33) end
  end
  bbs.color(1,31)
  bbs.move(target.y, target.x*2)
  bbs.outs('★')
  -- prevent stupid terminal clients sending double keys
  bbs.move(target.y, target.x*2+1)
end

function hitSnake(m, y, x)
  local i
  if y < miny or y >= maxy then return 1 end
  if x < minx or x >= maxx then return 1 end

  for i = 1, table.getn(m) do
    if (m[i].y == y) and (m[i].x == x) then
      return 1
    end
  end
  return nil
end

function hitTarget(y, x)
  if y == target.y and x == target.x then
    return 1
  end

  return nil
end

function drawGameOver()
   bbs.clear()
   bbs.move(12, 30)
   print([[G A M E O V E R]]);
end

function nextTarget(m)
  local t
  t = {}
  repeat
    t.y = math.random(maxy-miny)-1+miny
    t.x = math.random(maxx-minx)-1+minx
  until not hitSnake(m, t.y, t.x)
  return t
end

target = nextTarget(snake)

repeat
  -- draw all
  bbs.clear()
  bbs.title('BBS-Lua 貪食蛇 範例 (按 END 或 Ctrl-C 中斷)  分數: ' .. score .. "  ")
  drawSnake(snake)
  bbs.refresh()

  if bbs.kbhit(duration) then
    c = bbs.getch()
    if c == 'UP'    then dir.x = 0; dir.y = -1; end
    if c == 'DOWN'  then dir.x = 0; dir.y = 1; end
    if c == 'RIGHT' then dir.x = 1; dir.y = 0; end
    if c == 'LEFT'  then dir.x = -1; dir.y = 0; end
    if c == 'END'   then break; end
  end

  -- update snake
  local o, n
  o = snake[1]
  n = {}
  n.x = o.x + dir.x
  n.y = o.y + dir.y

  if (hitSnake(snake, n.y, n.x)) then
    -- gameover
    drawGameOver()
    break
  end

  -- ok to increase length
  table.insert(snake, 1, n)
  while table.getn(snake) > snakelen do
    table.remove(snake, snakelen+1)
  end

  if (hitTarget(n.y, n.x)) then
    -- hit target, increase length
    score = score + 100
    snakelen = snakelen + (score / 100) * 3
    target = nextTarget(snake)
  end

until false

--#BBSLUA

--
看在你還有點創意

再重PO一篇吧！

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 218.166.215.238
→ puttogether:這實在太屌了@_@  互動式時代的無限可能阿!!
--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 140.112.206.5
※ graydiscover:轉錄至看板 Jiung_Bros                              01/06 22:40
→ graydiscover:馬麻這真是太神奇惹~~~~~~~~~~~~~
--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 220.135.183.38
→ eddybx1:好酷!借轉
--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 218.166.31.242

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 218.167.186.99
→ luyota:厲害翻翻了!!!
→ TheBoyLee:好強！
→ Iamrealbb:強!!!!!!!!借我轉!!
※ Iamrealbb:轉錄至看板 ThePensieve                                01/06 23:53
※ wendychen:轉錄至看板 wendychen                                  01/06 23:55

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 218.166.50.29
→ estar:挖 借我轉!!!
※ estar:轉錄至看板 SleepingStar                                   01/07 00:06
※ jaa38971:轉錄至看板 ImageStudio                                 01/07 00:09

--
      「神愛，甚至將他的獨生子賜給，
        叫不致滅亡，反得永生。」
                                          ～約翰福音3:16

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 140.112.211.162

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 140.112.213.46
※ mainengre:轉錄至看板 basonduet                                  01/07 01:01

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 140.112.241.183
→ moonsheep2:第一次我按到小寫p時嚇到...= ="正好在唸程設..
--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 218.166.76.250
→ hfslyc:太酷了一定要轉一下
→ p61224:嘖我同時在大三學長版跟這裏看到是怎麼回事
※ heidernchu:轉錄至看板 littlepig                                 01/07 01:51
→ dancingvito:好酷 !!! 借我偷偷轉 !!!
--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 61.229.64.249
→ yoyoling:怎麼玩= =
→ lightring:不是說按大寫P嗎= =
→ lightring:借轉
--
╭─────戶田惠梨香最高！ TodaErika板  歡迎大家來坐坐 <(_ _)>─────╮
｜              視聽劇場     偶像, 音樂, 廣電                             ｜
｜                Idols_3JP     人物 Σ哈日藝能宅即便                     ｜
｜　 ○ ＊\○       JP__Girls     日本 Σ＊  女　　　　湯  ＊             ｜
｜　 ■︾  ▲\           TodaErika     日本 ◎戶田惠梨香最高！            ｜
　　  \\   //   ─────────────────────────────╯    

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 218.167.63.54
※ lightring:轉錄至某隱形看板                                      01/07 08:56
※ lightring:轉錄至看板 ZZZZZZZZZZZ9                               01/07 11:03

--
╭─────戶田惠梨香最高！ TodaErika板  歡迎大家來坐坐 <(_ _)>─────╮
｜              視聽劇場     偶像, 音樂, 廣電                             ｜
｜                Idols_3JP     人物 Σ哈日藝能宅即便                     ｜
｜　 ○ ＊\○       JP__Girls     日本 Σ＊  女　　　　湯  ＊             ｜
｜　 ■︾  ▲\           TodaErika     日本 ◎戶田惠梨香最高！            ｜
　　  \\   //   ─────────────────────────────╯    

--
※ 發信站: 批踢踢兔(ptt2.cc)
◆ From: 140.112.46.125
※ farbe:轉錄至某隱形看板                                          01/07 11:06
※ askia:轉錄至某隱形看板                                          01/07 11:09
※ pasaword:轉錄至看板 pasaword                                    01/07 11:09
※ linba:轉錄至某隱形看板                                          01/07 11:09
※ tito:轉錄至看板 SLGD                                            01/07 11:12
→ youtien:最高可以吃到幾分？
※ tito:轉錄至某隱形看板                                           01/07 11:13
※ settsett:轉錄至某隱形看板                                       01/07 11:16
→ dianthus:1500就輸了...
※ lydia16:轉錄至某隱形看板                                        01/07 11:19
※ Haskil:轉錄至看板 cafehouse                                     01/07 11:21
※ wonderland:轉錄至看板 akikara                                   01/07 11:23
※ wen826:轉錄至看板 wen826                                        01/07 11:23
※ solar18:轉錄至看板 solarking                                    01/07 11:24
※ ccas:轉錄至看板 IWontCare                                       01/07 11:26
→ langwon:langwon
※ langwon:轉錄至看板 langwon                                      01/07 11:32
※ yodaorion:轉錄至某隱形看板                                      01/07 11:33
※ FMDream:轉錄至某隱形看板                                        01/07 11:33
※ pauline515:轉錄至看板 BAISER                                    01/07 11:35
※ smartken:轉錄至看板 smartken                                    01/07 11:35
※ MollyH:轉錄至某隱形看板                                         01/07 11:36
※ evil828:轉錄至某隱形看板                                        01/07 11:38
※ cakeisaqueen:轉錄至看板 cakeisaqueen                            01/07 11:39
※ JoshHoward:轉錄至看板 JoshHoward                                01/07 11:39
※ kiranewstar:轉錄至看板 kira                                     01/07 11:41
※ SYOTEN:轉錄至某隱形看板                                         01/07 11:41
※ billyjmj:轉錄至某隱形看板                                       01/07 11:43
※ Homeyu:轉錄至看板 Homeyu                                        01/07 11:49
※ leolin:轉錄至某隱形看板                                         01/07 11:49
※ takumio:轉錄至某隱形看板                                        01/07 11:53
※ ACHIA:轉錄至某隱形看板                                          01/07 11:53
※ air:轉錄至看板 air                                              01/07 11:54
※ takumio:轉錄至某隱形看板                                        01/07 11:55
※ Purchase:轉錄至看板 Tritium                                     01/07 11:56
※ schwer:轉錄至看板 schwer                                        01/07 11:59
※ okikuma:轉錄至看板 okikuma                                      01/07 12:00
※ AlainDion:轉錄至某隱形看板                                      01/07 12:05
※ ratguy:轉錄至某隱形看板                                         01/07 12:07
※ ucs197477:轉錄至看板 Empress                                    01/07 12:15
※ hilt:轉錄至看板 Deity                                           01/07 12:19
※ Haiyo:轉錄至某隱形看板                                          01/07 12:20
→ dragonjc:一千四玩不下去了  好慢 XD
※ dragonjc:轉錄至看板 dragonjc                                    01/07 12:21
→ railwaystar:railstar
※ railwaystar:轉錄至某隱形看板                                    01/07 12:22
※ undeadfish:轉錄至某隱形看板                                     01/07 12:25
※ taco168:轉錄至看板 taco                                         01/07 12:26
※ Vweskitt:轉錄至看板 GreedIsland                                 01/07 12:30
※ kelsywyc:轉錄至看板 overtheway                                  01/07 12:30
※ mengchao:轉錄至看板 zensho                                      01/07 12:32
→ dragonjc:原來久按會變快  但速度不太好抓
※ ailys:轉錄至某隱形看板                                          01/07 12:32
※ npx:轉錄至某隱形看板                                            01/07 12:34
※ playourole:轉錄至某隱形看板                                     01/07 12:36
※ playourole:轉錄至看板 deterritory                               01/07 12:36
※ daadaa:轉錄至看板 Foxwind                                       01/07 12:42
※ minzoe:轉錄至某隱形看板                                         01/07 12:47
※ commandor:轉錄至某隱形看板                                      01/07 12:48
※ commandor:轉錄至某隱形看板                                      01/07 12:50
※ joybe:轉錄至看板 P_uehara                                       01/07 12:55
※ lovranfun:轉錄至某隱形看板                                      01/07 12:55
※ b19880604:轉錄至看板 Citywalker                                 01/07 13:01
※ ChrisX:轉錄至看板 Emperor                                       01/07 13:05
※ Uriel:轉錄至某隱形看板                                          01/07 13:05
※ agarm:轉錄至看板 daphnisland                                    01/07 13:10
※ happybaw:轉錄至某隱形看板                                       01/07 13:16
※ picturesque:轉錄至某隱形看板                                    01/07 13:19
※ godzilla107:轉錄至某隱形看板                                    01/07 13:19
※ yeahbo:轉錄至某隱形看板                                         01/07 13:21
※ iamsayumi:轉錄至看板 sayumi                                     01/07 13:23
※ wenzy:轉錄至某隱形看板                                          01/07 13:28
※ siao:轉錄至看板 TKKMKD                                          01/07 13:34
※ nbear:轉錄至看板 Berry_Muffin                                   01/07 13:40
※ flinhe:轉錄至看板 flsbo                                         01/07 13:47
※ raven:轉錄至某隱形看板                                          01/07 13:48
※ yesucan:轉錄至某隱形看板                                        01/07 13:49
※ Shinesty:轉錄至某隱形看板                                       01/07 13:57
※ joea:轉錄至某隱形看板                                           01/07 13:59
※ TRUK:轉錄至某隱形看板                                           01/07 14:00
※ tsaumond:轉錄至某隱形看板                                       01/07 14:02
※ f1r3e7d8:轉錄至看板 f1r3e7d8                                    01/07 14:08
※ ueesnow:轉錄至看板 ueesnow                                      01/07 14:23
※ syrien:轉錄至某隱形看板                                         01/07 14:36
※ hymanguo:轉錄至看板 IceSugar                                    01/07 14:40
※ Ginf:轉錄至看板 butterfat                                       01/07 14:41
※ vicissitudes:轉錄至某隱形看板                                   01/07 14:41
※ aoiyama:轉錄至看板 aoiyama                                      01/07 14:47
※ yasushou:轉錄至看板 yasushou                                    01/07 14:49
※ hug:轉錄至某隱形看板                                            01/07 14:51
→ rungtai:2100分 重點在自己不斷繞S型畫圈圈拖延時間
→ rungtai:並留活路給自己 不要讓尾巴擋住活路
※ rocksoul:轉錄至某隱形看板                                       01/07 15:06
※ lcp:轉錄至某隱形看板                                            01/07 15:08
→ rungtai:2200分 用S型在空白處螺旋畫方格  不要先去吃星星
→ rungtai:等畫夠了 尾巴也跟著縮減 再去吃
※ downy:轉錄至看板 miehmieh                                       01/07 15:23
※ whoever:轉錄至某隱形看板                                        01/07 15:46
※ Kkiris:轉錄至某隱形看板                                         01/07 15:49
※ OhScum:轉錄至某隱形看板                                         01/07 15:54
※ joychou:轉錄至看板 Doco_joychou                                 01/07 16:00
※ ppzznan:轉錄至看板 apple_bogy                                   01/07 16:12
※ odinhwu:轉錄至看板 odinhwu                                      01/07 16:17
※ mt01020:轉錄至某隱形看板                                        01/07 16:27
※ lovecheer:轉錄至看板 NTU-PH                                     01/07 16:39
※ iamuz:轉錄至某隱形看板                                          01/07 16:55
※ terrykyo:轉錄至看板 terrykyo                                    01/07 17:04
※ freezing1122:轉錄至看板 iammortal                               01/07 17:10
※ alume:轉錄至看板 headache                                       01/07 17:11
※ SpkSpawn:轉錄至看板 SpkSpawn                                    01/07 17:16
※ gaiway:轉錄至看板 GAIWAY                                        01/07 17:25
※ marchufo:轉錄至看板 MARCHUFO                                    01/07 17:33
→ BigLitt1e:2600分＠＠
→ BigLitt1e:2700分＠＠
※ summerlover:轉錄至某隱形看板                                    01/07 18:17
※ soap:轉錄至某隱形看板                                           01/07 18:25
※ mMing:轉錄至某隱形看板                                          01/07 18:32
※ dragoncat:轉錄至某隱形看板                                      01/07 18:48
※ CCWcm:轉錄至某隱形看板                                          01/07 18:51
※ kedo:轉錄至某隱形看板                                           01/07 19:03
※ slepin:轉錄至看板 PHIA                                          01/07 19:04
※ ck517:轉錄至看板 ck517                                          01/07 19:26
→ dreamabout:好厲害
→ ck517:把方格改成囧字 更好玩喔ＸＤ
※ angelineya:轉錄至某隱形看板                                     01/07 19:38
※ CKshilin:轉錄至某隱形看板                                       01/07 19:46
※ CKshilin:轉錄至某隱形看板                                       01/07 19:47
※ TimEdge:轉錄至某隱形看板                                        01/07 20:05
※ LLOCATION:轉錄至某隱形看板                                      01/07 20:12
※ foxpu:轉錄至某隱形看板                                          01/07 20:14
※ tsungwei1117:轉錄至某隱形看板                                   01/07 20:21
※ superouns:轉錄至看板 superouns                                  01/07 20:29
※ Alwayswithu:轉錄至看板 Alwayswithu                              01/07 20:37
※ allegory:轉錄至看板 greenSky                                    01/07 20:39
※ WangChunChun:轉錄至某隱形看板                                   01/07 20:49
※ doralee:轉錄至看板 capacious                                    01/07 20:49
※ IWWC:轉錄至某隱形看板                                           01/07 21:02
※ papillons:轉錄至看板 papillons                                  01/07 21:16
※ PAOHUI:轉錄至看板 ocmet                                         01/07 21:30
※ stinkytofu:轉錄至看板 AlenMiTofu                                01/07 21:32
※ piranha:轉錄至看板 piranha                                      01/07 21:36
※ patricia0622:轉錄至某隱形看板                                   01/07 21:40
※ masterandy:轉錄至看板 junway                                    01/07 22:04
※ killua1214:轉錄至看板 killua                                    01/07 22:08
※ kweilan:轉錄至某隱形看板                                        01/07 22:12
※ floret:轉錄至看板 ulyekcim                                      01/07 22:30
※ yingyu:轉錄至某隱形看板                                         01/07 22:44
※ Motorado:轉錄至某隱形看板                                       01/07 22:51
※ shelling52:轉錄至看板 pomegranate                               01/07 22:53
※ imboat:轉錄至看板 imboat                                        01/07 22:53
※ Ash:轉錄至某隱形看板                                            01/07 22:55
※ limou:轉錄至某隱形看板                                          01/07 22:57
※ bigred:轉錄至某隱形看板                                         01/07 23:02
※ frogbelly:轉錄至某隱形看板                                      01/07 23:04
※ rudyvv:轉錄至某隱形看板                                         01/07 23:11
※ fhjh90268:轉錄至某隱形看板                                      01/07 23:17
※ huangjeff:轉錄至看板 SunShineS                                  01/07 23:24
※ OHMyGod:轉錄至某隱形看板                                        01/07 23:31
※ plutewei:轉錄至某隱形看板                                       01/07 23:42
※ Gemmy:轉錄至看板 GemmyDays                                      01/07 23:56
※ frogbelly:轉錄至某隱形看板                                      01/07 23:58
※ wildflower:轉錄至看板 PerfectWorld                              01/08 00:02
※ jarlinlove:轉錄至某隱形看板                                     01/08 00:03
※ qfoxer:轉錄至看板 Vulpeculae                                    01/08 00:10
→ qfoxer:酷! 借轉!
※ qfoxer:轉錄至看板 Vulpeculae                                    01/08 00:13
※ ZnU:轉錄至看板 PG-Heaven                                        01/08 00:19
※ shilala:轉錄至看板 Prendre                                      01/08 00:22
※ funsally:轉錄至某隱形看板                                       01/08 00:27
※ flytears:轉錄至某隱形看板                                       01/08 00:28
※ zzxxccvv:轉錄至某隱形看板                                       01/08 00:32
※ chromate:轉錄至看板 chromate                                    01/08 00:33
※ ccred:轉錄至看板 BKA                                            01/08 00:34
※ ccred:轉錄至某隱形看板                                          01/08 00:34
※ winlin351124:轉錄至看板 nanty                                   01/08 00:41
※ jerry1060:轉錄至看板 silvermoon                                 01/08 00:58
※ cccccccccccc:轉錄至看板 ababc                                   01/08 00:59
※ ShellyLiang:轉錄至某隱形看板                                    01/08 01:00
※ XXXX69:轉錄至看板 XXXX69                                        01/08 01:29
※ gibaway:轉錄至某隱形看板                                        01/08 01:42
※ willtzeng:轉錄至某隱形看板                                      01/08 01:47
※ awholenewday:轉錄至看板 jameslulu                               01/08 01:48
※ leepuppy:轉錄至看板 Destiny123                                  01/08 02:13
※ ndstop:轉錄至某隱形看板                                         01/08 02:25
※ Torvalds:轉錄至某隱形看板                                       01/08 02:59


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.217.208.153
推 warwhoop:推文章標題很符合轉聯精神...XDa
推 wenwen1229:為蝦米我不行?
→ ryonest:因為只有PPT2才可以玩 = =
推 wenwen1229:嘖