打印

[讨论] lua-买大小的脚本

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

阁楼大中小发表于 2017-3-18 16:38 只看该作者

lua-买大小的脚本

缺点有:妖城在线论坛9 m! O. m9 ^% E4 d4 U

1这个开奖会公告发出来
bbs.mocwww.com% f2 ^  s+ U  s5 ?  A+ s
2不会借用论坛骰子脚本做出骰子图像.
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 P0 S6 b8 v+ M
3不能定时开奖 (譬如2分钟一次)
魔力私服,最新魔力宝贝私服技术交流! \* \8 i% b# K7 q6 c* \1 {. ^6 a
4不会判断豹子妖城在线论坛: `1 l5 W* J1 j' B4 o8 [
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# Z  q/ {. q! [5 A

第一次动手做的lua,老手别见怪.bbs.mocwww.com% a8 d5 C* R& S8 r% Z
妖城在线论坛4 t3 _* G% ^. b! k9 q8 u
function ng_TalkEvent(player,msg,color,range,size)

                              local shenshang =Char.GetData(player, %对象_金币%)                               0 U  g4 H3 T* C. G1 p+ `7 h
                              ro1 = math.random(1,6);妖城在线论坛5 P( m. b( p( m7 s
                              ro2 = math.random(1,6);
                              ro3 = math.random(1,6);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; O, y8 }  A3 A. l
                              local roo = ro1+ro2+ro3bbs.mocwww.com9 U; T  ^5 [6 P7 b
                              local QQ = 10000; --购买数量
                              local battlePrizeGold = QQ*1.90;--收小费—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 e- S2 M! y7 e: T7 t
                              if msg== "[10000小]"  then
                              if (shenshang<QQ) thenbbs.mocwww.com( |$ V+ x$ ^: A" B/ J3 b
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. p, [0 a( {! X9 x' v' k
                                    return 0
                              end
                              Char.AddGold(player,-QQ);魔力私服,最新魔力宝贝私服技术交流0 w0 l0 L9 V1 J# c5 H
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 G6 M* S- p6 J" Y6 g
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);0 v7 w0 f, e2 X5 b5 q: K
                              if (roo>11) then魔力私服,最新魔力宝贝私服技术交流6 U; Y% |6 R/ d3 v1 r! S! @
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")
                                    return 0魔力私服,最新魔力宝贝私服技术交流' k; \" J9 w0 U$ u: v+ Z
                              end
                              Char.AddGold(player,battlePrizeGold);
            end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% q7 K9 J5 I# w
                                    if msg== "[10000大]"  then
                              if (shenshang<QQ) thenbbs.mocwww.com7 a/ L. D) Z! |$ W
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
                                    return 05 I: x' U( T4 A& o8 v
                              end魔力私服,最新魔力宝贝私服技术交流2 r+ z+ \* z" A( I$ i& U
                              Char.AddGold(player,-QQ);
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";妖城在线论坛4 J8 i8 {/ t+ t- \0 E
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);
                              if (roo<10.5) then
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")
                                    return 0魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. u' _/ M6 M* E' z4 L9 O
                              end妖城在线论坛# i. @& w# E/ N6 [1 o# p) K6 z
                              Char.AddGold(player,battlePrizeGold);                               魔力私服,最新魔力宝贝私服技术交流5 d2 d$ P6 w; G, D( A
            end
            bbs.mocwww.com2 B: E  X; _% L# V
            end魔力私服,最新魔力宝贝私服技术交流3 E' h7 }' p9 t" }$ {% b
  m& g! p  [" o( {1 ~+ ^
[ 本帖最后由 vcamed 于 2017-3-18 17:05 编辑 ]

本帖最近评分记录

全熟牛排溅血妖力 +10 2017-11-22 00:07
全熟牛排溅血妖币 +10 2017-11-22 00:07

TOP

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

沙发大中小发表于 2017-3-18 16:44 只看该作者

整理了一下顺序

function ng_TalkEvent(player,msg,color,range,size) bbs.mocwww.com  p/ d- [5 ?! q5 p; q; I

local shenshang =Char.GetData(player, %对象_金币%)
ro1 = math.random(1,6);
ro2 = math.random(1,6);bbs.mocwww.com9 Q* Z( Y) E! G* w
ro3 = math.random(1,6);/ Y( X  F8 M4 Q) {$ A; ~  N
local roo = ro1+ro2+ro3魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 _  I; c# S! D+ r
local QQ = 10000; --购买数量
local battlePrizeGold = QQ*1.90;--收小费
bbs.mocwww.com; i) Z: O2 O( X" V
if (shenshang<QQ) then
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
return 0
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" [! u: |! o. v4 r1 U; \: b  [
Char.AddGold(player,-QQ);

buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";
               NLG.TalkToCli(-1,_MeIndex,buf,4,0);魔力私服,最新魔力宝贝私服技术交流" y: z5 Y* G. L( E9 n- t

if msg== "[10000小]"  then
if (roo>11) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 K# n0 C! A: f* ^5 T% l2 \
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")
return 0
end
end
7 y7 m8 v% f) ?# U* w
if msg== "[10000大]"  then bbs.mocwww.com/ v. m& [+ z* @2 q! @. e
if (roo<10.5) thenbbs.mocwww.com  H8 G0 y0 C, w
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")
return 0魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  [1 M; U! }& b2 P: H
end . r$ D& ^& S2 ~: ?  h
end
Char.AddGold(player,battlePrizeGold);
end

TOP

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

板凳大中小发表于 2017-3-18 17:37 只看该作者

这是GA的$ m  R, I' a; `$ V! Q
魔力私服,最新魔力宝贝私服技术交流: f# I0 p& S1 i
bbs.mocwww.com+ e( W" {' i9 O6 g7 }
function ng_TalkEvent(player,msg,color,range,size)
bbs.mocwww.com% i# d! k! A7 \
local shenshang =Char.GetData(player, %对象_金币%)
ro1 = math.random(1,6);妖城在线论坛& U. ~; x' y5 x8 U8 L7 N0 s
ro2 = math.random(1,6);妖城在线论坛. D" h' n7 {, j' e: k0 q8 r
ro3 = math.random(1,6);
local roo = ro1+ro2+ro3bbs.mocwww.com* ?0 j0 P: e$ M; W$ i2 Y
local QQ = 10000; --购买数量
local battlePrizeGold = QQ*1.90;--收小费bbs.mocwww.com+ d( o( @( Z+ c- A9 q
local battlePrizeGoldb = QQ*4.90;--豹子妖城在线论坛; G2 x' ?6 J- O- M+ r2 k2 t: d1 [

if (msg=="[10000小]" or msg=="[10000大]" or msg == "[10000豹子]") then$ \: ^) m) ^! }! w4 j
if (shenshang<QQ) then魔力私服,最新魔力宝贝私服技术交流3 c7 P& E+ h6 Y# a, v: k7 q$ g
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
return 0
end
Char.AddGold(player,-QQ);
bbs.mocwww.com1 f, O; q# D' v5 h: Y
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 d2 N1 |- E4 @0 i8 c
if (ro1 == ro2 and ro2 == ro3) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点豹子！！！欢迎下次购买")
if (msg== "[10000豹子]")  then' U( {" U# C( r4 y" N1 S$ S+ O4 d
Char.AddGold(player,battlePrizeGoldb);
end妖城在线论坛0 G/ S  D' g( c6 c; i1 G' u- w
elseif (roo<10.5) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点小！！！欢迎下次购买")魔力私服,最新魔力宝贝私服技术交流# ]2 T6 ]% K9 p* T- o, X+ y' H
if (msg== "[10000小]")  then bbs.mocwww.com! d9 I0 _' T7 K' F; s2 R/ R# a
Char.AddGold(player,battlePrizeGold);bbs.mocwww.com' h2 l' j0 g  m7 P- k3 l
end妖城在线论坛! w' m$ p" C, K# U. B  r; |
else
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点大！！！欢迎下次购买")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 X$ Y6 i4 ~; f& c" ?9 Q
if (msg== "[10000大]") then
Char.AddGold(player,battlePrizeGold);
end
end
return 0
end
end

TOP

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

地板大中小发表于 2017-3-26 18:32 只看该作者

引用:

原帖由 cststttt 于 2017-3-26 11:26 发表妖城在线论坛1 T1 M, P! E U, N) ^: r
没有NPC吗没有NPC吗

—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ A) t& G' F' W
现在还是不会怎么建立npc

TOP