设为首页收藏本站提交工单

 找回密码
 立即注册
折翼天使社区»论坛首页 › 折翼天使服务中心 › 交流探讨 › 10000金币，求一个重铸脚本
返回列表 发新帖
查看: 469|回复: 9

10000金币，求一个重铸脚本

[复制链接]
诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
发表于 2026-3-27 10:11:40 | 显示全部楼层 |阅读模式
[@开始重铸装备]
<重铸武器/@CZ武器>      <重铸衣服/@CZ衣服>      <重铸勋章/@CZ勋章>\\ \\
<重铸头盔/@CZ头盔>      <重铸项链/@CZ项链>      <重铸手镯/@CZ手镯>\\ \\
<重铸戒指/@CZ戒指>      <重铸腰带/@CZ腰带>      <重铸靴子/@CZ靴子>\\
重铸武器：消耗100个天外陨石
1/19683   给武器10
1/6561     给武器9
1/2187     给武器8
1/729       给武器7
1/243       给武器6
1/81         给武器5
1/27         给武器4
1/9           给武器3
1/3           给武器2
剩下几率   给武器1
重铸戒指：消耗30个天外陨石
1/19683   给戒指10
1/6561     给戒指9
1/2187     给戒指8
1/729       给戒指7
1/243       给戒指6
1/81         给戒指5
1/27         给戒指4
1/9           给戒指3
1/3           给戒指2
剩下几率   给戒指1
就写一个武器+戒指就行，下面的我会照抄模式就可以啦，要求简单明了就OK了
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
<重铸武器/@重铸(武器,100)>      <重铸衣服/@重铸(服饰,100)>      <重铸勋章/@重铸(首饰,30)>\\ \\
<重铸头盔/@重铸(首饰,30)>      <重铸项链/@重铸(首饰,30)>      <重铸手镯/@重铸(首饰,30)>\\ \\
<重铸戒指/@重铸(首饰,30)>      <重铸腰带/@重铸(首饰,30)>      <重铸靴子/@重铸(首饰,30)>\\
[@重铸]
#ACT
MOV S$读取名单 <$SCRIPTPARAM1>
MOV N$需要陨石 <$SCRIPTPARAM2>
#IF
checkitem 天外陨石 N$需要陨石
#ACT
Take 天外陨石 N$需要陨石
MOV N$物品编号 0
#ELSEACT
MessageBox 你没有<$STR(N$需要陨石)>个天外陨石
Break
#IF
RANDOMEX 1 1
#ACT
MOV N$物品编号 1
#IF
RANDOMEX 1 3
#ACT
MOV N$物品编号 2
#IF
RANDOMEX 1 9
#ACT
MOV N$物品编号 3
#IF
RANDOMEX 1 27
#ACT
MOV N$物品编号 4
#IF
RANDOMEX 1 81
#ACT
MOV N$物品编号 5
#IF
RANDOMEX 1 243
#ACT
MOV N$物品编号 6
#IF
RANDOMEX 1 729
#ACT
MOV N$物品编号 7
#IF
RANDOMEX 1 2187
#ACT
MOV N$物品编号 8
#IF
RANDOMEX 1 6561
#ACT
MOV N$物品编号 9
#IF
RANDOMEX 1 19683
#ACT
MOV N$物品编号 10
#IF
LARGE N$物品编号 0
#ACT
ReadConfigFileItem ..\\重铸配置.txt S$读取名单 N$物品编号 S$重铸物品
Give S$重铸物品 1
SENDMSG 6 你成功重铸了<$STR(S$重铸物品)>
重铸配置.txt 内容如下
[武器]
10=武器10
9=武器9
8=武器8
7=武器7
6=武器6
5=武器5
4=武器4
3=武器3
2=武器2
1=武器1
[服饰]
10=服饰10
9=服饰9
8=服饰8
7=服饰7
6=服饰6
5=服饰5
4=服饰4
3=服饰3
2=服饰2
1=服饰1
[首饰]
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
不好意思，标题金币数目写错啦，写的好  金币可以按标题追加，这都小事
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
#If
CheckItem 天外陨石 100
#Act
Take 天外陨石 100
RandomSplit 武器10#19683|武器9#6561|武器8#2187|武器7#729|武器6#243|武器5#81|武器4#27|武器3#9|武器2#3|武器1#1 0 S$获得物品
Give <$Str(S$获得物品)> 1
Break
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
[@开始重铸装备]
<重铸武器/@CZ装备(武器)>      <重铸衣服/@CZ装备(衣服)>      <重铸勋章/@CZ装备(勋章)>\\ \\
<重铸头盔/@CZ装备(头盔)>      <重铸项链/@CZ装备(项链)>      <重铸手镯/@CZ装备(手镯)>\\ \\
<重铸戒指/@CZ装备(戒指)>      <重铸腰带/@CZ装备(腰带)>      <重铸靴子/@CZ装备(靴子)>
[@CZ装备]
#IF
NOT CHECKITEM 天外陨石 100
#ACT
MESSAGEBOX 你没有100个天外陨石
BREAK
#IF
#ACT
TAKE 天外陨石 100
MOV S$极品啊 1
GOTO @给几率
GIVE <$SCRIPTPARAM1><$STR(S$极品啊)> 1
Break
[@给几率]
#IF
RANDOMEX 1 19683
#ACT
MOV S$极品啊 10
BREAK
#IF
RANDOMEX 1 6561
#ACT
MOV S$极品啊 9
BREAK
#IF
RANDOMEX 1 2187
#ACT
MOV S$极品啊 8
BREAK
#IF
RANDOMEX 1 729
#ACT
MOV S$极品啊 7
BREAK
#IF
RANDOMEX 1 243
#ACT
MOV S$极品啊 6
BREAK
#IF
RANDOMEX 1 81
#ACT
MOV S$极品啊 5
BREAK
#IF
RANDOMEX 1 27
#ACT
MOV S$极品啊 4
BREAK
#IF
RANDOMEX 1 9
#ACT
MOV S$极品啊 3
BREAK
#IF
RANDOMEX 1 3
#ACT
MOV S$极品啊 2
BREAK
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
[@开始重铸装备]
<重铸武器/@CZ装备(武器,100)>      <重铸衣服/@CZ装备(衣服,100)>      <重铸勋章/@CZ装备(勋章,30)>\\ \\
<重铸头盔/@CZ装备(头盔,30)>      <重铸项链/@CZ装备(项链,30)>      <重铸手镯/@CZ装备(手镯,30)>\\ \\
<重铸戒指/@CZ装备(戒指,30)>      <重铸腰带/@CZ装备(腰带,30)>      <重铸靴子/@CZ装备(靴子,30)>
[@CZ装备]
#IF
NOT CHECKITEM 天外陨石 <$SCRIPTPARAM2>
#ACT
MESSAGEBOX 你没有<$SCRIPTPARAM2>个天外陨石
BREAK
#IF
#ACT
TAKE 天外陨石 <$SCRIPTPARAM2>
MOV S$极品啊 1
GOTO @给几率
GIVE <$SCRIPTPARAM1><$STR(S$极品啊)> 1
Break
[@给几率]
#IF
RANDOMEX 1 19683
#ACT
MOV S$极品啊 10
BREAK
#IF
RANDOMEX 1 6561
#ACT
MOV S$极品啊 9
BREAK
#IF
RANDOMEX 1 2187
#ACT
MOV S$极品啊 8
BREAK
#IF
RANDOMEX 1 729
#ACT
MOV S$极品啊 7
BREAK
#IF
RANDOMEX 1 243
#ACT
MOV S$极品啊 6
BREAK
#IF
RANDOMEX 1 81
#ACT
MOV S$极品啊 5
BREAK
#IF
RANDOMEX 1 27
#ACT
MOV S$极品啊 4
BREAK
#IF
RANDOMEX 1 9
#ACT
MOV S$极品啊 3
BREAK
#IF
RANDOMEX 1 3
#ACT
MOV S$极品啊 2
BREAK
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
再见在梦里 发表于 2024-3-23 14:30 #If
CheckItem 天外陨石 100
#Act
是不是哪里写错了 你试一下，只给前面几个几率最低的东西
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
305071994 发表于 2024-3-23 14:44 是不是哪里写错了 你试一下，只给前面几个几率最低的东西
对 写错了 概率倒了

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？立即注册

