Male/Female PD (Difficulty: 2/5)

Non-Scripter [2/5]
Beginner [2/5]
Advanced Scripter [1/5]
Expert [1/5]
Pro Scripter [1/5]

This script is very simple. It was created for changing armors to right gender. It works like this: first 100 items - male armors, second 100 - female.

Sub JoinGame(index)

Code: [Select]

Call SetTimer("tmrtest " & index & "," & X, 15)
Sub TMRTEST(index, Script)

Code: (vb) [Select]

Case 1
        Dim i
        Dim armor
        i = 1
        armor = GetPlayerArmorSlot(index)
        If armor => 1 Then 'From what item #
            If armor =< 100 Then 'To what item #
                If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Sex") = 1 Then '0 - male; 1 - female

                    Do While (i <= 24) 'Something like that I am now mainly busy with PHP
                        If GetPlayerInvItemNum(INDEX, i) = armor then
                            Call SetPlayerInvItemNum(index, i, int(armor)+100)
                            Call SendInventoryUpdate(INDEX, i)
                            Call SendWornEquipment(index)
                            Call SendPlayerData(index)
                            i = 25
                        Else
                            i = i + 1
                         End If
                      Loop
                 End If
            End If
        End If
    End Select
End Sub

~.:Lidnel:.~

Lidnel here try with this:

Code: [Select]

Sub TMRTEST(index, Script)
    Case 1
        Dim i
        Dim armor
        i = 1
        armor = GetPlayerArmorSlot(index)
        If armor => 1 Then 'From what item #
            If armor =< 100 Then 'To what item #
                If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Sex") = 1 Then '0 - male; 1 - female

                    Do While (i <= 24) 'Something like that I am now mainly busy with PHP
                        If GetPlayerInvItemNum(INDEX, i) = armor then
                            Call SetPlayerInvItemNum(index, i, int(armor)+100)
                            Call SendInventoryUpdate(INDEX, i)
                            Call SendWornEquipment(index)
                            Call SendPlayerData(index)
                            i = 25
                        Else
                            i = i + 1
                         End If
                      Loop
                 End If
            End If
        End If
    End Select
End Sub

Godlord

Thanks for edit )

~.:Lidnel:.~

No problem. I taught that that way stands in my Sadscript tutorial.

Godlord

i try to find in main.txt the "Sub TMRTEST(index, Script) "
i dont find it!
help me please!

xppxdd

i try to find in main.txt the "Sub TMRTEST(index, Script) "
i dont find it!
help me please!

If it's not in there, Godlord posted one. Just copy and paste his at the bottom of your main.txt.

Ballie