天龙八部技术论坛,专业提供天龙八部架设教程教学,天龙八部开区一条龙服务.

标题: 发个天龙到等级就送元宝和赠点的脚本[手工打造] [打印本页]

作者: 小白科技 时间: 2017-6-6 16:31
标题: 发个天龙到等级就送元宝和赠点的脚本[手工打造]
-- 领奖NPC
x002093_g_scriptId = 002093
-- 奖励标记
x002093_g_flag={

      [70]       =MF_LINGQUZENGDIAN
      [80]       =MF_LINGQUYUANBAO80
      [90]       =MF_LINGQUYUANBAO90
}

--*****************************
--事件交互入口
--*****************************

      function x002093_OnDefaultEvent(scencId,selfId,targetId)
            BeginEvent(sceneId)

                     strText = "欢迎光临我爱天龙"

                     AddText(sceneid,str Text)
                     AddNum Text(sceneId,x002093_g_scriptId,"领取赠点",5,101)
                     AddNum Text(sceneId,x002093_g_scriptId,"领取元宝",5,101)
      EndEvent(sceneId)

      DispatchEventList(scencId,selfId,targetId)
end

--**********************
--事件列表选中一项
--**********************
      function x002093_OnEventRequest( sceneId, selfId, targetId, eventId )
            if GetNumText() == 101 then
            local index = GetMissonFlag( sceneId, selfId,MF_LINGQUZENGDIAN)

            if index == 1 then

            x002093_g_TalkMsg( sceneId, selfId, targetId,"您已经领取该项奖励,不能再领取.")
            return
end
            ZengDian(SceneId,selfId,targetId,1,10000)

            SetMissionFlag(SceneId,selfId,MF_LINGQUZENGDIAN,1)
            BeginEvent(sceneID)
            AddText(sceneId,"领取元宝成功,您获得了10000赠点,谢谢你对[我爱天龙]的支持")
            EndEvent(sceneId)
            DiapatchEventList( sceneId, selfId, targetId)
            elsif GetNum Text() == 102 then
            BeginEvent(sceneId)
            DispatchEventList(sceneId,selfid,targetId)
      elseif GetNum Text() == 102 then
            BeginEvent(secneId)

      AddText(sceneId,"为了回馈广大玩家对[我爱天龙]的支持,现推出免费领取赠点的活动,请选择相应的等级领取奖励")

      AddText(scened,x002093_g_scriptId,"领取80级7万元宝奖励",5,80)
      AddText(scened,x002093_g_scriptId,"领取90级15万元宝奖励",5,90)
      EndEvent(scened)
            DispatchEventList(scenedId,selfid,targetId)
      elseif GetNum Text() == 80 or GetNum Text() == 90 then
            x002093_lingquyuanbao(scened,selfId,targetid)
      return
end
end
--********************
--对话提示
--********************

      function x002093_OnEventRequest( sceneId, selfId, targetId, eventId )
            BeginEvent(sceneId)

            AddText(sceneId,str)
      EndEvent(sceneId)
      DispatchEventList( sceneId, selfId, targetId, eventId)
      end
--*******************
--领取元宝
--*******************

      function x002093_OnEventRequest( sceneId, selfId, targetId, eventId )

      local mylevel = GetLevel(sceneId, selfId, targetId, eventId)
      if mylevel <       GetNumText() then
      local str Text = format("您的等级不够,待等级达到%d再来找我吧",GetNumText())
      X002093,TalkMsg(sceneId, selfId, targetId,str Text)
      return
      end

      if GetNumText()==80 then
      local index = GetMissionFlag(sceneId, selfId, MF_LINGQUYUANBAO80)

      if index == 1 then
      x002093_TalkMsg(sceneId, selfId, targetId,"您已经领取过该奖励,不能再领取了")
      return
      end

      YuanBao(sceneId,selfId,targetId,1,70000)
      ZengDian(sceneId,selfId,targetId,1,70000)

      SetMissionFlag((sceneId,selfId,targetId,"领取元宝成功,您获得了70000元宝和赠点,谢谢你对[我爱天龙]的支持")
elseif GetNum Text() == 90 then
      local index = GetMissionFlag(sceneId,selfId,MF_LINGQUYUANBAO90)
      if index == 1 then
      x002093_TalkMsg(sceneId,selfId,targetId,"您已经领取过该项奖励,不能再领取了")
      return
end
      YuanBao(sceneId,selfId,targetId,1,150000)
      ZengDian(sceneId,selfId,targetId,1,150000)
      SetMissionFlag((sceneId,selfId,MF_LINGQUYUANBAO90,1)
      x002093_TalkMsg(sceneId,selfId,targetId,"领取元宝成功,您获得了150000元宝和150000赠点,感谢您对[我爱天龙]的支持")

      end
end

欢迎光临天龙八部技术论坛,专业提供天龙八部架设教程教学,天龙八部开区一条龙服务. (http://bbs.xbytl.top/)