打印

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

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

lua-买大小的脚本

缺点有:

1这个开奖会公告发出来

2不会借用论坛骰子脚本做出骰子图像.bbs.mocwww.com0 F1 v# v& [* p# g) C! S( J' \
; f$ O, {# `8 F, b# C
3不能定时开奖 (譬如2分钟一次)妖城在线论坛) y  ?3 U- G, u  J+ a7 K

4不会判断豹子

bbs.mocwww.com' M. u5 t6 o3 B. k0 h4 M" V
第一次动手做的lua,老手别见怪.

function ng_TalkEvent(player,msg,color,range,size)

                              local shenshang =Char.GetData(player, %对象_金币%)
                              ro1 = math.random(1,6);
                              ro2 = math.random(1,6);8 Z0 |9 B6 k" T5 w) Y! e
                              ro3 = math.random(1,6);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* x6 t; T& p+ \. U
                              local roo = ro1+ro2+ro3
                              local QQ = 10000; --购买数量—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 e3 t: h0 B  {' r) M
                              local battlePrizeGold = QQ*1.90;--收小费
                              if msg== "[10000小]"  then
                              if (shenshang<QQ) then魔力私服,最新魔力宝贝私服技术交流" W0 o7 e% f. \4 |+ R
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
                                    return 0" ]: V) I; G5 J; K# Z, a" x  W) O
                              end妖城在线论坛1 ]4 q! b, ]& `3 w
                              Char.AddGold(player,-QQ);
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";妖城在线论坛' p, x  ?  T6 Q4 _  I! J
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);
                              if (roo>11) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( b/ L* p# R5 V+ ?8 a* X$ T
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")
                                    return 0
                              end
                              Char.AddGold(player,battlePrizeGold);
            end
                                    if msg== "[10000大]"  then妖城在线论坛4 `8 {, z$ C' u* l4 Z6 X( a& q$ a
                              if (shenshang<QQ) then
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")' v1 G. H' @. {/ b+ k* o
                                    return 0魔力私服,最新魔力宝贝私服技术交流. v8 W/ J3 R7 D) m+ X0 m
                              end妖城在线论坛% F% W! B' y, n
                              Char.AddGold(player,-QQ);
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& g: e% q& @: x
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' v7 C+ m/ }; g1 m, \& N
                              if (roo<10.5) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  L" y1 O$ s2 E. }0 {) D
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 ~2 b; c. z" ^
                                    return 0妖城在线论坛5 P9 t  Q' ^( f8 |- w' _; w
                              end  ^4 a  h6 n0 R' o" d; F' t" i
                              Char.AddGold(player,battlePrizeGold);                               —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 T& w- y( ]- t  }. l5 v4 \
            end
            魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- G- G) @. E0 p
            end- w3 a2 ?; \; o, ?- H# y+ t% a

[ 本帖最后由 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)
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" A: ?1 N  p5 q5 V7 y' Q
local shenshang =Char.GetData(player, %对象_金币%) 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, v- w8 J9 Y; M
ro1 = math.random(1,6);
ro2 = math.random(1,6);
ro3 = math.random(1,6);
local roo = ro1+ro2+ro3bbs.mocwww.com0 y% Z  _' G& J* z
local QQ = 10000; --购买数量
local battlePrizeGold = QQ*1.90;--收小费

if (shenshang<QQ) then
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")6 U) ^1 _$ Q  q9 p8 C8 z: j
return 0
end
Char.AddGold(player,-QQ);魔力私服,最新魔力宝贝私服技术交流' W, v6 ?& V' E; p4 o6 c: V

buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";妖城在线论坛( d2 p' h; G6 a- m4 \
               NLG.TalkToCli(-1,_MeIndex,buf,4,0);

if msg== "[10000小]"  then妖城在线论坛/ O8 m1 H* Y. B8 c: B5 y3 a! p! l
if (roo>11) then
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")
return 0魔力私服,最新魔力宝贝私服技术交流4 W% k) M0 r1 f. M) r9 n
end
endbbs.mocwww.com% a8 {) k% m& f7 o/ J0 U- L
魔力私服,最新魔力宝贝私服技术交流( m) u+ j  o$ _* W/ Z1 t
if msg== "[10000大]"  then
if (roo<10.5) then
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")
return 0魔力私服,最新魔力宝贝私服技术交流! s! ~- Z( E& L( z& G
end bbs.mocwww.com3 M5 d3 x- q; L6 Z9 E
end ' i  i! \! O% ?$ d5 Q2 d
Char.AddGold(player,battlePrizeGold); 魔力私服,最新魔力宝贝私服技术交流9 p! [* I& \) d( e; z2 [- D7 U1 X+ e8 ]
end

TOP

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

这是GA的
0 y3 H: I# L/ `, M- }$ `7 \

function ng_TalkEvent(player,msg,color,range,size)

local shenshang =Char.GetData(player, %对象_金币%) 魔力私服,最新魔力宝贝私服技术交流& b# g. X3 n5 n' P6 _8 k
ro1 = math.random(1,6);
ro2 = math.random(1,6);bbs.mocwww.com* N0 E5 H% B8 s1 X  [. n: s8 S
ro3 = math.random(1,6);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" ^1 [* e1 t. n1 G
local roo = ro1+ro2+ro3妖城在线论坛+ y( w5 I" k3 b4 Q. Z. Q0 M) n
local QQ = 10000; --购买数量# K9 d2 l. r0 M8 u  Q
local battlePrizeGold = QQ*1.90;--收小费
local battlePrizeGoldb = QQ*4.90;--豹子

if (msg=="[10000小]" or msg=="[10000大]" or msg == "[10000豹子]") then
if (shenshang<QQ) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" Q$ E* M( h& A
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")! j8 K7 v% o9 h6 B5 N* F. y
return 0魔力私服,最新魔力宝贝私服技术交流* L& Q; N- b0 Z. |0 h
end
Char.AddGold(player,-QQ);

if (ro1 == ro2 and ro2 == ro3) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- ]$ z1 G0 A: ~( G3 I+ b  v
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点豹子！！！欢迎下次购买")bbs.mocwww.com0 z) ^" |6 b' T  @
if (msg== "[10000豹子]")  thenbbs.mocwww.com1 [$ B6 D& e) L# Q. o* w- c
Char.AddGold(player,battlePrizeGoldb);
end
elseif (roo<10.5) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点小！！！欢迎下次购买")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" D, Y5 h7 O# u$ J
if (msg== "[10000小]")  then
Char.AddGold(player,battlePrizeGold);, Z& A6 R! F) `9 G/ a- W4 @
end魔力私服,最新魔力宝贝私服技术交流2 ]' T2 [. ^; j7 u
else
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点大！！！欢迎下次购买")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ G, f3 T7 U: T% N/ e
if (msg== "[10000大]") then
Char.AddGold(player,battlePrizeGold);
end 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! }$ b2 N' Z- i2 T  K* k+ G
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( w2 o) k4 r: h
return 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 x, K) Z0 K1 K& H) D& y5 K
endbbs.mocwww.com5 U9 M2 @# {: \; g: m' ?
end

TOP

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

引用:

原帖由 cststttt 于 2017-3-26 11:26 发表妖城在线论坛6 s4 X Y @4 m5 ?
没有NPC吗没有NPC吗

魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! m' K8 g d0 f. g" H" w& W; s
现在还是不会怎么建立npc

TOP