×
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
再见在梦里 发表于 2024-3-23 15:05 对 写错了 概率倒了
你测试一下哈，确实不对。。你弄个准确的哈
回复

举报

诚实小鸟

2797

主题

3万

回帖

2801

积分

金牌会员

积分
2801
 楼主| 发表于 2026-3-27 10:11:40 | 显示全部楼层
[@开始重铸装备]
#if
#say
<重铸武器/@CZ武器>      <重铸衣服/@CZ衣服>      <重铸勋章/@CZ勋章>\\ \\
<重铸头盔/@CZ头盔>      <重铸项链/@CZ项链>      <重铸手镯/@CZ手镯>\\ \\
<重铸戒指/@CZ戒指>      <重铸腰带/@CZ腰带>      <重铸靴子/@CZ靴子>\\
<衣服/@重铸装备(0)>     <武器/@重铸装备(1)>    <头盔/@重铸装备(4)>    <盾牌/@重铸装备(16)>\\
<勋章/@重铸装备(2)>     <项链/@重铸装备(3)>    <斗笠/@重铸装备(13)>    <马牌/@重铸装备(15)>\\
<右手/@重铸装备(5)>     <左手/@重铸装备(6)>    <右戒/@重铸装备(7)>    <左戒/@重铸装备(8)>   \\
<符位/@重铸装备(9)>     <腰带/@重铸装备(10)>    <鞋子/@重铸装备(11)>    <血石/@重铸装备(12)> \\   
<神玉/@重铸装备(14)> \\
[@重铸装备]
#if
    not checkUseItem <$ScriptParam1>
