打印

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

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

lua-买大小的脚本

缺点有:* A' _! x- u( T( Z1 \

1这个开奖会公告发出来
bbs.mocwww.com8 x; f3 v( N' S" w0 v
2不会借用论坛骰子脚本做出骰子图像.

3不能定时开奖 (譬如2分钟一次)

4不会判断豹子
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; X0 G5 E/ n. f

第一次动手做的lua,老手别见怪.魔力私服,最新魔力宝贝私服技术交流' b% n, l+ N1 _+ h) a0 V. ]) |4 l" o
8 r& b5 k' a  V4 B6 r/ M# A1 r
function ng_TalkEvent(player,msg,color,range,size)

                              local shenshang =Char.GetData(player, %对象_金币%)                               7 e  N8 l8 ~0 w, m4 a7 x! P( ^
                              ro1 = math.random(1,6);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ b* ~/ z; J3 j6 s! H  ^) I
                              ro2 = math.random(1,6);魔力私服,最新魔力宝贝私服技术交流! @) ^- A$ v' u2 M( K& K6 C4 W
                              ro3 = math.random(1,6);, w. e: F6 q# I( a5 t1 K* B- ?
                              local roo = ro1+ro2+ro3魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; \% K, b8 z8 k
                              local QQ = 10000; --购买数量bbs.mocwww.com* l- d; l/ v# M
                              local battlePrizeGold = QQ*1.90;--收小费
                              if msg== "[10000小]"  then
                              if (shenshang<QQ) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 [/ C, I. M1 p7 w& o+ E3 y
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")$ o+ C' x% _, c% I: k- o8 I
                                    return 0魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, q) q2 F5 K: d% }$ {+ _
                              end
                              Char.AddGold(player,-QQ);
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";魔力私服,最新魔力宝贝私服技术交流- R0 N- g& j( O2 S6 J+ _3 ]8 n0 K
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);
                              if (roo>11) then
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")
                                    return 0bbs.mocwww.com$ M0 m' U! m/ O0 h8 ?* V4 Z
                              end/ G3 S0 C5 j6 V$ d# @
                              Char.AddGold(player,battlePrizeGold);魔力私服,最新魔力宝贝私服技术交流' Z/ d! \4 |( F4 f; R
            end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  d- G3 B% F% b
                                    if msg== "[10000大]"  then
                              if (shenshang<QQ) then
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
                                    return 0
                              end
                              Char.AddGold(player,-QQ);
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";* S0 I  Z& m; }4 r* B% m9 E: H
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);5 y! ?/ M: [; ~" m
                              if (roo<10.5) then
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")
                                    return 0
                              end
                              Char.AddGold(player,battlePrizeGold);
            end                                     妖城在线论坛8 ]5 o1 G4 x6 G; {
            bbs.mocwww.com! z3 y' T, W* ]/ q! T' u9 t" v# m
            end妖城在线论坛2 A% S+ f# v2 p% e( F; ~5 U- Z$ P+ S

[ 本帖最后由 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)
妖城在线论坛2 L& F/ M, Y) s3 U5 W
local shenshang =Char.GetData(player, %对象_金币%) 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( ^3 g) w' ]) }6 Y9 ?# f
ro1 = math.random(1,6);
ro2 = math.random(1,6);魔力私服,最新魔力宝贝私服技术交流" S& B* O! m8 _5 w" i
ro3 = math.random(1,6);妖城在线论坛4 {  e& c+ C4 }# Y# ?
local roo = ro1+ro2+ro3
local QQ = 10000; --购买数量
local battlePrizeGold = QQ*1.90;--收小费# {+ D3 C0 u+ g; c$ h- O  D; f
魔力私服,最新魔力宝贝私服技术交流. Q- i1 E, X% W% V* Q  c
if (shenshang<QQ) then
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, |1 c$ n1 ~7 `8 F% y
return 0
end
Char.AddGold(player,-QQ);bbs.mocwww.com' Y! [( H- \7 r  V6 P6 X; f

buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. g3 B, I: _5 I- j
               NLG.TalkToCli(-1,_MeIndex,buf,4,0);- x! I4 v* J; X+ }. i5 ?2 c- a) S+ E* V

if msg== "[10000小]"  then
if (roo>11) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( q( K$ e  [+ ~' W6 Q4 S
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) t5 Q. \/ _( C4 _6 [- R7 f$ R( v
return 0
endbbs.mocwww.com/ N: ]  ~, G( ^; E
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 t  p# \% Y% s9 ?

if msg== "[10000大]"  then bbs.mocwww.com! i( I3 V0 r3 X  L
if (roo<10.5) then
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")
return 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 z) @, [2 h, C0 n$ c) j
end + J/ ^: h9 q# j
end 魔力私服,最新魔力宝贝私服技术交流8 g! Z* w1 n! }2 n
Char.AddGold(player,battlePrizeGold); bbs.mocwww.com  e! }4 k" e5 x: k& e
end

TOP

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

这是GA的
bbs.mocwww.com6 ^7 f2 t4 Z) l2 e

function ng_TalkEvent(player,msg,color,range,size) 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 A" S" J1 N3 l; J: V$ k

local shenshang =Char.GetData(player, %对象_金币%) - [/ `! W' Q) A% g( W; {7 X- c
ro1 = math.random(1,6);妖城在线论坛% l* h9 t+ u! C6 Z& K4 z+ h' Z
ro2 = math.random(1,6);bbs.mocwww.com8 e$ ?7 ^$ [# t, a
ro3 = math.random(1,6);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ c5 E0 ?. i" F1 h2 a5 `
local roo = ro1+ro2+ro39 n" y- U9 n! J& |5 Q
local QQ = 10000; --购买数量) H4 J# j/ e* o2 ~7 N1 X. s% 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魔力私服,最新魔力宝贝私服技术交流% \  x! \% m: a
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")妖城在线论坛+ q2 w; e3 A8 B3 e  a  F8 C
return 0妖城在线论坛5 F; i4 K( {! }; W$ R" @
end
Char.AddGold(player,-QQ);bbs.mocwww.com& Z5 n' c1 D0 j5 y. f) p6 t

if (ro1 == ro2 and ro2 == ro3) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点豹子！！！欢迎下次购买")
if (msg== "[10000豹子]")  then妖城在线论坛4 H7 ?3 C4 j# a# T. r
Char.AddGold(player,battlePrizeGoldb);
end
elseif (roo<10.5) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点小！！！欢迎下次购买")魔力私服,最新魔力宝贝私服技术交流( l8 S( D3 }7 W  @3 Z
if (msg== "[10000小]")  then
Char.AddGold(player,battlePrizeGold);9 G5 n* J8 R* j( ?" y
end
else
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点大！！！欢迎下次购买")
if (msg== "[10000大]") then
Char.AddGold(player,battlePrizeGold);
end
end妖城在线论坛$ T* e/ O6 Y  T" k
return 0$ u3 Z  q9 t, X, x/ m) g' e( L
end
end

TOP

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

引用:

原帖由 cststttt 于 2017-3-26 11:26 发表
! v. v r4 U L5 y/ pbbs.mocwww.com没有NPC吗没有NPC吗

—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ U" d* e! A, \. b. J
现在还是不会怎么建立npc

TOP