Male/Female PD (Difficulty: 2/5)

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by Ertzel
[Today at 10:11:57 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 21
• Hidden: 0
• Users: 15
• Users Online:

• Ertzel
• drifter000
• RavenStar
• Bloodmyst
• BRiM570N3
• jncoblack15
• yaratemaster
• bunnyphantom
• Blue Fly
• 314piwm
• Back to teeming
• LegendWeaver
• Gamma™
• Mikekan13
• sotyrrocks

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: [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

Stephan

Thanks for edit )

~.:Lidnel:.~

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

Stephan

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