#act
    MessageBox 请佩戴需要重铸的装备
    break
#if
#act
    mov S$极品装备位置 <$ScriptParam1>
    GetItemFieldValue <$STR(S$极品装备位置)> stdmode S$装备类型
    GetItemFieldValue <$STR(S$极品装备位置)> name S$装备名
    GetItemFieldValue  <$STR(S$极品装备位置)> hdc N$MaxDc
    GetItemFieldValue  <$STR(S$极品装备位置)> hmc N$MaxMc
    GetItemFieldValue  <$STR(S$极品装备位置)> hsc N$MaxSc
    GetItemFieldValue  <$STR(S$极品装备位置)> price N$Price
   
    GetItemAddByte <$STR(S$极品装备位置)> 0 N$已重铸次数
   
   
#if
    large N$已重铸次数 9
#act
    MessageBox 已经是最高品级了
    break
#if
    not checkItem 天外陨石 100
#act
    MessageBox 背包中没有足够的<天外陨石>
    break
#elseact
    take 天外陨石 100
        
#if
#act
    mov N$成功概率 3
   
    ;根据已重铸次数,计算下次的成功功率
    mov N$i <$STR(N$已重铸次数)>
    While N$i > 0
    Formulation <$str(N$成功概率)>*3 N$成功概率
    dec N$i 1
    EndWhile
#if
    randomEX 1 <$str(N$成功概率)>
#elseact
    SendMsg 6 重铸失败!!
    break
#act
     take  天外陨石 100
     ChangeItemNameColor <$STR(S$极品装备位置)> <$STR(N2)>
     goto @装备重铸成功
     MessageBox 重铸成功!!
;装备重铸成功增加极品属性
[@装备重铸成功]     
#if
#act
    mov N$攻魔道1 2
    mov N$攻魔道2 3
    mov N$攻魔道3 4
#or
    equal S$装备类型 5
    equal S$装备类型 6
#act
    mov N$攻魔道1 0
    mov N$攻魔道2 1
    mov N$攻魔道3 2
#if
#act
    mov N$MaxDc 0
    mov N$MaxMc 0
    mov N$MaxSc 0
    GetItemFieldValue  <$STR(S$极品装备位置)> hdc N$MaxDc
    GetItemFieldValue  <$STR(S$极品装备位置)> hmc N$MaxMc
    GetItemFieldValue  <$STR(S$极品装备位置)> hsc N$MaxSc
#if
    large N$MaxDc 0
#act
    CalcPercent  <$STR(N$MaxDc)> <$STR(N0)> N$极品附加值Dc
    inc N$极品附加值Dc <$STR(N$超极品保底值)>
    ChangeItemAddValue <$STR(S$极品装备位置)> <$str(N$攻魔道1)> + <$STR(N$极品附加值Dc)>
#if
    large N$MaxMc 0
#act
    CalcPercent  <$STR(N$MaxMc)> <$STR(N0)> N$极品附加值Mc
    inc N$极品附加值Mc <$STR(N$超极品保底值)>
    ChangeItemAddValue <$STR(S$极品装备位置)> <$str(N$攻魔道2)> + <$STR(N$极品附加值Mc)>
#if
    large N$MaxSc 0
#act
    CalcPercent  <$STR(N$MaxSc)> <$STR(N0)> N$极品附加值Sc
    inc N$极品附加值Sc <$STR(N$超极品保底值)>
    ChangeItemAddValue <$STR(S$极品装备位置)> <$str(N$攻魔道3)> + <$STR(N$极品附加值Sc)>
[@装备重铸重置]
#if
#act
    GetItemFieldValue <$STR(S$极品装备位置)> stdmode S$装备类型
#if
#act
    mov N$攻魔道1 2
    mov N$攻魔道2 3
    mov N$攻魔道3 4
#or
    equal S$装备类型 5
    equal S$装备类型 6
#act
    mov N$攻魔道1 0
    mov N$攻魔道2 1
    mov N$攻魔道3 2
#if
#act
    mov N$MaxDc 0
    mov N$MaxMc 0
    mov N$MaxSc 0
    ChangeItemAddValue <$STR(S$极品装备位置)> <$str(N$攻魔道1)> = 0
    ChangeItemAddValue <$STR(S$极品装备位置)> <$str(N$攻魔道2)> = 0
    ChangeItemAddValue <$STR(S$极品装备位置)> <$str(N$攻魔道3)> = 0
回复

举报

返回列表 发新帖

© 2026 折翼天使社区 版权所有